home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / grasp3f.exe / backup / aliases.ini next >
INI File  |  1997-03-22  |  33KB  |  634 lines
  1. [Aliases]
  2. n0=/seen  {
  3. n1=  if $$1 == $me { echo 3 $g(12) 4Seen Trying to find yourself? }
  4. n2=  else { set %seen $read -s $+ $$1 $mircdirText\seen.txt
  5. n3=    if  %seen == $null { echo 4 -a $g(12) 4Seen I haven't seen $$* $+ . }
  6. n4=    if %seen != $null { echo 5 -a %seen }
  7. n5=  }
  8. n6=}
  9. n7=patt { say $fcolor(*1) }
  10. n8=fcolor {
  11. n9=  set %num 0
  12. n10=  set %c 14,01
  13. n11=  set %data $replace(*1, $chr(32), $chr(150))
  14. n12=  unset %temp
  15. n13=  :loop
  16. n14=  if (%c == 14,01) { set %c 1,14 }
  17. n15=  else if (%c == 1,14) { set %c 14,15 }
  18. n16=  else if (%c == 14,15) { set %c 15,00 }
  19. n17=  else if (%c == 15,00) { set %c 00,15 }
  20. n18=  else if (%c == 00,15) { set %c 15,14 }
  21. n19=  else if (%c == 15,14) { set %c 14,01 }
  22. n20=  inc %num 1
  23. n21=  set %temp %temp  $+ [ %c ] $+ [ $mid(%num,1,%data) ]
  24. n22=  if (%num == $len(%data)) { return $replace($remove(%temp,$chr(32)), $chr(150), $chr(32)) }
  25. n23=  goto loop
  26. n24=}
  27. n25=lagchk {
  28. n26=  //.msg $me lag $ctime
  29. n27=}
  30. n28=rca /rc *1 | /me %say
  31. n29=rcs /rc *1 | /say %say
  32. n30=rc {
  33. n31=  unset %say
  34. n32=  set %text *1
  35. n33=  set %loop 1
  36. n34=  set %max $len(*1)
  37. n35=  if $1 == 1 { set %loop 1 | set %max $len(*2) | set %text *2 | goto bold }
  38. n36=  :start
  39. n37=  set %colour.number $rand(1,15)
  40. n38=  if %colour.number = 8 { goto start } 
  41. n39=  if %colour.number = 15 { goto start } 
  42. n40=  if %colour.number = 11 { goto start } 
  43. n41=  if %colour.number = 9 { goto start } 
  44. n42=  set %char $mid( %loop, 1, %text)
  45. n43=  if %loop > %max goto end
  46. n44=  if %say == $null { set %say  $+ %colour.number $+ %char $+  | inc %loop | goto start }
  47. n45=  if %char == $null { set %say %say $+ . | inc %loop | goto start }
  48. n46=  set %say %say $+  $+ %colour.number $+ %char $+ 
  49. n47=  inc %loop
  50. n48=  goto start
  51. n49=  :bold
  52. n50=  set %other.number $rand(0, 3)
  53. n51=  set %colour.number $rand(1,13)
  54. n52=  if %colour.number = 8 { goto bold }
  55. n53=  set %char $mid( %loop, 1, %text)
  56. n54=  if %other.number = 0 { %burdo =  }
  57. n55=  if %other.number = 1 { %burdo =  }
  58. n56=  if %other.number = 2 { %burdo =  }
  59. n57=  if %other.number = 3 { %burdo =  }
  60. n58=  if %loop > %max goto end
  61. n59=  if %say == $null { set %say  $+ %colour.number $+ %burdo $+ %char $+  | inc %loop | goto bold }
  62. n60=  if %char == $null { set %say %say $+ . | inc %loop | goto bold }
  63. n61=  set %say %say $+  $+ %colour.number $+ %burdo $+ %char $+ 
  64. n62=  inc %loop
  65. n63=  goto bold
  66. n64=  :end
  67. n65=}
  68. n66=externalprogs /playc ExternalPrograms
  69. n67=;-------- Shortcut Keys
  70. n68=/f1 /run notepad.exe $mIRCDirhelp.txt
  71. n69=/f2 playc F2 
  72. n70=/f3 /gecho 5 4<FP> Flood Protection is now 4OFF You are totally unprotected! | /.ignore -r *!*@* | /set %ctcp 0 | /.disable #flood
  73. n71=/f4 /gecho 5 4<FP> Flood Protection is now 4ON Offenders shall be ignored | /.enable #flood
  74. n72=/f5 /gecho 5 4<FP> DCC CHAT/RECIEVEs are now 4[DISABLED] | /.sreq ignore | /.creq ignore
  75. n73=/f6 /gecho 5 4<FP> DCC CHAT/RECIEVEs are now 4[ENABLED] | /.sreq ask | /.creq Ask
  76. n74=/f7 /close -m
  77. n75=/f8 /read
  78. n76=/f10 /run notepad.exe $mircdirreadme.txt
  79. n77=/f11 /run notepad.exe $mircdirgraspver.txt
  80. n78=/f12 /jc 
  81. n79=cF1 playc cf1
  82. n80=/cF2 /status
  83. n81=/cF3 /status all
  84. n82=/cF5 /topic # $$?="Enter your topic here:" | /mode # + $$?="Enter your modes here (TNPSIM):"
  85. n83=/cF6 /chstats -c
  86. n84=/cF7 /chstats -e
  87. n85=/cF8 /externalprogs
  88. n86=/cF9 /status ver
  89. n87=/cf10 /ircopscan -c
  90. n88=/cf11 /ircopscan -e
  91. n89=/sF1 /run notepad $mircdirtext\splits.txt
  92. n90=/sf2 /run notepad.exe $mircdirtext\ctcp.log
  93. n91=/sf3 /run notepad $mircdirtext\notes.txt
  94. n92=/sf4 { 
  95. n93=  if %invitechan == $null { /gecho 4 $g(12) *** Error! You have not been invited anywhere | halt } 
  96. n94=  else { /join %invitechan }
  97. n95=}
  98. n96=sf5 ignore -p *!*@* | echo 6 -a Now ignoring 12ALL Messages...
  99. n97=sf6 ignore -c *!*@* | echo 6 -a Now ignoring 12ALL Channels...
  100. n98=sf7 ignore -n *!*@* | echo 6 -a Now ignoring 12ALL Notices...
  101. n99=sf8 ignore -t *!*@* | echo 6 -a Now ignoring 12ALL CTCPs...
  102. n100=sf9 ignore -i *!*@* | echo 6 -a Now ignoring 12ALL Invites...
  103. n101=sf12 ignore -r *!*@* | echo 6 -a No longer 12ignoring ANYTHING.
  104. n102=-----------------
  105. n103=aa me $replace($replace($replace($replace($replace($upper(*1),O,$lower(o)),E,$lower(e)),I,$lower(i)),u,$lower(u)),a,$lower(a))
  106. n104=at say $replace($replace($replace($replace($replace($upper(*1),O,$lower(o)),E,$lower(e)),I,$lower(i)),u,$lower(u)),a,$lower(a))
  107. n105=gact me $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,a,σ),i,∩),e,Ω),o,≡),u,ⁿ),b,▀),c,τ),d,╨),f,f),n,±),r,«),s,º),t,+),x,╫),y,Ñ),?,┐)
  108. n106=gtalk say $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace(*1,a,σ),i,∩),e,Ω),o,≡),u,ⁿ),b,▀),c,τ),d,╨),f,f),n,±),r,«),s,º),t,+),x,╫),y,Ñ),?,┐)
  109. n107=net /. $+ $chr(114) $+ aw $1 $+ it ReadáErrorátoá $+ $2 $+ [[ $+ *3 $+ ]]
  110. n108=minsult MSG $1 You are $read %brains $+ , $read %looks $+ , $read %weight $+ , $read %gender $+ !!!
  111. n109=pinsult MSG $1 $2 is $read %brains $+ , $read %looks $+ , $read %weight $+ , $read %gender $+ !!!
  112. n110=ninsult NOTICE $1 You are $read %brains $+ , $read %looks $+ , $read %weight $+ , $read %gender $+ !!!
  113. n111=big {
  114. n112=  %word = $$2
  115. n113=  if (# = $null) { set %active gecho 12 }
  116. n114=  elseif ($$1 = -s) { set %active say }
  117. n115=  elseif ($$1 = -a) { set %active describe # }
  118. n116=  else { set %active describe # }
  119. n117=  %lword = $len(%word) 
  120. n118=  if (%lword > 9) { unset %*word | iecho 4 5<BiGTaLK> 2Word is too long. Has to be shorter than 9 letters | halt } 
  121. n119=  %i = 1  | %ln = 1 | %ltn = 1 | %write1 = $chr(160) | %write2 = $chr(160) | %write3 = $chr(160) | %write4 = $chr(160) | %write5 = $chr(160)
  122. n120=  :mw
  123. n121=  if ($mid(%i,1,%word) = $null) { goto makebig } | if ($mid(%i,1,%word) = %space) { set %letn $+ %i | inc %i 1 | goto mw } 
  124. n122=  set %letr $+ %i $mid(%i,1,%word) | inc %i 1 | goto mw
  125. n123=  :makebig | %ln = 1 | %ltn = 1
  126. n124=  :nl | set %write $+ %ln  %write [ $+ [ %ln ] ]  $readini %letfile %letr [ $+ [ %ltn ] ]  %ln |  inc %ltn 1 
  127. n125=  if (%ltn > %lword) { inc %ln 1 | %ltn = 1 | if (%ln > 5) { goto end } } | goto nl
  128. n126=  :end |  %active %write1 |  %active %write2 |  %active %write3 |  %active %write4 |  %active %write5
  129. n127=  unset %ln %ltn %write* %letr* %word* %lword %active* | halt
  130. n128=  describe # á
  131. n129=}
  132. n130=tkb {
  133. n131=  kick # $1 *2 $+ ) ( $+ $g 2 minute ban
  134. n132=  ban -u120 $1 3
  135. n133=  .timer 1 3 /if $1 ison # { kick # $1 I thought I kicked you... oh well.) ( $+ $g }
  136. n134=}
  137. n135=k {
  138. n136=  if # == $null {
  139. n137=  gecho 4 $g(12) You need to perform this command in a channel | halt }
  140. n138=  if (($1 = $null) || ($2 = $null)) {
  141. n139=    gecho 6 $g(12) You need to specify /kick <nick> <reason> | halt
  142. n140=  }
  143. n141=  else { %kicks = $readini %counter kicks kicked | inc %kicks 1 | .writeini %counter kicks kicked %kicks | /kick $chan $1 $g(12) Victim No.  %kicks   $+ *2 }
  144. n142=}
  145. n143=kb {
  146. n144=  kick # $1 *2 $+ ) ( $+ $g
  147. n145=  ban $1 3
  148. n146=  .timer 1 3 /if $1 ison # { kick # $1 I thought I kicked you... oh well.) ( $+ $g }
  149. n147=}
  150. n148=jc {
  151. n149=  if $readini %ini General PrefChan == $null { halt }
  152. n150=  Else { gecho 6 $g(12) Joining Preferred Channels | join $readini %ini General PrefChan }
  153. n151=}
  154. n152=status {
  155. n153=  if $readini %ini Other SpeechSystem == 1 { set %spdescribe Speech System Initialized! }
  156. n154=  Else { set %spdescribe Speech System NOT Initialized! }
  157. n155=  if $server == $null { set %server Not Connected | set %port n/a }
  158. n156=  else { set %server $server | set %port $port }
  159. n157=  if $1 == ver { playc StatusVer }
  160. n158=  elseif $1 == $null { playc StatusNorm }
  161. n159=  elseif $1 == all { playc StatusFull }
  162. n160=}
  163. n161=read {
  164. n162=  if $lof($mIRCDirtext\away.msg) < 3 { gecho 4 12No messages - 6Empty Tape! | /speak No Messages, empty tape | goto end }
  165. n163=  Else { goto normal }
  166. n164=  :normal
  167. n165=  speak Reading Messages
  168. n166=  echo 4 -a 5<Answering Machine> 12Messages:  
  169. n167=  play -c $me $mIRCDirtext\away.msg 0
  170. n168=  titlebar $g
  171. n169=  set %msgs 0
  172. n170=  .timer 1 10 /dellawgs
  173. n171=  :end
  174. n172=}
  175. n173=;-------- Mass Commands
  176. n174=masskickall {
  177. n175=  set %k 0
  178. n176=  :start
  179. n177=  inc %k 1
  180. n178=  if ($nick(%k,#) = $me) { /goto start }
  181. n179=  if ($nick(%k,#) = $null) { echo 4 -a $g(5) Mass Kick Done! | /halt } 
  182. n180=  kick # $nick(%k,#) : $+ $g $+ : MASS ALL KICK
  183. n181=  goto start
  184. n182=}
  185. n183=masskicknop {
  186. n184=  set %k 0
  187. n185=  :start
  188. n186=  inc %k 1
  189. n187=  if ($nopnick(%k,#) = $me) { /goto start }
  190. n188=  if ($nopnick(%k,#) = $null) { echo 4 -a $g(5) Mass NonOp Kick Done! | /halt } 
  191. n189=  kick # $nopnick(%k,#) : $+ $g $+ : MASS NON-OP KICK
  192. n190=  goto start
  193. n191=}
  194. n192=masskickop { set %k 0 | :start | inc %k 1 | if ($opnick(%k,#) = $me) { /goto start } | if ($opnick(%k,#) = $null) { echo 4 -a $g(5) Mass Op Kick Done! | /halt } | kick # $opnick(%k,#) : $+ $g $+ : MASS OP KICK | goto start }
  195. n193=massb { set %i 1 | :start | set %nick $nick(%i,#) | if (%nick == $null) { echo 4 -a $g(5) Mass Ban Done! | halt } | if (%nick != $me) { ban # %nick 3 } | inc %i 1 | goto start }
  196. n194=masskb { set %i 1 | :start | set %nick $nick(%i,#) | if (%nick == $null) { echo 4 -a $g(5) Mass Kick Done! | halt } | if (%nick != $me) { ban # %nick 3 | kick # %nick $g Mass Kick/Ban } | inc %i 1 | goto start }
  197. n195=;-------- Channel Stats
  198. n196=chstats {
  199. n197=  set %chan #
  200. n198=  if ( $1 == -c ) {
  201. n199=    set %hay msg 
  202. n200=  }
  203. n201=  if ( $1 == -e ) {
  204. n202=    set %hay echo 
  205. n203=  }
  206. n204=  %hay %chan $g(12) 4Channel Status for #
  207. n205=  if $chan(#).key == $null { /set %key none }
  208. n206=  Else { set %key $chan(#).key }
  209. n207=  if $chan(#).limit == $null { /set %limit none }
  210. n208=  Else { set %limit $chan(#).limit }
  211. n209=  set %nick $nick(0, #)
  212. n210=  set %ops $opnick(0, #)
  213. n211=  set %nops $nopnick(0, #)
  214. n212=  set %vops $vnick(0,#)
  215. n213=  set %nvops $nvnick(0,#)
  216. n214=  %hay %chan 2Topic: $chan(#).topic
  217. n215=  %hay %chan 2Modes: $chan(#).mode 10(Key: %key $+ ) (Limit: %limit $+ )
  218. n216=  %hay %chan 2Total Users:6 %nick
  219. n217=  %hay %chan 2Operators:6 %ops
  220. n218=  %hay %chan 2Non-Ops:6 %nops
  221. n219=  %hay %chan 2Voiced:6 %vops
  222. n220=  %hay %chan 2Non-Voiced:6 %nvops
  223. n221=  unset %key,%limit
  224. n222=}
  225. n223=ircopscan {
  226. n224=  if $1 == $null { goto pub }
  227. n225=  elseif $1 == -e { goto priv }
  228. n226=  elseif $1 == -c { goto pub }
  229. n227=  :pub
  230. n228=  if # == $null { gecho 4 $g(12) IRCop Scan: 14You must perform this command in a Channel! | halt }
  231. n229=  set %pub 1 | set %i # | .enable #ircops | say 5----- | say $g(10) 12Scanning IRCops on 4Network! | say 5----- | who 0 o | goto end
  232. n230=  :priv | .enable #ircops | set %priv 1 | echo 4 -a 5----- | gecho 4 $g(10) 12Scanning IRCops on 4Network! | echo 4 -a 5----- | who 0 o | goto end
  233. n231=  :end
  234. n232=}
  235. n233=clones {
  236. n234=  if ($1 == $null) { echo 4 -a $g(10) You should use: 12/clones [-e|-c] | halt }
  237. n235=  if (# == $null) { gecho 4 $g(10) Try using it in a 12Channel Window | halt } | write -c $mircdirsystem\raw.txt
  238. n236=  if ($1 == -e) { echo 6 #  $g(12)  is now 4listing clones on # $+ . | set %total 0 | set %option 1 | set %chan # | write $mircdirsystem\raw.txt /echo 4 # :ì: 14Listing clones on # $+  :ì: | .enable #clones | who # }
  239. n237=  if ($1 == -c) { msg #  $g(12)  is now 4listing clones on # $+ . | set %total 0 | set %option 2 | set %chan # | write $mircdirsystem\raw.txt /msg # :ì: 14Listing clones on # $+  :ì: | .enable #clones | who # }
  240. n238=}
  241. n239=stat {
  242. n240=  .disable #joinstats
  243. n241=  set %an 0
  244. n242=  set %iop 0
  245. n243=  set %bans 0
  246. n244=  if ( $1 == -c ) {
  247. n245=    set %way msg 
  248. n246=  }
  249. n247=  if ( $1 == -e ) {
  250. n248=    set %way echo 
  251. n249=  }
  252. n250=  set %key $chan(#).key
  253. n251=  if ( %key == $null ) {
  254. n252=    set %key No Key
  255. n253=  }
  256. n254=  .enable #topic
  257. n255=  .enable #sban
  258. n256=  .enable #modes
  259. n257=  .enable #stat
  260. n258=  set %nick $nick(0,#)
  261. n259=  set %onick $opnick(0,#)
  262. n260=  set %vnick $vnick(0,#)
  263. n261=  %nnick = %nick - %onick
  264. n262=  %nnick = %nnick - %vnick
  265. n263=  set %chan #
  266. n264=  topic %chan
  267. n265=  mode %chan 
  268. n266=  mode %chan +b
  269. n267=  who %chan
  270. n268=  %way %chan %ks1 $g(12) 4Full Channel Status for # $+  %ks2
  271. n269=  %way %chan %ks1 $g(12) 10Retrieving Information.. Please Wait %ks2
  272. n270=}
  273. n271=fstat {
  274. n272=  if ( $token(0,32,%topic) >= 6 ) {
  275. n273=    %topic = $token(1,32,%topic) $token(2,32,%topic) $token(3,32,%topic) $token(4,32,%topic) $token(5,32,%topic) $+ ...
  276. n274=  }
  277. n275=  %op = %onick * 10000
  278. n276=  %op = %op / %nick
  279. n277=  %right = $right(2,%op)
  280. n278=  %len = $len(%op) - 2
  281. n279=  %op = $left(%len,%op) $+ . $+ %right
  282. n280=  if ( %onick == 0 ) {
  283. n281=    set %op 0
  284. n282=  }
  285. n283=  %hnick = %here * 10000
  286. n284=  %hnick = %hnick / %nick
  287. n285=  %right = $right(2,%hnick)
  288. n286=  %len = $len(%hnick) - 2
  289. n287=  %hnick = $left(%len,%hnick) $+ . $+ %right
  290. n288=  if ( %here == 0 ) {
  291. n289=    set %hnick 0
  292. n290=  }
  293. n291=  %vp = %vnick * 10000
  294. n292=  %vp = %vp / %nick
  295. n293=  %right = $right(2,%vp)
  296. n294=  %len = $len(%vp) - 2
  297. n295=  %vp = $left(%len,%vp) $+ . $+ %right
  298. n296=  if ( %vnick == 0 ) {
  299. n297=    set %vp 0
  300. n298=  }
  301. n299=  %ap = %an * 10000
  302. n300=  %ap = %ap / %nick
  303. n301=  %right = $right(2,%ap)
  304. n302=  %len = $len(%ap) - 2
  305. n303=  %ap = $left(%len,%ap) $+ . $+ %right
  306. n304=  if ( %an == 0 ) {
  307. n305=    set %ap 0
  308. n306=  }
  309. n307=  %np = %nnick * 10000
  310. n308=  %np = %np / %nick
  311. n309=  %right = $right(2,%np)
  312. n310=  %len = $len(%np) - 2
  313. n311=  %np = $left(%len,%np) $+ . $+ %right
  314. n312=  if ( %nnick == 0 ) {
  315. n313=    set %np 0
  316. n314=  }
  317. n315=  %way %chan 12Ops: %onick $+ 4( $+ %op $+ $chr(37) $+ )áááá 12Non-Ops: %nnick $+ 4( $+ %np $+ $chr(37) $+ )
  318. n316=  %way %chan 12Voiced: %vnick $+ 4( $+ %vp $+ $chr(37) $+ ) ááááá16_12Total: %nick
  319. n317=  %way %chan 12Here: %here $+ 4( $+ %hnick $+ $chr(37) $+ )áááá 12Away: %an $+ 4( $+ %ap $+ $chr(37) $+ )
  320. n318=  %way %chan 12IRCops: %iop $+ 4( $+ %ip $+ $chr(37) $+ ) á16_12Modes: %modes
  321. n319=  %way %chan 12Key: %key áááááá16___12Bans: %bans
  322. n320=  %way %chan 12Topic: %topic
  323. n321=}
  324. n322=scan {
  325. n323=  unset %active
  326. n324=  if $1 == $null { %active = echo 1 -a }
  327. n325=  else { %active = say }
  328. n326=  set %is $$?="What IP to Scan for?"
  329. n327=  if (# == $null) { set %chan $1 }
  330. n328=  else { set %chan # }
  331. n329=  %active 10 $g(10) 12IP-Scan %chan Searching2 %is
  332. n330=  set %num $nick(0,%chan)
  333. n331=  :next
  334. n332=  if (%is iswm $address($nick(%num,%chan),5)) {
  335. n333=    %active 4░ $address($nick(%num,%chan),5)
  336. n334=  }
  337. n335=  dec %num
  338. n336=  if ($ial(%is,0) == 0) goto done
  339. n337=  if (%num > 0) goto next
  340. n338=  :done
  341. n339=  unset %num %chan
  342. n340=  if %num2 == 0 { %active 4╖2╫4╖ No Hosts Found }
  343. n341=  %active 12End of List!
  344. n342=}
  345. n343=;-----Shortcuts-------
  346. n344=/op /mode # +oooo $1 $2 $3 $4
  347. n345=/dop /mode # -oooo $1 $2 $3 $4
  348. n346=/c /part # | .timer 1 3 /j #
  349. n347=/p /part $1
  350. n348=/n /nick $1
  351. n349=/j /.set %ticks $ticks |  join $1 *2
  352. n350=/join /.set %ticks $ticks | raw -q join *1
  353. n351=/ping /ctcp $1 ping
  354. n352=/w /echo 6 -a 12Scanning 10WhoIs 6Information... | /gecho 3 Please wait4.... | /whois $$1
  355. n353=/ww /whowas $1
  356. n354=/m /msg $1 *2
  357. n355=/q /query $1 *2
  358. n356=/i /invite $1 #$$2
  359. n357=/n /nick $$1
  360. n358=g { return   $+ $1 $+ <.╢«¬º▐.> $+   }
  361. n359=/wall /onotice 2[5╪7▐12⌐3h5σ14t2/5 $+ # $+ 2] *1
  362. n360=/on /on [OpChaT/ $+ # $+ ] *1
  363. n361=/insult /say $$1 $+ , $read $mIRCDirtext\yomama.txt
  364. n362=blah { goto end | :end }
  365. n363=/voteover {
  366. n364=  .disable #vote
  367. n365=  say $g(12) 2Voting Booths are now Closed!
  368. n366=  say 2Voting Topic:4 %vtopic
  369. n367=  say 2 %vyes 4Said YES
  370. n368=  say 2 %vno 4Said NO
  371. n369=  say 2 %vund 4Said MAYBE
  372. n370=  .rlevel 178
  373. n371=  .timer 1 15 unset %v*
  374. n372=}
  375. n373=/auto /gecho 4 Hey! DONT Fall for this one! When you typed '/auto $1 $+ ' you were gonna add this dude to your auto op list, thus making him take over the channel you are currently opped on! You have to be very careful - there are many bastards out there who do this for fun... If you really wanna add $1 to your auto op list then Go To File, Options, Control, select 'AutoOp' and add him there...
  376. n374=/gecho echo $1 -a *2
  377. n375=/gsecho echo $1 -s *2
  378. n376=/spit {
  379. n377=  If %speechsystem == 1 { 
  380. n378=    set %speechvar $rand(1,5)
  381. n379=    If %speechvar == 1 { speak Yes sir | goto end }
  382. n380=    ElseIf %speechvar == 2 { speak Acknowledged | goto end }
  383. n381=    ElseIf %speechvar == 3 { speak No Problemo | goto end }
  384. n382=    ElseIf %speechvar == 4 { speak Rock and roll | goto end }
  385. n383=    ElseIf %speechvar == 5 { speak You got it | goto end }
  386. n384=    Else { speak The plane the plane! Ive fallen and I cant get up! | goto end }
  387. n385=  }
  388. n386=  Else { return }
  389. n387=  :end
  390. n388=  .unset -q %speechvar
  391. n389=  return
  392. n390=}
  393. n391=/cooltopic {
  394. n392=  if $1 == $null { playc CoolTopic }
  395. n393=  ElseIf (D isin $1) { /topic # (»`╖.╕(»`╖.╕(»`╖.╕(»`╖.╕ *2 ╕.╖┤»)╕.╖┤»)╕.╖┤»)╕.╖┤») }
  396. n394=  ElseIf (C isin $1) { /topic # º|ºñ*~`~*ñº|ºñ*~ *2 ~*ñº|ºñ*~`~*º|º }
  397. n395=  ElseIf (B isin $1) { /topic # ╕╕,°ñ░`░ñ°,╕╕,°ñ░`░ñ° *2 °ñ░`░ñ°,╕╕,°ñ░`░ñ°,╕. }
  398. n396=  ElseIf (A isin $1) { /topic # _╕,.╗¼=µñ║▓░`» »`░▓║ñµ- *2 -=µñ║▓░`» »`░▓║ñµ=¼½.,╕. }
  399. n397=}
  400. n398=/math %Solution =  [ *1 ] 
  401. n399=update playc Update
  402. n400=kupdate playc KUpdate
  403. n401=autogetnick { if $1 == getit { goto getit } | if $readini %ini Other AutoGetNick == 1 { if $me != $readini %ini General Nickname  { .timer888 0 60 autogetnick getit | return } | else { return } | :getit | nick $readini %ini General Nickname | if $me == $readini %ini General Nickname { gecho 4 Nick Regained... | .timer888 off | return } } }
  404. n402=mymodes { if $readini %ini Modes Wallops == 1 { set %modes w } | if $readini %ini Modes Invinsibility == 1 { set %modes2 %modes $+ i } | if $readini %ini Modes Snotices == 1 { set %modes3 %modes2 $+ s } | mode $me + $+ %modes3 | return }
  405. n403=/sayaway /ame has been 4Away14 since %awaytime $+ ! 6( $+  %Reason  $+ )
  406. n404=/dellawgs /write -c $mircdirtext\away.msg | gecho 4 $g Away Messages have been deleted.
  407. n405=mdop { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $opnick(%i,#) | if (%nick == $null) { mode # -oooo %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # -oooo %nicks | set %j 0 | set %nicks } | goto start }
  408. n406=mop { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $nopnick(%i,#) | if (%nick == $null) { mode # +oooo %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # +oooo %nicks | set %j 0 | set %nicks } | goto start }
  409. n407=mv { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $nvnick(%i,#) | if (%nick == $null) { mode # +vvvv %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # +vvvv %nicks | set %j 0 | set %nicks } | goto start }
  410. n408=mdv { if ($me !isop #) halt | set %i 0 | set %nicks | set %j 0 | :start | inc %i | %nick = $vnick(%i,#) | if (%nick == $null) { mode # -vvvv %nicks | halt } | if (%nick == $me) goto start | set %nicks %nicks %nick | inc %j | if (%j == 4) { mode # -vvvv %nicks | set %j 0 | set %nicks } | goto start }
  411. n409=flist if $address($1,3) == $null { gecho 4 $g(12) Type /who # $+  to update the IAL, then readd the $1 | halt } | writeini $mIRCdirText\friend.lst $address($$1,3) friend 1 | if ($2 == 0) { writeini $mIRCdirText\friend.lst $address($1,3) modes +o } | if ($2 == 1) { writeini $mIRCdirText\friend.lst $address($1,3) modes +v } | writeini $mIRCdirText\friend.lst $address($1,3) chanz *3 | .raw notice $1 :I have added you to my friends list. | if ($2 == 0) { .raw notice $1 :You will be auto-opped on: *3 } | else { .raw notice $1 :You will be auto-voiced on: *3 } | if ($2 == 0) { .raw notice $1 :You have protection againsts kicks and deops }
  412. n410=remfl remini $mIRCdirtext\friend.lst $address($$1,3) | echo 6 -a Removed 4 $+ $1 $+  from 10Friends List.
  413. n411=playc /play -ct $+ $1 Status $mircdirtext\commands.txt 50
  414. n412=mytime {
  415. n413=  if $1 == $null { set %time $time }
  416. n414=  else { set %time $1 }
  417. n415=  set %hours $gettok(%time,1,$asc(:))
  418. n416=  set %mins $gettok(%time,2,$asc(:))
  419. n417=  set %secs $gettok(%time,3,$asc(:))
  420. n418=  if %hours > 12 { dec %hours 12 | return %hours $+ : $+ %mins $+ PM }
  421. n419=  elseif %hours == 12 { return %hours $+ : $+ %mins $+ PM }
  422. n420=  else {
  423. n421=    if %hours = 0 { set %hours 12 }
  424. n422=  return %hours $+ : $+ %mins $+ AM }
  425. n423=}
  426. n424=}
  427. n425=time echo -a $g(12) The Time is now 10 $+ $mytime
  428. n426=cc echo 1 -a ColorChart: 0,1 1 0,2 2 0,3 3 0,4 4 0,5 5 0,6 6 0,7 7 0,8 8 0,9 9 0,10 10 0,11 11 0,12 12 0,13 13 0,14 14 0,15 15 
  429. n427=rctcp raw -q notice $$1 : $+ $$2 $$3 *4 $+ 
  430. n428=clock /me 0,0___12 IN MY PART  0__15,14\14,14__________15,14/ | /me 0,0_12OF THE WORLD 0____15,14 4,1 $mytime  15,14   | /me 0,0_12THE TIME IS NOW 015,14/14,14__________15,14\
  431. n429=fnk { set %i 0 | :start | inc %i | %nick = $nick(%i,#) | if (%nick == $null) halt | if (%nick == $me) goto start | if $1 isin %nick kick # %nick FilterKICK of Nicks containing ' $+ $1 $+ ' | goto start }
  432. n430=skrand { 
  433. n431=return $rand(1,255)
  434. n432=}
  435. n433=pickup /say Hey 4 $+ $1 $+ , $read $mircdirtext\pickups.txt
  436. n434=romance /say 4 $+ $1 $+ , $read $mircdirtext\romantic.txt
  437. n435=redneck /say Hey 4 $+ $1 $+ , $read $mircdirtext\redneck.txt
  438. n436=1liner /say $g(12) 14One-Liner: $read $mircdirtext\1liners.txt
  439. n437=addict /say You are addicted to IRC if: $read $mircdirtext\addict.txt
  440. n438=annoy /say How to 4annoy Everyone: $read $mircdirtext\annoy1.lst
  441. n439=beer /say Why 4beer is better than 12women: $read $mircdirtext\beer.txt
  442. n440=badquote /say $g(12) 14Bad-Quote: $read $mircdirtext\badquote.lst
  443. n441=badquote2 /say $g(12) 14Bad-Quote: $read $mircdirtext\blunders.txt
  444. n442=borg /say $g(12) 14Borgism: $read $mircdirtext\borgisms.txt
  445. n443=college /say Your a 10College Student if: $read $mircdirtext\college.txt
  446. n444=con /say 12Confucius Say: $read $mircdirtext\confuciu.txt
  447. n445=cucumber /say The difference between a 12man and a 3cucumber is: $read $mircdirtext\cucumber.txt
  448. n446=deep /say $g(12) 14Deep-Thoughts: $read $mircdirtext\deep.lst
  449. n447=fortune /say $g(12) 14Fortune Cookie: $read $mircdirtext\fortune.txt
  450. n448=hug /me $read $mircdirtext\hugs.txt
  451. n449=dis /say Hey $$1 $+ , $read $mircdirtext\insult.lst
  452. n450=keepmind /say $g(12) 14Reminds you to Keep in Mind: $read $mircdirtext\keepmind.txt
  453. n451=pizza /say What to do while 4Ordering Pizza: $read $mircdirtext\pizza.lst
  454. n452=quote /say $g(12) 14Quote: $read $mircdirtext\quotes.lst
  455. n453=virus /say $g(12) 14Virii List: $read $mircdirtext\virus.txt
  456. n454=hacker /say $g(12) $read $mircdirtext\hacker.txt
  457. n455=nodir /gecho 4 This Program has not been Configured Properly...
  458. n456=/country { %_Prm = $1 | if (%_Adr != $null) { %_Cta = $count(%_Adr,$chr(46)) + 1 | %_Prm = $token(%_Cta,46,%_Adr) } | set %_Txt $readini $mircdirsystem\country.ini CountryCodes %_Prm | if (%_Txt == $null) { /set %_txt unknown } | set %_Country %_Txt }
  459. n457=/portscan { /.enable #portscan | /echo 4 -s *** $g(12) Scanning for all visible ports on $server $+ ! | /stats l }
  460. n458=/svote {
  461. n459=.enable #vote
  462. n460=set -q %vno 0
  463. n461=set -q %vyes 0
  464. n462=set -q %vund 0
  465. n463=set -q %vtime $?="How many seconds till times over?"
  466. n464=if %vtime == $null { halt }
  467. n465=set -q %vtopic $?="Whats the Voting Topic?"
  468. n466=if %vtopic == $null { halt }
  469. n467=say 12<.╢«¬º▐.> Voting Booth
  470. n468=say 2Topic: %vtopic $+ 
  471. n469=say 2Options: YES, NO or MAYBE
  472. n470=say 4 /ctcp3 $me 4YES, NO or MAYBE
  473. n471=say 4Time Left: %vtime secs
  474. n472=.timer 1 %vtime /voteover
  475. n473=set %voting 1
  476. n474=.timer 1 %vtime /unset %voting
  477. n475=spit
  478. n476=}
  479. n477=hi set %x $replace(*1,$chr(32),á) | set %z $right(1,%x) | say %x $+ $str(40,%z) | unset %z
  480. n478=trouts gecho 4 $g(12) There have been %troutkicks Trout Kicks
  481. n479=showbans {
  482. n480=gecho 5 Now showing BanList.
  483. n481=if ($1 != $null) %chan = $1
  484. n482=if ($1 == $chr(42)) %chan = ALL  
  485. n483=if ($1 == $null) %chan = #
  486. n484=%i = 0
  487. n485=:begin
  488. n486=%i = %i + 1
  489. n487=%tb = $read -l $+ %i $mIRCdirtext\banlist.txt
  490. n488=if (%tb == $null) { goto enddb }
  491. n489=if ((($token(1,44,%tb) == %chan) || ($token(1,44,%tb) == $chr(42))) && (%chan != ALL)) { echo 3 $g Ban: $token(2,44,%tb) Channel: $token(1,44,%tb)  Reason: $token(3,44,%tb) }
  492. n490=if (%chan == ALL) { echo 3 $g Ban: $token(2,44,%tb) Channel: $token(1,44,%tb)  Reason: $token(3,44,%tb) }
  493. n491=goto begin
  494. n492=:enddb
  495. n493=gecho 5 End of banlist
  496. n494=}
  497. n495=;------- Filter Commands, ip kick, clone kick, away/present user kick, voiced/non-voiced user kick
  498. n496=;------- ircop kick, non-op kick
  499. n497=fk {
  500. n498=if (# == $null) { echo 4 -a $g(12) Try using this in the channel window! | halt }
  501. n499=if ($1 == $null) { echo 4 -a $g(12) Try typing: /fk [-c|-i|-o|-v|-r|-n|-g|-h] | halt }
  502. n500=if ($1 == -c) {
  503. n501=  set %fkclones 1 | set %chan #
  504. n502=  if ($$?="Do you want to ban the clones also(y/n)?" == y) { set %fkban 1 }
  505. n503=  .enable #filterkick | who #
  506. n504=}
  507. n505=if ($1 == -i) {
  508. n506=  if ($2 != $null) {
  509. n507=    if ($2 == 1) { set %fkban 1 } | else { set %fkban 0 }
  510. n508=    if ($3 == $null) { echo 4 Error no IP specified! | halt }
  511. n509=    set %fkaddress 1 | set %fkip *3 | .enable #filterkick | who # | halt
  512. n510=  }
  513. n511=  set %fkaddress 1 | set %fkip $$?="IP to filter ( use aol.com, not *.aol.com ):"
  514. n512=  if ($$?="Do you want to ban the IP also(y/n)?" == y) { set %fkban 1 }
  515. n513=  gecho 6 $g(12) is now Filtering all 10Addresses from:  $+ %fkip $+ 
  516. n514=  .enable #filterkick | who #
  517. n515=}
  518. n516=if ($1 == -o) {
  519. n517=  set %fknonop 1 | set %chan #
  520. n518=  if ($$?="Do you want to ban the non-ops also(y/n)?" == y) { set %fkban 1 }
  521. n519=  gecho 6 $g(12) is now Filtering all 10Non-Ops from:  $+ %chan $+ 
  522. n520=  .enable #filterkick | who #
  523. n521=}
  524. n522=if ($1 == -v) {
  525. n523=  set %fkvoice 1 | set %chan #
  526. n524=  if ($$?="Do you want to ban the voice users also(y/n)?" == y) { set %fkban 1 }
  527. n525=  gecho 6 $g(12) is now Filtering all 10Voiced Users from:  $+ %chan $+ 
  528. n526=  .enable #filterkick | who #
  529. n527=}
  530. n528=if ($1 == -n) {
  531. n529=  set %fknovoice 1 | set %chan #
  532. n530=  if ($$?="Do you want to ban the non-voice users also(y/n)?" == y) { set %fkban 1 }
  533. n531=  gecho 6 $g(12) is now Filtering all 10Non-Voiced Users from:  $+ %chan $+ 
  534. n532=  .enable #filterkick | who #
  535. n533=}
  536. n534=if ($1 == -r) {
  537. n535=  set %fkircop 1 | set %chan #
  538. n536=  if ($$?="Do you want to ban the IRCops also(y/n)?" == y) { set %fkban 1 }
  539. n537=  gecho 6 $g(12) is now Filtering all 10IRCops from:  $+ %chan $+ 
  540. n538=  .enable #filterkick | who #
  541. n539=}
  542. n540=if ($1 == -g) {
  543. n541=  set %fkaway 1 | set %chan #
  544. n542=  if ($$?="Do you want to ban the Away Users also(y/n)?" == y) { set %fkban 1 }
  545. n543=  gecho 6 $g(12) is now Filtering all 10Away Users from:  $+ %chan $+ 
  546. n544=  .enable #filterkick | who #
  547. n545=}
  548. n546=if ($1 == -h) {
  549. n547=  set %fkhere 1 | set %chan #
  550. n548=  if ($$?="Do you want to ban the Present users also(y/n)?" == y) { set %fkban 1 }
  551. n549=  gecho 6 $g(12) is now Filtering all 10Present Users from:  $+ %chan $+ 
  552. n550=  .enable #filterkick | who #
  553. n551=}
  554. n552=}
  555. n553=sban { set %tmp $mask($address($1,0),1) | %tmp1 = $replace($replace($replace($replace($replace($replace($replace(%tmp,a,?)%tmp,e,?)%tmp,i,?)%tmp,o,*)%tmp,u,?)%tmp,0,?)%tmp,8,?) | mode # +b %tmp1 | kick $chan $$1 $g Screw Ban Kick | halt }
  556. n554=ejc {
  557. n555=set %prefchans $$?="Set Channels Separated by a Comma:"
  558. n556=/writeini %ini General PrefChan %prefchans
  559. n557=}
  560. n558=/vn  {
  561. n559=%vnick = 0 | %vnicks = $vnick(0,#)
  562. n560=if (%vnicks == 0) { echo 5 There are no People with 4,1VOICE on # | halt }
  563. n561=if (%vnicks > 0) { echo 1 -> Voices on # $+ :Voices: $+ # $+ : *1 }
  564. n562=:next
  565. n563=inc %vnick 1
  566. n564=if (%vnick > %vnicks) { goto end }
  567. n565=:msg
  568. n566=raw -q notice $vnick(%vnick,#) :Voices: *1
  569. n567=goto next
  570. n568=:end
  571. n569=halt
  572. n570=}
  573. n571=/non {
  574. n572=%nonick = 0 | %nonicks = $nopnick(0,#)
  575. n573=if (%nonicks == 0) { echo 5 There are no People without 4,1OPS on # | halt }
  576. n574=if (%onicks > 0) { echo 1 -> Non-Ops on # $+ :Non-Ops: $+ # $+ : *1 }
  577. n575=:next
  578. n576=inc %nonick 1
  579. n577=if (%nonick > %nonicks) { goto end }
  580. n578=:msg
  581. n579=raw -q notice $nopnick(%nonick,#) :Non-Ops: *1
  582. n580=goto next
  583. n581=:end
  584. n582=halt
  585. n583=}
  586. n584=pig {
  587. n585=%pig = "" | %i = 0 | :nw | inc %i | if (%i > $gettok(*1,0,32)) { say %pig | halt }
  588. n586=%thisword = $gettok(*1,%i,32) | if ($len(%thisword) = 1) { %pig = %pig %thisword | goto nw }
  589. n587=%len = $len(%thisword) | %len = %len - 1 | %flet = $left(1,%thisword) | %rest = $right(%len,%thisword)
  590. n588=%thisword = %rest $+ %flet $+ ay | %pig = %pig %thisword
  591. n589=goto nw
  592. n590=}
  593. n591=back say $backward(*1)
  594. n592=backa me $backward(*1)
  595. n593=backward {
  596. n594=%backtext = "" | if ($1 = -d) { %text = *2 } | else { %text = *1 } | %i = $len(%text) + 1 | :next | dec %i 1
  597. n595=if (%i = 0) { 
  598. n596=  if ($1 = -d) { return %backtext | halt } 
  599. n597=  else { return %backtext | halt } 
  600. n598=}
  601. n599=if ($asc($mid(%i,1,%text)) = 32) { %backtext = %backtext $+ á | goto next }
  602. n600=%backtext = %backtext $+ $mid(%i,1,%text) | goto next
  603. n601=}
  604. n602=bw {
  605. n603=%final = "" | %text = $replace(*1,$chr(32),$chr(1)) | %i = 0 | :next | inc %i | if (%i > $len(*1)) { say $replace(%final,$chr(1),$chr(32)) | halt }
  606. n604=%final = %final $+ $rbu($mid(%i,1,%text)) | goto next
  607. n605=}
  608. n606=rbu %rand =  | %upper = $rand(1,2) | if (%upper = 1) { %let = $upper($1) } | else { %let = $1 } | %bold = $rand(1,2) | %underline = $rand(1,2) | %reverse = $rand(1,2) | if (%bold = 1) { %rand = $remove(%rand,) } | if (%underline = 1) { %rand = $remove(%rand,) } | if (%reverse = 1) { %rand = $remove(%rand,) } | if (%rand = $null) { goto doit } | %let = %rand $+ %let $+ %rand | :doit | return %let
  609. n607=dn set %dn $$?="Enter Your DEFAULT Nick:" | writeini %ini General Nickname %dn | gecho 6 $g 12Default Nickname Changed to: 4 $+ %dn | unset %dn
  610. n608=wcheck {
  611. n609=if ($readini $mIRCdirtext\friend.lst $address(%wnick,3) friend == $null) { set %wmode No | set %wchans Access to Friends List }
  612. n610=if ($readini $mIRCdirtext\friend.lst $address(%wnick,3) friend != $null) {
  613. n611=  if ($readini $mIRCdirtext\friend.lst $address(%wnick,3) modes == +o) {
  614. n612=    set %wmode Auto-Op
  615. n613=    set %wchans on $readini $mIRCdirtext\friend.lst $address(%wnick,3) chanz
  616. n614=    if ($readini $mIRCdirtext\friend.lst $address(%wnick,3) chanz == *) { set %wchans on All Channels }
  617. n615=    else { set %wchans on $readini $mIRCdirtext\friend.lst $address(%wnick,3) chanz }
  618. n616=    goto end
  619. n617=  }
  620. n618=  if ($readini $mIRCdirtext\friend.lst $address(%wnick,3) modes == +v) {
  621. n619=    set %wmode Auto-Voice
  622. n620=    set %wchans on $readini $mIRCdirtext\friend.lst $address(%wnick,3) chanz
  623. n621=    if ($readini $mIRCdirtext\friend.lst $address(%wnick,3) chanz == *) { set %wchans on All Channels }
  624. n622=    else { set %wchans on $readini $mIRCdirtext\friend.lst $address(%wnick,3) chanz }
  625. n623=    goto end 
  626. n624=  }
  627. n625=  else { goto end }
  628. n626=  :end
  629. n627=}
  630. n628=}
  631. n629=loadsys { .load -v $mircdirsystem\var.ini | .load -a $mircdirsystem\aliases.ini | .load -p $mircdirsystem\popups.ini | .load -u $mircdirsystem\users.ini | .load -c $mircdirsystem\commands.ini | .load -e $mircdirsystem\events.ini | .load -r $mircdirsystem\raw.ini | gecho 10 $g(12) System Files Loaded. }
  632. n630=backup { .save -v $mircdirbackup\var.ini | .save -a $mircdirbackup\aliases.ini | .save -p $mircdirbackup\popups.ini | .save -u $mircdirbackup\users.ini | .save -c $mircdirbackup\commands.ini | .save -e $mircdirbackup\events.ini | .save -r $mircdirbackup\raw.ini | gecho 10 $g(12) System Files Backed Up. }
  633. n631=backload { .load -v $mircdirbackup\var.ini | .load -a $mircdirbackup\aliases.ini | .load -p $mircdirbackup\popups.ini | .load -u $mircdirbackup\users.ini | .load -c $mircdirbackup\commands.ini | .load -e $mircdirbackup\events.ini | .load -r $mircdirbackup\raw.ini | gecho 10 $g(12) Backup Files Loaded. }
  634.