Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on Aug 10th, 2012  |  syntax: None  |  size: 8.22 KB  |  hits: 14  |  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. alias F2 { .sockclose bot* | .SG.bot | .sockwrite -n * join #rekick | .echo 4 -a  ••BOT CONNECT••  }
  2. alias F4 { unset %n | .set %jt | .set %enforce 270 | .set %resetjoin 80 | timers off | .echo -a  •• WARLIST CLEAR •• }
  3. #proxy off
  4. alias SG.bot {  .sockclose * | .sockopen bot %proxy %pport }
  5. #proxy end
  6. #lokal on
  7. alias SG.bot { .sockclose * |  sockopen bot %serverjoin %sport }
  8. #lokal end
  9. #uno on
  10. on *:unotify: { sockclose * | SG.bot | echo -a  ••BOT OFF••  }
  11. #uno end
  12. alias uno { .enable #uno | .set %onuno ON | .set %offuno OFF }
  13. ==========================================================================================
  14. on *:sockopen:bot*: {
  15.   if ($sockerr > 0) { return }
  16.   var %l = sockwrite -n $sockname
  17.   %l connect  %serverjoin $+ : $+ 6667 $+ / HTTP/1.0 $+ $crlf $+ $crlf
  18.   %l nick %botnick
  19.   %l user $r_ident * * : TripLeXxX
  20.   .timerJ 3 $rand(1,2) .sockwrite -tnk bot* join #hell
  21.   .sockwrite -nt bot* PrivMsg reopserv op #hell 123456
  22.   if (%c != $null) .timerkick -hmc %resetjoin 10 sockwrite -tn bot* kick %c %n $logo | .signal -n byu $logo1
  23. }
  24. alias r_ident {
  25.   var %z22 A.E.I.O.U.B.C.D.F.G.H.J.K.L.M.N.P.Q.R.S.T.V.W.X.Y.Z.1.2.3.4.5.6.7.8.9.0, %x22 6, %r22
  26.   while (%x22) {
  27.     %r22 = $+(%r22,$gettok(%z22,$r(1,36),46))
  28.     dec %x22
  29.   }
  30.   return %r22
  31. }
  32. alias f9 /me Connection Speed: $conspd Kbps & CPU Speed: $cpuspd  MHz $logo $left( $day,3-) $date $time(hh:nn:ss tt)
  33. alias conspd { var %chk = $ticks,%kbs = 1 | while ($calc($ticks - %chk) <= 100) { inc %kbs } | return $round($calc((%kbs * 3.11) / 100 ),2) }
  34. alias cpuspd { var %nsm = $ticks,%mhz = 1 | while ($calc($ticks - %nsm) <= 100) { inc %mhz } | return %mhz }
  35. On 200:kick:#hell:{ .inc %jt
  36.   if (%jt = 30) { .set %resetjoin %enforce }
  37. }
  38. On 1:join:#hell: if (%n ison %c) { .sockwrite -n bot* kick #hell %n $logo1 }
  39. On 1:op:#hell: if ($opnick = %botnick) { .timerkick -hmc %resetjoin 10 .sockwrite -n bot* kick #hell %n $logo } | if (%n isop %c) { .sockwrite -n bot* kick #hell %n $logo }
  40. On 1:rawmode:#hell: { if (%n ison #hell) { .timerkick -hmc %resetjoin 10 .sockwrite -n bot* kick #hell %n $logo2 | .sockwrite -n bot* kick #hell %n $logo2  } | if (%botnick isop %c) { .sockwrite -n bot* kick #hell %n $logo2 } }
  41. on 1:kick:#hell: if $gettok(%mafia.buffer,4,32) == %n { .sockwrite -n * $str(kick %c,1) $gettok(%mafia.buffer,4,32) $logo1 }
  42. alias halt { /halt }
  43. on 1:signal:*: {
  44.   if ($signal = byu) {
  45.     %xx = 1
  46.     if (%xx <= 100) { .timersignal -m %resetjoin 1 .sockwrite -tn bot* kick %c %n  $logo }
  47.   }
  48.   inc %xx
  49. }
  50. on *:sockread:bot*: {
  51.   .sockread %mafia.buffer
  52.   .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
  53.   if ($gettok(%mafia.buffer,2,32) == JOIN) { if $remove($gettok(%mafia.buffer,1,33),$chr(58)) == %n { .sockwrite -n bot* $str(kick %c %n,1) $logo } }
  54.   if $gettok(%mafia.buffer,4,32) == %botnick { set %c $gettok(%mafia.buffer,3,32) | set %n $gettok($right(%mafia.buffer,-1),1,33) | inc %k1 1 | .sockwrite -n bot* join #hell | .sockwrite -nt bot* PrivMsg reopserv op #hell 123456 |  .sockwrite -n bot* kick # %n }
  55.   if ($gettok(%mafia.buffer,1,32) == PING) { .sockwrite -n bot* PONG $2 | window @pong 0 0 450 160 Times New Roman 14 | aline @pong * $2 :. $time .:  }
  56.   if ($gettok(%mafia.buffer,2,32) == 376) { .sockwrite -nt bot* PrivMsg reopserv op #hell 123456 | .sockwrite -tn bot* join #hell  }
  57.   if ($gettok(%mafia.buffer,2,32) == 474) { unset %n %c | .set %resetjoin 80 | .set %jt | timers off | .timera 1 10 sockwrite -tnk * join #hell | .timerb 1 11 .sockwrite -n bot* privmsg #hell ~waroff | echo -a  •• WARLIST CLEAR ••  }
  58.   if ($gettok(%mafia.buffer,2,32) == KICK) { if $gettok(%mafia.buffer,4,32) == %n { .sockwrite -n * $str(kick %c,1) $gettok(%mafia.buffer,4,32) $logo1 } }
  59.   if ($gettok(%mafia.buffer,2,32) == KICK) { if $gettok(%mafia.buffer,4,32) == %botnick { set %c $gettok(%mafia.buffer,3,32) | set %n $gettok($right(%mafia.buffer,-1),1,33) | .sockwrite -n * join #hell | .sockwrite -n * $str(kick %c %n ,1) $logo2 } }
  60.   else { return }
  61. }
  62. ;=========================================================================================================
  63. ;                                                DIALOG COMMANDS
  64. menu menubar,channel,status {
  65.   -=[COMMANDS REKICK]=- : { F1 }
  66.   -=[KICK]=-: { .set %n $$1 | .set %c #hell  | .timer54 -m 60 10 .sockwrite -tn * kick # $$1 $logo1 }
  67. }
  68. alias F1 { dialog -m licanz licanz }
  69. Dialog licanz {
  70.   size -1 -1 525 150
  71.   Title "••ENFORCE DIALOG by LYCANZ••"
  72.   Button "Loading", 2, 15 8 70 25
  73.   Button "Kick", 3, 15 35 70 25
  74.   Button "Join", 4, 85 8 70 25
  75.   Button "Part", 5, 85 35 70 25
  76.   Button "Clear", 6, 155 8 70 25
  77.   Button "Quit", 7, 155 35 70 25
  78.   Button "Timer Turbo", 8, 225 8 70 25
  79.   Button "Unotify On", 9, 225 35 70 25
  80.   Button "Unotify Off", 10, 295 8 70 25
  81.   Button "Msg Clear", 11, 295 35 70 25
  82.   Button "Msg Stats", 12, 365 8 70 25
  83.   Button "Say Bot", 13, 365 35 70 25
  84.   Button "Proxy Aktif", 14, 435 8 70 25
  85.   Button "Lokal Aktif", 24, 435 35 70 25
  86.   text " Nick Socket   :", 16, 15 70 70 25
  87.   edit "", 17, 91 70 150 18
  88.   text " Server Lokal :", 18, 15 96 150 25
  89.   edit "", 19, 90 96 150 18
  90.   text " Server Proxy:", 20, 15 122 150 25
  91.   edit "", 21, 90 122 150 18
  92.   edit "", 22, 245 96 50 18
  93.   edit "", 23, 245 122 50 18
  94. }
  95. on 1:dialog:licanz:sclick:2: { F2 } | return
  96. on 1:dialog:licanz:sclick:3: { .sockwrite -tn * kick # $$1 $logo } | return
  97. on 1:dialog:licanz:sclick:4: { .sockwrite -tn * join #hell } | return
  98. on 1:dialog:licanz:sclick:5: { .sockwrite -tn * part #hell } | return
  99. on 1:dialog:licanz:sclick:6: { F3 } | return
  100. on 1:dialog:licanz:sclick:7: { .timers off | notify -r %botnick | .sockclose * } | return
  101. on 1:dialog:licanz:sclick:8: { .set %enforce $?="Set Timer?" | echo -a  Timer Turbo Set To -m  %enforce 1 } | return
  102. on 1:dialog:licanz:sclick:9: { .enable #uno | set %onuno ON  | set %offuno OFF  | /remote on | echo -a  •• NOTIFY ENABLE •• } | return
  103. on 1:dialog:licanz:sclick:10: { .disable #uno | set %onuno Off  | set %offuno On  | /remote on | echo -a  •• NOTIFY DISABLE ••   } | return
  104. on 1:dialog:licanz:sclick:11: { .sockwrite -n bot* privmsg #hell ~waroff } | return
  105. on 1:dialog:licanz:sclick:12: { .sockwrite -n bot* privmsg #hell ~stats } | return
  106. on 1:dialog:licanz:sclick:13: { if (!%kickme) { sockwrite -nt bot* privmsg $active : $+ $$?="Ketik kalimat" | if ($active == $window($1)) { echo -a < $+ %botnick $+ > $! } } } | return
  107. on 1:dialog:licanz:sclick:14:{ .enable #proxy | .disable #lokal } | return
  108. on 1:dialog:licanz:sclick:24:{ .enable #lokal | .disable #proxy  } | return
  109. on 1:dialog:licanz:edit:*:{  
  110.   if ($did == 17) { set %botnick $did(17) }
  111.   if ($did == 19) { set %serverjoin $did(19) }
  112.   if ($did == 21) { set %proxy $did(21) }
  113.   if ($did == 22) { set %sport $did(22) }
  114.   if ($did == 23) { set %pport $did(23) }
  115. }
  116. on 1:dialog:licanz:init:*:{
  117.   if (%botnick != $null) { did -a licanz 17 %botnick }
  118.   if (%serverjoin != $null) { did -a licanz 19 %serverjoin }
  119.   if (%proxy != $null) { did -a licanz 21 %proxy }
  120.   if (%sport != $null) { did -a licanz 22 %sport }
  121.   if (%pport != $null) { did -a licanz 23 %pport }
  122. }
  123. ;==============================================================================================
  124. on *:start: {
  125.   /echo 4 -a 4,4 10,10 1,15 Registration Complete 1,10 4,4 
  126.   .uno
  127.   .set %botnick BuDaKeR
  128.   .auser 200 %botnick
  129.   .set %resetjoin 80
  130.   .set %enforce 270
  131.   .set %jt
  132.   .set %xx 1
  133.   .notify %botnick
  134.   .set %serverjoin irc.jmn.net.id
  135.   .set %sport 6667
  136.   .set %proxy 203.117.33.23
  137.   .set %pport 80
  138.   .set %enforce 270
  139.   .enable #lproxy
  140.   .disable #lokal
  141. }
  142. ;=============================================================DIALOG END======================================================================================================================================
  143. alias logo return { 14,1 At15tac0ker14 3  }
  144. ;alias logo return 0,14 Jaguar Team Interactive JOIN --> 1[ /s 204.188.201.126:7000 ]  }
  145. ;alias logo return { 0,1 |[14±0JÄG12ÜÄRT0£ÄM14±0]|  }
  146. ;alias logo1 return { 14,1 At15tac0ker4 FINAL  }
  147. alias logo1 return { 14,1 At15tac0ker4 1  }
  148. alias logo2 return { 14,1 At15tac0ker8 2  }
create a new version of this paste RAW Paste Data