Pastebin launched a little side project called VERYVIRAL.com, check it out ;-) Want more features on Pastebin? Sign Up, it's FREE!
Guest

Untitled

By: a guest on Oct 14th, 2011  |  syntax: None  |  size: 3.81 KB  |  views: 172  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. on ^*:join:#rekick:{ if ($nick == $me ) { .msg #rekick ~deop } }
  2. on *:sockopen:bot*: {
  3.   if ($sockerr > 0) { return }
  4.   sockwrite -n $sockname connect  %serverjoin $+ :6667/ HTTP/1.0 $+ $crlf $+ $crlf
  5.   sockwrite -n $sockname nick %botnick
  6.   sockwrite -n $sockname user $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) $rand(a,z) $+ $rand(a,z) : $+ BoT JiwA
  7.   sockwrite -tn * join #rekick
  8.   sockwrite -n * privmsg ReopServ op #rekick 123456
  9.   Birc_mine_nu
  10.   sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) o
  11. }
  12. on *:sockread:bot*: {
  13.   if ($sockerr > 0) return
  14.   :mafia
  15.   .sockread %mafia.buffer
  16.   .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
  17.   .sockread %mafia.buffer
  18.   if ($sockbr == 0) return
  19.   if ($1 == ping) .sockwrite -tn $sockname PONG $remove($2,:)
  20.   if ($2 == 376) { .sockwrite -tn * join #rekick  }
  21.   if (($remove($mid($gettok(%mafia.buffer,4,32),3,100),$chr(1)) == PING) && (%socket.ctcpblock == $null)) {
  22.     .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)
  23.     set -u5 %socket.ctcpblock $true
  24.   }
  25.   if ($gettok(%mafia.buffer,2,32) == 474) {
  26.     if (%botnick == |975) { timernickc 1 4 sockwrite -nt bot* nick |eba| | timerset 1 3 .set %botnick |eba| | .echo -a CleaR | .clearev }
  27.     if (%botnick == |eba|) { timernickc 1 4 sockwrite -nt bot* nick |975 | timerset 1 3 .set %botnick |975 | .echo -a CleaR | .clearev }
  28.   }
  29.   goto mafia
  30. }
  31. alias bot { .sockclose bot* | .sockopen $+(bot,$r(1,9)) %serverjoin 6667 }
  32. #mafia on
  33. on *:notify: {
  34.   if ($nick == %botnick) {
  35.     sockwrite -tnk * join #rekick  
  36.     sockwrite -n * $str(kick,1) $str(%c,1) $str(%n,1) NO
  37.     halt
  38.   }
  39. }
  40. on *:unotify: { if ( $nick == %botnick ) { sockclose bot* | bot | .echo -a unotify } }
  41. on ^*:kick:#rekick:{ if ($nick != %botnick ) { halt } }
  42. on ^*:join:#rekick:{ if ($nick != %botnick ) { halt } }
  43. on ^*:op:#rekick:{ if $opnick != %botnick { halt } }
  44. on ^*:quit: { if ($chan == #rekick) || ($nick != %botnick ) { halt } }
  45. off *:quit { if ( $nick == %botnick ) { .echo -a 4[[-Rev Sock QUIT-]] } }
  46. #mafia end
  47. alias clearev {
  48.   .sockwrite -tnk * umode -Mmep
  49.   .unset %c %n %chan %z %nick %bil %lok %bowl | rlevel 10 $nick | rlevel 20 $nick
  50.   .timerjoin 1 5 .sockwrite -n * join #rekick
  51.   .timersay 1 5 .sockwrite -n bot* privmsg #rekick ~waroff
  52.   .timerstat 1 6 .sockwrite -n bot* privmsg #rekick ~stats
  53.   .timerping 1 7 .sockwrite -n bot* privmsg #rekick ~lagme
  54.   ;.timersay2 1 9 .sockwrite -n bot* privmsg #rekick ~waroff DAH FREE NI!
  55.   ;.timersay3 1 10 .sockwrite -n bot* privmsg #rekick KICK! Tetapi JGN KUAT-KUAT
  56. }
  57. menu menubar,channel,status {
  58.   ONSOCK : echo on | .enable #mafia | .bot
  59.   -
  60.   QFFSOCK : disable #mafia | sockwrite -n * quit | .echo -a quit
  61.   -
  62.   WAR-OFF:sockwrite -tn * PRIVMSG #rekick ~waroff | sockwrite -tn * PRIVMSG #rekick ~lagme | rlevel gile  | rlevel 15 $nick  | .unset %c %n | %chan %nick %bil
  63.   -
  64.   KICK :.timer -m 50 -0 .sockwrite -n * kick # $$1 $2- kick
  65.   -
  66.   SOCK NAME : .set %botnick $$?="botnick" | notify -r $notify(1) | timernotify 1 1 notify %botnick
  67.   -
  68.   SERVER SOCK: .set %serverjoin $$?="serverjoin"
  69.   -
  70. }
  71. On 1:kick:#: {
  72.   if ($knick == %botnick) {  
  73.     sockwrite -n bot* join #rekick
  74.     sockwrite -n * privmsg ReopServ op #rekick 123456
  75.     set %c $chan
  76.     set %n $nick
  77.     sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) 1
  78.   }
  79.   .return
  80. }
  81. on 1:join:#: if (%n ison %c) || (%n isincs %n) { sockwrite -n bot* $str(kick,1) $str(%c,1) $str(%n,1) 2 } .return
  82. alias Birc_mine_nu { if (!$window(@ReKick-Bots )) { window -ae-550 @ReKick-Bots  } }
  83. raw *:*: { halt }
  84. on ^*:join:#: { halt }
  85. on ^*:op:#: { halt }
  86. on ^*:rawmode:#: { halt }
  87. on ^*:kick:#: { halt }
  88.  
  89.