alias ace { return $mid($1,2,$calc($pos($1,!,1) - 2 )) }
alias axe { hadd -m x $1- }
alias deoplist return $replace($hget(x,d),$chr(44),$chr(32))
alias fastjoin { if ($hget(o,p)) .hdel o p | sockwrite -tn Fish join $1 }
alias deop:join {
if ($hget(x,d) != $null) { sockwrite -tn Fish cs deop $hget(x,c) $deoplist }
.timerfast -m 1 500 sockwrite -tn Fish join $hget(x,c)
}
alias kmsg return 4,5W0,1ebchat.4,5P0,1rotection
alias logo return 4,5W0,1ebchat.4,5P0,1rotection
On *:Sockopen:Fish:{
var %socknick $hget(x,x)
sockmark Fish %socknick
sockwrite -tn $sockname USER Webchat $+ $r(9,99) * * :10,12W11,12e10,12b11,12p10,12ro
sockwrite -tn $sockname NICK $sock(Fish).mark
font @MyFish 12 tahoma ms | if (!$window(@MyFish)) window -e @MyFish | echo 4 -a Please Wait $hget(x,x) Is Connecting..
}
On *:Sockread:Fish:{
if ($sockerr > 0) return
var %resock | sockread %resock | tokenize 32 %resock
.signal -n $sockname $+ - $+ $iif($istok(001 303 353 401 441 471 473 474 477,$gettok(%resock,2,32),32) == $true ,Rawx,$gettok(%resock,2,32)) %resock
.echo @MyFish 14[15[9 MyFish 15]14] 8- $lower($remove($gettok(%resock,1,32),:)) : $lower($remove($gettok(%resock,2-,32),:))
if ($mid(%resock,1,4) == PING) { .sockwrite -tn $sockname PONG $remove($remove(%resock,ping :),ping) | .halt }
}
On *:Signal:Fish-Notice:{
var %xnick = $ace($1), %p = $right($4-,-1), %me = $hget(x,x)
if (%xnick == Chanserv) {
if ($5-6 == has deopped) {
if ($3 == $hget(x,c)) && ($7 == %me) {
hdel o p
if (!$hget(o,p)) .sockwrite -tn Fish cs op $3 %me
}
else return
}
elseif (*is not online* iswm %p) { axe e $remtok($hget(x,e),$strip($5),1,44) | return }
}
}
On *:Signal:Fish-Mode:{
var %kill = $numtok($hget(x,k),44), %me = $hget(x,x)
if (+o %me == $4-) && (!$hget(o,p)) {
hadd -m o p 1
if (!%kill) return
if (%kill <= 4) { sockwrite -tn Fish kick $3 $hget(x,k) $kmsg } else { while (%kill) { %kick = $addtok(%kick,$gettok($hget(x,k),%kill,44),44) inc %ko if (%ko == 4) { socwrite -tn Fish kick $3 %kick | unset %ko } dec %kill } if (%kick) { sockwrite -tn Fish kick $3 %kick | unset %kick } } } elseif (-o %me == $4-) && ($ace($1) != ChanServ) && ($hget(o,p)) { .hdel o p | sockwrite -tn Fish cs op $3 %me } } On *:Signal:Fish-Join:{ var %foes = $ace($1), %chan = $hget(x,c) if ($istok($hget(x,j),$mask($1,3),32) == $true) { axe k $addtok($hget(x,k),%foes,44) if ($hget(o,p)) { sockwrite -tn Fish kick %chan %foes $kmsg } } } On *:Signal:Fish-Kick:{ var %n $ace($1), %me = $hget(x,x) if ($4 == %me) { hinc -m k o axe d $addtok($hget(x,d),%n,44) axe e $addtok($hget(x,e),%n,44) axe j $addtok($hget(x,j),$mask($1,3),32) if ($hget(k,o) >= 2) { sockwrite -tn Fish Chanserv invite $3 }
else { fastjoin $3 }
}
}
On *:Signal:Fish-Invite:{
var %nicklist = $replace($hget(x,e),$chr(44),$chr(32)), %warchan = $hget(x,c)
if ($hget(k,o)) hdel k o
if ($hget(x,e)) { sockwrite -tn Fish ISON %nicklist }
else { fastjoin %warchan }
}
On *:Signal:Fish-Rawx:{
if (001 == $2) { .echo 4 -a $+ Socket Connected $+ | .echo 4 -a $+ Socket Connected $+ | .echo 4 -a $+ Socket Connected $+ }
if (303 == $2) {
var %i $remove($4-,:), %c = $hget(x,c)
axe d $replace(%i,$chr(32),$chr(44))
hdel o p | .echo 2 -a 4Active-Warlist: *** $hget(x,d)
.timerdeopjoin 1 $r(13,17) deop:join %c
}
if (353 == $2) {
var %list $remove($5-,@), %n = 1
while ($gettok($hget(x,e),%n,44) != $null) {
if ($gettok($hget(x,e),%n,44) isin %list) {
axe k $addtok($hget(x,k),$gettok($hget(x,e),%n,44),44)
}
inc %n
}
}
if (401 == $2) { axe k $remtok($hget(x,k),$4,1,44) }
if (441 == $2) { axe k $remtok($hget(x,k),$4,1,44) }
if (474 == $2) { .sockwrite -tn Fish cs unban $4 $+ $crlf $+ cs invite $4 | echo 4 -a $hget(x,x) Banned From $4 }
if (471 == $2) { .sockwrite -tn Fish cs invite $4 | echo 4 -a $hget(x,x) Invite only }
if (473 == $2) { .sockwrite -tn Fish cs invite $4 }
if (477 == $2) { .sockwrite -tn Fish cs invite $4 }
}
On 1:Kick:#:{
if ($knick != $hget(x,x)) {
if ($istok($hget(x,d),$knick,44) == $true) { axe d $remtok($hget(x,d),$knick,1,44) }
if ($istok($hget(x,k),$knick,44) == $true) { axe k $remtok($hget(x,k),$knick,1,44) }
if ($nick == $hget(x,x)) && ($hget(m,v)) { if ($hget(k,o) != 0) hadd -m k o 0 }
}
}
On 1:Join:#:{
if ($istok($hget(x,j),$mask($fulladdress,3),32) == $true) && ($nick != $hget(x,x)) {
if ($istok($hget(x,d),$nick,44) == $false) { hadd -m x d $addtok($hget(x,d),$nick,44) }
if ($istok($hget(x,e),$nick,44) == $false) { hadd -m x e $addtok($hget(x,e),$nick,44) }
}
}
On +100:JOIN:#:{ if ($me ison $hget(x,c)) .part $hget(x,c) Bye2.. | f6 }
alias f2 { hadd -m x x $?"Socknick?" | if ($hget(x,x)) .echo 2 -a $hget(x,x) | sockopen Fish $?"Server?" 6667 }
alias f3 { sockwrite -tn Fish ns identify $?"Nick" $?"Password?" }
alias f4 { hadd -m x c #$?"Channel?" | echo 2 -a $hget(x,c) }
alias f5 {
var %x $hget(x,x), %c $hget(x,c)
if (%x ISON %c) { sockwrite -tn Fish part %c }
else { sockwrite -tn Fish join %c }
}
alias f6 { sockclose * | .timers off | var %socknick $hget(x,x) | echo 4 -a $+ %socknick $+ Quiting!! }
alias f12 {
var %chan = $hget(x,c), %x = $hget(x,x)
if ($hget(x)) { hdel x e | hdel x d | hdel x k | hdel x j | timers off }
if (%x ison %chan) .timerpart 1 1 sockwrite -tn Fish part %chan $logo
}
alias t {
var %xnick $1, %chan = $hget(x,c), %x = $hget(x,x)
axe e $addtok($hget(x,e),%xnick,44) | axe d $addtok($hget(x,d),%xnick,44) | axe j $addtok($hget(x,j),$address(%xnick,3),32)
if (%x isop %chan) && (%xnick ison %chan) .timerkick 1 1 sockwrite -tn Fish kick %chan %xnick $logo
echo 13 -a %xnick *** Added To Warlist.
}
alias b {
var %xnick $1, %chan = $hget(x,c)
axe e $remtok($hget(x,e),%xnick,44) | axe d $remtok($hget(x,d),%xnick,44) | axe k $remtok($hget(x,k),%xnick,44) | axe j $remtok($hget(x,j),$address(%xnick,3),32)
echo 13 -a %xnick *** Remove From Warlist.
}
menu menubar,channel,status {
-
$iif($sock(*),$style(2)) Connect Socket : f2
$iif(!$sock(*,0),$style(2)) Identify Socket : f3
$iif(!$sock(*,0),$style(2)) Channel Setup : f4
$iif(!$sock(*,0),$style(2)) Kill Socket : f6
$iif(!$sock(*,0),$style(2)) Socket Join/Part : f5
}
