home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / shutils / internet / irc / script / glitch.exe / INI / raw.ini < prev    next >
Encoding:
INI File  |  1997-06-22  |  9.8 KB  |  252 lines
  1. [script]
  2. n0=#op.capture off
  3. n1=raw 352:*:{
  4. n2=  if (* isin $parm7) { inc %capture 1 | echo 12 @IRCopsáoná $+ %op.scan.chan ½(GLiTCH)╗1 %capture $+ . $parm6 $parm3 $+ @ $+ $parm4 is an IRCop. }
  5. n3=  .halt
  6. n4=}
  7. n5=raw 315:*:{
  8. n6=  if (%capture == 0) {
  9. n7=  echo 12 @IRCopsáoná $+ %op.scan.chan ½(GLiTCH)╗1 No IRCops Detected on %op.scan.chan | set %op.capture Off | unset %capture | .disable #op.capture }
  10. n8=  else { echo 12 @IRCopsáoná $+ %op.scan.chan ½(GLiTCH)╗1 Found %capture IRCop(s) on %op.scan.chan | set %op.capture Off | unset %capture | .disable #op.capture }
  11. n9=  %end.time = $ctime - %start.time
  12. n10=  %end.time.mill = $ticks - %start.time.mill
  13. n11=  echo 12 @IRCopsáoná $+ %op.scan.chan ½(GLiTCH)╗1 Total Time Elapsed : %end.time $+ . $+ $right(%end.time.mill,2) second(s)
  14. n12=  unset %op.scan.chan %start.time %end.time %start.time.mill %end.time.mill
  15. n13=  .halt
  16. n14=}
  17. n15=#op.capture end
  18. n16=#search off
  19. n17=raw 352:*:{
  20. n18=  if (%search.string isin $parms) {
  21. n19=    inc %search.found 1
  22. n20=  echo 12 @SearcháResultsáForá $+ %search.channel ½(GLiTCH)╗1 %search.found $+ . Found : $parm6 $parm3 $+ @ $+ $parm4 : $parm9* }
  23. n21=  halt
  24. n22=}
  25. n23=raw 315:*:{
  26. n24=  if (%search.found == 0) {
  27. n25=  echo 12 @SearcháResultsáForá $+ %search.channel ½(GLiTCH)╗1 $+ Found 0 with matching string | .disable #search }
  28. n26=  else { echo 12 @SearcháResultsáForá $+ %search.channel ½(GLiTCH)╗1 Total Found : %search.found | .disable #search }
  29. n27=  %end.time = $ctime - %start.time
  30. n28=  %end.time.mill = $ticks - %start.time.mill
  31. n29=  echo 12 @SearcháResultsáForá $+ %search.channel ½(GLiTCH)╗1 Total Time Elapsed : %end.time $+ . $+ $right(%end.time.mill,2) second(s)
  32. n30=  unset %start.time %end.time %search* %end.time.mill %start.time.mill
  33. n31=  halt
  34. n32=}
  35. n33=#search end
  36. n34=#ban.retrieve off
  37. n35=raw 367:*:{
  38. n36=  set %bans 1
  39. n37=  set %ban.chan @Banlistáforá $+ [ $parm2 ]
  40. n38=  window -l %ban.chan
  41. n39=  aline %ban.chan $parm3 was banned at $asctime( $+ $parm5 $+ ) by $parm4
  42. n40=  halt
  43. n41=}
  44. n42=raw 368:*:{
  45. n43=  if (%bans == $null) { echo 12 -a ½(GLiTCH)╗1 No bans detected for  $+ $parm2 $+  | .disable #ban.retrieve | halt }
  46. n44=  else {
  47. n45=    aline %ban.chan $str(-,100)
  48. n46=    aline %ban.chan Banlist for [ $parm2 ] is Done!
  49. n47=    unset %ban.chan %bans
  50. n48=  }
  51. n49=  .disable #ban.retrieve
  52. n50=  halt
  53. n51=}
  54. n52=#ban.retrieve end
  55. n53=raw 433:*: {
  56. n54=  if (%nick.getter.stat == Enabled) {
  57. n55=    set %nick.getter $parm2
  58. n56=    echo 12 ½(GLiTCH)╗1 $parm2 is in use. Press F6, and GLiTCH will automatically get the nick when the user leaves IRC.
  59. n57=    .titlebar GLiTCH Script v4.3 ( $+ Nick : $me $+ ) ( $+ Day : $day $+ ) ( $+ Messages : %messages.total $+ )
  60. n58=    halt
  61. n59=  }
  62. n60=  .titlebar GLiTCH Script v4.3 ( $+ Nick : $me $+ ) ( $+ Day : $day $+ ) ( $+ Messages : %messages.total $+ )
  63. n61=}
  64. n62=raw 432 :*:{
  65. n63=  .titlebar GLiTCH Script v4.3 ( $+ Nick : $me $+ ) ( $+ Day : $day $+ ) ( $+ Messages : %messages.total $+ )
  66. n64=}
  67. n65=#channel.scan off
  68. n66=raw 352:*:{
  69. n67=  if (* isin $parm7) {
  70. n68=    inc %scan.total.ircops 1
  71. n69=  set %scan.copnicks %scan.copnicks $parm6 }
  72. n70=  if (%scan.clones.address [ $+ [ $parm4 ] ] == $null) {
  73. n71=    set %scan.clones.address $+ $parm4 0
  74. n72=  set %scan.clones.nickers $+ $parm4 $parm6 }
  75. n73=  else { 
  76. n74=    inc %scan.total.clones 1
  77. n75=    set %scan.total.clones.address %scan.total.clones.address $parm4
  78. n76=  set %scan.total.clones.nicks %scan.total.clones.nicks $parm6 }
  79. n77=  halt
  80. n78=}
  81. n79=raw 315:*:{
  82. n80=  window @ChanneláScanáForá $+ %scan.channel 100 100 400 150
  83. n81=  echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 Topic : ( $+ $chan(%scan.channel).topic $+ )
  84. n82=  set %scan.total.users $nopnick(0,$parm2) + $opnick(0,$parm2)
  85. n83=  echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 Total ops : $opnick(0,$parm2) -- Total Nonops : $nopnick(0,$parm2) -- Total : %scan.total.users
  86. n84=  if (%scan.total.ircops == $null) {
  87. n85=  echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 No IRCops Detected }
  88. n86=  else { echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 Total IRCops : %scan.total.ircops $+ ; %scan.copnicks }
  89. n87=  if (%scan.total.bans == $null) {
  90. n88=  echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 No Bans Detected }
  91. n89=  else { echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 Total Bans Detected : %scan.total.bans }
  92. n90=  if (%scan.total.clones == 0) {
  93. n91=  echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 No Clones Detected | goto end }
  94. n92=  else { echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 Total Clones Found : %scan.total.clones    
  95. n93=    set %scan.i 1
  96. n94=    set %scan.hitme $token(0,544,%scan.total.clones.address)
  97. n95=    :start
  98. n96=    set %scan.clones.separate.nick $token(%scan.i,544,%scan.total.clones.nicks)
  99. n97=    set %scan.clones.product %scan.clones.separate.nick at $token(%scan.i,544,%scan.total.clones.address) has clones
  100. n98=    echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 %scan.clones.product
  101. n99=    if (%scan.i == %scan.hitme) { goto end }
  102. n100=    inc %scan.i 1
  103. n101=    goto start
  104. n102=  }
  105. n103=  :end
  106. n104=  %end.time = $ctime - %start.time
  107. n105=  %end.time.mill = $ticks - %start.time.mill
  108. n106=  echo 12 @ChanneláScanáForá $+ %scan.channel ½(GLiTCH)╗1 Total Time Elapsed : %end.time $+ . $+ $right(%end.time.mill,2) second(s)
  109. n107=  .disable #channel.scan
  110. n108=  unset %scan.* %start.time %end.time %start.time.mill %end.time.mill
  111. n109=  halt
  112. n110=}
  113. n111=raw 367:*: {
  114. n112=  inc %scan.total.bans 1
  115. n113=  halt
  116. n114=}
  117. n115=raw 368:*:{ halt }
  118. n116=#channel.scan end
  119. n117=raw 421:*:{
  120. n118=  if (%glag = Enabled) {
  121. n119=    if (glitch isin $parms) { %lag.m = $ticks - %glag.m | %lag.s = $ctime - %glag.s
  122. n120=  echo 12 -a ½(GLiTCH)╗1 Ping Reply :  $+ %lag.s $+ . $+ $right(%lag.m,2) $+  seconds | unset %lag* %glag.* | set %glag Disabled | halt } }
  123. n121=}
  124. n122=#port.scanner off
  125. n123=raw 211:*:{
  126. n124=  if (%ports.flag == yes) {
  127. n125=    if ($left(4,$right(5,$parm2)) isnum) { set %ports.all %ports.all $left(4,$right(5,$parm2)) }
  128. n126=    set %ports.var $parm5 + $parm7
  129. n127=    %ports.average = %ports.var + %ports.average
  130. n128=    aline @Ports Port : $left(4,$right(5,$parm2)) KBytes Sent/Recvd : %ports.var $+ (the less bytes, the faster port) | inc %total.ports 1
  131. n129=    if (%ports.var < %ports.constant) { set %ports.constant $parm5 + $parm7 | set %ports.best $left(4,$right(5,$parm2)) }
  132. n130=  }
  133. n131=  else {
  134. n132=    if (%ports.vari == 1) { inc %ports.vari | goto end }
  135. n133=    if (%ports.vari == 2) { set %ports.flag yes | set %ports.constant $parm5 + $parm7 }
  136. n134=    :end
  137. n135=    halt
  138. n136=  }
  139. n137=  halt
  140. n138=}
  141. n139=raw 219:*:{
  142. n140=  aline @Ports ----------------------------------------------------------
  143. n141=  aline @Ports Fastest Port : %ports.best
  144. n142=  aline @Ports Total Ports : %total.ports
  145. n143=  aline @Ports Current Port : $port
  146. n144=  %ports.average = %ports.average / %total.ports
  147. n145=  aline @Ports Average KBytes Sent/Recvd : %ports.average
  148. n146=  unset %ports.*
  149. n147=  unset %total.ports
  150. n148=  .disable #port.scanner
  151. n149=  halt
  152. n150=}
  153. n151=#port.scanner end
  154. n152=raw 438:*:{
  155. n153=  if (%nick.retry == Enabled) { 
  156. n154=    .timer 1 $parm9 nick $parm2
  157. n155=    echo 12 ½(GLiTCH)╗1 Nick change too fast. Retrying nick( $+ $parm2 $+ ) in  $+ $parm9 $+  seconds. Please wait...
  158. n156=    halt
  159. n157=  }
  160. n158=}
  161. n159=raw 302:*:{
  162. n160=  if (%stat.gnotify == Enabled) {
  163. n161=    set %gnotify.n $remove($token(1,61,$parm2),$chr(61))
  164. n162=    set %gnotify.len $len($token(2,61,$parm2))
  165. n163=    dec %gnotify.len 1
  166. n164=    set %gnotify.a %gnotify.n $+ ! $+ $remove($right($token(2,61,$parm2),%gnotify.len),~)
  167. n165=    if ($level($mask(%gnotify.a,3)) >= 2) {
  168. n166=      echo 10 *** %gnotify.n is on IRC
  169. n167=    }
  170. n168=    else { echo 2 *** %gnotify.n is on IRC }
  171. n169=    unset %gnotify*
  172. n170=    halt
  173. n171=  }
  174. n172=}
  175. n173=raw 311:*:{
  176. n174=  if (%activewho = Enabled) {
  177. n175=    if ($active != %activestat) {
  178. n176=      echo 10 -a $$2 is $$3 $+ @ $+ $$4 * $right($parm6*,$len($parm6*))
  179. n177=    halt }
  180. n178=  }
  181. n179=}
  182. n180=raw 314:*:{
  183. n181=  if (%activewho = Enabled) {
  184. n182=    if ($active != %activestat) {
  185. n183=      echo 10 -a $parm2 was $parm3 $+ @ $+ $parm4*
  186. n184=    halt }
  187. n185=  }
  188. n186=}
  189. n187=raw 312:*:{
  190. n188=  if (%activewho = Enabled) {
  191. n189=    if ($active != %activestat) {
  192. n190=      echo 10 -a $$2 using $3-
  193. n191=    halt }
  194. n192=  }
  195. n193=}
  196. n194=raw 406:*:{
  197. n195=  if (%activewho = Enabled) {
  198. n196=    if ($active != %activestat) {
  199. n197=      echo 10 -a $parm2 There was no such nickname
  200. n198=    halt }
  201. n199=  }
  202. n200=}
  203. n201=raw 369:*:{
  204. n202=  if (%activewho = Enabled) {
  205. n203=    if ($active != %activestat) {
  206. n204=      echo 10 -a End of WHOWAS
  207. n205=    halt }
  208. n206=  }
  209. n207=}
  210. n208=raw 301:*:{
  211. n209=  if (%activewho = Enabled) {
  212. n210=    if ($active != %activestat) {
  213. n211=      echo 10 -a $$2 is away: $right($parm3*,$len($parm3*))
  214. n212=    halt }
  215. n213=  }
  216. n214=}
  217. n215=raw 317:*:{
  218. n216=  if (%activewho = Enabled) {
  219. n217=    if ($active != %activestat) {
  220. n218=      echo 10 -a $$2 has been idle $duration($$3) $+ , signed on $asctime($$4)
  221. n219=    halt }
  222. n220=  }
  223. n221=}
  224. n222=raw 318:*:{
  225. n223=  if (%activewho = Enabled) {
  226. n224=    if ($active != %activestat) {
  227. n225=      echo 10 -a End of /WHOIS list.
  228. n226=    halt }
  229. n227=  }
  230. n228=}
  231. n229=raw 319:*:{
  232. n230=  if (%activewho = Enabled) {
  233. n231=    if ($active != %activestat) {
  234. n232=      echo 10 -a $$2 on $$3-
  235. n233=    halt }
  236. n234=  }
  237. n235=}
  238. n236=raw 401:*:{
  239. n237=  if (%activewho = Enabled) {
  240. n238=    if ($active != %activestat) {
  241. n239=      echo 10 -a $$2 No such nick/channel
  242. n240=    halt }
  243. n241=  }
  244. n242=}
  245. n243=raw 313:*:{
  246. n244=  if (%activewho = Enabled) {
  247. n245=    if ($active != %activestat) {
  248. n246=      echo 10 -a $$2 is an IRC operator
  249. n247=    halt }
  250. n248=  }
  251. n249=}
  252.