IRC Socket Bot

on *:sockopen:bot*: {
if ($sockerr > 0) return
.sockwrite -n $sockname connect %server $+ :7000 $+(HTTP/1.0,$CRLF,$CRLF)
.sockwrite -tn $sockname $chr(13) $+ $chr(10)
.sockwrite -tn $sockname user gen Linux 1234 %sockusernames
.sockwrite -tn $sockname nick %socknick
.sockwrite -tn * ns IDENTIFY %pass
}
on *:sockread:bot*: {
if ($sockerr > 0) return
:mafia
.sockread %mafia.buffer
.tokenize 32 %mafia.buffer
if ($sockbr == 0) return
if ($1 == ping) .sockwrite -tn $sockname PONG $remove($2,:)
if ($2 == 376) { .sockwrite -tn * join #flood,#unicore }
;if ($gettok(%mafia.buffer,2,32) == 441) { .sockwrite -n bot* $str(kick %chan %nick %in 4RAW,1) }
;if ($gettok(%mafia.buffer,2,32) == 474) { .echo -a 14[-13Sock Clear14-] | .clear }
goto mafia
}

socket ni asal dari revenge aku dah tukar kan dia jadik socket utk banjirian...
yang lain² kalau nak kena message edu
sekian..
terima kasih..