home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / shutils / internet / irc / script / glitch.exe / INI / alias.ini next >
Encoding:
INI File  |  1997-06-23  |  14.7 KB  |  339 lines
  1. [aliases]
  2. n0=/cycle {
  3. n1=  if (i isin $chan($$1).mode) { echo 12 ½(GLiTCH)╗1 Cannot cycle invite only channel | halt }
  4. n2=  set %cycle.key $chan($$1).key
  5. n3=  .raw part $$1
  6. n4=  join $$1 %cycle.key
  7. n5=  unset %cycle.key
  8. n6=}
  9. n7=/check.c {
  10. n8=  if ($server == $null) {
  11. n9=    echo 12 ½(GLiTCH)╗1 Please connect first
  12. n10=  halt }
  13. n11=}
  14. n12=/check.o {
  15. n13=  if ($me !isop #) {
  16. n14=    echo 12 ½(GLiTCH)╗1 You must be an op in  $+ # $+ 
  17. n15=  halt }
  18. n16=}
  19. n17=/gk {
  20. n18=  if ($comchan($$1,0) == 1) {
  21. n19=    if ($2 == b) { ban # $$1 3 }
  22. n20=  kick $comchan($$1,1) $$1 Global Kick %glitch $+  }
  23. n21=  if ($comchan($$1,0) >= 2) {
  24. n22=    set %gk.var 1
  25. n23=    set %gk.chans $comchan($$1,0)
  26. n24=    :start
  27. n25=    if ($2 == b) { ban $comchan($$1,%gk.var) $$1 3 }
  28. n26=    kick $comchan($$1,%gk.var) $$1 Global Kick %glitch $+ 
  29. n27=    if (%gk.var == %gk.chans) { unset %gk* | halt }
  30. n28=    inc %gk.var
  31. n29=    goto start
  32. n30=  }
  33. n31=}
  34. n32=/go {
  35. n33=  if ($comchan($$1,0) == 1) {
  36. n34=  mode $comchan($$1,1) $$2 $$1 }
  37. n35=  if ($comchan($$1,0) >= 2) {
  38. n36=    set %go.var 1
  39. n37=    set %go.chans $comchan($$1,0)
  40. n38=    :start
  41. n39=    mode $comchan($$1,%go.var) $$2 $$1
  42. n40=    if (%go.var == %go.chans) { unset %go* | halt }
  43. n41=    inc %go.var
  44. n42=    goto start
  45. n43=  }
  46. n44=}
  47. n45=/check.erase {
  48. n46=  if (%check.erase.stat == Enabled) {
  49. n47=    if ($right(*1,1) == $chr(%check.erase)) {
  50. n48=      beep 1 1
  51. n49=  halt } }
  52. n50=}
  53. n51=/opn {
  54. n52=  if ($opnick(%opn.chan,0) == 0) { echo 12 ½(GLiTCH)╗1 No ops in   $+ %opn.chan $+  | unset %opn.* | halt }
  55. n53=  if ($me isop %opn.chan) {
  56. n54=    if ($opnick(%opn.chan,0) == 1) { echo 12 ½(GLiTCH)╗1 You are the only op in %opn.chan | unset %opn* | halt }
  57. n55=    .onotice %opn.chan [OPNotice/ $+ %opn.chan $+ ] $$?="What do you want to say"
  58. n56=    echo 12 ½(GLiTCH)╗1 Finished Sending Notice( $+ $$! $+ ) to $opnick(%opn.chan,0) Op(s)
  59. n57=    unset %opn.*
  60. n58=  halt }
  61. n59=  if ($me !isop %op.chan) {
  62. n60=    set %opn.var 1
  63. n61=    set %opn.total $opnick(%opn.chan,0)
  64. n62=    set %opn.message $$?="What do you want to say?"
  65. n63=    :start
  66. n64=    set %opn.nick $opnick(%opn.chan,%opn.var)
  67. n65=    .notice %opn.nick [OPNotice/ $+ %opn.chan $+ ] %opn.message
  68. n66=    if (%opn.var == %opn.total) { echo 12 ½(GLiTCH)╗1 Finished Sending Notice( $+ %opn.message $+ ) to $opnick(%opn.chan,0) Op(s) | unset %opn.* | halt }
  69. n67=    else {
  70. n68=      inc %opn.var 1
  71. n69=    goto start }
  72. n70=  }
  73. n71=}
  74. n72=/mail.snd {
  75. n73=  msg = $+ $me mail from: %mail.me
  76. n74=  msg = $+ $me rcpt to: %mail.send
  77. n75=  msg = $+ $me data
  78. n76=  msg = $+ $me subject: %mail.subject
  79. n77=  msg = $+ $me %mail.message
  80. n78=  msg = $+ $me .
  81. n79=}
  82. n80=/piglatin {
  83. n81=  if (*1 == $null) { echo 12 ½(GLiTCH)╗1 No text entered | halt }
  84. n82=  set %o 1
  85. n83=  set %latin.text *1
  86. n84=  Set %latin.count $token(0,544,%latin.text)
  87. n85=  :start
  88. n86=  if (%o == %latin.count ) { 
  89. n87=    set %latin.word $token(%latin.count,544,%latin.text)
  90. n88=    Set %latin.letter $left(1,%latin.word)
  91. n89=    set %r $len(%latin.word)
  92. n90=    dec %r
  93. n91=    set %latin.word1 $mid(2,%r,%latin.word) $+ %latin.letter $+ ay
  94. n92=    Set %latin.total %latin.total %latin.word1
  95. n93=    if (? isin %latin.text) { set %latin.total $remove(%latin.total,?) $+ ? }
  96. n94=    if (. isin %latin.text) { set %latin.total $remove(%latin.total,.) $+ . }
  97. n95=    if (! isin %latin.text) { set %latin.total $remove(%latin.total,!) $+ ! }
  98. n96=    say  %latin.total | unset %o
  99. n97=  goto end }
  100. n98=  else {
  101. n99=    set %latin.temp $token(%o,544,%latin.text)
  102. n100=    set %latin.letter $left(1,%latin.temp)
  103. n101=    set %r $len(%latin.temp)
  104. n102=    dec %r
  105. n103=    set %latin.total %latin.total $mid(2,%r,%latin.temp) $+ %latin.letter $+ ay
  106. n104=    inc %o
  107. n105=    goto start
  108. n106=  }
  109. n107=  :end
  110. n108=  unset %latin.*
  111. n109=  unset %r
  112. n110=}
  113. n111=/split.enable {
  114. n112=  check.c
  115. n113=  .enable #splitdetector
  116. n114=  window -l @CurrentáSplitáServers 100 100 250 250 $mircdir $+ botfiles\splits.bot
  117. n115=  echo 12 ½(GLiTCH)╗1 NetSplit Detector Enabled
  118. n116=  set %splitdetector Enabled
  119. n117=  mode $me +s
  120. n118=}
  121. n119=/split.disable {
  122. n120=  check.c
  123. n121=  .disable #splitdetector
  124. n122=  window -c @CurrentáSplitáServers
  125. n123=  echo 12 -s ½(GLiTCH)╗1 NetSplit Detector Disabled
  126. n124=  set %splitdetector Disabled
  127. n125=  mode $me -s
  128. n126=}
  129. n127=/join {
  130. n128=  check.c
  131. n129=  check.chan *1
  132. n130=  sort.channels *1
  133. n131=  join *1
  134. n132=}
  135. n133=/check.chan {
  136. n134=  if (%channel1 == *1) { .raw join *1 | halt }
  137. n135=  elseif (%channel2 == *1) { .raw join *1 | halt }
  138. n136=  elseif (%channel3 == *1) { .raw join *1 | halt }
  139. n137=  elseif (%channel4 == *1) { .raw join *1 | halt }
  140. n138=  elseif (%channel5 == *1) { .raw join *1 | halt }
  141. n139=  elseif (%channel6 == *1) { .raw join *1 | halt }
  142. n140=  elseif (%channel7 == *1) { .raw join *1 | halt }
  143. n141=  elseif (%channel8 == *1) { .raw join *1 | halt }
  144. n142=  elseif (%channel9 == *1) { .raw join *1 | halt }
  145. n143=  elseif (%channel10 == *1) { .raw join *1 | halt }
  146. n144=}
  147. n145=/purgelist {
  148. n146=  if (%channel1 == $null) { echo 12 ½(GLiTCH)╗1 No channels to purge | halt }
  149. n147=  unset %channel1
  150. n148=  unset %channel2
  151. n149=  unset %channel3
  152. n150=  unset %channel4
  153. n151=  unset %channel5
  154. n152=  unset %channel6
  155. n153=  unset %channel7
  156. n154=  unset %channel8
  157. n155=  unset %channel9
  158. n156=  unset %channel10
  159. n157=  echo 12 ½(GLiTCH)╗1 All channels have been purged
  160. n158=}
  161. n159=/sort.channels {
  162. n160=  set %channel.var1 %channel1
  163. n161=  set %channel.var2 %channel2
  164. n162=  set %channel.var3 %channel3
  165. n163=  set %channel.var4 %channel4
  166. n164=  set %channel.var5 %channel5
  167. n165=  set %channel.var6 %channel6
  168. n166=  set %channel.var7 %channel7
  169. n167=  set %channel.var8 %channel8
  170. n168=  set %channel.var9 %channel9
  171. n169=  set %channel.var10 %channel10
  172. n170=  set %channel1 *1
  173. n171=  set %channel2 %channel.var1
  174. n172=  set %channel3 %channel.var2
  175. n173=  set %channel4 %channel.var3
  176. n174=  set %channel5 %channel.var4
  177. n175=  set %channel6 %channel.var5
  178. n176=  set %channel7 %channel.var6
  179. n177=  set %channel8 %channel.var7
  180. n178=  set %channel9 %channel.var8
  181. n179=  set %channel10 %channel.var9
  182. n180=  unset %channel.var*
  183. n181=  :end
  184. n182=}
  185. n183=/ghelp {
  186. n184=  if ($window(@GLiTCHáScriptáHelp).state != $null) { clear }
  187. n185=  else { window @GLiTCHáScriptáHelp $mircdir $+ botfiles\help2.bot }
  188. n186=  if ($$1 == autoop) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l1 botfiles\help.bot }
  189. n187=  if ($$1 == protection) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l2 botfiles\help.bot }
  190. n188=  if ($$1 == splits) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l3 botfiles\help.bot }
  191. n189=  if ($$1 == massdeop) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l4 botfiles\help.bot }
  192. n190=  if ($$1 == masskick) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l5 botfiles\help.bot }
  193. n191=  if ($$1 == serverop) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l6 botfiles\help.bot }
  194. n192=  if ($$1 == modes) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l7 botfiles\help.bot }
  195. n193=  if ($$1 == noopprot) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l8 botfiles\help.bot }
  196. n194=  if ($$1 == textflood) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l9 botfiles\help.bot }
  197. n195=  if ($$1 == caps) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l10 botfiles\help.bot }
  198. n196=  if ($$1 == onjoin) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l11 botfiles\help.bot }
  199. n197=  if ($$1 == backwards) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l12 botfiles\help.bot }
  200. n198=  if ($$1 == shorthand) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l13 botfiles\help.bot }
  201. n199=  if ($$1 == gnotify) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l14 botfiles\help.bot }
  202. n200=  if ($$1 == desynch) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l15 botfiles\help.bot }
  203. n201=  if ($$1 == autoban) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l16 botfiles\help.bot }
  204. n202=  if ($$1 == noop) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l17 botfiles\help.bot }
  205. n203=  if ($$1 == autovoice) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l18 botfiles\help.bot }
  206. n204=  if ($$1 == activewho) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l19 botfiles\help.bot }
  207. n205=  if ($$1 == activectcp) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l20 botfiles\help.bot }
  208. n206=  if ($$1 == sss) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l21 botfiles\help.bot }
  209. n207=  if ($$1 == scriptkicks) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l22 botfiles\help.bot }
  210. n208=  if ($$1 == nullified) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l23 botfiles\help.bot }
  211. n209=  if ($$1 == nick.getter) { echo 12 @GLiTCHáScriptáHelp ½(GLiTCH)╗1 $read -l24 botfiles\help.bot }
  212. n210=}
  213. n211=/oj.clone {
  214. n212=  set %oj.clone.address $address($$1,2)
  215. n213=  set %oj.clone.var 1
  216. n214=  :start
  217. n215=  if ($nick(%oj.chan,%oj.clone.var) == $$1) { inc %oj.clone.var 1 | goto start }
  218. n216=  if ($nick(%oj.chan,%oj.clone.var) == $null) {
  219. n217=    if ($token(0,544,%oj.clones) != $null) {
  220. n218=      set %oj.num $token(0,544,%oj.clones)
  221. n219=      inc %oj.num
  222. n220=      set %1st.nick $token(1,544,%oj.clones)
  223. n221=      set %1st.chan %oj.chan
  224. n222=  echo 12 -a ½(GLiTCH)╗1 %oj.num clones ( $+ $$1 %oj.clones @  $remove(%oj.clone.address,*!*@) $+ ) joined  $+ %oj.chan $+ ! Press F9 to ban | unset %oj.* | halt } }
  225. n223=  if ($nick(%oj.chan,%oj.clone.var) == $null) && ($token(0,544,%oj.clones) == $null) { unset %oj.* | halt }
  226. n224=  if ($address($nick(%oj.chan,%oj.clone.var),2) == %oj.clone.address) {
  227. n225=  set %oj.clones %oj.clones $nick(%oj.chan,%oj.clone.var) }
  228. n226=  inc %oj.clone.var 1
  229. n227=  goto start
  230. n228=}
  231. n229=/notes /echo 12 ½(GLiTCH)╗1 Editing QuickNotes | /run c:\windows\notepad.exe $mircdir $+ botfiles\quiknote.bot
  232. n230=/glitch {
  233. n231=  run $mircdir $+ about.exe
  234. n232=}
  235. n233=/glitch2 {
  236. n234=  /echo 12 ááááááá _______áááááááá_á______________áá__ 
  237. n235=  /echo 12 ááááá/á____áá/áá/áááááá(_)_áá__/á____/ááá/ááá/ááá/ 
  238. n236=  /echo 14 ááá/ /áá__ á/áá/áááááá/áá/á/á /á/á/áááááááá/ááá/_á/ááá/ 
  239. n237=  /echo 14 á/á/_/á áá/áá/___/ á/á/áá/á/á/___/áááá__ááááá/   
  240. n238=  /echo 12 á\____/_____/_/á/_/áá\____/_/áááá/_/   4(v4.3)(mIRC5.0)
  241. n239=  /echo 12 Script for mIRC5.0, ⌐1997 GLiTCH Studios
  242. n240=  /echo 2 Programmed by ]-[obbes
  243. n241=  /echo 2 Used  $+ %usage $+  times.
  244. n242=  /echo 3 E-mail suggestions and fixes to glitchstudios@hotmail.com
  245. n243=  /echo 3 Web Page http://glitch.home.ml.org
  246. n244=  /echo 5 You are responsible for manually reading the MOTD by typing "/motd"
  247. n245=}
  248. n246=/setvars {
  249. n247=  inc %usage 1
  250. n248=  set %glitch ½(GLiTCH)╗
  251. n249=  set %away.set no
  252. n250=  set %away.remind me
  253. n251=  set %f6.stat no
  254. n252=  unset %scan*
  255. n253=  unset %messager*
  256. n254=  unset %floodp*
  257. n255=  unset %floodnetp*
  258. n256=  unset %msg.chan*
  259. n257=  unset %1st*
  260. n258=}
  261. n259=/glag {
  262. n260=  check.c
  263. n261=  set %glag Enabled
  264. n262=  set %glag.m $ticks
  265. n263=  set %glag.s $ctime
  266. n264=  raw -q glitch
  267. n265=}
  268. n266=/lock.client {
  269. n267=  window -de @GLiTCHáScriptáClientáLock 100 100 250 200
  270. n268=  echo 12 @GLiTCHáScriptáClientáLock ½(GLiTCH)╗1 GLiTCH Script is now locked
  271. n269=  echo 12 @GLiTCHáScriptáClientáLock ½(GLiTCH)╗1 Please Enter Password : 
  272. n270=  .enable #client.lock
  273. n271=}
  274. n272=/show.settings {
  275. n273=  window @CurrentáSettings 100 100 630 600 $mircdir $+ botfiles\setting.bot
  276. n274=  echo 1 @CurrentáSettings Current settings file =  $+ %cs $+ 
  277. n275=  echo 4 @CurrentáSettings $str(-,50)
  278. n276=  echo 2 @CurrentáSettings Autoop = 1 $+ %autoop $+ 
  279. n277=  echo 2 @CurrentáSettings User Protection = 1 $+ %l5prot $+ 
  280. n278=  echo 2 @CurrentáSettings Autoban = 1 $+ %autoban.stat $+ 
  281. n279=  echo 2 @CurrentáSettings Autovoice = 1 $+ %autovoice $+ 
  282. n280=  echo 2 @CurrentáSettings NoOp = 1 $+ %noop.stat $+ 
  283. n281=  echo 4 @CurrentáSettings $str(-,50)
  284. n282=  echo 3 @CurrentáSettings Split Detector = 1 $+ %splitdetector $+ 
  285. n283=  echo 3 @CurrentáSettings AutoAway = 1 $+ %auto-away $+ 3 Idle for = 1 %auto.away.min minute(s)
  286. n284=  echo 3 @CurrentáSettings Smart Notify = 1 $+ %stat.gnotify $+ 
  287. n285=  echo 3 @CurrentáSettings Nick Retriever = 1 $+ %nick.getter.stat $+ 
  288. n286=  echo 3 @CurrentáSettings Whois in Active = 1 $+ %activewho $+ 
  289. n287=  echo 3 @CurrentáSettings Ctcps in Active = 1 $+ %ctcp.active $+ 
  290. n288=  echo 4 @CurrentáSettings $str(-,50)
  291. n289=  echo 4 @CurrentáSettings Text Nullifier = 1 $+ %check.erase.stat $+  4Character = 1 " $+ $chr(%check.erase) $+ " 
  292. n290=  echo 4 @CurrentáSettings Shorthand Text = 1 $+ %shorthand $+ 
  293. n291=  echo 4 @CurrentáSettings Backwards Text = 1 $+ %backwards.text $+ 
  294. n292=  echo 4 @CurrentáSettings $str(-,50)
  295. n293=  echo 6 @CurrentáSettings Email Username = 1 %email.user $+ 
  296. n294=  echo 6 @CurrentáSettings Email Password = 1 %email.pass $+ 
  297. n295=  echo 4 @CurrentáSettings $str(-,50)
  298. n296=  echo 7 @CurrentáSettings Text Flood Protection = 1 $+ %text.flood $+ 7 TotalLines = 1 %total.text $+ 7 Rate = 1 %text.floodr $+ 
  299. n297=  echo 7 @CurrentáSettings Channel Desynch Protection = 1 $+ %desynch.prot $+ 
  300. n298=  echo 7 @CurrentáSettings On Join Clone Scanner = 1 $+ %onjoin.stat $+ 
  301. n299=  echo 7 @CurrentáSettings CTCP Flood Protection = 1 $+ %flood $+ 7 MaxCtcps = 1 %total.ctcps $+ 7 Rate = 1 %flood.rate $+ 
  302. n300=  echo 7 @CurrentáSettings Caps Detector = 1 $+ %stat.caps $+ 7 MaxCaps = 1 %total.caps $+ 
  303. n301=  echo 7 @CurrentáSettings Mass Deop/Kick Protecion = 1 $+ %mass.deop.stat $+ 7 MaxDeops = 1 %mass.deop.total $+ /1 %mass.kick.stat $+ 7 MaxKicks = 1 %mass.kick.total $+ 
  304. n302=  echo 7 @CurrentáSettings Channel Protections = 7ServerOp Protection = 1 $+ %serverop $+  $+ / $+ 7Channel Mode Protection = 1 $+ %modeprot $+  $+ / $+ 7NoOp = 1 $+ %noop $+ 
  305. n303=}
  306. n304=/color {
  307. n305=  set %phrase *1
  308. n306=  set %loop 1
  309. n307=  set %newphrase 0
  310. n308=  :loop
  311. n309=  if %loop > $len(%phrase) goto end
  312. n310=  if $mid(%loop,1,%phrase) isin 0123456789 set %mid  $+ $r(10,15) $+ $mid(%loop,1,%phrase)
  313. n311=  else set %mid  $+ $r(1,15) $+ $mid(%loop,1,%phrase)
  314. n312=  if $asc($mid(%loop,1,%phrase)) == 32 set %newphrase %newphrase $+ $chr(160)
  315. n313=  else set %newphrase %newphrase $+ %mid
  316. n314=  inc %loop
  317. n315=  goto loop
  318. n316=  :end
  319. n317=  say %newphrase
  320. n318=}
  321. n319=/+ {
  322. n320=  if ($chan) {
  323. n321=    check.c
  324. n322=    check.o
  325. n323=    if (*1 != $null) { mode # + $+ *1 }
  326. n324=  }
  327. n325=}
  328. n326=/- {
  329. n327=  if ($chan) {
  330. n328=    check.c
  331. n329=    check.o
  332. n330=    if (*1 != $null) { mode # - $+ *1 }
  333. n331=  }
  334. n332=}
  335. n333=/reason {
  336. n334=  if (%script.kicks == Enabled) { echo 12 -a ½(GLiTCH)╗1  $+ $$1 $+  was kicked from  $+ $$2 $+  Reason :  $+ *3 $+ 
  337. n335=  }
  338. n336=}
  339.