home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / acidv2.exe / acid-als.ini next >
INI File  |  1997-03-14  |  31KB  |  593 lines
  1. [Aliases]
  2. n0=/rcaps %rcapstext = "" | %i = 0 | :next | inc %i | if (%i > $len(*1)) { say %rcapstext | halt } | if ($asc($mid(%i,1,*1)) = 32) { %rcapstext = %rcapstext $+ á | goto next } | if ($rand(1,2) = 1) { %rcapstext = %rcapstext $+ $upper($mid(%i,1,*1)) | goto next } | else { %rcapstext = %rcapstext $+ $lower($mid(%i,1,*1)) | goto next }
  3. n1=/upv %leettext = $lower(*1) | %leettext = $replace(%leettext,a,A) | %leettext = $replace(%leettext,e,E) | %leettext = $replace(%leettext,i,I) | %leettext = $replace(%leettext,o,O) | %leettext = $replace(%leettext,u,U) | %leettext = $replace(%leettext,y,Y) | say %leettext
  4. n2=/talkback {
  5. n3=  %backtext = "" | if ($1 = -d) { %text = *2 } | else { %text = *1 } | %i = $len(%text) + 1 | :next | dec %i 1
  6. n4=  if (%i = 0) { 
  7. n5=    if ($1 = -d) { say º %backtext | halt } 
  8. n6=    else { say %backtext | halt } 
  9. n7=  }
  10. n8=  if ($asc($mid(%i,1,%text)) = 32) { %backtext = %backtext $+ á | goto next }
  11. n9=  %backtext = %backtext $+ $mid(%i,1,%text) | goto next
  12. n10=}
  13. n11=/colorkick {
  14. n12=  if $1 == on {
  15. n13=    enable #colorkick
  16. n14=    amsg <=ACiD=> Color Kicker Enabled
  17. n15=    set %color.kick on
  18. n16=  }
  19. n17=  if $1 == off {
  20. n18=    disable #colorkick
  21. n19=    amsg <=ACiD=> Color Kicker Disabled
  22. n20=    set %colorkick off
  23. n21=  }
  24. n22=}
  25. n23=/pageoff /echo -a 14<=ACiD=> 1-=:4PAGE1:=-12 Pager has been halted. | /timer78 off | /timer79 off | /timer80 off
  26. n24=/stat {
  27. n25=  set %total $nick( [ 0, $+ %tmpchan ] )
  28. n26=  set %ops $opnick( [ 0, $+ %tmpchan ] )
  29. n27=  set %nonops $nopnick( [ 0, $+ %tmpchan ] ) 
  30. n28=  set %topic $chan(%tmpchan).topic
  31. n29=  if %topic == $null set %topic no topic set
  32. n30=  set %synchtime %lagdet.time $+ . $+ $rand(0,9) $+ $rand(0,9) $+ $rand(0,9)
  33. n31=  echo -a 14<=ACiD=> 15--14==15--2 %tmpchan 12 -- 10 %topic
  34. n32=  echo -a 14<=ACiD=> 15--14==15--2 %tmpchan 12 -- 10[Ops1:4 %ops 10] [Non-Ops1:4 %nonops 10] [Total1:4 %total 10]
  35. n33=  echo -a 14<=ACiD=> 15--14==15--2 %tmpchan 12 -- 10Join to4 %tmpchan 10Synched in4 %synchtime 10Secs
  36. n34=  { unset %tmpchan | unset %total | unset %ops | unset %mode | unset %nonops | unset %topic | unset %synchtime }
  37. n35=}
  38. n36=/bans /mode # +b
  39. n37=/fhk {
  40. n38=  set %host $$1
  41. n39=  set %channelon #
  42. n40=  set %reason *2 
  43. n41=  enable #hostkick
  44. n42=  disable #who
  45. n43=  who #
  46. n44=}
  47. n45=/fk {
  48. n46=  set %filter $$1
  49. n47=  set %channelon #
  50. n48=  set %reason *2 
  51. n49=  enable #filterkick
  52. n50=  disable #who
  53. n51=  who #
  54. n52=}
  55. n53=/chanstats {
  56. n54=  enable #channelstat
  57. n55=  disable #who
  58. n56=  if ($1 == $null) { set %statchan # | who %statchan }
  59. n57=  else { set %statchan $1 | who $1 }
  60. n58=}
  61. n59=/www /run c:\program files\internet explorer\iexplore.exe $1
  62. n60=/clones {
  63. n61=  set %clone $$?="Server/Channel to Search, * for network:"
  64. n62=  enable #Clones
  65. n63=  if server isin %clone && $POS(%clone,$CHR(36)) == 1 { set %clone $server | who $server }
  66. n64=  if $chr(42) == %clone { set %clone $chr(42) $+ . $+ $chr(42) | who %clone }
  67. n65=  else { who %clone }
  68. n66=}
  69. n67=/moon /me moons all $opnick(0,#) ops on # with his bare ass :▐ Hangin' from $server at port $port $+ ! =>
  70. n68=/wi /whois $$1
  71. n69=/ig /notice $$1 <=ACiD=> You Are Now On Auto-Ignore for 10 Minutes | /ignore -u600 $1 3
  72. n70=/cme /rc *1 | /me %say 0<=ACiD=>2.0
  73. n71=/csay /rc *1 | /say %say 0<=ACiD=>2.0
  74. n72=/F5 /ignore *!*@* | /timer66 10 10 /echo -a 14[<=ACiD=>] 14-12:4[7 $+ TOTAL IGNORE $+ 4]12:14- 4 You Are Ignoring ALL... Press F6 to stop.
  75. n73=/F6 /ignore -r *!*@* | /echo -a 14[<=ACiD=>] 14-12:4[7 $+ TOTAL IGNORE $+ 4]12:14- 4 No Longer Ignoring ALL... | /timer66 off
  76. n74=/rc {
  77. n75=  unset %say
  78. n76=  set %text *1
  79. n77=  set %loop 1
  80. n78=  set %max $len(*1)
  81. n79=  if $1 == 1 { set %loop 1 | set %max $len(*2) | set %text *2 | goto bold }
  82. n80=  :start
  83. n81=  set %colour.number $rand(1,13)
  84. n82=  if %colour.number = 8 { goto start } 
  85. n83=  set %char $mid( %loop, 1, %text)
  86. n84=  if %loop > %max goto end
  87. n85=  if %say == $null { set %say  $+ %colour.number $+ %char $+  | inc %loop | goto start }
  88. n86=  if %char == $null { set %say %say $+ . | inc %loop | goto start }
  89. n87=  set %say %say $+  $+ %colour.number $+ %char $+ 
  90. n88=  inc %loop
  91. n89=  goto start
  92. n90=  :bold
  93. n91=  set %other.number $rand(0, 3)
  94. n92=  set %colour.number $rand(1,13)
  95. n93=  if %colour.number == 8 { goto bold }
  96. n94=  if %colour.number == 9 { goto bold }
  97. n95=  if %colour.number == 11 { goto bold }
  98. n96=  if %colour.number == 15 { goto bold }
  99. n97=  set %char $mid( %loop, 1, %text)
  100. n98=  if %other.number == 0 { %burdo =  }
  101. n99=  if %other.number == 1 { %burdo =  }
  102. n100=  if %other.number == 2 { %burdo =  }
  103. n101=  if %other.number == 3 { %burdo =  }
  104. n102=  if %loop > %max goto end
  105. n103=  if %say == $null { set %say  $+ %colour.number $+ %burdo $+ %char $+  | inc %loop | goto bold }
  106. n104=  if %char == $null { set %say %say $+ . | inc %loop | goto bold }
  107. n105=  set %say %say $+  $+ %colour.number $+ %burdo $+ %char $+ 
  108. n106=  inc %loop
  109. n107=  goto bold
  110. n108=  :end
  111. n109=}
  112. n110=/+voice /mode # +vvvv $$1 $2 $3 $4
  113. n111=/-voice /moce # -vvvv $$1 $2 $3 $4
  114. n112=/startup {
  115. n113=  timer9998 0 10 /ap
  116. n114=  timer9999 0 1 /autoaway  
  117. n115=  echo -s 14[<=ACiD=>]1 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  118. n116=  echo -s 14[<=ACiD=>]6 ::::::::::::::::::::::4Type /ACIDHELP for help6:::::::::::::::::
  119. n117=  echo -s 14[<=ACiD=>]1 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  120. n118=  if %first.time.user == no goto done
  121. n119=  query Welcome $+ $chr(160) $+ to $+ $chr(160) $+ ACiD $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Written $+ $chr(160) $+ [PoweR]
  122. n120=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 12Welcome to <=ACiD=> Version 2.0 Written by [PoweR]
  123. n121=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 2,2â3,3â4,4â5,5â6,6â7,7â8,8â9,9â10,10â11,11â12,12â13,13â14,14
  124. n122=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 12Type 4/acidhelp 12for the online help file with available commands
  125. n123=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 3If you need assistance, feel free to catch me on IRC or email me at 
  126. n124=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 5whowas@whoami.net3, 5dmuntz@mail.datasys.net3, or 5power@minion.valuu.net
  127. n125=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 12Thanks to all my beta testers and helpers that worked the bugs out of this 
  128. n126=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 12version, couldn't have done it without their support!
  129. n127=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 2,2â3,3â4,4â5,5â6,6â7,7â8,8â9,9â10,10â11,11â12,12â13,13â14,14
  130. n128=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 12I hope you enjoy <=ACiD=> as mush as I enjoyed creating it! 
  131. n129=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Welcome to ACiD $+ 4]12:14- 12See ya on IRC! 2H3a4v5e 6F7u8n9!10!11!12!
  132. n130=  set %first.time.user no
  133. n131=  goto done
  134. n132=  :done
  135. n133=}
  136. n134=/F9 /play -c $me c:\acid\squit.acd 0
  137. n135=/F10 /server %squitserv
  138. n136=/on /onotice [â⌐<=ACiD=>«â<@ $+ $opnick(0,#) $+ >â $+ # $+ â]: *1
  139. n137=/cn /notice # [â⌐<=ACiD=>«â-âChannel Noticeâ:â $+ # $+ â]: *1
  140. n138=/readlog {
  141. n139=  if $lines(c:\acid\away.log) == 0 goto none
  142. n140=  query ACiD $+ $chr(160) $+ Message $+ $chr(160) $+ Logger $+ $chr(160) $+ v2.0 $+ $chr(160) $+ - $+ $chr(160) $+ by $+ $chr(160) $+ [PoweR]
  143. n141=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Message Log $+ 4]12:14- 12Total Messages: $lines(c:\acid\away.log) 7/12 Type /eraselog to delete
  144. n142=  play -c $me c:\acid\away.log 0
  145. n143=  goto done
  146. n144=  :none
  147. n145=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Message Log $+ 4]12:14- 12 You have no messages
  148. n146=  :done
  149. n147=}
  150. n148=/eraselog {
  151. n149=  if $lines(c:\acid\away.log) == 0 { /echo -a 14[<=ACiD=>] 14-12:4[7 $+ Message Log $+ 4]12:14- 12 You have no messages. | halt }
  152. n150=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Message Log $+ 4]12:14- 4 $lines(c:\acid\away.log) 12messages deleted.
  153. n151=  write -c c:\acid\away.log
  154. n152=}
  155. n153=/repeater {
  156. n154=  if $$1 == on goto on
  157. n155=  if $$1 == off goto off
  158. n156=  goto done
  159. n157=  :on
  160. n158=  set %repeater.nick $$2
  161. n159=  enable #repeater
  162. n160=  msg # <=ACiD=> Repeater -:[ON]:- for -=: $+ $$2 $+ :=-
  163. n161=  goto done
  164. n162=  :off
  165. n163=  disable #repeater
  166. n164=  msg # <=ACiD=> Repeater -:[OFF]:-
  167. n165=  goto done
  168. n166=  unset %repeater.nick
  169. n167=  :done
  170. n168=}
  171. n169=/back {
  172. n170=  titlebar -=[_.-~`~-._.-<=ACiD=> Version 2.0 by [PoweR]-._.-~`~-._]=-
  173. n171=  ap
  174. n172=  ame has returned <=ACiD=> [Gone: $duration( [ %away.time ] ) $+ ]  ( $+ $read c:\acid\back.msg $+ )
  175. n173=  away
  176. n174=  unset %away 
  177. n175=  disable #pager
  178. n176=  disable #awaylog
  179. n177=  disable #away
  180. n178=  timer950 off
  181. n179=  unset %away.time
  182. n180=  echo 14[<=ACiD=>] 14-12:4[7 $+ Back $+ 4]12:14- 12You are no longer marked away
  183. n181=  echo 14[<=ACiD=>] 14-12:4[7 $+ Back $+ 4]12:14- 12Message Logger OFF, Pager OFF
  184. n182=  if $lines(c:\acid\away.log) == 0 { /echo 14[<=ACiD=>] 14-12:4[7 $+ Back $+ 4]12:14- 12You received4 no messages 12while you were away | halt }
  185. n183=  if $lines(c:\acid\away.log) != 0 {
  186. n184=    echo 14[<=ACiD=>] 14-12:4[7 $+ Back $+ 4]12:14- 12You received $lof(c:\acid\away.log) bytes in4 $lines(c:\acid\away.log) messages 12while you were away
  187. n185=    echo 14[<=ACiD=>] 14-12:4[7 $+ Back $+ 4]12:14- 12--`Type 4/readlog12 to read or 4/eraselog12 to delete
  188. n186=  }
  189. n187=}
  190. n188=/gone {
  191. n189=  :away.log
  192. n190=  set %away.log $$?="Log Messages While Away? Y/N"
  193. n191=  if ((%away.log == Y) || (%away.log == N)) { /goto away.page }
  194. n192=  else { /echo 14[<=ACiD=>] 14-12:4[7 $+ Enable Log? $+ 4]12:14- 12You must answer either 4Y12 or 4N12. | /goto away.log }
  195. n193=  :away.page
  196. n194=  set %away.page $$?="Enable Pager While Away? Y/N"
  197. n195=  if ((%away.page == Y) || (%away.page == N)) { /goto away.reason }
  198. n196=  else { /echo 14[<=ACiD=>] 14-12:4[7 $+ Enable Pager? $+ 4]12:14- 12You must answer either 4Y12 or 4N12. | /goto away.page }  
  199. n197=  :away.reason
  200. n198=  set %away $$?="Away Reason:"
  201. n199=  if ((%away.log == Y) && (%away.page == Y)) {
  202. n200=    timer950 0 1 /inc %away.time
  203. n201=    titlebar -=[_.-~`~-._.-<=ACiD=> Version 2.0 by [PoweR]-._.-~`~-._]=- -:[Away]:-
  204. n202=    ap
  205. n203=    ame is away: <=ACiD=> ( $+ %away $+ ) <=ACiD=> [MsgLog: ON] [Pager: ON] (/ctcp $me PAGE)
  206. n204=    away %away -=<Log=ON>/<Page=ON>=- <=ACiD=>
  207. n205=    disable #away
  208. n206=    enable #pager
  209. n207=    enable #awaylog
  210. n208=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12You have been marked away
  211. n209=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12Logging messages ON, Pager ON
  212. n210=  }
  213. n211=  if ((%away.log == N) && (%away.page == N)) {
  214. n212=    timer950 0 1 /inc %away.time 
  215. n213=    titlebar -=[_.-~`~-._.-<=ACiD=> Version 2.0 by [PoweR]-._.-~`~-._]=- -:[Away]:-
  216. n214=    ap
  217. n215=    ame is away: <=ACiD=> ( $+ %away $+ ) <=ACiD=> [MsgLog: OFF] [Pager: OFF]
  218. n216=    away %away -=<Log=OFF>/<Page=OFF>=- <=ACiD=>
  219. n217=    enable #away
  220. n218=    disable #pager
  221. n219=    disable #awaylog
  222. n220=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12You have been marked away
  223. n221=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12Logging messages OFF, Pager OFF
  224. n222=  }
  225. n223=  if ((%away.log == N) && (%away.page == Y)) {
  226. n224=    timer950 0 1 /inc %away.time
  227. n225=    titlebar -=[_.-~`~-._.-<=ACiD=> Version 2.0 by [PoweR]-._.-~`~-._]=- -:[Away]:-
  228. n226=    ap
  229. n227=    ame is away: <=ACiD=> ( $+ %away $+ ) <=ACiD=> [MsgLog: OFF] [Pager: ON] (/ctcp $me PAGE)
  230. n228=    away %away -=<Log=OFF>/<Page=ON>=- <=ACiD=>
  231. n229=    enable #away
  232. n230=    enable #pager
  233. n231=    disable #awaylog
  234. n232=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12You have been marked away
  235. n233=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12Logging messages OFF, Pager ON
  236. n234=  }
  237. n235=  if ((%away.log == Y) && (%away.page == N)) {
  238. n236=    timer950 0 1 /inc %away.time
  239. n237=    titlebar -=[_.-~`~-._.-<=ACiD=> Version 2.0 by [PoweR]-._.-~`~-._]=- -:[Away]:-
  240. n238=    ap
  241. n239=    ame is away: <=ACiD=> ( $+ %away $+ ) <=ACiD=> [MsgLog: ON] [Pager: OFF]
  242. n240=    away %away -=<Log=ON>/<Page=OFF>=- <=ACiD=>
  243. n241=    disable #pager
  244. n242=    enable #awaylog
  245. n243=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12You have been marked away
  246. n244=    echo 14[<=ACiD=>] 14-12:4[7 $+ Away $+ 4]12:14- 12Logging messages ON, Pager OFF
  247. n245=  }
  248. n246=}
  249. n247=/umode /mode $me $1
  250. n248=/a20mirc47ck /000010
  251. n249=/hk {
  252. n250=  echo 3 $active $$?="Would you like to WARN or KILL?"
  253. n251=  if $! == kill goto kill
  254. n252=  if $! == warn goto warn
  255. n253=  goto done
  256. n254=  :kill
  257. n255=  echo 4 $active [<=ACiD=>] >>> Killing Clients from $1 <<<
  258. n256=  set %mkill  $$1
  259. n257=  set %altreason *2
  260. n258=  enable #mkill
  261. n259=  who $1
  262. n260=  goto done
  263. n261=  :warn
  264. n262=  echo 4 $active [<=ACiD=>] >>> Warning Clients From $$1 <<<
  265. n263=  enable #killwarn
  266. n264=  who $$1
  267. n265=  goto done
  268. n266=  :done
  269. n267=}
  270. n268=/hkr /set %mkill $$1 | /set %altreason *2 | /enable #mkill | /who $$1
  271. n269=/hmsg /echo 4 $active [<=ACiD=>] >>> Sending message to $1 <<< | set %hostmsg *2 | /enable #hostmsg | /who $1
  272. n270=/gop /wallops *1
  273. n271=/lop /lwallops [LoCaL] *1 | /echo 6 -s 14[<=ACiD=>] 6< $+ $me $+ > 12[LoCaL]12 6 *1
  274. n272=/notepad /run c:\windows\notepad.exe $1
  275. n273=/leet /say $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,w,w),e,Ω),o,÷),a,σ),b,▀),c,⌐),d,╨),f,ú),g,g),h,h),i,ε),j,J),k,k),l,L),m,m),n,±),o,≡),p,■),q,q),r,«),s,º),t,t),u,√),v,v),x,x),z,z),!,í),?,┐),0,░),y,Ñ),1,╣),2,▓),3,│) 
  276. n274=/leetrc /set %leet.rc $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,w,w),e,Ω),o,÷),a,σ),b,▀),c,⌐),d,╨),f,ú),g,g),h,h),i,ε),j,j),k,k),l,l),m,m),n,±),o,≡),p,■),q,q),r,«),s,º),t,t),u,√),v,v),x,x),z,z),!,í),?,┐),0,░),y,Ñ),1,╣),2,▓),3,│) | /csay %leet.rc
  277. n275=/s /say :■
  278. n276=/s2 /say :▐
  279. n277=/s3 /say :▐~
  280. n278=/smoke /say SMoKiN' :■¼~~~
  281. n279=/ef kick # $$1 <=ACiD=> Excess Flood
  282. n280=/acidhelp {
  283. n281=  if $1 == user { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ User $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\user.txt 0 | /goto done }
  284. n282=  if $1 == op { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ ChanOp $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\chanop.txt 0 | /goto done }
  285. n283=  if $1 == ircop { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ IRCop $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\ircop.txt 0 | /goto done }
  286. n284=  if $1 == colour { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Colour $+ $chr(160) $+ Help  | /play -c $me c:\acid\acidhelp\colour.txt 0 | /goto done }
  287. n285=  if $1 == saycolours { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Say $+ $chr(160) $+ Colour $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\scolours.txt 0 | /goto done }
  288. n286=  if $1 == actcolours { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Action $+ $chr(160) $+ Colour $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\acolours.txt 0 | /goto done }
  289. n287=  if $1 == backcolours { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Background $+ $chr(160) $+ Colour $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\bcolours.txt 0 | /goto done }
  290. n288=  if $1 == saybacks { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Background $+ $chr(160) $+ Say $+ $chr(160) $+ Colour $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\sbcolour.txt 0 | /goto done }
  291. n289=  if $1 == actbacks { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Background $+ $chr(160) $+ Action $+ $chr(160) $+ Colour $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\abcolour.txt 0 | /goto done }
  292. n290=  if $1 == extras { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Extra $+ $chr(160) $+ Command $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\extras.txt 0 | /goto done }
  293. n291=  if $1 == credits { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ ACiD $+ $chr(160) $+ Credits | /play -c $me c:\acid\acidhelp\credits.txt 0 | /goto done }
  294. n292=  if $1 == link { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Link $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\link.txt 0 | /goto done }
  295. n293=  if $1 == $null { /close -m | /query <=ACiD=> $+ $chr(160) $+ Version $+ $chr(160) $+ 2.0 $+ $chr(160) $+ Help $+ $chr(160) $+ File $+ $chr(160) $+ --> $+ $chr(160) $+ Main $+ $chr(160) $+ Help | /play -c $me c:\acid\acidhelp\main.txt 0 | /goto done }
  296. n294=  if (($1 != user) || ($1 != op) || ($1 != ircop) || ($1 != link) || ($1 != colour) || ($1 != saycolours) || ($1 != actcolous) || ($1 != backcolous) || ($1 != saybacks) || ($1 != actbacks) || ($1 != extrax) || ($1 != credits)) /echo -a 14[<=ACiD=>] 14-12:1[7 $+ ACiD Help $+ 1]4 Valid Help Topics1: 12user7,12 op7,12 ircop7,12 colour7,12 saycolours7,12 actcolours7,12 backcolours7,12 saybacks7,12 actbacks7,12 link7,12 extras7, and12 credits.
  297. n295=  :done
  298. n296=}
  299. n297=/closehelp /close -m
  300. n298=/setexempt {
  301. n299=  if $1 == $null { /echo -a 14[<=ACiD=>] 14-12:4[7 $+ Exempt Channels $+ 4]12:14- 12Exempt Channels:4 %kick.revenge.exempt }
  302. n300=  set %temp [ %kick.revenge.exempt ]
  303. n301=  set %kick.revenge.exempt $$1 [ %temp ]
  304. n302=  unset %temp
  305. n303=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Exempt Channels $+ 4]12:14- 12Added exempt channel:4 $$1
  306. n304=}
  307. n305=/clearexempt /unset %kick.revenge.exempt | /echo -a 14[<=ACiD=>] 14-12:4[7 $+ Exempt Channels $+ 4]12:14- 12All exempt channels have been cleared.
  308. n306=/revenge {
  309. n307=  if $1 == on goto on
  310. n308=  if $1 == off goto off
  311. n309=  goto done
  312. n310=  :on
  313. n311=  enable #kickrevenge
  314. n312=  set %kick.revenge on 
  315. n313=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Kick Revenge $+ 4]12:14- 12Kick Revenge has been turned 4ON
  316. n314=  goto done
  317. n315=  :off
  318. n316=  disable #kickrevenge
  319. n317=  set %kick.revenge off 
  320. n318=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Kick Revenge $+ 4]12:14- 12Kick Revenge has been turned 4OFF
  321. n319=  goto done
  322. n320=  :done
  323. n321=}
  324. n322=/repeatkick {
  325. n323=  if $1 == on goto on
  326. n324=  if $1 == off goto off
  327. n325=  goto done
  328. n326=  :on
  329. n327=  enable #repeatkick
  330. n328=  set %repeat.kick on 
  331. n329=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Repeat Kick $+ 4]12:14- 12Repeat Kick has been turned 4ON
  332. n330=  goto done
  333. n331=  :off
  334. n332=  disable #repeatkick
  335. n333=  set %repeat.kick off 
  336. n334=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Repeat Kick $+ 4]12:14- 12Repeat Kick has been turned 4OFF
  337. n335=  goto done
  338. n336=  :done
  339. n337=}
  340. n338=/nethack {
  341. n339=  if $$1 == on goto on
  342. n340=  if $$1 == off goto off
  343. n341=  goto done
  344. n342=  :on
  345. n343=  enable #nethack
  346. n344=  set %nethack on
  347. n345=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ NetHack Protect $+ 4]12:14- 12Your NetHack Protect has been turned 4ON
  348. n346=  goto done
  349. n347=  :off
  350. n348=  disable #nethack
  351. n349=  set %nethack off
  352. n350=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ NetHack Protect $+ 4]12:14- 12Your NetHack Protect has been turned 4OFF
  353. n351=  goto done
  354. n352=  :done
  355. n353=}
  356. n354=/000010 { /set %ametmp $read -l1 c:\acid\finger.txt | /unset %ametmp | /014 }
  357. n355=/addop /guser 10 $$1 3 | /mode # +o $$1
  358. n356=/rmop /ruser 10 $$1 3 | /mode # -o $$1
  359. n357=/addshit /guser 9 $$1 3 | /ban $$1 3 | /kick # $$1 [<=ACiD=>] You Are Shitlisted!
  360. n358=/rmshit /ruser 9 $$1 3
  361. n359=/bold /say  $+ *1
  362. n360=/under /say  $+ *1
  363. n361=/mebold /me  $+ *1
  364. n362=/meunder /me  $+ *1
  365. n363=/sayback1 /say 2,1 $+ *1
  366. n364=/sayback2 /say 4,2 $+ *1
  367. n365=/sayback3 /say 2,3 $+ *1
  368. n366=/sayback4 /say 2,4 $+ *1
  369. n367=/sayback5 /say 2,5 $+ *1
  370. n368=/sayback6 /say 2,6 $+ *1
  371. n369=/sayback7 /say 2,7 $+ *1
  372. n370=/sayback8 /say 2,8 $+ *1
  373. n371=/sayback9 /say 2,8 $+ *1
  374. n372=/sayback10 /say 2,10 $+ *1
  375. n373=/sayback11 /say 2,11 $+ *1
  376. n374=/sayback12 /say 2,12 $+ *1
  377. n375=/sayback13 /say 2,13 $+ *1
  378. n376=/sayback14 /say 2,14 $+ *1
  379. n377=/sayback15 /say 1,4 $+ *1
  380. n378=/actback1 /me 2,1 $+ *1
  381. n379=/actback2 /me 4,2 $+ *1
  382. n380=/actback3 /me 2,3 $+ *1
  383. n381=/actback4 /me 2,4 $+ *1
  384. n382=/actback5 /me 2,5 $+ *1
  385. n383=/actback6 /me 2,6 $+ *1
  386. n384=/actback7 /me 2,7 $+ *1
  387. n385=/actback8 /me 2,8 $+ *1
  388. n386=/actback9 /me 2,8 $+ *1
  389. n387=/actback10 /me 2,10 $+ *1
  390. n388=/actback11 /me 2,11 $+ *1
  391. n389=/actback12 /me 2,12 $+ *1
  392. n390=/actback13 /me 2,13 $+ *1
  393. n391=/actback14 /me 2,14 $+ *1
  394. n392=/actback15 /me 1,4 $+ *1
  395. n393=/say2 /say 2 $+ *1
  396. n394=/say3 /say 3 $+ *1
  397. n395=/say4 /say 4 $+ *1
  398. n396=/say5 /say 5 $+ *1
  399. n397=/say6 /say 6 $+ *1
  400. n398=/say7 /say 7 $+ *1
  401. n399=/say8 /say 8 $+ *1
  402. n400=/say9 /say 9 $+ *1
  403. n401=/say10 /say 10 $+ *1
  404. n402=/say11 /say 11 $+ *1
  405. n403=/say12 /say 12 $+ *1
  406. n404=/say13 /say 13 $+ *1
  407. n405=/say14 /say 14 $+ *1
  408. n406=/me2 /me 2 $+ *1
  409. n407=/me3 /me 3 $+ *1
  410. n408=/me4 /me 4 $+ *1
  411. n409=/me5 /me 5 $+ *1
  412. n410=/me6 /me 6 $+ *1
  413. n411=/me7 /me 7 $+ *1
  414. n412=/me8 /me 8 $+ *1
  415. n413=/me9 /me 9 $+ *1
  416. n414=/me10 /me 10 $+ *1
  417. n415=/me11 /me 11 $+ *1
  418. n416=/me12 /me 12 $+ *1
  419. n417=/me13 /me 13 $+ *1
  420. n418=/me14 /me 14 $+ *1
  421. n419=/acid {
  422. n420=  set %acidversion is in command of σ⌐ε╨ vΩ«ºε÷± 2.0 ▀Ñ Power for mIRC 4.7+
  423. n421=  ame %acidversion
  424. n422=  a20mirc47ck
  425. n423=}
  426. n424=/snotice {
  427. n425=  if $1 == on goto on
  428. n426=  if $1 == off goto off
  429. n427=  echo 14[<=ACiD=>]12 Usage: 4/snotice <on1|4off>
  430. n428=  goto done
  431. n429=  :on
  432. n430=  echo 14[<=ACiD=>]12 All Server Notices 4Enabled
  433. n431=  disable #snotice
  434. n432=  goto done
  435. n433=  :off
  436. n434=  echo 14[<=ACiD=>]12 All Server Notices 4Disabled
  437. n435=  enable #snotice
  438. n436=  goto done
  439. n437=  :done
  440. n438=}
  441. n439=/014 { /set %014609437 %acidversion | /9990 }
  442. n440=/clients {
  443. n441=  if $1 == on goto on
  444. n442=  if $1 == off goto off
  445. n443=  echo 14[<=ACiD=>]12 Usage: 4/clients <on1|4off>
  446. n444=  goto done
  447. n445=  :on
  448. n446=  echo 14[<=ACiD=>]12 Client Connecting/Exiting Notices 4Enabled
  449. n447=  disable #clients
  450. n448=  goto done
  451. n449=  :off
  452. n450=  echo 14[<=ACiD=>]12 Client Connecting/Exiting Notices 4Disabled
  453. n451=  enable #clients
  454. n452=  goto done
  455. n453=  :done
  456. n454=}
  457. n455=/fuck {
  458. n456=  say 1,1~~~~~~~0,0~2,2~~0,0~~~2,2~~0,0~0,0~3,3~~~~~~0,0~4,4~~0,0~~~4,4~~
  459. n457=  say 1,1~~0,0~~~~~~2,2~~0,0~~~2,2~~0,0~3,3~~0,0~~~~~~4,4~~0,0~~4,4~~
  460. n458=  say 1,1~~~~~0,0~~~2,2~~0,0~~~2,2~~0,0~3,3~~0,0~~~~~~4,4~~~~~
  461. n459=  say 1,1~~0,0~~~~~~2,2~~0,0~~~2,2~~0,0~3,3~~0,0~~~~~~4,4~~0,0~~4,4~~
  462. n460=  say 1,1~~0,0~~~~~~0,0~2,2~~~~~0,0~~~3,3~~~~~~0,0~4,4~~0,0~~~4,4~~
  463. n461=}
  464. n462=/cycle /raw -q PART # | /raw -q JOIN #
  465. n463=/k /kick # $1 [<=ACiD=>] *2
  466. n464=/m /mode # $$1
  467. n465=/t /topic # *1
  468. n466=/chat /dcc chat $1
  469. n467=/send /dcc send $1 $2
  470. n468=/p /part #
  471. n469=/ping /ctcp $1 ping
  472. n470=/q /query $1
  473. n471=/j /join #$1
  474. n472=/b /ban # $1 3 | /kick # $1 [<=ACiD=>] Banned: *2
  475. n473=/op /mode # +oooo $$1 $2 $3 $4 
  476. n474=/deop /mode # -oooo $$1 $2 $3 $4
  477. n475=/autoaway {
  478. n476=  if $away == $true goto done
  479. n477=  if %idle.away == $null goto done
  480. n478=  if $idle >= %idle.away goto setidleaway 
  481. n479=  goto done
  482. n480=  :setidleaway
  483. n481=  titlebar -=[_.-~`~-._.-<=ACiD=> Version 2.0 by [PoweR]-._.-~`~-._]=-
  484. n482=  ap
  485. n483=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Idle Away $+ 4]12:14- 12You have been marked away because of 4 %idle.minutes 12 minutes idle time. 
  486. n484=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ Idle Away $+ 4]12:14- 12Logging messages ON, Pager OFF
  487. n485=  away  (Auto away after %idle.minutes minutes idle) <=ACiD=> (LoG=oN:|:PaGE=oFF)
  488. n486=  ame is away: <=ACiD=> (Auto away after %idle.minutes minutes idle) <=ACiD=> [MsgLog: ON] [Pager: OFF]
  489. n487=  timer950 0 1 /inc %away.time 
  490. n488=  set %away Auto away after %idle.minutes minutes idle
  491. n489=  enable #awaylog
  492. n490=  disable #away
  493. n491=  disable #pager
  494. n492=  goto done
  495. n493=  :done
  496. n494=}
  497. n495=/setidle {
  498. n496=  %idle.away = $$?="Minutes before going Idle Away?" * 60
  499. n497=  set %idle.minutes $!
  500. n498=  echo 14[<=ACiD=>] 14-12:4[7 $+ Idle Away $+ 4]12:14- 12Your Auto-Away Idle time has been set to4 %idle.minutes 12minutes.
  501. n499=}
  502. n500=/ap set %lagdet $ctime | raw -q LAGDET 
  503. n501=/hug /me hugglz $$1 ::  (»`'╖.╕(»`'╖.╕ $+ $$1 $+ ╕.╖'┤»)╕.╖'┤»)
  504. n502=/acidcrypt {
  505. n503=  set %encrypt *1
  506. n504=  %encrypt = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,.,║),?,▒),!,╗),a,δ),b,Ñ),c,ú),d,ô),e,τ),f,⌠),g,│),h,φ),i,ª),j,¼),k,µ),l,╜),m,«),n,σ),o,í),p,ñ),q,½),r,▓),s,╡),t,╢),u,⌐),v,ó),w,╖),x,`),y,▀),z,Σ)
  507. n505=  say â[ACiD]â %encrypt
  508. n506=  echo -a 14[<=ACiD=>] 1-:[12ACiD=En-Crypt1]:-6 -=> $+ $me $+ <=-4 *1
  509. n507=}
  510. n508=/aciddecrypt {
  511. n509=  set %decrypt *2
  512. n510=  %decrypt = $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*2,║,.),▒,?),╗,!),δ,a),Ñ,b),ú,c),ô,d),τ,e),⌠,f),│,g),φ,h),ª,i),¼,j),µ,k),╜,l),«,m),σ,n),í,o),ñ,p),½,q),▓,r),╡,s),╢,t),⌐,u),ó,v),╖,w),`,x),▀,y),Σ,z)
  513. n511=  echo -a 14[<=ACiD=>] 1-:[12ACiD=De-Crypt1]:-6 -=> $+ %dec.nick $+ <=-4 %decrypt
  514. n512=}
  515. n513=/e /encrypt *1
  516. n514=/encrypt {
  517. n515=  set %pos 0
  518. n516=  set %len $len(*1)
  519. n517=  set %rand $rand(128,133)
  520. n518=  set %code $chr(%rand)
  521. n519=  :start
  522. n520=  inc %pos 1
  523. n521=  set %asc $asc($mid(%pos,1,*1))
  524. n522=  if (%asc == 32 || %asc == 160) { set %asc 12 }
  525. n523=  else { %asc = %asc + %rand }
  526. n524=  set %code %code $+ $chr(%asc)
  527. n525=  if (%pos < %len) { goto start }
  528. n526=  say ¼ %code
  529. n527=  echo -a 14[<=ACiD=>] 1-:[12MK/A=En-Crypt1]:-6 >4 *1
  530. n528=  unset %pos %len %rand %code %asc
  531. n529=}
  532. n530=/quit /quit <=ACiD=> v2.0 $read c:\acid\randquit.acd
  533. n531=/decrypt {
  534. n532=  set %pos2 1
  535. n533=  set %len2 $len(%decrypt)
  536. n534=  set %rand2 $asc($mid(1,1,%decrypt))
  537. n535=  set %code2 ¼
  538. n536=  :start2
  539. n537=  inc %pos2 1
  540. n538=  set %asc2 $asc($mid(%pos2,1,%decrypt))
  541. n539=  if (%asc2 == 12) { set %asc2 160 }
  542. n540=  else { %asc2 = %asc2 - %rand2 }
  543. n541=  set %code2 %code2 $+ $chr(%asc2)
  544. n542=  if (%pos2 < %len2) { goto start2 }
  545. n543=  %code2 = $remove(%code2,¼)
  546. n544=  echo -a 14[<=ACiD=>] 1-:[12MK/A=De-Crypt1]:-6 -=> $+ %denick $+ <=-4 %code2
  547. n545=  unset %pos2 %len2 %rand2 %code2 %asc2 %denick %dechan %decrypt
  548. n546=}
  549. n547=/mud /raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip( [ 204.252.40.5 ] ) 4000 $+ $chr(1)
  550. n548=/rawnet /raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip( [ $$1 ] ) $$2 $+ $chr(1)
  551. n549=/acidlink {
  552. n550=  set %linkaddy $$?="Enter address for the link server:"
  553. n551=  set %linkport $$?="Enter port for link server - 6667?"
  554. n552=  set %linknick $$?="Choose a nick for your link:"
  555. n553=  set %linkchan.r $$?="What -remote- channel do you want to link?"
  556. n554=  set %linkchan.l $$?="What -local- channel do you want to link?"
  557. n555=  join %linkchan.l
  558. n556=  enable #relay
  559. n557=  dns %linkaddy
  560. n558=  creq auto
  561. n559=}
  562. n560=/acidlink2 {
  563. n561=  raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip( [ %linkip ] ) %linkport $+ $chr(1)
  564. n562=}
  565. n563=/linknick {
  566. n564=  set %linknick $$?="Choose Link Nickname:"
  567. n565=  msg = $+ $me NICK %linknick
  568. n566=  timer3002 0 30 /msg =Power PRIVMSG %linknick :PING? PONG!
  569. n567=}
  570. n568=/sl /msg = $+ $me PRIVMSG %linkchan.r :( $+ $server $+ / $+ %linkchan.l $+ ) < $+ $me $+ > *1 | /msg %linkchan.l *1
  571. n569=/ml /msg = $+ $me PRIVMSG %linkchan.r :ACTION ( $+ $server $+ / $+ %linkchan.l $+ ) * $me *1 $+  | /describe %linkchan.l *1
  572. n570=/9990 {
  573. n571=  %tmph = 30 * 50
  574. n572=  %tmph = %tmph - 234
  575. n573=  set %tmph %tmph / 5
  576. n574=  %tmph = %tmph + 77682 
  577. n575=  set %tmph %tmph $+ ACiD $+ By $+ Power
  578. n576=  %337263323 = %tmph
  579. n577=  if %acidver != %014609437 { /unset %acidversion | /echo -a 11,12ACiD VERSION HAS BEEN CHANGED. THIS IS NOT AN ORIGINAL COPY OF THIS SCRIPT. EXITING MIRC. | /unset %014609437 | /unset %tmph | /timer88 1 5 /exit }
  580. n578=  unset %acidversion
  581. n579=  unset %014609437
  582. n580=  unset %tmph
  583. n581=}
  584. n582=/closelink {
  585. n583=  disable #relay 
  586. n584=  timer554 1 5 /close -c
  587. n585=  timer3002 off
  588. n586=  msg %linkchan.l <=ACiD=> Link to %linkservername $+ / $+ %linkchan.r Disconnected
  589. n587=  msg = $+ $me PRIVMSG %linkchan.r :<=ACiD=> Link to $server $+ / $+ %linkchan.l Disconnected
  590. n588=  echo -a 14[<=ACiD=>] 14-12:4[7 $+ ACiDLiNK $+ 4]12:14- 12Closing the link, please wait. Disconnecting from Server...
  591. n589=  unset %link*
  592. n590=}
  593.