on ^*:join:#rekick:{ if ($nick == $me ) { .msg #rekick ~deop } }
on *:sockopen:bot*: {
if ($sockerr > 0) { return }
sockwrite -n $sockname connect %serverjoin $+ :6667/ HTTP/1.0 $+ $crlf $+ $crlf
sockwrite -n $sockname nick %botnick
sockwrite -n $sockname user $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) : $+ BoT JiwA
sockwrite -tn * join #rekick
sockwrite -n * privmsg ReopServ op #rekick 123456
Birc_mine_nu
sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) o
}
on *:sockread:bot*: {
if ($sockerr > 0) return
:mafia
.sockread %mafia.buffer
.tokenize 32 %mafia.buffer | window @temp 0 0 450 160 Times New Roman 14 | aline @temp * $2 $+($chr(40),$3,@,$4,$chr(41)) $3- $time
.sockread %mafia.buffer
if ($sockbr == 0) return
if ($1 == ping) .sockwrite -tn $sockname PONG $remove($2,:)
if ($2 == 376) { .sockwrite -tn * join #rekick }
if (($remove($mid($gettok(%mafia.buffer,4,32),3,100),$chr(1)) == PING) && (%socket.ctcpblock == $null)) {
.sockwrite -n * NOTICE $mid($gettok(%mafia.buffer,1,33),2,100) : $+ $Chr(1) $+ PING $mid($gettok(%mafia.buffer,5-,32),1,$calc($len($gettok(%mafia.buffer,5-,32)) - 1)) $+ $Chr(1)
set -u5 %socket.ctcpblock $true
}
if ($gettok(%mafia.buffer,2,32) == 474) {
if (%botnick == |975) { timernickc 1 4 sockwrite -nt bot* nick |eba| | timerset 1 3 .set %botnick |eba| | .echo -a CleaR | .clearev }
if (%botnick == |eba|) { timernickc 1 4 sockwrite -nt bot* nick |975 | timerset 1 3 .set %botnick |975 | .echo -a CleaR | .clearev }
}
goto mafia
}
alias bot { .sockclose bot* | .sockopen $+(bot,$r(1,9)) %serverjoin 6667 }
#mafia on
on *:notify: {
if ($nick == %botnick) {
sockwrite -tnk * join #rekick
sockwrite -n * $str(kick,1) $str(%c,1) $str(%n,1) NO
halt
}
}
on *:unotify: { if ( $nick == %botnick ) { sockclose bot* | bot | .echo -a unotify } }
on ^*:kick:#rekick:{ if ($nick != %botnick ) { halt } }
on ^*:join:#rekick:{ if ($nick != %botnick ) { halt } }
on ^*:op:#rekick:{ if $opnick != %botnick { halt } }
on ^*:quit: { if ($chan == #rekick) || ($nick != %botnick ) { halt } }
off *:quit { if ( $nick == %botnick ) { .echo -a 4[[-Rev Sock QUIT-]] } }
#mafia end
alias clearev {
.sockwrite -tnk * umode -Mmep
.unset %c %n %chan %z %nick %bil %lok %bowl | rlevel 10 $nick | rlevel 20 $nick
.timerjoin 1 5 .sockwrite -n * join #rekick
.timersay 1 5 .sockwrite -n bot* privmsg #rekick ~waroff
.timerstat 1 6 .sockwrite -n bot* privmsg #rekick ~stats
.timerping 1 7 .sockwrite -n bot* privmsg #rekick ~lagme
;.timersay2 1 9 .sockwrite -n bot* privmsg #rekick ~waroff DAH FREE NI!
;.timersay3 1 10 .sockwrite -n bot* privmsg #rekick KICK! Tetapi JGN KUAT-KUAT
}
menu menubar,channel,status {
ONSOCK : echo on | .enable #mafia | .bot
-
QFFSOCK : disable #mafia | sockwrite -n * quit | .echo -a quit
-
WAR-OFF:sockwrite -tn * PRIVMSG #rekick ~waroff | sockwrite -tn * PRIVMSG #rekick ~lagme | rlevel gile | rlevel 15 $nick | .unset %c %n | %chan %nick %bil
-
KICK :.timer -m 50 -0 .sockwrite -n * kick # $$1 $2- kick
-
SOCK NAME : .set %botnick $$?="botnick" | notify -r $notify(1) | timernotify 1 1 notify %botnick
-
SERVER SOCK: .set %serverjoin $$?="serverjoin"
-
}
On 1:kick:#: {
if ($knick == %botnick) {
sockwrite -n bot* join #rekick
sockwrite -n * privmsg ReopServ op #rekick 123456
set %c $chan
set %n $nick
sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) 1
}
.return
}
on 1:join:#: if (%n ison %c) || (%n isincs %n) { sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) 2 } .return
alias Birc_mine_nu { if (!$window(@ReKick-Bots )) { window -ae-550 @ReKick-Bots } }
raw *:*: { halt }
on ^*:join:#: { halt }
on ^*:op:#: { halt }
on ^*:rawmode:#: { halt }
on ^*:kick:#: { halt }