home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / grasp3f.exe / backup / raw.ini < prev    next >
INI File  |  1997-03-22  |  15KB  |  364 lines
  1. [Raw]
  2. n0=;grasp 3.0a : the new era
  3. n1=;------- Don't change anything here, for it will fuck everything up
  4. n2=351:*: {
  5. n3=  %lsec = $ticks - %lticks
  6. n4=  if $len(%lsec) > 3 { %lsec = $remove(%lsec,$right(3,%lsec)) $+ . $+ $right(3,%lsec) }
  7. n5=  else { %lsec = 0. $+ %lsec }
  8. n6=  //lagchk
  9. n7=}
  10. n8=366:* {
  11. n9=  if $nick(0,$parm2) == $null { goto end }
  12. n10=  %jsec = $ticks - %ticks
  13. n11=  if $len(%jsec) > 3 { %jsec = $remove(%jsec,$right(3,%jsec)) $+ . $+ $right(3,%jsec) }
  14. n12=  else { %jsec = 0. $+ %jsec }
  15. n13=  if $gettok(%jsec,1,46) >= 50 { set %jsec n/a | halt }
  16. n14=  else { halt }
  17. n15=  :end
  18. n16=}
  19. n17=#joinstats start
  20. n18=324:* {
  21. n19=  .disable #modes
  22. n20=  if $nick(0,$parm2) == $null { goto end }
  23. n21=  if $chan($parm2).mode == $null { set %m + }
  24. n22=  else { set %m $chan($parm2).mode }
  25. n23=  echo 1 $parm2 áááááááááá2( $g(12) 1Join Stats2)
  26. n24=  echo 1 $parm2 2(Join to 4[12 $+ $parm2 $+ 10(14 $+ %m $+ 10) $+ 4] synced in 4[14 $+ %jsec $+ 4] seconds2) | unset %jsec
  27. n25=  set %users $nick(0,$parm2) | set %ops $opnick(0,$parm2) | set %voiced $vnick(0,$parm2) | set %nops $nopnick(0,$parm2)
  28. n26=  if %users == 1 { set %users 101 1User }
  29. n27=  else { set %users 10 $+ %users $+ 1 Users }
  30. n28=  if %ops == 1 { set %ops 101 1Op } 
  31. n29=  else { set %ops 10 $+ %ops $+  1Ops }
  32. n30=  if %nops == 1 { set %nops 101 1Non Op } 
  33. n31=  else { set %nops 10 $+ %nops $+  1Non Ops }
  34. n32=  if %ops == 1 { set %voiced 101 1Voiced } 
  35. n33=  else { set %voiced 10 $+ %voiced $+  1Voiced }
  36. n34=  echo 1 $parm2 2( $+ %users $+ 2)  2( $+ %ops $+ 2)  2( $+ %nops $+ 2)  2( $+ %voiced $+ 2)
  37. n35=  unset %users | unset %ops | unset %voiced
  38. n36=  halt
  39. n37=  :end
  40. n38=}
  41. n39=332:* { 
  42. n40=  echo 1 $parm2 2(10Topic for [ $+ 12 $+ $parm2  $+ : $parm3* $+ ]2)
  43. n41=  halt
  44. n42=}  
  45. n43=333:* {
  46. n44=  //set %ctime $ctime | //set %time2 $parm4 | //set %time %ctime - %time2
  47. n45=  echo 1 $parm2 2(10Topic set by $parm3 12 $+ $duration(%time) ago  $chr(91) $+  $+ $asctime($parm4) $+  $+ $chr(93) $+ 2)
  48. n46=  unset %ctime | unset %time2 | unset %time
  49. n47=  halt
  50. n48=}
  51. n49=#joinstats end
  52. n50=#modes disable
  53. n51=324:*:/set %modes $parm3* | /.disable #modes
  54. n52=#modes end
  55. n53=#stat disabled
  56. n54=352:*: {
  57. n55=  if ( $chr(42) isin $parm7 ) {
  58. n56=    inc %iop
  59. n57=    set %iop.nick %iop.nick $parm6
  60. n58=  }
  61. n59=  if ( $chr(71) isin $Parm7 ) {
  62. n60=    inc %an
  63. n61=  }
  64. n62=}
  65. n63=315:*: {
  66. n64=  %here = %nick - %an
  67. n65=  %hp = %here * 10000
  68. n66=  %hp = %hp / %nick
  69. n67=  %right = $right(2,%hp)
  70. n68=  %len = $len(%hp) - 2
  71. n69=  %hp = $left(%len,%hp) $+ . $+ %right
  72. n70=  if ( %here == 0 ) {
  73. n71=    set %hp 0
  74. n72=  }
  75. n73=  %ip = %iop * 10000
  76. n74=  %ip = %ip / %nick
  77. n75=  %right = $right(2,%ip)
  78. n76=  %len = $len(%ip) - 2
  79. n77=  %ip = $left(%len,%ip) $+ . $+ %right
  80. n78=  if ( %iop == 0 ) {
  81. n79=    set %ip 0
  82. n80=    set %iop.nick No IRCops
  83. n81=  }
  84. n82=  fstat
  85. n83=  .disable #stat
  86. n84=  .enable #joinstats
  87. n85=}
  88. n86=#stat end
  89. n87=#sban disabled
  90. n88=367:*:/inc %bans
  91. n89=368:*:/.disable #sban
  92. n90=#sban end
  93. n91=#topic disabled
  94. n92=332:*:/set %topic $parm3* | /.disable #topic
  95. n93=#topic end
  96. n94=#luser start
  97. n95=251:*:/set %Lusers $parm4 + $parm7 | /echo 5 -s I have $parm4 users and there are $parm7 users invinsible on $parm10 servers! | /echo 2 -s Total number of people: %Lusers | /unset %Lusers | /halt
  98. n96=252:*:/echo 5 -s There are $parm2 IRCops online. | /halt
  99. n97=253:*:/echo 5 -s $parm2 unknown connection(s) | /halt
  100. n98=254:*:/echo 5 -s $parm2 channels have been formed | /halt
  101. n99=255:*:/echo 5 -s I have $parm4 clients on $parm7 server(s) | /halt
  102. n100=#luser end
  103. n101=#whois start
  104. n102=301:*:%showwhois 2 $parm2 is 4away:12 $parm3* | halt
  105. n103=311:* {
  106. n104=  %showwhois 1 á 
  107. n105=  %showwhois 4 -=-4 $+ $parm2 $+ -=-
  108. n106=  %showwhois 2 Address:12 $parm3 $+ @ $+ $parm4 
  109. n107=  %showwhois 2 Real Name:10 $parm6* 
  110. n108=  %_Adr = *!* $+ $parm3 $+ @ $+ $parm4 | country | if ($chknip($parm4)) {  %showwhois 2 Country:10 $+ %_country } | else { %showwhois 2 Country:10 %_country  }
  111. n109=  %wnick = $parm2 | wcheck | %showwhois 2 2Status:10 %wmode %wchans
  112. n110=  if (grasp isin $parm3) {  %showwhois 4 *** 12 $parm2 is Using $g(4) }
  113. n111=  halt
  114. n112=}
  115. n113=319:*:{ %showwhois 2  2Channels:10 $parm3*
  116. n114=  if (á isin $parm3*) {
  117. n115=    %showwhois 4 Spoofed Channels Detected...
  118. n116=    %channels = $parm3*
  119. n117=    %channels = $replace(%channels,á,-)
  120. n118=  %showwhois 6 2Real Channels:3 %channels }
  121. n119=  unset %w*
  122. n120=  halt
  123. n121=}
  124. n122=312:*:%showwhois 2 2Server:10 $parm3 | halt
  125. n123=313:*:%showwhois 2 2 $+ $parm2 is an 12IRC operator | halt
  126. n124=317:*:%showwhois 2 2Idle:10 $parm3 seconds | halt
  127. n125=318:*: { 
  128. n126=  if %nosuchnick == 1 { halt }
  129. n127=  %showwhois 1 -=-4 $+ $parm2 $+ -=- | %showwhois 4 á | halt
  130. n128=}
  131. n129=#whois end
  132. n130=401:*: {
  133. n131=  gecho 2 á 
  134. n132=  gecho 2 310[4 $+ $parm2 $+ 10] : 12There was no such nickname10/12channel on IRC! | set %nosuchnick 1 | .timer 1 2 /unset %nosuchnick
  135. n133=  gecho 2 á
  136. n134=  halt
  137. n135=}
  138. n136=#portscan disabled
  139. n137=211:* {
  140. n138=  if $left(4,$right(5,$parm2)) isnum {
  141. n139=    if (%porscan == $null) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %porscan active | set %portlist $left(4,$right(5,$parm2)) }
  142. n140=    else { set %portlist1 %portlist | set %portlist %portlist1 $+ ,  $+ $left(4,$right(5,$parm2)) | set %curval $parm5 + $parm7
  143. n141=      if (%curval < %bestportval) { set %bestport $left(4,$right(5,$parm2)) | set %bestportval $parm5 + $parm7 | set %portlist1 %portlist | unset %portlist1 }
  144. n142=  unset %curval } }
  145. n143=  halt
  146. n144=}
  147. n145=219:*: {
  148. n146=  if ($parm2 == l) { echo 2 -s *** Portscan report for 6 $+ $server $+  | echo 2 -s *** Availble ports are: %portlist | echo 2 -s *** Best port is: %bestport | echo 2 -s *** Best port traffic: %bestportval Kilobytes | echo 4 -s *** Done scanning ports on $server $+ ! | unset %portlist | unset %porscan | unset %bestportval | /.timer 1 20 /unset %bestport | /.timer 1 1 /.disable #portscan | halt }
  149. n147=}
  150. n148=#portscan end
  151. n149=#ircops disabled
  152. n150=352:* {
  153. n151=  if %priv == 1 { goto priv }
  154. n152=  else { goto pub }
  155. n153=  :priv
  156. n154=  write -i $mircdirsystem\temp.txt /gecho 4 12 $+ $parm6 7* 4 $+ $parm5 | inc %tot 1 | halt
  157. n155=  goto end
  158. n156=  :pub
  159. n157=  write -i $mircdirsystem\temp.txt /msg %i 12 $+ $parm6 $+  7* 4 $+ $parm5 $+  | inc %tot 1 | halt
  160. n158=  :end
  161. n159=}
  162. n160=315:* {
  163. n161=  if %priv == 1 { goto priv }
  164. n162=  else { goto pub }
  165. n163=  :priv
  166. n164=  write $mircdirsystem\temp.txt /gecho 4 10End Of List! Total: 10 $+ %tot
  167. n165=  play -c $me $mircdirsystem\temp.txt 0 | unset %tot,%i | .disable #ircops
  168. n166=  goto end
  169. n167=  :pub
  170. n168=  write $mircdirsystem\temp.txt /msg %i 10End Of List! Total: 10 $+ %tot
  171. n169=  play -c $me $mircdirsystem\temp.txt 0 | unset %tot,%i | .disable #ircops
  172. n170=  goto end
  173. n171=  :end
  174. n172=  .timer 1 10 .write -c $mircdirsystem\temp.txt
  175. n173=  .timer 1 10 .remove $mircdirsystem\temp.txt
  176. n174=  .timer 1 10 /unset %priv
  177. n175=  .timer 1 10 /unset %tot
  178. n176=  .timer 1 10 /unset %i
  179. n177=  halt
  180. n178=}
  181. n179=#ircops end
  182. n180=#clones disabled
  183. n181=352:* {
  184. n182=  if ($parm4 !isin %address) { %address = %address $parm4 }
  185. n183=  if ([ %addr [ $+ [ $parm4 ] ] ] != $null) {
  186. n184=    if ([ %clone [ $+ [ $parm4 ] ] ] == $null) {
  187. n185=      set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] , $parm6
  188. n186=    }
  189. n187=    else {
  190. n188=      set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] , $parm6
  191. n189=    }
  192. n190=  }
  193. n191=  else {
  194. n192=    set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6
  195. n193=  }
  196. n194=  halt
  197. n195=}
  198. n196=315:* {
  199. n197=  .disable #clones
  200. n198=  set %a 1
  201. n199=  :next
  202. n200=  set %token $token(%a,32,%address)
  203. n201=  if (%token == $null) { goto done } | else {
  204. n202=    if ([ %clone [ $+ [ %token ] ] ] != $null) {
  205. n203=      inc %total | inc %a
  206. n204=      if (%option == 1) { write $mircdirsystem\raw.txt /echo 5 %chan %total $+ . [ %clone [ $+ [ %token ] ] ] * %token }
  207. n205=      if (%option == 2) { write $mircdirsystem\raw.txt /msg %chan %total $+ . [ %clone [ $+ [ %token ] ] ] * %token }
  208. n206=      unset [ %clone [ $+ [ %token ] ] ]
  209. n207=      unset [ %addr [ $+ [ %token ] ] ]
  210. n208=      goto next
  211. n209=    }
  212. n210=    else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next }
  213. n211=  }
  214. n212=  :done
  215. n213=  if (%option == 1) { write $mircdirsystem\raw.txt /echo 4 %chan 4End of List! 12Total: 10 $+ %total $+  }
  216. n214=  if (%option == 2) { write $mircdirsystem\raw.txt /msg %chan 4End of List! 12Total: 10 $+ %total $+  }
  217. n215=  play -c $me $mircdirsystem\raw.txt 300
  218. n216=  unset %token | unset %total | unset %a | unset %addr* | unset %clone* | unset %chan | unset %option | halt
  219. n217=}
  220. n218=#clones end
  221. n219=#filterkick disabled
  222. n220=352:* {
  223. n221=  if (%fkaddress == 1) {
  224. n222=    if (%fkip isin $parm3) {
  225. n223=      if ($parm6 isop $parm2) { halt }
  226. n224=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  227. n225=      kick $parm2 $parm6  $+ $g Filter Kick! - %fkip
  228. n226=    }
  229. n227=    if (%fkip isin $parm4) {
  230. n228=      if ($parm6 isop $parm2) { halt }
  231. n229=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  232. n230=      kick $parm2 $parm6  $+ $g Filter Kick! - %fkip
  233. n231=    }
  234. n232=  }
  235. n233=  if (%fkclones == 1) {
  236. n234=    if ($parm4 !isin %address) { %address = %address $parm4 }
  237. n235=    if ([ %addr [ $+ [ $parm4 ] ] ] != $null) {
  238. n236=      if ([ %clone [ $+ [ $parm4 ] ] ] == $null) {
  239. n237=        set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %addr [ $+ [ $parm4 ] ] ] $parm6
  240. n238=      }
  241. n239=      else {
  242. n240=        set % [ $+ [ clone [ $+ [ $parm4 ] ] ] ] [ %clone [ $+ [ $parm4 ] ] ] $parm6
  243. n241=      }
  244. n242=    }
  245. n243=    else {
  246. n244=      set % [ $+ [ addr [ $+ [ $parm4 ] ] ] ] $parm6
  247. n245=    }
  248. n246=  }
  249. n247=  if (%fkircop == 1) {
  250. n248=    if (* isin $parm7) {
  251. n249=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  252. n250=      kick $parm2 $parm6  $+ $g(12) Filter Kick! - All them IRCops!
  253. n251=    }
  254. n252=  }
  255. n253=  if (%fknonop == 1) {
  256. n254=    if (@ isin $parm7) { halt }
  257. n255=    if (%fkban == 1) { ban $parm2 $parm6 2 }
  258. n256=    kick $parm2 $parm6  $+ $g(12) Filter Kick! - Your not leet enough to be an op!
  259. n257=  }
  260. n258=  if (%fkvoice == 1) {
  261. n259=    if (+ isin $parm7) {
  262. n260=      if ($parm6 isop $parm2) { halt }
  263. n261=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  264. n262=      kick $parm2 $parm6  $+ $g(12) Filter Kick! - Voiced Users
  265. n263=    }
  266. n264=  }
  267. n265=  if (%fknovoice == 1) {
  268. n266=    if (+ !isin $parm7) {
  269. n267=      if ($parm6 isop $parm2) { halt }
  270. n268=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  271. n269=      kick $parm2 $parm6  $+ $g(12) Filter Kick! - Non-Voiced Users
  272. n270=    }
  273. n271=  }
  274. n272=  if (%fkaway == 1) {
  275. n273=    if ( G isin $Parm7 ) {
  276. n274=      if ($parm6 isop $parm2) { halt }
  277. n275=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  278. n276=      kick $parm2 $parm6  $+ $g(12) Filter Kick! - Away Users
  279. n277=    }
  280. n278=  }
  281. n279=  if (%fkhere == 1) {
  282. n280=    if ( G !isin $Parm7 ) {
  283. n281=      if ($parm6 isop $parm2) { halt }
  284. n282=      if (%fkban == 1) { ban $parm2 $parm6 2 }
  285. n283=      kick $parm2 $parm6  $+ $g(12) Filter Kick! - Present Users
  286. n284=    }
  287. n285=  }
  288. n286=  halt
  289. n287=}
  290. n288=315:* {
  291. n289=  if (%fkclones == 1) {
  292. n290=    set %a 1
  293. n291=    :next
  294. n292=    set %token $token(%a,32,%address)
  295. n293=    if (%token == $null) { goto done } | else {
  296. n294=      if ([ %clone [ $+ [ %token ] ] ] != $null) {
  297. n295=        inc %a | set %fclone [ %clone [ $+ [ %token ] ] ]
  298. n296=        if (%fclone == $null) { goto kickdone } | set %t 1
  299. n297=        :kickclone
  300. n298=        set %ftoken $token(%t,32,%fclone)
  301. n299=        if (%ftoken == $null) { goto kickdone } | else {
  302. n300=          if (%ftoken isop %chan) { goto kickdone }
  303. n301=          if (%fkban == 1) { ban %chan %ftoken 4}
  304. n302=          kick %chan %ftoken  $+ $g(12) Filter Kick! (All Clones) | inc %t | goto kickclone
  305. n303=        }
  306. n304=        :kickdone
  307. n305=        unset [ %clone [ $+ [ %token ] ] ]
  308. n306=        unset [ %addr [ $+ [ %token ] ] ]
  309. n307=        goto next
  310. n308=      }
  311. n309=      else { unset [ %addr [ $+ [ %token ] ] ] | inc %a | goto next }
  312. n310=    }
  313. n311=    :done
  314. n312=    unset %token | unset %a | unset %addr* | unset %clone* | unset %ftoken | unset %t | unset %fkclones
  315. n313=  }
  316. n314=  echo 4 -a $g(12) Filter Kick 10complete! | unset %fkircop | unset %fknonop | unset %fkvoice | unset %fknovoice
  317. n315=  unset %fkaddress | unset %fkban | unset %fkaway | unset %fkhere | unset %fkip | .disable #filterkick | unset %chan | unset %fclone | halt
  318. n316=}
  319. n317=#filterkick end
  320. n318=367:*: { 
  321. n319=  %bantimes = $ctime - $parm5
  322. n320=  gsecho 1 Bans $parm2 $+ : Ban: $parm3 $+ : Set By: $parm4 $+ , $aduration(%bantimes) ago
  323. n321=  unset %bantimes
  324. n322=  halt
  325. n323=}
  326. n324=482:* {
  327. n325=  if ($me isop $parm2) {
  328. n326=    gecho 4 $g(12) $parm2 $+ @ $+ $nick is desynched from the IRC network.
  329. n327=    halt
  330. n328=  }
  331. n329=  else {
  332. n330=    gecho 1 $g(12) You aren't oped in  $+ $parm2 $+ 
  333. n331=    halt
  334. n332=  }
  335. n333=}
  336. n334=404:* {
  337. n335=  if ($me isop $parm2) {
  338. n336=    gecho 4 $g(12) $parm2 @ $nick is desynched from the IRC network.
  339. n337=    halt
  340. n338=  }
  341. n339=  elseif (m !isin $mode($parm2)) {
  342. n340=    gecho 4 $g(12) $parm2 @ $nick is desynched from the IRC network.
  343. n341=    halt
  344. n342=  }
  345. n343=  else {
  346. n344=    gecho 4 $g(12) $parm2 $+ : Cannot send to channel.
  347. n345=    halt
  348. n346=  }
  349. n347=}
  350. n348=341:*:gecho 6 $g(12) $parm2 has been invited to: $parm3 | halt
  351. n349=351:*:gecho 4 $g(12) $nick running: IRCD Version $parm2 ( $+ $parm4 $parm5 $+ ) $chr(91) $+ $parm6* $+ $chr(93) | halt
  352. n350=381:*:gecho 6 $g(12) You now have 12IRC operator Status. 4(+o) | halt
  353. n351=405:*:gecho 1 $g(12) You have reached the maximum allowed joined channels for this server. | halt
  354. n352=432:*:gecho 1 $g(12) Erroneous nickname, please try again. | halt
  355. n353=433:*:gecho 4 $g(12) Nickname  $+ %c2 $+ $parm2 $+  is already in use. | whois $parm2
  356. n354=436:*:gecho 4 $g(12) Nickname Collision!! | nick $me $+ - | halt
  357. n355=465:*:gecho 4 $g(12) Kline on your host detected. Unable to connect to server. | halt
  358. n356=474:*:gecho 1 $g(12) $parm2 $+ : You are Banned (+b) | halt
  359. n357=473:*:gecho 1 $g(12) $parm2 $+ : Channel is Invite Only. (+i) | halt
  360. n358=471:*:gecho 1 $g(12) $parm2 $+ : Channel is full (+l) | halt
  361. n359=472:*:gecho 1 $g(12) $parm2 $+ : Incorrect Character | halt
  362. n360=475:*:gecho 1 $g(12) $parm2 $+ : Channel requires correct key to enter. (+k) | halt
  363. n361=481:*:gecho 12 $g(10) You do not IRCop Status (from: $nick $+ ) | halt
  364.