home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / blenkbot.exe / AUTOALIS.INI < prev    next >
INI File  |  1997-04-05  |  20KB  |  478 lines
  1. [Aliases]
  2. n0=msgchan { 
  3. n1=  if # == $null { return $active } | else { return # }
  4. n2=}
  5. n3=/dj /nextpet w:\txt\time $+ $1 $+ .txt  0 . $msgchan(0) $2 
  6. n4=/timepetnew set %timepet_file | remove w:\txt\timer.txt | set %petfile_out  w:\txt\timer.txt 
  7. n5=/timepetoff set %petfile_out 
  8. n6=/petfile {
  9. n7=  set %petfile_dfile $$1
  10. n8=  set %petfile_lines $lines($$1)
  11. n9=  set %petfile_n 0
  12. n10=  if $2 == $null { set %petfile_col 1 } | else { set %petfile_col $2 } 
  13. n11=}
  14. n12=/nextpet {
  15. n13=  set %petfile_n $2 
  16. n14=  set %petfile_lol $3 
  17. n15=  if %petfile_lol == . { set %petfile_lol $lines($1) } 
  18. n16=  if %petfile_n == $null { set %petfile_n 0 } 
  19. n17=  inc %petfile_n 1 
  20. n18=  if %petfile_n > %petfile_lol  { 
  21. n19=    if $5  == $null { return }  
  22. n20=    set %petfile_n 1 
  23. n21=    echo -s restarting $1  line 1
  24. n22=  } 
  25. n23=  set %petfile_line $read -l $+ %petfile_n $1 
  26. n24=  set %petfile_secs $token(1,32,%petfile_line)
  27. n25=  set %petfile_method $token(2,32,%petfile_line)
  28. n26=  if %petfile_method == autosound { 
  29. n27=    set %petfile_wav $token(3,32,%petfile_line)
  30. n28=    set %petfile_rest $gettok(%petfile_line,2,20)
  31. n29=    if %petfile_rest == $null { set %petfile_rest 12 $+ $lof($xxfindfile($wavedir,%petfile_wav)) 1bytes } 
  32. n30=    /ssb $4  %petfile_wav A $+ 3  %petfile_secs $+ 1 $+ sDelay %petfile_rest 
  33. n31=  }
  34. n32=  /.timer 1 %petfile_secs /nextpet  $1 %petfile_n %petfile_lol $4  $5 
  35. n33=}
  36. n34=/tsetpet {
  37. n35=  inc %petfile_n 1 
  38. n36=  if %petfile_n > %petfile_lines { return } 
  39. n37=  set %petfile_line $read -l $+ %petfile_n %petfile_dfile
  40. n38=  set %petfile_wav $token(%petfile_col,32,%petfile_line)
  41. n39=  /timepet  %petfile_wav
  42. n40=} 
  43. n41=/timepet /timepetbase  # $$1.wav
  44. n42=/timepetbase {
  45. n43=  if %petfile_out != $null {
  46. n44=    set %timepet_ttime $ctime 
  47. n45=    set %timepet_dtime %timepet_ttime - %timepet_ltime
  48. n46=    write %petfile_out %timepet_dtime autosound %timepet_file  $chr(20) $+ %timepet_rest 
  49. n47=    echo -s file %petfile_out %timepet_dtime %timepet_file  
  50. n48=  }
  51. n49=  set %timepet_file $2  
  52. n50=  set %timepet_rest *3  
  53. n51=  set %timepet_ltime %timepet_ttime
  54. n52=  /ssb  $1 %timepet_file *3
  55. n53=}
  56. n54=/f7 say Random Cate:: $read g:\mircgen\quit.txt
  57. n55=/d /dde serve on | /run g:\wave241\wave241.exe
  58. n56=/block {
  59. n57=  %num = 1 | unset %msg  | %msg = 8,1 | %color = p
  60. n58=  :start
  61. n59=  if %color == p { %num2 = 1 | %num3 = 8 | %color = y | goto add }
  62. n60=  if %color == y  { %num2 = 8 | %num3 = 1 | %color = p | goto add }
  63. n61=  :add
  64. n62=  if $mid(%num, 1, *1) != $null {
  65. n63=    if $mid(%num,1,*1) == $chr(32) { 
  66. n64=      %msg = %msg $+   $+ %num2 $+ , $+  %num3 $+  $chr(32) $+ 
  67. n65=      inc %num
  68. n66=      goto start
  69. n67=    }
  70. n68=    else { %msg = %msg $+ $mid(%num,1,*1)
  71. n69=      inc %num 
  72. n70=      goto add
  73. n71=    }
  74. n72=  }
  75. n73=  say %msg
  76. n74=}
  77. n75=/f2 /who *sunline.net
  78. n76=/rc /msg $$1 dccs $get(0) $send(0)
  79. n77=/sw /sound #wavaddiction $$1.wav Get !huck $$1.wav
  80. n78=/cyberhug /sound # cyberhug.wav 4(((((13 $+ $$1 $+ 4)))))
  81. n79=/smile /say  :)
  82. n80=/go1 /awave_unskip #wavaddiction 
  83. n81=/stop1 /awave_skip #wavaddiction 
  84. n82=/colorgreet /say 14,1 $$1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1
  85. n83=/colorlist say 1 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15
  86. n84=/inin {
  87. n85=  /.msg w@channels2.undernet.org login #mainesbest fuckHUCK
  88. n86=  /.msg w@channels2.undernet.org login #maine Random
  89. n87=  /.msg w@channels2.undernet.org login #maine1 fuckHUCK
  90. n88=  /.msg w@channels2.undernet.org login #maineloons fuckHUCK
  91. n89=  /.msg w@channels2.undernet.org login #maineone Random97
  92. n90=}
  93. n91=/cg /say 14,1 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1 4<-.╕╕.╖┤`╖.╕╕.-> 14 $1
  94. n92=/snowf2 /me 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 13,1 $$1 4,1<-15,1.╕╕.╖┤`╖.╕╕.4,1-> 
  95. n93=/as1 /timer 0 450 /awave_samp_on #wavaddiction 30 | /timer 0 1500 /awave_more 
  96. n94=/dds /ds # $$1
  97. n95=/soundplay {
  98. n96=  /set %sndnamelof $lof($$2)
  99. n97=  /set %sndname $$nopath($$2)
  100. n98=  if # == $null { set %ss_chan $active } | else { set %ss_chan # }
  101. n99=  /timepetbase $$1  %sndname 10 $+ %sndnamelof $+ 1 Bytes 
  102. n100=}
  103. n101=/mm /splay $$1.wav
  104. n102=/ds /deepsend $$1 w:\ $+ $$2 $+ .wav 
  105. n103=/f8 {
  106. n104=  /set %wavdir w:\
  107. n105=  /set %wavlist fullplay.k
  108. n106=  /set %wavpath %wavdir $+ %wavlist 
  109. n107=  /set %wavlast $read  %wavpath
  110. n108=  /set %wavfile $token(2,32,%wavlast) $+ .wav 
  111. n109=  /set %wavbytes $token(4,32,%wavlast)
  112. n110=  /sound # %wavfile At  Random  %wavbytes bytes Get it with13 !Huck %wavfile 
  113. n111=}
  114. n112=/f9  /sound # %wavfile At Random %wavbytes bytes Get it with 12 !Huck %wavfile
  115. n113=xxfindfile { 
  116. n114=  /set %xxff $findfile($$1,$$2,1) 
  117. n115=  if (%xxff == $null )  { /return $$1 $+ $$2 }
  118. n116=  return %xxff
  119. n117=}
  120. n118=/deepsend /set %deepsend_find $xxfindfile($nofile($$2),$nopath($$2)) | echo On: $$2 Sending %deepsend_find  to $$1 | /dcc send $$1 %deepsend_find 
  121. n119=/deepfind /set %deepfind_file $$1 $+ .wav | /set %deepsend_find $xxfindfile($wavedir,%deepfind_file ) | echo Found : %deepsend_find 
  122. n120=/xx /set %deepsend_find $xxfindfile($nofile($$2),$nopath($$2)) | echo On: $$2 Sending %deepsend_find  to $$1 | /xx2 /echo -s hmm $xxfindfile($nofile($$1),$nodir($$1))
  123. n121=/ss if # == $null { set %ss_chan $active } | else { set %ss_chan # } |   /timepetbase  %ss_chan $$1.wav 
  124. n122=/ssb /sound $$1  $$2 *3 5 $+ Get it with $+ 13 !Huck $$2
  125. n123=; ***************** awave *****************
  126. n124=/awave_samp_on /awave_unskip $$1 | /timer 1 $$2 /awave_skip $$1 
  127. n125=/awave_more /inc %a_wave_max | /awave_show_max | /nextsound  
  128. n126=/awave_less /dec %a_wave_max | /awave_show_max 
  129. n127=/awave_show_max /echo 5 -s Awav max is now %a_wave_max 
  130. n128=/awave_show_nick {
  131. n129=  /awave_show_list [ [ $cheap_arr(a_wave_q,$$1) ] ] $$1 
  132. n130=}
  133. n131=/awave_show_item {
  134. n132=  /awave_data a_wave_show $$1
  135. n133=  /echo 5 -s a: %a_wave_show_active id %a_wave_show_uthis  $asctime(%a_wave_show_time) /msg %a_wave_show_chan ! $+ %a_wave_show_nick %a_wave_show_name
  136. n134=}
  137. n135=/awave_show_now  /awave_show_list %a_wave_now active-list
  138. n136=/awave_show_all  /awave_show_list %a_wave_ulist total-list
  139. n137=/awave_show_list {
  140. n138=  /echo 5 -s Title $2
  141. n139=  /set %a_wave_list_n 1
  142. n140=  :in
  143. n141=  /inc %a_wave_list_n
  144. n142=  /set %a_wave_list_u $gettok($1,%a_wave_list_n,20)
  145. n143=  /if ( $null == %a_wave_list_u ) { /return }
  146. n144=  /awave_show_item %a_wave_list_u
  147. n145=  goto in
  148. n146=}
  149. n147=/awave_rebuild_all {
  150. n148=  /set %a_wave_list_n 1
  151. n149=  /set %a_wave_names x 
  152. n150=  :in
  153. n151=  /inc %a_wave_list_n
  154. n152=  /set %a_wave_list_u $gettok(%a_wave_ulist,%a_wave_list_n,20)
  155. n153=  /if ( $null == %a_wave_list_u ) { /return }
  156. n154=  /awave_data a_wave_rebuild %a_wave_list_u 
  157. n155=  /set %a_wave_names $addtok(%a_wave_names,%a_wave_rebuild_name,20)
  158. n156=  /awave_show_item %a_wave_list_u
  159. n157=  goto in
  160. n158=}
  161. n159=mychan {
  162. n160=  if ( $chan == $null ) { /return $nick }
  163. n161=  /return $chan
  164. n162=}   
  165. n163=/mainget {
  166. n164=  rem  /echo 3 -s maineget $chan $nick $filename
  167. n165=  /if ( $chan == $null ) { /set %a_wave_from_chan $nick }
  168. n166=  else { /set %a_wave_from_chan $chan }
  169. n167=  rem  /echo 3 -s getsound %a_wave_from_chan $nick $filename
  170. n168=  /set %a_wave_skipthis $findtok(%a_wave_skip,%a_wave_from_chan,20)
  171. n169=  /if ( $null != %a_wave_skipthis )  { 
  172. n170=    /echo 4 -s Skipped  c 14 /getsound  7 %a_wave_from_chan 1 $nick 13 $filename  
  173. n171=  }
  174. n172=  else { 
  175. n173=    /set %a_wave_skipthis $findtok(%a_wave_skip,$nick,20)
  176. n174=    /if ( $null != %a_wave_skipthis )  { 
  177. n175=      /echo 4 -s Skipped User %a_wave_from_chan  7 $nick 1 $filename  
  178. n176=    }
  179. n177=    else { 
  180. n178=      /getsound %a_wave_from_chan $nick $filename
  181. n179=    }
  182. n180=  }
  183. n181=} 
  184. n182=/awave_clear { 
  185. n183=  /echo 4 -s Clearing $$1 
  186. n184=  /awave_data a_wave_cl $$1
  187. n185=  /echo 3 -s    .....  %a_wave_cl_uthis wave %a_wave_cl_name from %a_wave_cl_nick
  188. n186=  /if ( $null != $findtok(%a_wave_now,$1,20) ) {
  189. n187=    /dec %a_wave_n
  190. n188=    /set %a_wave_now $remtok(%a_wave_now,$1,20) 
  191. n189=  }
  192. n190=  /set %a_wave_cl_ix $findtok(%a_wave_ulist,$1,20)
  193. n191=  /if %a_wave_cl_ix != $null {
  194. n192=    /set %a_wave_cl_qn  $cheap_arr(a_wave_q,%a_wave_cl_nick) 
  195. n193=    /set %a_wave_cl_q  [ [ %a_wave_cl_qn ] ]  
  196. n194=    /set %a_wave_cl_q2 $remtok(%a_wave_cl_q,$1,20)
  197. n195=    /if (%a_wave_cl_nick != $null ) {
  198. n196=      /set $cheap_arr(a_wave_q,%a_wave_cl_nick) %a_wave_cl_q2
  199. n197=    }
  200. n198=    /set %a_wave_cl_name $gettok(%a_wave_names,%a_wave_cl_ix,20) 
  201. n199=    /set %a_wave_ulist $remtok(%a_wave_ulist,$$1,20)
  202. n200=    /set %a_wave_names $remtok(%a_wave_names,%a_wave_cl_name,20)
  203. n201=    /unset $cheap_arrs(a_wave_l,$$1)
  204. n202=    /if ( %a_wave_n < 0 ) { /set %a_wave_n 0 }
  205. n203=    /if ( $2 == $null ) { /nextsound }
  206. n204=  } 
  207. n205=  else { 
  208. n206=  /echo Unum $$1 not found }
  209. n207=}
  210. n208=/nextsound {
  211. n209=  /echo 3 -s  nextsound %a_wave_n %a_wave_max  .. 
  212. n210=  /set %a_wave_n 0 + %a_wave_n
  213. n211=  /set %a_wave_max 0 + %a_wave_max
  214. n212=  /if ( %a_wave_n  > %a_wave_max  ) { /echo 4 -s Max Reqeustd }
  215. n213=  else {
  216. n214=    /set %a_wave_find_ct 0 
  217. n215=    :next
  218. n216=    /inc %a_wave_find_ct 
  219. n217=    /awave_next_nick
  220. n218=    /if ( %a_wave_next_ok != 1) {  goto nono }
  221. n219=    /if ( %a_wave_next_active == 0 ) { goto gotwav }
  222. n220=    :nono
  223. n221=    /echo 4 -s  no wav found
  224. n222=    /return 
  225. n223=    :gotwav
  226. n224=    rem     /echo 3 -s gotwav %a_wave_next_uthis
  227. n225=    /if ( %a_wave_next_nick != %a_wave_next_chan  ) {
  228. n226=      /if ( %a_wave_next_nick  ison %a_wave_next_chan ) { 
  229. n227=        /awave_next_get
  230. n228=        /return 
  231. n229=      }
  232. n230=      else {
  233. n231=        /echo 4 -s %a_wave_next_nick has left %a_wave_next_chan 
  234. n232=      }
  235. n233=    }
  236. n234=    else {
  237. n235=      /awave_next_get
  238. n236=      /return 
  239. n237=    }
  240. n238=    :skip
  241. n239=    /echo 4 -s Clear dut to skip 
  242. n240=    /awave_clear %a_wave_next_uthis
  243. n241=  }
  244. n242=}
  245. n243=/awave_next_get {
  246. n244=  /echo 3 -s getting .... %a_wave_next_uthis
  247. n245=  /set $cheap_arr3(a_wave_l,%a_wave_next_uthis,active) 1
  248. n246=  /set $cheap_arr3(a_wave_q,%a_wave_next_nick,get) %a_wave_next_uthis
  249. n247=  /set %a_wave_msg_nick [ [ $cheap_arr(a_wave_rename,%a_wave_next_nick) ] ] 
  250. n248=  /if ( $null ==  %a_wave_msg_nick ) { /set %a_wave_msg_nick %a_wave_next_nick }
  251. n249=  /set %a_wave_msg_line  %a_wave_next_chan ! $+ %a_wave_next_nick %a_wave_next_name 
  252. n250=  /echo 4 -s msg  13 %a_wave_next_chan 7 ! $+ %a_wave_msg_nick 1 %a_wave_next_name 
  253. n251=  /msg %a_wave_next_chan ! $+ %a_wave_msg_nick %a_wave_next_name   13 Thnx 
  254. n252=  /inc %a_wave_n
  255. n253=  /set %a_wave_now $addtok(%a_wave_now,%a_wave_next_uthis,20)
  256. n254=}
  257. n255=cheap_arr {  return  % $+ $1 $+ _ $+ $2 }
  258. n256=cheap_arrs {  return  % $+ $1 $+ _ $+ $2 $+ * }
  259. n257=cheap_arr3 {  return  % $+ $1 $+ _ $+ $2 $+ _ $+  $3 }
  260. n258=/clearsound {
  261. n259=  /echo Clearing AWAVE 
  262. n260=  /set %a_wave0 %a_wave_skip
  263. n261=  /unset %a_wave_* 
  264. n262=  set %a_wave_n 0 
  265. n263=  /set %a_wave_names x 
  266. n264=  /set %a_wave_ulist x 
  267. n265=  /set %a_wave_cir x 
  268. n266=  /set %a_wave_unique 0 
  269. n267=  /set %a_wave_nicks x 
  270. n268=  /set %a_wave_max 1 
  271. n269=  /set %a_wave_wanted 1 
  272. n270=  /set %a_wave_now x 
  273. n271=  /if ( %a_wave0 == $null ) {
  274. n272=    /set %a_wave_skip x
  275. n273=  }
  276. n274=  else {
  277. n275=    /set %a_wave_skip %a_wave0
  278. n276=  }
  279. n277=}
  280. n278=/awave_skip {
  281. n279=  /set %a_wave_skip $addtok(%a_wave_skip,$$1,20)
  282. n280=}
  283. n281=/awave_unskip {
  284. n282=  /set %a_wave_skip $remtok(%a_wave_skip,$$1,20)
  285. n283=}
  286. n284=/donewav {
  287. n285=  /echo 4 -s Donewave on $$1
  288. n286=  /set %a_wave_done_name $nopath($$1)
  289. n287=  /set %a_wave_done_ix $findtok(%a_wave_names,%a_wave_done_name,20)
  290. n288=  /if ( %a_wave_done_ix != $null ) { /awave_clear $gettok(%a_wave_ulist,%a_wave_done_ix,20) }
  291. n289=  else { /echo lost %a_wave_done_name }
  292. n290=}
  293. n291=/awave_newq /set %a_wave_cir x
  294. n292=/awave_addq /set %a_wave_cir $addtok(%a_wave_cir,$$1,20)
  295. n293=/getsound {
  296. n294=  /inc %a_wave_unique
  297. n295=  /if ( %a_wave_wanted != 1 ) { /echo wavskip | /return }
  298. n296=  rem  /echo chan $$1 nick $$2 wav $$3
  299. n297=  if $findtok(%a_wave_names,$3,20) == $null {
  300. n298=    /set %a_wave_uthis %a_wave_unique 
  301. n299=    rem    /echo 4 -s %a_wave_uthis
  302. n300=    /set %a_wave_names $addtok(%a_wave_names,$3,20) 
  303. n301=    /set %a_wave_ulist  $addtok(%a_wave_ulist,%a_wave_uthis,20)
  304. n302=    /if ( $null == %a_wave_cir) { /set %a_wave_cir x }
  305. n303=    /set %a_wave_cir $addtok(%a_wave_cir,$2,20)
  306. n304=    /set $cheap_arr3(a_wave_l,%a_wave_uthis,name) $3 
  307. n305=    /set $cheap_arr3(a_wave_l,%a_wave_uthis,nick) $2
  308. n306=    /set $cheap_arr3(a_wave_l,%a_wave_uthis,chan) $1
  309. n307=    /set $cheap_arr3(a_wave_l,%a_wave_uthis,active) 0
  310. n308=    /set $cheap_arr3(a_wave_l,%a_wave_uthis,time) $ctime
  311. n309=    /set $cheap_arr3(a_wave_l,%a_wave_uthis,rtime) $ctime
  312. n310=    /set %a_wave_q1 [ [ $cheap_arr(a_wave_q,$2) ] ]
  313. n311=    if ( %a_wave_q1 == $null ) { /set %a_wave_q1 x }
  314. n312=    /set $cheap_arr(a_wave_q,$2) $addtok(%a_wave_q1,%a_wave_uthis,20)
  315. n313=    /echo 4 -s Added 13 $3 4 from $2 on $1 as %a_wave_uthis
  316. n314=    /nextsound
  317. n315=  }
  318. n316=  else { /echo $3 already requested }
  319. n317=}
  320. n318=/awave_data {
  321. n319=  /set $cheap_arr($$1,name)   [  [ $cheap_arr3(a_wave_l,$$2,name) ] ] 
  322. n320=  /set $cheap_arr($$1,nick)     [ [ $cheap_arr3(a_wave_l,$$2,nick) ] ] 
  323. n321=  /set $cheap_arr($$1,chan)  [ [ $cheap_arr3(a_wave_l,$$2,chan) ] ] 
  324. n322=  /set $cheap_arr($$1,active) [ [ $cheap_arr3(a_wave_l,$$2,active) ] ] 
  325. n323=  /set $cheap_arr($$1,time) [ [ $cheap_arr3(a_wave_l,$$2,time) ] ] 
  326. n324=  /set $cheap_arr($$1,rtime) [ [ $cheap_arr3(a_wave_l,$$2,rtime) ] ] 
  327. n325=  /set $cheap_arr($$1,uthis) $$2 
  328. n326=}
  329. n327=/awave_r { 
  330. n328=  /set $cheap_arr3(a_wave_l,$1,active) $2
  331. n329=  /awave_data a_wave_done $$1
  332. n330=  /echo  .................Is  %a_wave_done_active  
  333. n331=}
  334. n332=/awave_remq {
  335. n333=  /echo Removeing q $$1 
  336. n334=  /set %a_wave_cir $remtok(%a_wave_cir,$$1,20)
  337. n335=  /unset $cheap_arrs(a_wave_q,$$1)
  338. n336=}
  339. n337=/awave_next_nick0 {
  340. n338=  /set %a_wave_next_ok 0 
  341. n339=  /set %a_wave_next_nick0 $gettok(%a_wave_cir,2,20)
  342. n340=  /set %a_wave_next_nick %a_wave_next_nick0
  343. n341=  /set %a_wave_cir $addtok($remtok(%a_wave_cir,%a_wave_next_nick,20),%a_wave_next_nick,20)
  344. n342=  /set %a_wave_next_q [ [ $cheap_arr(a_wave_q,%a_wave_next_nick) ] ] 
  345. n343=  /set %a_wave_next_ix $gettok(%a_wave_next_q,2,20)
  346. n344=  /if ( $null == %a_wave_next_ix ) { /echo 4 -s Queue %a_wave_next_nick enpty | /awave_remq %a_wave_next_nick | /return } 
  347. n345=  /set %a_wave_next_q $addtok($remtok(%a_wave_next_q,%a_wave_next_ix,20),%a_wave_next_ix,20)
  348. n346=  rem /set $cheap_arr(a_wave_q,%a_wave_next_nick)  %a_wave_next_q 
  349. n347=  /awave_data a_wave_next %a_wave_next_ix 
  350. n348=  /if ( $null != %a_wave_next_time ) { 
  351. n349=    /echo 6 -s  Next Ix is %a_wave_next_ix   active %a_wave_next_active /msg  %a_wave_next_chan ! $+ %a_wave_next_nick %a_wave_next_name
  352. n350=    /set %a_wave_next_ok 1 
  353. n351=  }
  354. n352=  else {
  355. n353=    /set %a_wave_next_q $remtok(%a_wave_next_q,%a_wave_next_ix,20)
  356. n354=    /set $cheap_arr(a_wave_q,%a_wave_next_nick0)  %a_wave_next_q 
  357. n355=  }
  358. n356=}
  359. n357=/awave_next_nick { 
  360. n358=  /set %a_wave_next_loopa 0 
  361. n359=  :inin
  362. n360=  /inc %a_wave_next_loopa
  363. n361=  /if ( %a_wave_next_loopa > 22 ) { /echo 4 -s No pull | /return }
  364. n362=  /awave_next_nick0
  365. n363=  /if ( %a_wave_next_loopa  ==  1 ) {
  366. n364=    /set %a_wave_next_nick1 %a_wave_next_nick 
  367. n365=  } 
  368. n366=  else {
  369. n367=    /if ( %a_wave_next_nick1 == %a_wave_next_nick ) { /echo 4 -s No pill2 | /return }  
  370. n368=  }
  371. n369=  /if ( %a_wave_next_ok  != 1 ) { goto inin }
  372. n370=  /if ( %a_wave_next_active  != 0  ) { goto inin }
  373. n371=  /set %a_wave_skipthis $findtok(%a_wave_skip,%a_wave_next_nick,20)
  374. n372=  /if ( $null != %a_wave_skipthis )  { 
  375. n373=    /echo 4 -s Skipped User %a_wave_next_chan  %a_wave_next_nick %a_wave_next_name  
  376. n374=    /awave_clear %a_wave_next_uthis  nonextsound 
  377. n375=    /goto inin 
  378. n376=  }
  379. n377=}
  380. n378=/awave_show_qs {
  381. n379=  /set %a_wave_list_nn 1
  382. n380=  :inin
  383. n381=  /inc %a_wave_list_nn
  384. n382=  /set %a_wave_list_nick $gettok(%a_wave_cir,%a_wave_list_nn,20)
  385. n383=  /if ( $null != %a_wave_list_nick ) { 
  386. n384=    /echo 1 -s Queue %a_wave_list_nn %a_wave_list_nick [ [ $cheap_arr(a_wave_q,%a_wave_list_nick) ] ] 
  387. n385=    /awave_show_nick %a_wave_list_nick 
  388. n386=    goto inin
  389. n387=  }
  390. n388=}
  391. n389=/get_add { 
  392. n390=  /set %get_add_n 0 
  393. n391=  /set %get_add_ct 0 
  394. n392=  :inin
  395. n393=  /inc %get_add_n
  396. n394=  /if ( %get_add_n > $get(0) ) {
  397. n395=    /dec %get_add_n
  398. n396=    /echo -s Total get_ %get_add_ct %get_add_n
  399. n397=    /return
  400. n398=  }
  401. n399=  /set %get_add_ct %get_add_ct + $get(%get_add_n).cps
  402. n400=  goto inin
  403. n401=}
  404. n402=/dcc_add  /send_add | /get_add | /set %dcc_add_ct %send_add_ct + %get_add_ct | /echo -s Total Dcc_ %dcc_add_ct
  405. n403=/send_add { 
  406. n404=  /set %send_add_n 0 
  407. n405=  /set %send_add_ct 0 
  408. n406=  :inin
  409. n407=  /inc %send_add_n
  410. n408=  /if ( %send_add_n > $send(0) ) {
  411. n409=    /dec %send_add_n
  412. n410=    /echo -s Total send %send_add_ct %send_add_n 
  413. n411=    /return
  414. n412=  }
  415. n413=  /set %send_add_ct %send_add_ct + $send(%send_add_n).cps
  416. n414=  goto inin
  417. n415=}
  418. n416=;*******************ice************************
  419. n417=/ice { 
  420. n418=  /set %banfrom $3
  421. n419=  if  %banfrom  == $null { /set %banfrom  $me }
  422. n420=  if $$1 == $me || $1 == %banfrom  {
  423. n421=    /notice %banfrom  Wont ice me or you  : $1     
  424. n422=    /return
  425. n423=  }
  426. n424=  echo goodban request on $$1 
  427. n425=  /set %banchan $2 
  428. n426=  if  %banchan  == $null { /set %banchan  # }
  429. n427=  if $$1 ison %banchan  {
  430. n428=    /set %bannick $$1 
  431. n429=    /set %banaddr  $address(%bannick,1)
  432. n430=    /set %banrest $token(2,33,%banaddr)
  433. n431=    /set %banuid $token(1,64,%banrest)
  434. n432=    /set %banip $token(2,64,%banrest)
  435. n433=    /set %banpart $token(1,46,%banip)
  436. n434=    echo nick %bannick uid  %banuid ip %banip  banaddr: %banaddr  banpart %banpart
  437. n435=    if %banpart isnum {
  438. n436=      /set %banpart $token(4,46,%banip)
  439. n437=      /set %banlen $len(%banip) - $len(%banpart)  
  440. n438=      /set %banip2 $left(%banlen,%banip) 
  441. n439=      /set %banfull *! $+ %banuid  $+ @ $+ %banip2 $+ *
  442. n440=    }
  443. n441=    else {
  444. n442=      /set %banlen $len(%banip) - $len(%banpart)  
  445. n443=      /set %banip2 $right(%banlen,%banip) 
  446. n444=      /set %banfull *! $+ %banuid  $+ @* $+ %banip2
  447. n445=    }
  448. n446=    echo banip2 %banip2 %banright final %banfull
  449. n447=    /mode %banchan +b %banfull
  450. n448=    /kick  %banchan %bannick 
  451. n449=} }
  452. n450=;*************** flood ******************
  453. n451=/F12 /ignore -tiu90 *!*@* 
  454. n452=/f11 /silence *!*@*
  455. n453=/f10 /silence -*!*@*
  456. [Raw]
  457. n0=311:*: { echo 4 -a $title Whois: $parm2* | dns $parm2 | halt }
  458. n1=319:*: { echo 4 -a $title Whois: $parm2* | halt }
  459. n2=312:*: { echo 4 -a $title Whois: $parm2* | halt }
  460. n3=317:*: { echo 4 -a $title Whois: $parm2* | halt }
  461. n4=318:*: { echo 4 -a $title End of WhoIs $title | .disable #whois | halt }
  462. n5=#ipcheck disabled
  463. n6=352:* {
  464. n7=  set %nickme $parm6
  465. n8=  set %ipchans $parm2
  466. n9=  echo -a 14[6 $+ %nickme $+ 14] 3@ 14[5 $+ %ipchans $+ 14] 2Is Using Your Ip
  467. n10=  inc %iptotal
  468. n11=  halt
  469. n12=}
  470. n13=315:* {
  471. n14=  echo -a 14[2People On-Line With Same Address14] 14[03 $+ %iptotal $+ 14]
  472. n15=  unset %iptotal
  473. n16=  unset %nickme
  474. n17=  .disable #ipcheck
  475. n18=  halt
  476. n19=}
  477. n20=#ipcheck end
  478.