home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / pmr40.exe / ALIASES.INI next >
INI File  |  1997-03-17  |  30KB  |  420 lines
  1. [Aliases]
  2. n0=/chankick {
  3. n1=  mode $chan -ov+bb $nick $nick $address($nick,2) $address($nick,3) | .timer 1 %punishtimer mode $chan -bb $address($nick,2) $address($nick,3)
  4. n2=  if (%punish == 2) { kick $chan $nick %ver Channel flood detected } | else { msg $chan %ver Initiating silence ban for $nick $+ : channel flood detected }
  5. n3=}
  6. n4=/superopcheck {
  7. n5=  set %levcount 0 | set %lev 0
  8. n6=  :start
  9. n7=  inc %levcount | if ($read -l $+ %levcount $mircdirsettings\ $+ superop.txt == $null) { goto end }
  10. n8=  if ($read -l $+ %levcount $mircdirsettings\ $+ superop.txt == %address) { set %lev %levcount | goto end }
  11. n9=  goto start
  12. n10=  :end
  13. n11=  unset %levcount 
  14. n12=}
  15. n13=/superopcheck2 {
  16. n14=  set %address $address(%nick,3) | superopcheck | if (%lev != 0) { goto end }
  17. n15=  set %address $address(%nick,2) | superopcheck
  18. n16=  :end
  19. n17=  unset %address %nick
  20. n18=}
  21. n19=/voicedcheck {
  22. n20=  set %levcount 0 | set %lev 0
  23. n21=  :start
  24. n22=  inc %levcount | if ($read -l $+ %levcount $mircdirsettings\ $+ voiced.txt == $null) { goto end }
  25. n23=  if ($read -l $+ %levcount $mircdirsettings\ $+ voiced.txt == %address) { set %lev %levcount | goto end }
  26. n24=  goto start
  27. n25=  :end
  28. n26=  unset %levcount 
  29. n27=}
  30. n28=/voicedcheck2 {
  31. n29=  set %address $address(%nick,3) | voicedcheck | if (%lev != 0) { goto end }
  32. n30=  set %address $address(%nick,2) | voicedcheck
  33. n31=  :end
  34. n32=  unset %address %nick
  35. n33=}
  36. n34=/deniedcheck {
  37. n35=  set %levcount 0 | set %lev 0
  38. n36=  :start
  39. n37=  inc %levcount | if ($read -l $+ %levcount $mircdirsettings\ $+ denied.txt == $null) { goto end }
  40. n38=  if ($read -l $+ %levcount $mircdirsettings\ $+ denied.txt == %address) { set %lev %levcount | goto end }
  41. n39=  goto start
  42. n40=  :end
  43. n41=  unset %levcount 
  44. n42=}
  45. n43=/deniedcheck2 {
  46. n44=  set %address $address(%nick,3) | deniedcheck | if (%lev != 0) { goto end }
  47. n45=  set %address $address(%nick,2) | deniedcheck
  48. n46=  :end
  49. n47=  unset %address %nick
  50. n48=}
  51. n49=/shitlistcheck {
  52. n50=  set %levcount 0 | set %lev 0
  53. n51=  :start
  54. n52=  inc %levcount | if ($read -l $+ %levcount $mircdirsettings\ $+ shitlist.txt == $null) { goto end }
  55. n53=  if ($read -l $+ %levcount $mircdirsettings\ $+ shitlist.txt == %address) { set %lev %levcount | goto end }
  56. n54=  goto start
  57. n55=  :end
  58. n56=  unset %levcount
  59. n57=}
  60. n58=/shitlistcheck2 {
  61. n59=  set %address $address(%nick,3) | shitlistcheck | if (%lev != 0) { goto end }
  62. n60=  set %address $address(%nick,2) | shitlistcheck
  63. n61=  :end
  64. n62=  unset %address %nick
  65. n63=}
  66. n64=/offensivenickcheck {
  67. n65=  set %levcount 0 | set %lev 0
  68. n66=  :start
  69. n67=  inc %levcount | set %currentread $read -l $+ %levcount $mircdirsettings\ $+ badnicks.txt
  70. n68=  if (%currentread == $null) { goto end }
  71. n69=  if (%currentread isin %nick) { set %lev %levcount | goto end }
  72. n70=  goto start
  73. n71=  :end
  74. n72=  unset %levcount %nick %currentread
  75. n73=}
  76. n74=/unallowedtextcheck {
  77. n75=  set %levcount 0 | set %lev 0
  78. n76=  :start
  79. n77=  inc %levcount | set %currentread $read -l $+ %levcount $mircdirsettings\ $+ badwords.txt
  80. n78=  if (%currentread == $null) { goto end }
  81. n79=  if (%currentread isin %text) { set %lev %levcount | goto end }
  82. n80=  goto start
  83. n81=  :end
  84. n82=  unset %levcount %text %currentread
  85. n83=}
  86. n84=/adduser {
  87. n85=  set %nick $$1
  88. n86=  if (%nick == $me) || ($address(%nick,2) == $address($me,2)) && ($address(%nick,3) == $address($me,3)) { echo 4 -a %ver You do not have to add yourself, or your clone, to the user list | goto end }
  89. n87=  if ($address(%nick,3) == $null) { echo 4 -a %ver Cannot establish a user address...perform a whois | goto end }
  90. n88=  set %address $address(%nick,3)
  91. n89=  superopcheck | if (%useradd == 1) && (%domainadd == 1) && (%lev != 0) { echo 4 -a %ver %nick is already on the super ops list by Dynamic IP | goto end }
  92. n90=  if (%lev != 0) && (%useradd != 1) { echo 4 -a %ver %nick was removed from the super ops list by Dynamic IP | write -dl $+ %lev $mircdirsettings\ $+ superop.txt }
  93. n91=  voicedcheck | if (%useradd == 2) && (%domainadd == 1) && (%lev != 0) { echo 4 -a %ver %nick is already on the voiced user list by Dynamic IP | goto end }
  94. n92=  if (%lev != 0) && (%useradd != 2) { echo 4 -a %ver %nick was removed from the voiced user list by Dynamic IP | write -dl $+ %lev $mircdirsettings\ $+ voiced.txt }
  95. n93=  deniedcheck | if (%useradd == 3) && (%domainadd == 1) && (%lev != 0) { echo 4 -a %ver %nick is already on the denied user list by Dynamic IP | goto end }
  96. n94=  if (%lev != 0) && (%useradd != 3) { echo 4 -a %ver %nick was removed from the denied ops list by Dynamic IP | write -dl $+ %lev $mircdirsettings\ $+ denied.txt }
  97. n95=  shitlistcheck | if (%useradd == 4) && (%domainadd == 1) && (%lev != 0) { echo 4 -a %ver %nick is already on the shitlist by Dynamic IP | goto end }
  98. n96=  if (%lev != 0) && (%useradd != 4) { echo 4 -a %ver %nick was removed from the shitlist by Dynamic IP | write -dl $+ %lev $mircdirsettings\ $+ shitlist.txt }
  99. n97=  set %address $address(%nick,2)
  100. n98=  superopcheck | if (%useradd == 1) && (%domainadd == 2) && (%lev != 0) { echo 4 -a %ver %nick is already on the super ops list by Static IP | goto end }
  101. n99=  if (%lev != 0) && (%useradd != 1) { echo 4 -a %ver %nick was removed from the super ops list by Static IP | write -dl $+ %lev $mircdirsettings\ $+ superop.txt }
  102. n100=  voicedcheck | if (%useradd == 2) && (%domainadd == 2) && (%lev != 0) { echo 4 -a %ver %nick is already on the voiced user list by Static IP | goto end }
  103. n101=  if (%lev != 0) && (%useradd != 2) { echo 4 -a %ver %nick was removed from the voiced user list by Static IP | write -dl $+ %lev $mircdirsettings\ $+ voiced.txt }
  104. n102=  deniedcheck | if (%useradd == 3) && (%domainadd == 2) && (%lev != 0) { echo 4 -a %ver %nick is already on the denied ops list by Static IP | goto end }
  105. n103=  if (%lev != 0) && (%useradd != 3) { echo 4 -a %ver %nick was removed from the denied ops list by Static IP | write -dl $+ %lev $mircdirsettings\ $+ denied.txt }
  106. n104=  shitlistcheck | if (%useradd == 4) && (%domainadd == 2) && (%lev != 0) { echo 4 -a %ver %nick is already on the shitlist by Static IP | goto end }
  107. n105=  if (%lev != 0) && (%useradd != 4) { echo 4 -a %ver %nick was removed from the shitlist by Static IP | write -dl $+ %lev $mircdirsettings\ $+ shitlist.txt }
  108. n106=  if (%useradd == 1) && (%domainadd == 1) { write $mircdirsettings\ $+ superop.txt $address(%nick,3) | echo 4 -a %ver %nick was added to the super ops list by Dynamic IP | opnick } 
  109. n107=  if (%useradd == 2) && (%domainadd == 1) { write $mircdirsettings\ $+ voiced.txt $address(%nick,3) | echo 4 -a %ver %nick was added to the voiced user list by Dynamic IP | voicenick } 
  110. n108=  if (%useradd == 3) && (%domainadd == 1) { write $mircdirsettings\ $+ denied.txt $address(%nick,3) | echo 4 -a %ver %nick was added to the denied ops list by Dynamic IP | deopnick } 
  111. n109=  if (%useradd == 4) && (%domainadd == 1) { write $mircdirsettings\ $+ shitlist.txt $address(%nick,3) | echo 4 -a %ver %nick was added to the shitlist by Dynamic IP | remove } 
  112. n110=  if (%useradd == 1) && (%domainadd == 2) { write $mircdirsettings\ $+ superop.txt $address(%nick,2) | echo 4 -a %ver %nick was added to the super ops list by Static IP | opnick } 
  113. n111=  if (%useradd == 2) && (%domainadd == 2) { write $mircdirsettings\ $+ voiced.txt $address(%nick,2) | echo 4 -a %ver %nick was added to the voiced user list by Static IP | voicenick } 
  114. n112=  if (%useradd == 3) && (%domainadd == 2) { write $mircdirsettings\ $+ denied.txt $address(%nick,2) | echo 4 -a %ver %nick was added to the denied ops list by Static IP | deopnick } 
  115. n113=  if (%useradd == 4) && (%domainadd == 2) { write $mircdirsettings\ $+ shitlist.txt $address(%nick,2) | echo 4 -a %ver %nick was added to the shitlist by Static IP | remove } 
  116. n114=  :end
  117. n115=  unset %nick %address %address2 %domainadd %useradd %lev
  118. n116=}
  119. n117=/opnick {
  120. n118=  set %count 0
  121. n119=  :start
  122. n120=  inc %count | if (%count > $chan(0)) { goto end }
  123. n121=  set %curchan $chan(%count) | if (%nick ison %curchan) && ($me isop %curchan) { mode %curchan +o %nick }
  124. n122=  goto start
  125. n123=  :end
  126. n124=  unset %count %curchan %nick
  127. n125=}
  128. n126=/voicenick {
  129. n127=  set %count 0
  130. n128=  :start
  131. n129=  inc %count | if (%count > $chan(0)) { goto end }
  132. n130=  set %curchan $chan(%count) | if (%nick ison %curchan) && ($me isop %curchan) { mode %curchan +v %nick }
  133. n131=  goto start
  134. n132=  :end
  135. n133=  unset %count %curchan %nick
  136. n134=}
  137. n135=/deopnick {
  138. n136=  set %count 0
  139. n137=  :start
  140. n138=  inc %count | if (%count > $chan(0)) { goto end }
  141. n139=  set %curchan $chan(%count) | if (%nick isop %curchan) && ($me isop %curchan) { mode %curchan -o %nick }
  142. n140=  goto start
  143. n141=  :end
  144. n142=  unset %count %curchan %nick
  145. n143=}
  146. n144=/remove {
  147. n145=  set %count 0
  148. n146=  :start
  149. n147=  inc %count | if (%count > $chan(0)) { goto done2 }
  150. n148=  set %curchan $chan(%count) | set %count2 0
  151. n149=  :start2
  152. n150=  inc %count2 | if (%count2 > $nick(0,%curchan)) { goto done }
  153. n151=  set %nick $nick(%count2,%curchan) | if (%nick == $me) { goto start2 }
  154. n152=  set %address2 $address(%nick,2) | if (%address == %address2) { mode %curchan -o+bb %nick $address(%nick,2) $address(%nick,3) | kick %curchan %nick %ver Shitlisted on $date | .timer 1 120 mode %curchan -bb $address(%nick,2) $address(%nick,3) }
  155. n153=  goto start2
  156. n154=  :done
  157. n155=  goto start
  158. n156=  :done2
  159. n157=  unset %count %count2 %curchan %nick %address %address2
  160. n158=}
  161. n159=/nickcheck {
  162. n160=  if (%offensivenick == 0) { goto end }
  163. n161=  set %backup %nick | offensivenickcheck | set %nick %backup | unset %backup
  164. n162=  if (%lev == 0) { goto end }
  165. n163=  set %count 0
  166. n164=  :start
  167. n165=  inc %count | if (%count > $chan(0)) { goto end }
  168. n166=  set %curchan $chan(%count) | if (%nick isop %curchan) && (%immune == 3) { goto start }
  169. n167=  if (%nick ison %curchan) && ($me isop %curchan) { mode %curchan -o+b %nick %nick $+ !*@* | kick %curchan %nick %ver Offensive nick detected -=Perm Nick Ban=- | set %kicked 1 }
  170. n168=  goto start
  171. n169=  :end
  172. n170=  unset %nick %count %curchan %lev
  173. n171=}
  174. n172=/wordcheck {
  175. n173=  if (%unallowedtext == 0) { goto end }
  176. n174=  set %text $parms | unallowedtextcheck | if (%lev == 0) { goto end }
  177. n175=  mode $chan -ov+bb $nick $nick $address($nick,2) $address($nick,3) | .timer 1 30 mode $chan -bb $address($nick,2) $address($nick,3)
  178. n176=  if (%unallowedtext == 2) { kick $chan $nick %ver Unallowed text detected -=Temp Ban=- } | else { msg $chan %ver Initiating silence ban for $nick $+ : Unallowed text detected }
  179. n177=  :end
  180. n178=  unset %lev
  181. n179=}
  182. n180=/enforcemode {
  183. n181=  if (%modeprot == 0) { goto end }
  184. n182=  set %count 0
  185. n183=  :start
  186. n184=  inc %count | if (%count > $chan(0)) { goto end }
  187. n185=  set %curchan $chan(%count) | if ($me !isop %curchan) { goto start }
  188. n186=  set %count2 0
  189. n187=  :start2
  190. n188=  inc %count2 | if (%count2 > $len(%modeplus)) { goto next }
  191. n189=  set %current $mid(%count2,1,%modeplus)
  192. n190=  if (%current == k) && (k isin $chan(%count).mode) { mode %curchan -k $chan(%count).key }
  193. n191=  if (%current == k) { mode %curchan +k %modekey | goto start2 }
  194. n192=  if (%current == l) { mode %curchan +l %modelimit | goto start2 }
  195. n193=  mode %curchan + $+ %current | goto start2
  196. n194=  :next
  197. n195=  set %count2 0
  198. n196=  :start3
  199. n197=  inc %count2 | if (%count2 > $len(%modeminus)) { goto start }
  200. n198=  set %current $mid(%count2,1,%modeminus)
  201. n199=  if (%current == k) { mode %curchan -k $chan(%count).key | goto start3 }
  202. n200=  mode %curchan - $+ %current | goto start3
  203. n201=  :end
  204. n202=  unset %count %count2 %current %curchan
  205. n203=}
  206. n204=/privatekick {
  207. n205=  set %count 0
  208. n206=  :start
  209. n207=  inc %count | if (%count > $chan(0)) { goto end }
  210. n208=  set %curchan $chan(%count)
  211. n209=  if (%nick isop %curchan) && ($me isop %curchan) && (%immune == 3) { goto start }
  212. n210=  if (%nick ison %curchan) && ($me isop %curchan) { mode %curchan -o+bb %nick $address(%nick,2) $address(%nick,3) | kick %curchan %nick %ver %reason | .timer 1 10 mode %curchan -bb $address(%nick,2) $address(%nick,3) }
  213. n211=  goto start
  214. n212=  :end
  215. n213=  unset %count %curchan %nick %reason
  216. n214=}
  217. n215=/awaystart {
  218. n216=  if (%pager == 1) && (%messager == 1) { 
  219. n217=    /ame is away --> %away $+  <-- ñPager is ONñ : ñMSGLog is ONñ %ver
  220. n218=    .away is away --> %away $+  <-- ñPager is ONñ : ñMSGLog is ONñ %ver
  221. n219=  }
  222. n220=  if (%pager == 1) && (%messager == 0) { 
  223. n221=    /ame is away --> %away $+  <-- ñPager is ONñ : ñMSGLog is OFFñ %ver
  224. n222=    .away is away --> %away $+  <-- ñPager is ONñ : ñMSGLog is OFFñ %ver
  225. n223=  }
  226. n224=  if (%pager == 0) && (%messager == 1) { 
  227. n225=    /ame is away --> %away $+  <-- ñPager is OFFñ : ñMSGLog is ONñ %ver
  228. n226=    .away is away --> %away $+  <-- ñPager is OFFñ : ñMSGLog is ONñ %ver
  229. n227=  }
  230. n228=  if (%pager == 0) && (%messager == 0) { 
  231. n229=    /ame is away --> %away $+  <-- ñPager is OFFñ : ñMSGLog is OFFñ %ver
  232. n230=    .away is away --> %away $+  <-- ñPager is OFFñ : ñMSGLog is OFFñ %ver
  233. n231=  }
  234. n232=}
  235. n233=/awaytime {
  236. n234=  set %awaytime2 $ctime - %awaytime
  237. n235=  if (%pager == 1) && (%messager == 1) { 
  238. n236=    /ame is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is ONñ : ñMSGLog is ONñ %ver
  239. n237=    .away is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is ONñ : ñMSGLog is ONñ %ver
  240. n238=  }
  241. n239=  if (%pager == 1) && (%messager == 0) { 
  242. n240=    /ame is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is ONñ : ñMSGLog OFFñ %ver
  243. n241=    .away is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is ONñ : ñMSGLog OFFñ %ver
  244. n242=  }
  245. n243=  if (%pager == 0) && (%messager == 1) { 
  246. n244=    /ame is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is OFFñ : ñMSGLog ONñ %ver
  247. n245=    .away is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is OFFñ : ñMSGLog ONñ %ver
  248. n246=  }
  249. n247=  if (%pager == 0) && (%messager == 0) { 
  250. n248=    /ame is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is OFFñ : ñMSGLog OFFñ %ver
  251. n249=    .away is away (gone for $duration(%awaytime2) $+ ) --> %away $+  <-- ñPager is OFFñ : ñMSGLog OFFñ %ver
  252. n250=  }
  253. n251=}
  254. n252=/awaytitle {
  255. n253=  titlebar You are away -- Pages received: %pages -- Messages logged: %messages [Pr≥tΘótφ≥╤ MASTER v4.0]
  256. n254=}
  257. n255=/idle {
  258. n256=  if ($idle >= %idleaways) && (%idleaway != 0) && (%away == $null) { 
  259. n257=    set %temp %idleaways / 60 | set %away Auto-away; idle time of %temp minutes exceeded | unset %temp | set %awaytime $ctime - %idleaways
  260. n258=    if (%pager == 1) { .enable #away }
  261. n259=    set %pages 0 | set %messages 0 | awaytitle | awaystart
  262. n260=    if (%meaway != $null) { set %oldme $me | nick %meaway | goto next }
  263. n261=    :next
  264. n262=    .timer50 0 %awaytimer awaytime | .timer53 off | .timer52 off
  265. n263=  }
  266. n264=}
  267. n265=/textcheck {
  268. n266=  if (%repflood == 0) { goto next }
  269. n267=  set %parms $strip($parms) | if (%repeat [ $+ [ $nick [ $+ [ $chan ] ] ] ] == %parms) {
  270. n268=    inc %countrepeat [ $+ [ $nick [ $+ [ $chan ] ] ] ]
  271. n269=    if (%countrepeat [ $+ [ $nick [ $+ [ $chan ] ] ] ] == %repfloodl) { 
  272. n270=      unset %repeat [ $+ [ $nick [ $+ [ $chan ] ] ] ] | unset %countrepeat [ $+ [ $nick [ $+ [ $chan ] ] ] ]
  273. n271=      mode $chan -ov+bb $nick $nick $address($nick,2) $address($nick,3) | .timer 1 %punishtimer mode $chan -bb $address($nick,2) $address($nick,3)
  274. n272=      if (%punish == 2) { kick $chan $nick %ver Channel text repeating detected ( $+ %repfloodl repeats in less than %repfloods seconds) } | else { msg $chan %ver Initiating silence ban for $nick $+ : Channel text repeating detected ( $+ %repfloodl repeats in less than %repfloods seconds) }
  275. n273=      goto end
  276. n274=    }
  277. n275=    goto next
  278. n276=  }
  279. n277=  set %repeat [ $+ [ $nick [ $+ [ $chan ] ] ] ] %parms | set %countrepeat [ $+ [ $nick [ $+ [ $chan ] ] ] ] 1 | .timer 1 %repfloods unset %repeat [ $+ [ $nick [ $+ [ $chan ] ] ] ] | .timer 1 %repfloods unset %countrepeat [ $+ [ $nick [ $+ [ $chan ] ] ] ]
  280. n278=  :next
  281. n279=  if ($len($parms) > %lengthfloodl) && (%lengthflood == 1) { 
  282. n280=    mode $chan -ov+bb $nick $nick $address($nick,2) $address($nick,3) | .timer 1 %punishtimer mode $chan -bb $address($nick,2) $address($nick,3)
  283. n281=    if (%punish == 2) { kick $chan $nick %ver Length text flood detected (maximum is %lengthfloodl $+ , that was $len($parms) $+ ) } | else { msg $chan %ver Initiating silence ban for $nick $+ : Length text flood detected (maximum is %lengthfloodl $+ , that was $len($parms) $+ ) }
  284. n282=    goto end
  285. n283=  }
  286. n284=  if ($count($parms,) > %colourfloodl) && (%colourflood == 1) { 
  287. n285=    mode $chan -ov+bb $nick $nick $address($nick,2) $address($nick,3) | .timer 1 %punishtimer mode $chan -bb $address($nick,2) $address($nick,3)
  288. n286=    if (%punish == 2) { kick $chan $nick %ver Colour text flood detected (no more than %colourfloodl colour changes allowed) } | else { msg $chan %ver Initiating silence ban for $nick $+ : Colour text flood detected (no more than %colourfloodl colour changes allowed) }
  289. n287=    goto end
  290. n288=  }
  291. n289=  if (%capsflood == 0) { goto end }
  292. n290=  set -q %length $len($parms) | if (%length < %capsfloodl) { goto end }
  293. n291=  set -q %count 1
  294. n292=  :start
  295. n293=  if (%count > %length) { goto kick }
  296. n294=  if $asc($mid(%count,%length,$parms)) == $asc($upper($mid(%count,%length,$parms))) { inc %count | goto start } | else { goto end }
  297. n295=  :kick
  298. n296=  mode $chan -ov+bb $nick $nick $address($nick,2) $address($nick,3) | .timer 1 %punishtimer mode $chan -bb $address($nick,3) $address($nick,3)
  299. n297=  if (%punish == 2) { kick $chan $nick %ver CAPS or Strange Characters flood detected } | else { msg $chan %ver Initiating silence ban for $nick $+ : CAPS or Strange Characters flood detected }
  300. n298=  :end
  301. n299=  unset %length %count %address %lev %parms
  302. n300=}
  303. n301=/textcheck2 {
  304. n302=  if (%repfloodp == 0) { goto next }
  305. n303=  set %parms $strip($parms)
  306. n304=  if (%repeatpriv [ $+ [ $nick ] ] == %parms) {
  307. n305=    inc %countrepeatpriv [ $+ [ $nick ] ]
  308. n306=    if (%countrepeatpriv [ $+ [ $nick ] ] == %repfloodpl) { 
  309. n307=      unset %repeatpriv [ $+ [ $nick ] ] | unset %countrepeatpriv [ $+ [ $nick ] ]
  310. n308=      ignore -pu30 $nick 3 | echo 4 -a %ver Private repeating flood detected from $nick ( $+ %repfloodpl repeats in less than %repfloodps seconds) -=30 Second Private Ignore=-
  311. n309=      if (%privatekick == 1) { set %reason Private repeating flood detected ( $+ %repfloodpl repeats in less than %repfloodps seconds) -=Temp Ban=- | set %nick $nick | privatekick }
  312. n310=      goto end
  313. n311=    }
  314. n312=    goto next
  315. n313=  }
  316. n314=  set %repeatpriv [ $+ [ $nick ] ] %parms | set %countrepeatpriv [ $+ [ $nick ] ] 1 | .timer 1 %repfloodps unset %repeatpriv [ $+ [ $nick ] ] | .timer 1 %repfloodps unset %countrepeatpriv [ $+ [ $nick ] ]
  317. n315=  :next
  318. n316=  if ($len($parms) > %lengthfloodpl) && (%lengthfloodp == 1) { 
  319. n317=    ignore -pu30 $nick 3 | echo 4 -a %ver Private length flood detected from $nick (maximum is %lengthfloodpl $+ , that was $len($parms) $+ ) -=30 Second Private Ignore=-
  320. n318=    if (%privatekick == 1) { set %reason Private length flood detected (maximum is %lengthfloodpl $+ , that was $len($parms) $+ ) -=Temp Ban=- | set %nick $nick | privatekick }
  321. n319=    goto end
  322. n320=  }
  323. n321=  if ($count($parms,) > %colourfloodpl) && (%colourfloodp == 1) { 
  324. n322=    ignore -pu30 $nick 3 | echo 4 -a %ver Private colour flood detected from $nick (no more than %colourfloodpl colour changes allowed) -=30 Second Private Ignore=-
  325. n323=    if (%privatekick == 1) { set %reason Private colour flood detected (no more than %colourfloodpl colour changes allowed) -=Temp Ban=- | set %nick $nick | privatekick }
  326. n324=    goto end 
  327. n325=  }
  328. n326=  if (%capsfloodp == 0) { goto end }
  329. n327=  set -q %length $len($parms) | if (%length < %capsfloodpl) { goto end }
  330. n328=  set -q %count 1
  331. n329=  :start
  332. n330=  if (%count > %length) { goto kick }
  333. n331=  if $asc($mid(%count,%length,$parms)) == $asc($upper($mid(%count,%length,$parms))) { inc %count | goto start } | else { goto end }
  334. n332=  :kick
  335. n333=  ignore -pu30 $nick 3 | echo 4 -a %ver Private CAPS flood detected from $nick -=30 Second Private Ignore=-
  336. n334=  if (%privatekick == 1) { set %reason Private CAPS flood detected -=Temp Ban=- | set %nick $nick | privatekick }
  337. n335=  :end
  338. n336=  unset %length %count %address %lev %parms
  339. n337=}
  340. n338=/autojoin {
  341. n339=  set %count 0
  342. n340=  :start
  343. n341=  inc %count
  344. n342=  if ($read -l $+ %count $mircdirsettings\ $+ autojoin.txt == $null) { goto end }
  345. n343=  join $read -l $+ %count $mircdirsettings\ $+ autojoin.txt
  346. n344=  goto start
  347. n345=  :end
  348. n346=  unset %count
  349. n347=}
  350. n348=/f5 {
  351. n349=  set %win Current-Settings | if (%display == 1) { set %win -s | echo 4 %win - | goto next }
  352. n350=  .query %win | .clear %win | :next | echo 4 %win %ver Channel flood protection settings:
  353. n351=  if (%textflood == 0) { echo 4 %win Channel text flood protection - disabled } | else { echo 4 %win Channel text flood protection - enabled - %textfloodl lines in %textfloods seconds }
  354. n352=  if (%joinpartflood == 0) { echo 4 %win Channel join-part flood protection - disabled } | else { echo 4 %win Channel join-part flood protection - enabled - %joinpartfloodl joins and parts in %joinpartfloods seconds }
  355. n353=  if (%nickflood == 0) { echo 4 %win Channel nick-change protection - disabled } | else { echo 4 %win Channel nick-change flood protection - enabled - %nickfloodl nick changes in %nickfloods seconds }
  356. n354=  if (%repflood == 0) { echo 4 %win Channel repeating flood protection - disabled } | else { echo 4 %win Channel repeating flood protection - enabled - %repfloodl repeats in %repfloods seconds }
  357. n355=  if (%lengthflood == 0) { echo 4 %win Channel length flood protection - disabled } | else { echo 4 %win Channel length flood protection - enabled - text containing over %lengthfloodl characters }
  358. n356=  if (%colourflood == 0) { echo 4 %win Channel colour flood protection - disabled } | else { echo 4 %win Channel colour flood protection - enabled - text containing over %colourfloodl colour changes }
  359. n357=  if (%capsflood == 0) { echo 4 %win Channel caps flood protection - disabled } | else { echo 4 %win Channel caps flood protection - enabled - text over %capsfloodl characters }
  360. n358=  if (%soundflood == 0) { echo 4 %win Channel sound flood protection - disabled } | else { echo 4 %win Channel sound flood protection - enabled - %soundfloodl sound requests in %soundfloods seconds }
  361. n359=  echo 4 %win %ver List complete :) | unset %win
  362. n360=}
  363. n361=/f6 {
  364. n362=  set %win Current-Settings | if (%display == 1) { set %win -s | echo 4 %win - | goto next }
  365. n363=  .query %win | .clear %win | :next | echo 4 %win %ver Channel mass mode protection settings:
  366. n364=  if (%massdeop == 0) { echo 4 %win Mass deop protection - disabled } | else { echo 4 %win Mass deop protection - enabled - %massdeopl deops in %massdeops seconds }
  367. n365=  if (%massop == 0) { echo 4 %win Mass op protection - disabled } | else { echo 4 %win Mass op protection - enabled - %massopl ops in %massops seconds }
  368. n366=  if (%masskick == 0) { echo 4 %win Mass kick protection - disabled } | else { echo 4 %win Mass kick protection - enabled - %masskickl kicks in %masskicks seconds }
  369. n367=  if (%massban == 0) { echo 4 %win Mass ban protection - disabled } | else { echo 4 %win Mass ban protection - enabled - %massbanl bans in %massbans seconds }
  370. n368=  if (%massdevoice == 0) { echo 4 %win Mass devoice protection - disabled } | else { echo 4 %win Mass devoice protection - enabled - %massdevoicel devoices in %massdevoices seconds }
  371. n369=  echo 4 %win %ver List complete :) | unset %win
  372. n370=}
  373. n371=/f7 {
  374. n372=  set %win Current-Settings | if (%display == 1) { set %win -s | echo 4 %win - | goto next }
  375. n373=  .query %win | .clear %win | :next | echo 4 %win %ver Private flood protection settings:
  376. n374=  if (%privatemsgflood == 0) { echo 4 %win Private MSG flood protection - disabled } | else { echo 4 %win Private MSG flood protection - enabled - %privatemsgfloodl lines in %privatemsgfloods seconds }
  377. n375=  if (%privatenoticeflood == 0) { echo 4 %win Private notice flood protection - disabled } | else { echo 4 %win Private notice flood protection - enabled - %privatenoticefloodl lines in %privatenoticefloods seconds }
  378. n376=  if (%repfloodp == 0) { echo 4 %win Private repeating flood protection - disabled } | else { echo 4 %win Private repeating flood protection - enabled - %repfloodpl repeats in %repfloodps seconds }
  379. n377=  if (%lengthfloodp == 0) { echo 4 %win Private length flood protection - disabled } | else { echo 4 %win Private length flood protection - enabled - text over %lengthfloodpl characters }
  380. n378=  if (%colourfloodp == 0) { echo 4 %win Private colour flood protection - disabled } | else { echo 4 %win Private colour flood protection - enabled - text over %colourfloodpl colour changes }
  381. n379=  if (%capsfloodp == 0) { echo 4 %win Private caps flood protection - disabled } | else { echo 4 %win Private caps flood protection - enabled - text over %capsfloodpl characters }
  382. n380=  if (%dcctextflood == 0) { echo 4 %win DCC text flood protection - disabled } | else { echo 4 %win DCC text flood protection - enabled - %dcctextfloodl lines in %dcctextfloods seconds }
  383. n381=  echo 4 %win %ver List complete :) | unset %win
  384. n382=}
  385. n383=/f8 {
  386. n384=  set %win Current-Settings | if (%display == 1) { set %win -s | echo 4 %win - | goto next }
  387. n385=  .query %win | .clear %win | :next | echo 4 %win %ver Private CTCP protection settings:
  388. n386=  if (%ctcpflood == 0) { echo 4 %win Private CTCP flood protection - disabled } | else { echo 4 %win Private CTCP flood protection - enabled - %ctcpfloodl ctcps in %ctcpfloods seconds }
  389. n387=  if (%dccflood == 0) { echo 4 %win Private DCC flood protection - disabled } | else { echo 4 %win Private DCC flood protection - enabled - %dccfloodl sends/chats in %dccfloods seconds }
  390. n388=  if (%invite == 0) { echo 4 %win Private invite flood protection - disabled } | else if (%invite == 1) { echo 4 %win Private invite flood protection - enabled - 30 second ignore } | else { echo 4 %win Private invite flood protection - enabled - kick (if possible) & ignore }
  391. n389=  echo 4 %win %ver List complete :) | unset %win
  392. n390=}
  393. n391=/f9 {
  394. n392=  set %win Current-Settings | if (%display == 1) { set %win -s | echo 4 %win - | goto next }
  395. n393=  .query %win | .clear %win | :next | echo 4 %win %ver Miscellaneous settings:
  396. n394=  if (%punish == 1) { echo 4 %win Flooding punishment - ban only ( $+ %punishtimer seconds) } | else { echo 4 %win Flooding punishment - kick & ban ( $+ %punishtimer seconds for ban) }
  397. n395=  if (%immune == 0) { echo 4 %win Immunity to protection - disabled } | else if (%immune == 1) { echo 4 %win Immunity to protection - enabled - super ops } | else if (%immune == 2) { echo 4 %win Immunity to protection - enabled - super ops & voiced ops } | else { echo 4 %win Immunity to protection - enabled - all channel ops }
  398. n396=  if (%privatekick == 0) { echo 4 %win Kicking on private flood - disabled } | else { echo 4 %win Kicking on private flood - enabled }
  399. n397=  if (%cloneset == 0) { echo 4 %win Clone on-join protection - disabled } | else if {%cloneset == 1) { echo 4 %win Clone on-join protection - enabled - personal notify } | else { echo 4 %win Clone on-join protection - enabled - %clonesallowed clone limit enforced }
  400. n398=  if (%modeprot == 0) { echo 4 %win Channel mode change protection - disabled } | else if (%modeprot == 1) { echo 4 %win Channel mode change protection - enabled - normal - + $+ %modeplus $+ - $+ %modeminus } | else if (%modeprot == 2) { echo 4 %win Channel mode change protection - enabled - deop - + $+ %modeplus $+ - $+ %modeminus } | else if (%modeprot == 3) { echo 4 %win Channel mode change protection - enabled - kick & ban - + $+ %modeplus $+ - $+ %modeminus }
  401. n399=  if (%serverprot == 0) { echo 4 %win Server op protection - disabled } | else { echo 4 %win Server op protection - enabled }
  402. n400=  if (%autoopping == 0) { echo 4 %win Super op auto-opping - disabled } | else { echo 4 %win Super op auto-opping - enabled }
  403. n401=  if (%revenge == 0) { echo 4 %win Revenge on deop and kick - disabled } | else { echo 4 %win Revenge on deop and kick - enabled }
  404. n402=  if (%offensivenick == 0) { echo 4 %win Offensive nick protection - disabled } | else { echo 4 %win Offensive nick protection - enabled }
  405. n403=  if (%unallowedtext == 0) { echo 4 %win Unallowed text protection - disabled } | else if (%unallowedtext == 1) { echo 4 %win Unallowed text protection - enabled - silence ban } | else { echo 4 %win Unallowed text protection - enabled - kick&ban }
  406. n404=  if (%ircop == 0) { echo 4 %win IRCop join notification - disabled } | else { echo 4 %win IRCop join notification - enabled }
  407. n405=  if (%superonly == 0) { echo 4 %win Super ops can only op - disabled } | else { echo 4 %win Super ops can only op - enabled }
  408. n406=  if (%autojoin == 0) { echo 4 %win Channel auto-join on startup - disabled } | else { echo 4 %win Channel auto-join on startup - enabled }
  409. n407=  if (%display == 1) { echo 4 %win Viewing statistics - status bar } | else { echo 4 %win Viewing statistics - independant window }
  410. n408=  echo 4 %win %ver List complete :) | unset %win
  411. n409=}
  412. n410=/f10 {
  413. n411=  set %privatemsgflood 1 | set %privatemsgfloodl 5 | set %privatemsgfloods 10 | set %privatenoticeflood 1 | set %privatenoticefloodl 5 | set %privatenoticefloods 10
  414. n412=  set %repfloodp 1 | set %repfloodpl 2 | set %repfloodps 10 | set %lengthfloodp 1 | set %lengthfloodpl 300
  415. n413=  set %colourfloodp 1 | set %colourfloodpl 10 | set %capsfloodp 1 | set %capsfloodpl 50
  416. n414=  set %dcctextflood 1 | set %dcctextfloodl 5 | set %dcctextfloods 10 | set %ctcpflood 1 | set %ctcpfloodl 2 | set %ctcpfloods 10
  417. n415=  set %dccflood 1 | set %dccfloodl 2 | set %dccfloods 10 | set %soundflood 1 | set %soundfloodl 2 | set %soundfloods 5 | set %invite 2
  418. n416=  set %immune 0 | set %privatekick 1 | echo 4 -a %ver Private flood protection has been enabled with no immunity and private kicking on
  419. n417=}
  420.