home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / grasp3f.exe / backup / events.ini < prev    next >
INI File  |  1997-03-22  |  24KB  |  484 lines
  1. [Events]
  2. n0=;grasp 3.0a : the new era
  3. n1=;------- Don't change anything unless you are good with events
  4. n2=1:ON TEXT:!seen*:*: {
  5. n3=  %seenp = $readini %ini Other seen
  6. n4=  if (%seenp = 1) {
  7. n5=    if $parm2 = $me { msg $chan <.╢«¬º▐.> 4Seen  I am right here! }
  8. n6=    elseif $parm2 = $null { msg $chan  <.╢«¬º▐.> 4Seen Who ya lookin for? }
  9. n7=    elseif $parm2 = $nick { msg $chan <.╢«¬º▐.> 4Seen Tryin to find yourself huh? }
  10. n8=    elseif $parm2 ison $chan { msg $chan <.╢«¬º▐.> 4Seen I think u need glasses, $parm2 is right here in $chan $+ ! }
  11. n9=    else { set %seen $read -s $+ $parm2 $mircdirText\seen.txt
  12. n10=      if  %seen == $null { msg $chan <.╢«¬º▐.> 4Seen I haven't seen $parm2* $+ . }
  13. n11=      if %seen != $null { msg $chan %seen }
  14. n12=    }
  15. n13=  }
  16. n14=}
  17. n15=1:on text:!*:*: {
  18. n16=  %wavserver = $readini %ini Other Wavserver
  19. n17=  if ((%wavserver == 1) && ($me isin $parm1)) {
  20. n18=    dcc send $nick $mircdirwav\ $+ $parm2 
  21. n19=    inc %wav 1
  22. n20=    notice  $nick  This wav, $parm2 $+ , is  number %wav  of wavs I have sent since I started counting!. I hope you like it!
  23. n21=    halt  
  24. n22=  }
  25. n23=  elseif ($me !isin $parm1) { halt }
  26. n24=  else { notice $nick 12 $+ $G $+  My Wavserver is off, Please try again later | halt }
  27. n25=}
  28. n26=1:ON ERROR:*:/echo 4 -a *** ERROR: $parms
  29. n27=--------ICMP Scan
  30. n28=1:ON DNS: {
  31. n29=  if (%Group.ICMPScan == On) {
  32. n30=    echo 6 -a ==ICMP Scan==
  33. n31=    echo 6 -a Tracing IP: $iaddress
  34. n32=    if ($raddress == $null) { echo 6 -a Cannot Resolve: $iaddress. }  
  35. n33=    else { echo 6 -a Resolved: $raddress }
  36. n34=    echo 6 -a =================
  37. n35=    set %Group.IcmpScan off
  38. n36=  }
  39. n37=}
  40. n38=1:ON KICK:#: {
  41. n39=  %seenp = $readini %ini Other seen
  42. n40=  %knick = $knick
  43. n41=  if (%seenp = 1) {
  44. n42=    write -s $+ $nick $mircdirText\seen.txt %knick $g(12) 4Seen 10 %knick ( $+ $address(%knick,3) $+ ) 4KICKED from $chan by $nick $+ : on $adate at $mytime
  45. n43=  }
  46. n44=  if ((%rejoinprot = 1) && ($me isop $chan)) { 
  47. n45=    %chan = $remove($chan,]) | %chan = $remove(%chan,[) | %nick = $remove($knick,]) | %nick = $remove(%nick,[)
  48. n46=    writeini $mircdirtext\rejoin.ini %chan %nick $ctime
  49. n47=  }
  50. n48=}
  51. n49=1:ON QUIT: {
  52. n50=  %seenp = $readini %ini Other seen
  53. n51=  if (%seenp == 1) {
  54. n52=    write -s $+ $nick $mircdirText\seen.txt $nick $g(12) 4Seen 10 $nick ( $+ $address $+ ) 4QUIT: ( $+ $parms $+ ) on $adate at $mytime
  55. n53=  }
  56. n54=  %count = $readini %ini other counter
  57. n55=  if ((%count == 1) && ($parm1 == Excess) && ($parm2 == Flood) && ($parm3 == $null)) { %countm = $readini %counter quits floods | inc %count 1 | .writeini %counter quits floods %count | unset %count* }
  58. n56=}
  59. n57=1:ON PART:#: {
  60. n58=  %seenp = $readini %ini Other seen
  61. n59=  if (%seenp == 1) {
  62. n60=    write -s $+ $nick $mircdirText\seen.txt $nick $g(12) 4Seen 10 $nick ( $+ $address $+ ) 4PART $chan $+ : on $adate at $mytime
  63. n61=  }
  64. n62=}
  65. n63=-------Sound Events
  66. n64=1:ON NOSOUND:/gecho 5  Sound Request by [ $nick $+ ! $+ $adress $+ ]  ( $+ $parms $+ )  Does not Exist
  67. n65=-------Wallops and Server Notices
  68. n66=1:ON WALLOPS:HACK*:/halt
  69. n67=1:ON WALLOPS:*uworld*:/halt
  70. n68=1:ON WALLOPS:*Remote CONNECT*:/halt
  71. n69=1:ON WALLOPS:*: {
  72. n70=  echo 3 -s -
  73. n71=  echo 4 -s [[ $+ $nick $+ /Wσúú°pº]
  74. n72=  echo 6 -s $parms
  75. n73=  echo 3 -s -
  76. n74=  halt
  77. n75=}
  78. n76=#Snotice start
  79. n77=1:ON SNOTICE:* Break*: {
  80. n78=  If $parm7 == $server { /echo 4 -a *** You are on a split server!! Reconnect or wait for a rejoin... | /goto end }
  81. n79=  else { echo 4 -a 5 $+ $timestamp 10(Server.Break) $parm7 2 $+ $parm8* }
  82. n80=  :end
  83. n81=  speak A split in progress
  84. n82=  writeini $mIRCDirtext\splits.txt Splits-In-Progress $parm7 $parm8* $timestamp
  85. n83=  halt  
  86. n84=}
  87. n85=1:ON SNOTICE:*Junction*:/echo 4 -a 5 $+ $timestamp 10(Server.Join) $parm7 | /speak Server Joined. | /remini $mircdirtext\splits.txt  Splits-In-Progress $parm7 | /halt
  88. n86=1:ON SNOTICE:*:/halt
  89. n87=#snotice end
  90. n88=+4:ON JOIN:#:/mode $chan +b $address($nick,3) | kick $chan $nick Lame Nickname Detected $g | ruser 4 $nick
  91. n89=-------Topic Changes
  92. n90=1:ON TOPIC:*:/speak Attention Topic Change in $chan
  93. n91=------Auto Lag Check
  94. n92=1:ON TEXT:lag*:? {
  95. n93=  set %ping $ctime
  96. n94=  dec %ping $parm2
  97. n95=  if %ping >= 30 { set %secx seconds (*Excessive Lag!*) | gecho 4 $g 12Excessive lag detected 10in $server $+ .. 14Suggestion: Switch servers! | goto next }
  98. n96=  Elseif %ping <= 2 { set %ping 0 | set %secx seconds | goto next }
  99. n97=  Elseif %ping == 1 { set %secx second }
  100. n98=  else { set %secx seconds }
  101. n99=  goto next
  102. n100=  :next
  103. n101=  if $idle == 1 { set %secy second }
  104. n102=  else { set %secy seconds }
  105. n103=  if ($away == $false) { titlebar <.╢«¬º▐.> (Lag: %ping %secx $+ ) (Idle: $idle %secy $+ ) Last Update: $mytime } | else { titlebar <.╢«¬º▐.> (Lag: %ping %secx $+ ) (You Are Away) (Idle: $idle %secy $+ ) Last Update: $mytime }
  106. n104=  close -m $me
  107. n105=  halt
  108. n106=}
  109. n107=#lag.check start
  110. n108=1:ON CTCPREPLY:*:  {
  111. n109=  if (PING isin $parms) { set %pt $ctime - $parm2 | if %pt == 1 { set %sec second } | Else { set %sec seconds } | echo 6 -a <Lag Checker> 3 $+ $nick $+ 's Lag Check: 4[ %pt %sec ] | .notice $nick <Lag Checker> 3Your Lag Check: 4[ %pt %sec ] | unset %sec %secs %pt | halt }
  112. n110=  elseif (VERSION isin $parms) { echo 6 -a  $chr(91) $+ 10 $+ $nick $+  $parm1 $+ $chr(93)  4 $+ $parm2* $+  | halt }
  113. n111=  else { echo 1 -a  $chr(91) $+ 12 $+ $nick $+  $parm1 $+ $chr(93)  4 $+ $parm2* $+  | halt }
  114. n112=}
  115. n113=#lag.check end
  116. n114=------Notify List
  117. n115=1:ON NOTIFY: {
  118. n116=  echo 3 -a 12Attention! $nick is on 4IRC ( $+ $adate $mytime $+ ) | /whois $nick | /speak Attention $nick is on IRC
  119. n117=}
  120. n118=+5:ON TEXT:*:#: {
  121. n119=  kick $chan $nick I thought I told you to shutup! ($+ $g Shutup Kick)
  122. n120=  ban -u30 $nick 3
  123. n121=  gecho $chan $+ : Temp Ban for $nick (30 seconds)
  124. n122=}
  125. n123=------Away System
  126. n124=#away start
  127. n125=1:ON TEXT:!page:#: {
  128. n126=  beep
  129. n127=  beep
  130. n128=  beep
  131. n129=  echo 4 -a $timestamp $nick is 4paging you!
  132. n130=  inc %pages 1 
  133. n131=  notice $nick Thank you for paging me. I have been noticed via a series of annoying beeps. You have been ignored for 30 seconds...
  134. n132=  ignore -pu30 $nick 3
  135. n133=  if $parms == $null { set %pparms <no message> }
  136. n134=  else { set %pparms $parms }
  137. n135=  write -i $mircdirtext\away.msg echo 4 -a $timestamp !PAGE! < $+ $nick $+ > %pparms ( $+ $address $+ )
  138. n136=  unset %pparms
  139. n137=}
  140. n138=1:ON TEXT:*:?: {
  141. n139=  inc %awaymsg 1
  142. n140=  msg $nick Your message has been recorded. Ignored for 15 seconds. Your message has been saved as Number:  %awaymsg 
  143. n141=  ignore -pu15 $nick
  144. n142=  speak Page page page! $nick is paging you! Get to the screen dude!
  145. n143=  notice $nick I have been away since %awaytime $+ . -> %Reason $+ .
  146. n144=  write -i $mircdirtext\away.msg /echo 4 -a $timestamp < $+ $nick $+ > $parms ( $+ $address $+ )
  147. n145=}
  148. n146=#away end
  149. n147=------Invitations
  150. n148=1:ON INVITE:#: {
  151. n149=  if $chr(160) isin $chan { gecho 12 *** Fake invite by4 $nick $chr(91) $+ $address $+ $chr(93) to 10Channel:  $+ $chan $+  }
  152. n150=  else { 
  153. n151=    set %invitechan $chan | /gecho 12 $g(4) 10INVITATION You have been invited to  $+ $chan $+ . Press Shift-F4 to Join it. 10( $+ $nick $+ ! $+ $address $+ ) 
  154. n152=  }
  155. n153=  if (($me isop $chan) && ($nick !isop chan) && ($readini $mIRCdirtext\friend.lst $address($nick,3) friend == $null)) {
  156. n154=    if %invkick == on { kick $chan $nick $g(12) Inviting 6SuX }
  157. n155=  }
  158. n156=}
  159. n157=------File Received Confirmation
  160. n158=1:ON FILERCVD:*.* { 
  161. n159=  %gtime = $ctime - [ %get. [ $+ [ $nopath($filename) ] ] ]
  162. n160=  %time1 = %gtime / 3600
  163. n161=  %time2 = %gtime % 3600
  164. n162=  %time3 = %time2 / 60
  165. n163=  %time4 = %time2 % 60
  166. n164=  %speed = $lof($filename) / %gtime
  167. n165=  %filename = $filename | set %ext $token(2,46,$nopath($filename))
  168. n166=  if (%time1 > 0) { gecho 4 $g(12) DCC Get of $nopath($filename) ( $++ $lof($filename) bytes) from $nick [ $++ $address] completed in %time1 hour(s) %time3 minute(s) %time4 second(s) @ %speed bytes/sec. | /speak Received $filename from $nick | goto end }
  169. n167=  if (%time3 > 0) { gecho 4 $g(12) DCC Get of $nopath($filename) ( $++ $lof($filename) bytes) from $nick [ $++ $address] completed in: %time3 minute(s) %time4 second(s) @ %speed bytes/sec. | /speak Received $filename from $nick | goto end }
  170. n168=  else { gecho 4 $g(12) DCC Get of $nopath($filename) ( $++ $lof($filename) bytes) from $nick [ $++ $address] completed in: %time4 second(s) @ %speed bytes/sec. | /speak Received $filename from $nick | goto end }
  171. n169=  :end
  172. n170=}
  173. n171=------Auto Abuse(c)
  174. n172=#aajpub disabled
  175. n173=1:ON JOIN:*:/pinsult $chan $nick
  176. n174=#aajpub end
  177. n175=#aajpriv disabled
  178. n176=1:ON JOIN:*:/ninsult $nick
  179. n177=#aajpriv end
  180. n178=#aak disabled
  181. n179=1:ON KICK:*:/pinsult $chan $knick
  182. n180=#aak end
  183. n181=#aam disabled
  184. n182=1:ON TEXT*:?:/minsult $nick
  185. n183=#aam end
  186. n184=------Dont Ban Me
  187. n185=+1:ON BAN:# {
  188. n186=  set %ban 1
  189. n187=  :start
  190. n188=  set %bmask $address($me,%ban)
  191. n189=  if ($banmask iswm %bmask) {
  192. n190=    if $nick == $me { halt }
  193. n191=    if ($me isop $chan) {
  194. n192=      echo 4 -a <Warning>5 $nick ( $+ $address $+ ) Banned you in5 $chan $+ ... 10proceding with Auto Unban.  
  195. n193=      mode $chan -o $nick      
  196. n194=      ban $chan $nick 3
  197. n195=      kick $chan $nick 2I think I'll ban YOU instead! 5<.╢«¬º▐.>
  198. n196=      goto end
  199. n197=    }
  200. n198=    ElseIf ($me !isop $chan) {
  201. n199=      echo 4 -a <Warning>5 -a $nick ( $+ $address $+ ) Banned you on5 $chan $+ , 10but your not opped.. AutoUnban Failed.
  202. n200=      goto end
  203. n201=    }
  204. n202=    Else {
  205. n203=      if (%ban >= 4) { goto end }
  206. n204=      else {
  207. n205=        inc %ban 1
  208. n206=        goto ban
  209. n207=      }
  210. n208=    }
  211. n209=    :end
  212. n210=  }
  213. n211=}
  214. n212=-----DNS Stuff
  215. n213=#altdns start
  216. n214=1:ON DNS: {
  217. n215=  If $raddress == $null { goto no }
  218. n216=  Else { goto yes }
  219. n217=  :yes
  220. n218=  echo 6 -a -=-7Dns Lookup Report-=-
  221. n219=  echo 6 -a 14[Nick]:10 $nick
  222. n220=  echo 6 -a 14[Address]:10 $address
  223. n221=  echo 6 -a 14[Resolved]:10 $raddress
  224. n222=  echo 6 -a ---7End of Dns Report---  
  225. n223=  goto end
  226. n224=  :no
  227. n225=  echo 6 -a -=-7Dns Lookup Report-=-
  228. n226=  echo 6 -a 3 $nick $+ 's Address ( $+ $address $+ )
  229. n227=  echo 6 -a ácould 4not be resolved!
  230. n228=  echo 6 -a ---7End of Dns Report---  
  231. n229=  :end
  232. n230=}
  233. n231=#altdns end
  234. n232=-------------------------
  235. n233=#cloneprotect start
  236. n234=+*1!:ON JOIN:.ruser $wildsite | /auser 61 $wildsite | .timer 1 30 .ruser $wildsite
  237. n235=+61:ON JOIN:.ruser $wildsite | /auser 62 $wildsite | .timer 1 30 .ruser $wildsite
  238. n236=+62:ON JOIN:.ruser $wildsite | /auser 63 $wildsite | .timer 1 30 .ruser $wildsite
  239. n237=+63:ON JOIN:.mode $chan +b $wildsite | kick $chan $nick Clones Detected From Your Site! $g | .ruser $wildsite
  240. n238=+61:ON KICK:.ruser $wildsite
  241. n239=+62:ON KICK:.ruser $wildsite
  242. n240=+63:ON KICK:.ruser $wildsite
  243. n241=+61:ON QUIT:.ruser $wildsite
  244. n242=+62:ON QUIT:.ruser $wildsite
  245. n243=+63:ON QUIT:.ruser $wildsite
  246. n244=#cloneprotect end
  247. n245=#massdeop disabled
  248. n246=1:ON DEOP:#: {
  249. n247=  if ($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) { halt }
  250. n248=  if ([ %m [ $+ [ $nick ] ] ] == $null) { set %m $+ $nick 1 | .timer 1 10 unset %m $+ $nick }
  251. n249=  if ([ %m [ $+ [ $nick ] ] ] > 3) { kick $chan $nick $g(12) Mass Deops are not allowed | unset %m $+ $nick | halt }
  252. n250=  inc %m $+ $nick 1  
  253. n251=}
  254. n252=#massdeop end
  255. n253=#masskick disabled
  256. n254=1:ON KICK:#: {
  257. n255=  if ($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) { halt }
  258. n256=  if ([ %m [ $+ [ $nick ] ] ] == $null) { set %m $+ $nick 1 | .timer 1 10 unset %m $+ $nick }
  259. n257=  if ([ %m [ $+ [ $nick ] ] ] > 3) { kick $chan $nick $g(12) Mass Kicks Suck | unset %m $+ $nick | halt }
  260. n258=  inc %m $+ $nick 1  
  261. n259=}
  262. n260=#masskick end
  263. n261=#server disabled
  264. n262=*1:ON SERVERMODE:#:/mode $chan +tn-imlks
  265. n263=*1:ON SERVEROP:#: {
  266. n264=  if $opnick == $me { halt }
  267. n265=  else { mode $chan -oooo $opnick $parm2 $parm3 $parm4 }
  268. n266=}
  269. n267=#server end
  270. n268=------Kicking Options--------
  271. n269=*+1!:on text:*:#: {
  272. n270=  If ($nick isop $chan) { halt }
  273. n271=  if ($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) { halt }
  274. n272=  if (%swear = 1) { 
  275. n273=    if ((fuck isin $parms) || (shit isin $parms) || (nigger isin $parms) || (bitch isin $parms) || (pussy isin $parms)) { goto kick } 
  276. n274=    else { goto next1 }
  277. n275=    :kick
  278. n276=    raw -q kick $chan $nick : $g(12) Please dont swear!
  279. n277=  }
  280. n278=  :next1
  281. n279=  If (%caps == 1) {
  282. n280=    if $len($parms) >= 7 { goto next2 }
  283. n281=    set %num.caps 0
  284. n282=    set %counter $len($parms)
  285. n283=    :start1
  286. n284=    if (%counter == 0) { goto testcaps }
  287. n285=    if ($asc($mid(%counter,1,$parms)) >= 65 && $asc($mid(%counter,1,$parms)) <= 90 ) { inc %num.caps 1 }
  288. n286=    dec %counter 1
  289. n287=    goto start1 
  290. n288=    :testcaps
  291. n289=    if (%num.caps == 0) { goto next2 | unset %num.caps | unset %counter }
  292. n290=    math $len($parms) / %num.caps 
  293. n291=    if (%Solution < 2) { kick $chan $nick $g(12) DONT USE CAPS! | unset %num.caps | unset %counter }
  294. n292=  }  
  295. n293=  :next2
  296. n294=  If (%story == 1) {
  297. n295=    if ($len($parms) >= 400) { kick $chan $nick $g(12) It's NOT Story Time! }
  298. n296=    else goto next3 
  299. n297=  }
  300. n298=  :next3
  301. n299=  if (%text == 1) { 
  302. n300=    if (%text [ $+ [ $nick ] ] = 6) { goto boot2 }
  303. n301=    if (%text [ $+ [ $nick ] ] = 1) { inc %text [ $+ [ $nick ] ] 1 | goto next4 }
  304. n302=    if (%text [ $+ [ $nick ] ] <= 5 ) { goto ok32 }
  305. n303=    :ok32
  306. n304=    .timer 1 6 /unset %text [ $+ [ $nick ] ]
  307. n305=    inc %text [ $+ [ $nick ] ] 1
  308. n306=    goto next4
  309. n307=    :boot2
  310. n308=    kick $chan $nick $g(12) 4Dont text flood! Dont you know that when you text flood, it is very impolite, so never do it again, thanks, and your welcome back if you don;t text flood anymore
  311. n309=    unset %text [ $+ [ $nick ] ]
  312. n310=    else goto next4
  313. n311=  }
  314. n312=  :next4
  315. n313=  if (%repeat == 1) {
  316. n314=    if (%repeat1 [ $+ [ $nick ] ]  == $parms) { kick $chan $nick $g(12) Repeating Sucks }
  317. n315=    set %repeat1 [ $+ [ $nick ] ] $parms
  318. n316=    .timer 1 5 /unset %repeat1 [ $+ [ $nick ] ] 
  319. n317=    else goto next5
  320. n318=  }
  321. n319=  :next5
  322. n320=  If (%color == 1) {
  323. n321=    if ( isin $parms) { kick $chan $nick $g 4Color Sucks $g(12) }
  324. n322=    if ( isin $parms) { kick $chan $nick $g No bold stuff here $g(12) }
  325. n323=    if ( isin $parms) { kick $chan $nick $g I hate reverse $g(12) }
  326. n324=    if ( isin $parms) { kick $chan $nick $g Underlining Sucks $g(12) }
  327. n325=    else goto next6
  328. n326=  }
  329. n327=  :next6
  330. n328=  If (%trouter == 1) {
  331. n329=    if ((slaps isin $parms) && (around isin $parms) && (bit isin $parms) && (large isin $parms) && (trout isin $parms) && ($nick !isop $chan)) {
  332. n330=      kick $chan $nick 4*PUNT* 1Reality is for those who lack imagination. So is the 12Trout Slap! 1(FYI, this is an equal opportunity autokick. <WEG>) | /sound $chan punted!.wav | inc %troutkicks 1
  333. n331=    }
  334. n332=    if ((slams isin $parms) && (unix isin $parms) && (manual isin $parms) && ($nick !isop $chan)) {
  335. n333=      kick $chan $nick 4*PUNT* 1Reality is for those who lack imagination. So is the 12Unix Slam! 1(FYI, this is an equal opportunity autokick. <WEG>) | /sound $chan punted!.wav
  336. n334=    }
  337. n335=    else goto next7
  338. n336=  }
  339. n337=  :next7
  340. n338=  if (%adkick == 1) {
  341. n339=    if ((visit isin $parms) || (come isin $parms) || (join isin $parms) && ($chr(35) isin $parms)) { kick $chan $nick $g(12) No Advertising }
  342. n340=    else goto thend
  343. n341=  }
  344. n342=  halt
  345. n343=  :thend
  346. n344=  :end
  347. n345=}
  348. n346=*+1!:on action:*:#: {
  349. n347=  If ($nick isop $chan) { halt }
  350. n348=  if ($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) { halt }
  351. n349=  if (%swear = 1) { 
  352. n350=    if ((fuck isin $parms) || (shit isin $parms) || (nigger isin $parms) || (bitch isin $parms) || (pussy isin $parms)) { goto kick } 
  353. n351=    else { goto next1 }
  354. n352=    :kick
  355. n353=    raw -q kick $chan $nick : $g(12) Please dont swear!
  356. n354=  }
  357. n355=  :next1
  358. n356=  If (%caps == 1) {
  359. n357=    if $len($parms) >= 7 { goto next2 }
  360. n358=    set %num.caps 0
  361. n359=    set %counter $len($parms)
  362. n360=    :start1
  363. n361=    if (%counter == 0) { goto testcaps }
  364. n362=    if ($asc($mid(%counter,1,$parms)) >= 65 && $asc($mid(%counter,1,$parms)) <= 90 ) { inc %num.caps 1 }
  365. n363=    dec %counter 1
  366. n364=    goto start1 
  367. n365=    :testcaps
  368. n366=    if (%num.caps == 0) { goto next2 | unset %num.caps | unset %counter }
  369. n367=    math $len($parms) / %num.caps 
  370. n368=    if (%Solution < 2) { kick $chan $nick $g(12) DONT USE CAPS! | unset %num.caps | unset %counter }
  371. n369=  }  
  372. n370=  :next2
  373. n371=  If (%story == 1) {
  374. n372=    if ($len($parms) >= 400) { kick $chan $nick $g(12) It's NOT Story Time! }
  375. n373=    else goto next3 
  376. n374=  }
  377. n375=  :next3
  378. n376=  if (%text == 1) { 
  379. n377=    if (%text [ $+ [ $nick ] ] = 6) { goto boot2 }
  380. n378=    if (%text [ $+ [ $nick ] ] = 1) { inc %text [ $+ [ $nick ] ] 1 | goto next4 }
  381. n379=    if (%text [ $+ [ $nick ] ] <= 5 ) { goto ok32 }
  382. n380=    :ok32
  383. n381=    .timer 1 6 /unset %text [ $+ [ $nick ] ]
  384. n382=    inc %text [ $+ [ $nick ] ] 1
  385. n383=    goto next4
  386. n384=    :boot2
  387. n385=    kick $chan $nick $g(12) 4Dont text flood! Dont you know that when you text flood, it is very impolite, so never do it again, thanks, and your welcome back if you don't text flood anymore
  388. n386=    unset %text [ $+ [ $nick ] ]
  389. n387=    else goto next4
  390. n388=  }
  391. n389=  :next4
  392. n390=  if (%repeat == 1) {
  393. n391=    if (%repeat1 [ $+ [ $nick ] ]  == $parms) { kick $chan $nick $g(12) Repeating Sucks }
  394. n392=    set %repeat1 [ $+ [ $nick ] ] $parms
  395. n393=    .timer 1 5 /unset %repeat1 [ $+ [ $nick ] ] 
  396. n394=    else goto next5
  397. n395=  }
  398. n396=  :next5
  399. n397=  If (%color == 1) {
  400. n398=    if ( isin $parms) { kick $chan $nick $g 4Color Sucks $g(12) }
  401. n399=    if ( isin $parms) { kick $chan $nick $g No bold stuff here $g(12) }
  402. n400=    if ( isin $parms) { kick $chan $nick $g I hate reverse $g(12) }
  403. n401=    if ( isin $parms) { kick $chan $nick $g Underlining Sucks $g(12) }
  404. n402=    else goto next6
  405. n403=  }
  406. n404=  :next6
  407. n405=  If (%trouter == 1) {
  408. n406=    if ((slaps isin $parms) && (around isin $parms) && (bit isin $parms) && (large isin $parms) && (trout isin $parms) && ($nick !isop $chan)) {
  409. n407=      kick $chan $nick 4*PUNT* 1Reality is for those who lack imagination. So is the 12Trout Slap! 1(FYI, this is an equal opportunity autokick. <WEG>) | /sound $chan punted!.wav | inc %troutkicks 1
  410. n408=    }
  411. n409=    if ((slams isin $parms) && (unix isin $parms) && (manual isin $parms) && ($nick !isop $chan)) {
  412. n410=      kick $chan $nick 4*PUNT* 1Reality is for those who lack imagination. So is the 12Unix Slam! 1(FYI, this is an equal opportunity autokick. <WEG>) | /sound $chan punted!.wav
  413. n411=    }
  414. n412=    else goto next7
  415. n413=  }
  416. n414=  :next7
  417. n415=  if (%adkick == 1) {
  418. n416=    if ((visit isin $parms) || (come isin $parms) || (join isin $parms) && ($chr(35) isin $parms)) { kick $chan $nick $g(12) No Advertising }
  419. n417=    else goto thend
  420. n418=  }
  421. n419=  halt
  422. n420=  :thend
  423. n421=  :end
  424. n422=}
  425. n423=1:ON JOIN:#: {
  426. n424=  if $me isop $chan {
  427. n425=    if (((($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) && ($chan isin $readini $mIRCdirtext\friend.lst $address($nick,3) chanz) || (* isin $readini $mIRCdirtext\friend.lst $address($nick,3) chanz)))) {
  428. n426=      mode $chan $readini $mIRCdirtext\friend.lst $address($nick,3) modes $nick
  429. n427=      if ($readini $mIRCdirtext\friend.lst $address($nick,3) modes == +o) { echo 6 $chan $g Friend [+o]: 4 $nick ( $+ $address $+ ) has just 10joined $chan | /speak auto-opped | /.timer 1 5 /notice $nick $g(12) You are on my auto-op list for: $readini $mIRCdirtext\friend.lst $address($nick,3) chanz }
  430. n428=      if ($readini $mIRCdirtext\friend.lst $address($nick,3) modes == +v) { echo 6 $chan $g Friend [+v]: 4 $nick ( $+ $address $+ ) has just 10joined $chan | /speak auto-veed | /.timer 1 5 /notice $nick $g(12) You are on my auto-voice list for: $readini $mIRCdirtext\friend.lst $address($nick,3) chanz }
  431. n429=    }
  432. n430=  }
  433. n431=  if ($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) { halt }
  434. n432=  else {
  435. n433=    %offnick = $readini %ini Kicks offnick | if ((%offnick = 1) && ($me isop $chan)) {
  436. n434=      if ((fuck isin $nick) || (fuk isin $nick) || (shit isin $nick) || (pussy isin $nick) || (cock isin $nick)) { kick $chan $nick  $g(4)  12Offensive 6Nick 10Detected }
  437. n435=    }
  438. n436=  }
  439. n437=  %rejoinprot = $readini %ini Other autojoinprot | if ((%rejoinprot = 1) && ($me isop $chan)) { 
  440. n438=    %chan = $remove($chan,]) | %chan = $remove(%chan,[) | %nick = $remove($nick,]) | %nick = $remove(%nick,[) | %ctime = $readini $mircdirtext\rejoin.ini %chan %nick
  441. n439=    if (%ctime = $null) { goto done } | %secs = $ctime - %ctime | %killsecs = $readini $mircdirtext\rejoin.ini Other rejoinsecs | if (%killsecs = $null) { %killsecs = 2 }
  442. n440=    if (%killsecs >= %secs) { mode $chan +b *!*@ $+ $site | kick $chan $nick $g(12) Auto-Rejoin Kick | .timer 1 5 mode $chan -b *!*@ $+ $site }
  443. n441=  }
  444. n442=  %greetcounter = $readini $mircdirtext\grasp.ini Other greetcounter | if (%greetcounter = 1) { 
  445. n443=    if $nick != $me {
  446. n444=      %chan = $remove($remove($chan,[),]) | inc %visitor [ $+ [ %chan ] ]
  447. n445=      if ($readini $mircdirsystem\comes.ini %chan $address($nick,3) == $null) { writeini $mircdirsystem\comes.ini %chan $address($nick,3) 1 | echo 4 %chan 12[10JoiN12][10CounteR12]  $+ $nick $+  is 14visitor number  $+ %visitor [ $+ [ %chan ] ] $+  to join  $+ %chan $+  and it is their 121st time here. }
  448. n446=      else { %counters = $readini $mircdirsystem\comes.ini %chan $address($nick,3) |  %counters = [ %counters + 1 ] |  writeini $mircdirsystem\comes.ini %chan $address($nick,3) %counters | echo 4 %chan 12[10JoiN12][10CounteR12]  $+ $nick $+  is 14visitor number  $+ %visitor [ $+ [ %chan ] ] $+  to join  $+ %chan $+  and it is their 12 $+ %counters $+ th time here. }
  449. n447=    }
  450. n448=  }
  451. n449=  :done
  452. n450=}
  453. n451=------The Shitlist
  454. n452=+777:ON JOIN:#: {
  455. n453=  %i = 0
  456. n454=  :begin
  457. n455=  %i = %i + 1
  458. n456=  %tb = $read -l $+ %i $mIRCdirtext\banlist.txt
  459. n457=  if (%tb == $null) { halt }
  460. n458=  if ((($token(1,44,%tb) == $chan) || ($token(1,44,%tb) == $chr(42))) && ($token(2,44,%tb) iswm $address($nick,0))) { 
  461. n459=    mode $chan +b-o $token(2,44,%tb) $nick
  462. n460=    kick $chan $nick Banned: $token(3,44,%tb) 
  463. n461=    halt
  464. n462=    speak $nick is shitlisted in $chan ... Now kick/banning 
  465. n463=  }
  466. n464=  goto begin
  467. n465=}
  468. n466=1:ON NICK: {
  469. n467=  if ($readini $mIRCdirtext\friend.lst $address($nick,3) friend != $null) { halt }
  470. n468=  %offnick = $readini %ini Kicks offnick | if ((%offnick = 1) && ($me isop $chan)) {
  471. n469=    if ((fuck isin $newnick) || (fuk isin $nick) || (shit isin $newnick) || (pussy isin $newnick) || (cock isin $newnick)) {
  472. n470=      kick $chan $newnick  $g(4)  12Offensive 6Nick 10Detected 
  473. n471=    }
  474. n472=  }
  475. n473=  if (%nflood == 1) {
  476. n474=    if (%nick.flood.rate. [ $+ [ $nick ] ] == $null) { set %nick.flood.rate. [ $+ [ $nick ] ] 0 }
  477. n475=    set %nick.flood.rate. [ $+ [ $newnick ] ] %nick.flood.rate. [ $+ [ $nick ] ]
  478. n476=    inc %nick.flood.rate. [ $+ [ $newnick ] ] 1
  479. n477=    unset %nick.flood.rate. [ $+ [ $nick ] ]
  480. n478=    if (%nick.flood.rate. [ $+ [ $newnick ] ] >= %nick.flood.trigger) { set %i 1 | :next | set %channel $channel(%i) | if (%channel == $null) { goto done } | if ($newnick ison %channel) { ban %channel $$1 3 |  kick %channel $newnick  4Nick Flood Detected  } | inc %i | goto next | :done }
  481. n479=  }
  482. n480=}
  483. n481=+777:ON TEXT:*:?:/ignore $nick | /notice $nick $g(4) Your on my shitlist... And now on my 12ignore list! | /speak User Shitlisted
  484.