home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / s13b2197.exe / Silence / aliases.ini < prev    next >
INI File  |  1997-01-05  |  25KB  |  450 lines

  1. [Aliases]
  2. n0=ereet. /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\ereet..plg 0
  3. n1=bah /echo 2 -a [ % $+ status3.2. [ $+ [ # ] $+ .join ] ]
  4. n2=leet /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\leet.plg 0
  5. n3=year2000 /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\year2000.plg 0
  6. n4=superstat /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\superstat.plg 0
  7. n5=spuf /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\spuf.plg 0
  8. n6=plugit /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\plugit.plg 0
  9. n7=lametopic /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\lametopic.plg 0
  10. n8=lamelame /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\lamelame.plg 0
  11. n9=cybertime /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\cybertime.plg 0
  12. n10=coolmode /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\coolmode.plg 0
  13. n11=bw /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\bw.plg 0
  14. n12=colorlist /set %plugact $active | /set %plugchan # | /set %pluginfo *1 | /play -c $me  $mircdir $+ plugins\colorlist.plg 0
  15. n13=;; (-)-aliases-(-)
  16. n14=bans mode $1 +b
  17. n15=aduration return $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($duration($1),wks,áWeeks`),days,áDays`),1day,1áDay`),1wk,1áWeek`),hrs,áHours`),1hr,1áHour`),mins,áMinutes`),1min,1áMinute`),secs,áSeconds.),1sec,1áSecond.),á,$chr(32)),`,$chr(44))
  18. n16=kewlkewl return $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 $mircdirtext\kewlkewl.txt $+ $read -l1 [ $mircdirtext\kewlkewl.txt
  19. n17=umode mode $me *1
  20. n18=whoami set %whois echo 2 $active | raw -q whois $me
  21. n19=me's me 's *1
  22. n20=me if ($1 = 's) { echo 6 * $me $+ 's $replace(*2,/me,$me) | .me 's $replace(*2,/me,$me) } | else me $replace(*1,/me,$me)
  23. n21=lusers .enable #lusers | lusers *1
  24. n22=sv say  $logosil  v1.3 0,5-0,1silence12970,5- $strip(%plugins)
  25. n23=pstats .timer 1 1 pstats *1 | .timer 1 1 00001 | 00010
  26. n24=filter .timer 1 1 filter *1 | .timer 1 1 00001 | 00010
  27. n25=topiclock .timer 1 1 topiclock *1 | .timer 1 1 00001 | 00010
  28. n26=shelp .timer 1 1 shelp *1 | .timer 1 1 00001 | 00010
  29. n27=http .timer 1 1 http *1 | .timer 1 1 00001 | 00010
  30. n28=irc .timer 1 1 irc *1 | .timer 1 1 00001 | 00010
  31. n29=status .timer 1 1 status2 *1 | .timer 1 1 00001 | 00027
  32. n30=lock .timer 1 1 lock *1 | .timer 1 1 00001 | 00027
  33. n31=unlock .timer 1 1 unlock *1 | .timer 1 1 00001 | 00027
  34. n32=takeo .timer 1 1 takeo *1 | .timer 1 1 00001 | 00027
  35. n33=status2.2 .timer 1 1 status2.2 *1 | .timer 1 1 00001 | 00027
  36. n34=upgrade .timer 1 1 upgrade *1 | .timer 1 1 00001 | 00010
  37. n35=search .timer 1 1 search *1 | .timer 1 1 00001 | 00010
  38. n36=sendtext .timer 1 1 sendtext *1 | .timer 1 1 00001 | 00010
  39. n37=sendmail .timer 1 1 sendmail *1 | .timer 1 1 00001 | 00010
  40. n38=email .timer 1 1 emaillog *1 | .timer 1 1 00001 | 00010
  41. n39=emaillog .timer 1 1 emaillog *1 | .timer 1 1 00001 | 00010
  42. n40=retrmail .timer 1 1 retrmail *1 | .timer 1 1 00001 | 00010
  43. n41=delmail .timer 1 1 delmail *1 | .timer 1 1 00001 | 00010
  44. n42=cmotd .timer 1 1 cmotd *1 | .timer 1 1 00001 | 00010
  45. n43=ticker .timer 1 1 ticker *1 | .timer 1 1 00001 | 00010
  46. n44=checkmail .timer 1 1 checkmail *1 | .timer 1 1 00001 | 00010
  47. n45=telnet .timer 1 1 telnet *1 | .timer 1 1 00001 | 00010
  48. n46=lt .timer 1 1 lt *1 | .timer 1 1 00001 | 00004
  49. n47=trix .timer 1 1 trix *1 | .timer 1 1 00001 | 00004
  50. n48=nin .timer 1 1 nin *1 | .timer 1 1 00001 | 00004
  51. n49=mc .timer 1 1 mc *1 | .timer 1 1 00001 | 00004
  52. n50=sci .timer 1 1 sci *1 | .timer 1 1 00001 | 00004
  53. n51=I invite $1 $2
  54. n52=scit .timer 1 1 scit *1 | .timer 1 1 00001 | 00004
  55. n53=sci1 .timer 1 1 sci1 *1 | .timer 1 1 00001 | 00004
  56. n54=flash .timer 1 1 flash *1 | .timer 1 1 00001 | 00010
  57. n55=icmp .timer 1 1 icmp *1 | .timer 1 1 00001 | 00010
  58. n56=echotext .timer 1 1 echotext *1 | .timer 1 1 00001 | 00010
  59. n57=big .timer 1 1 big *1 | .timer 1 1 00001 | 00010
  60. n58=xdcc .timer 1 1 xdcc *1 | .timer 1 1 00001 | 00010
  61. n59=fupps .timer 1 1 fupps *1 | .timer 1 1 00001 | 00010
  62. n60=nhp .timer 1 1 nhp *1 | .timer 1 1 00001 | 00010
  63. n61=random .timer 1 1 random *1 | .timer 1 1 00001 | 00010
  64. n62=vote .timer 1 1 vote *1 | .timer 1 1 00001 | 00010
  65. n63=votefinish .timer 1 1 votefinish *1 | .timer 1 1 00001 | 00010
  66. n64=cloneslive .timer 1 1 cloneslive *1 | .timer 1 1 00001 | 00010
  67. n65=cm .timer 1 1 cm *1 | .timer 1 1 00001 | 00010
  68. n66=www .timer 1 1 www *1 | .timer 1 1 00001 | 00010
  69. n67=calc .timer 1 1 calc *1 | .timer 1 1 00001 | 00010
  70. n68=nfl .timer 1 1 nfl *1 | .timer 1 1 00001 | 00010
  71. n69=tb .timer 1 1 tb *1 | .timer 1 1 00001 | 00010
  72. n70=stat .timer 1 1 status *1 | .timer 1 1 00001 | 00010
  73. n71=stats /query ServeráStatistics | /stats *1
  74. n72=deop mode # -oooo $1 $2 $3 $4
  75. n73=l1 say $replace($replace($replace($replace($replace($upper(*1),A,a),E,e),I,i),O,o),U,u)
  76. n74=l2 say $replace($replace($replace($replace($replace($replace(*1,i,1),t,7),s,5),o,0),e,3),a,4)
  77. n75=notice echo 5 :> <! $+ $1 $+ í> *2 | .notice *1
  78. n76=ctcp echo 2 -> (! $+ $1 $+ í) $upper($2) *3 | .ctcp *1
  79. n77=join if ($chr(35) !isin $1) { join $chr(35) $+ $$?1="Whicháchannel?" *2 } | else { join $$?1="Whicháchannel?" *2 }
  80. n78=title titlebar -:[silence]:- %status.cloak %status.away %status.messages %status.lag %status.email %status.upgrade %status.disconnect %status.ticker áá.oOo.
  81. n79=F10 accept
  82. n80=color if ($1 = on) { set %color on | echo 4 !Sí Colored popups, away, version replys etc turned on } | if ($1 = off) { set %color off  | echo 4 !Sí Colored popups, away, version replys etc turned off }
  83. n81=dns echo 1 -s - | dns *1
  84. n82=accept dcc chat %chatlast
  85. n83=dict set %dicthe http_webster | 00015 *1
  86. n84=thes set %dicthe thesaurus | 00015 *1
  87. n85=listbans .enable #banslist | mode # b | echo 2 !Sí Listing bans on #
  88. n86=clearbans .enable #clearbans | mode # b | echo 2 !Sí Clearing bans on #
  89. n87=F8 echo 2 !Sí sending a clone on %split | set %oldnick %defnick | set %defnick $left(3,%defnick) $+ -SiX | .save -v $mircdirsilence\variable.ini | run $mircdirsilence.exe -s $+ %split | .timer 1 10 set %defnick %oldnick | .timer 1 10 .save -v $mircdirsilence/variable.ini
  90. n88=spawn if ($1 = $null) { echo 4 !Sí /spawn <server> | halt }  | echo 2 !Sí spawning a clone on $1 | set %oldnick %defnick | set %defnick $left(3,%defnick) $+ -SiX | .save -v $mircdirsilence\variable.ini | run $mircdirsilence.exe -s $+ $1 | .timer 1 10 set %defnick %oldnick | .timer 1 10 .save -v $mircdirsilence/variable.ini
  91. n89=F7 echo 2 !Sí Jumping on %split | cs %split
  92. n90=mflood set %flood $1 | play -c $me $mircdirtext\multi.txt 0 
  93. n91=pflood set %flood $1 | play -c $me $mircdirtext\ping.txt 0
  94. n92=vflood set %flood $1 | play -c $me $mircdirtext\version.txt 0
  95. n93=cflood set %flood $1 | play -c $me $mircdirtext\chat.txt 0 
  96. n94=pgflood set %flood $1 | play -c $me $mircdirtext\page.txt 0
  97. n95=sflood set %flood $1 | play -c $me $mircdirtext\dcc.txt 0
  98. n96=tflood set %flood $1 | play -c $me $mircdirtext\trout.txt 0 
  99. n97=tsflood set %flood $1 | play -c $me $mircdirtext\tsunami.txt 0 
  100. n98=whois if ($2 = idle) { set %whois halt | whois $1 | halt } | if (s isin $2) { set %whois msg $active | whois $1 | halt } | else { set %whois echo 1 | whois $1 | halt }
  101. n99=servlist echo 2 !Sí Creating a server list to $mircdirsilence\servlist.txt | write -c $mircdirsilence\servlist.txt | .enable #servlist | links 
  102. n100=motd .enable #motd | raw -q MOTD *1
  103. n101=ct raw -q TOPIC # :
  104. n102=F11 /join %invite
  105. n103=am echo 2 !Sí Address matching *1 | set %admh *1 | .enable #addressmatch | who *1 
  106. n104=t topic # *1
  107. n105=+ mode # + $+ *1
  108. n106=- mode # - $+ *1
  109. n107=rsk /set %temp $rand(1,$lines($mircdirtext\mkicks.txt)) | echo 2 !Sí Kicking $1 with a random splatterkick (Number: $+ %temp $+ ) | set %kick $1 | $read [ -l $+ [ %temp ] ] $mircdirtext\mkicks.txt | unset %kick | unset %temp
  110. n108=sk echo 2 !Sí Kicking $2 with splatterkick $1 | set %kick $2 | $read [ -l $+ [ $1 ] ] $mircdirtext\mkicks.txt | unset %kick
  111. n109=autojoin play -c $me $mircdirsilence\autojoin.txt 0
  112. n110=F9 title
  113. n111=F6 .timer97 off | echo 2 !Sí Stopped trying to retrieve nickname: %defnick
  114. n112=kewl play -c $me $mircdirtext\colors.txt 0
  115. n113=F4 .timer72 0 60 raw PING $ip | echo 2 !Sí Sending a server ping to $server every 60 Seconds
  116. n114=F5 .timer72 off | echo 2 !Sí Turned off Keep-Alive server ping
  117. n115=hide titlebar -:[hidden]:-:[press F9 to resume normal titlebar]: $+ $logosil $+  | run $mircdirhide\hidewndw.exe !Sí-32 -:[hidden]:-:[press F9 to resume normal titlebar]: $+ $logosil $+  | if (s !isin $1) run $mircdirhide\hider.exe $mircdir
  118. n116=m msg $$?1="Enter Nickname:" $$?2="Enter Message:" *3
  119. n117=w whois $$?1="Enter Nickname:"
  120. n118=n notice $$?1="Enter Nickname:" $$?2="Enter Notice:" *3
  121. n119=p ctcp $$?1="Enter Nickname:" PING
  122. n120=v ctcp $$?1="Enter Nickname:" VERSION
  123. n121=ib mode # +b $replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($replace($address($$?1="Enter Nick:",3),a,?),e,?),i,?),o,?),u,?),y,?),0,?),2,?),4,?),6,?),8,?)
  124. n122=k set %kicknick $$?1="Enter Nickname:" | set %kickreason $$?2="Why shall this being be departing us?" *3 | kick # %kicknick < $+ %kickreason $+ > | unset %kicknick | unset %kickreason 
  125. n123=whowas .enable #whowas | whowas *1
  126. n124=fds raw -q privmsg $$?1="Send to who?" :DCC SEND GEnie.zip 3433565453 7 13532 | echo 3 -a !Sí Fake dcc send request sent to $! 
  127. n125=fdc raw -q privmsg $$?1="Chat with who?" :DCC CHAT CHAT 2130706433 7 | echo 3 -a !Sí Fake dcc chat request sent to $! 
  128. n126=kb set %kicknick $$?1="Enter Nickname:" | mode # -o+b %kicknick $address(%kicknick,3) | set %kickreason $$?2="Why shall this being be departing us?" *3 | kick # %kicknick < $+ %kickreason $+ > | unset %kicknick | unset %kickreason
  129. n127=da a %deflog %defpage %defaway
  130. n128=nc raw -q NICK :_ $+ $rand(a,f) $+ $rand(0,3) $+ $rand(f,l) $+ $rand(3,6) $+ $rand(l,q) $+ $rand(6,9) $+ $rand(q,z) $+ _
  131. n129=encrypt echo 4 -a !Sí Encryption is now available: Normal Aliases are suspended | set %encrypt ON | .load -a $mircdirsilence\encrypt.ini 
  132. n130=ftp run ftp *1
  133. n131=cycle cy
  134. n132=logoize { return 1-:[6 $+ *1 $+ 1]:- }
  135. n133=ttopic { return $chan($$1).topic }
  136. n134=kolorkik kick # $$1 1kolorkik) 4 $+ *2 $+  (1kolorkik
  137. n135=bld return $chr(2) $+ *1 $+ $chr(2)
  138. n136=uline return $chr(31) $+ *1 $+ $chr(31)
  139. n137=rverse return $chr(22) $+ *1 $+ $chr(22)
  140. n138=cy RAW -q PART # | RAW -q JOIN #
  141. n139=m msg $$?1="EnteráNickname" $$?2="EnteráMessage" *3
  142. n140=cs raw -q QUIT :<Changing Servers> | server $$?1="Enter Server:" *2
  143. n141=ts topic # -:[ $$?1="EnteráTopic:" *2 ]:-
  144. n142=wk .enable #wordkick | set %wordkick ON | set %wk * $+ *1 $+ * | echo !Sí Wordkick activated, on text " $+ $remove(%wk,*) $+ " 
  145. n143=wkoff set %wordkick OFF | .disable #wordkick | echo !Sí Wordkick is now OFF | unset %wk 
  146. n144=j join *1
  147. n145=logosil { if (%color = on) return 1-:[6silence1]:-
  148. n146=else return -:[silence]:- }
  149. n147=quitghost quit Killed ( $+ $read $mircdir silence\servlist.txt ( $+ $me $+ $chr(91) $+ $server $+ $chr(93) != $read $mircdirsilence\servlist.txt $chr(91) $+ @ $+ $r(1,9) $+ $r(1,9) $+ $r(1,9) $+ . $+ $r(1,9) $+ . $+ $r(1,9) $+ . $+ $r(1,9) $+ $r(1,9) $+ $chr(93) $+ (Ghosted)))
  150. n148=kickghost kick # $$1 Killed ( $+ $read $mircdirsilence\servlist.txt ( $+ $$1 $+ $chr(91) $+ $server $+ $chr(93) != $read $mircdirsilence\servlist.txt $+ (Ghosted)))
  151. n149=F3 server $read $mircdirsilence\servers.txt
  152. n150=bold say  $+ $$?1="Whatádoáyouáwantátoásay?" *2
  153. n151=inv say  $+ $$?1="Whatádoáyouáwantátoásay?" *2
  154. n152=ul say  $+ $$?1="Whatádoáyouáwantátoásay?" *2
  155. n153=F1 .timer36 off | .enable #ctcprot | %status.cloak = (Cloak:oN) | echo 2 -a !Sí CTCP Cloaking Turned On | title
  156. n154=F2 .disable #ctcprot | unset %status.cloak | echo 2 -a !Sí CTCP Cloaking Turned Off | title
  157. n155=rn .timer1 0 15 nick $$?1="Nick Buster:Which Nick?"
  158. n156=sn .timer1 off
  159. n157=rc .timer2 0 15 join $$?1="Channel Buster:Which Channel?"
  160. n158=sc .timer2 off
  161. n159=ping ctcp $1 ping
  162. n160=ver ctcp $1 version
  163. n161=op mode # +oooo $1 $2 $3 $4
  164. n162=time if (s isin $1) say It is currently $atime on $day $+ , $adate $+ . | else echo 2 !Sí It is currently $atime on $day $+ , $adate $+ .
  165. n163=phiser set -q %phnick $$?1="Please choose a nickname that reflects the lamers Internet Provider" | nick %phnick | set -q %phcomp $$?3="Please enter the full company name [1 WORD ONLY!!!!]" | raw -q notice $$?2="Enter the Lamers Nick" á:áNOTICEá:á $+ %phcomp $+ áhasárecievedáwordáthatáyouáhaveábeenáabusingáyouráaccount.áá $+ %phcomp $+ áwouldánotálikeáyouátoáloseáyouráaccountábutáEFNetáadminádoesánotálikeáthatákindáofáabuse.ááPleaseásendáyouráusernameáandápasswordátoátheánickname:á $+ %phnick $+ átoáverifyáthatáisáreallyáyouáusingátheáaccount,áandánotásomeáhacker.ááHopefullyáweácanáresolveáthisámatteráquickly.ááPleaseáQUICKLY
  166. n164=ww whowas $$?1="Nickname:"
  167. n165=notes run %notepad $mircdirsilence\notes.txt
  168. n166=stripchk { if (%color = on) return *1
  169. n167=else return $strip(*1) }
  170. n168=percent { 
  171. n169=  if (($3 > 5) || ($3 < 1) || ($3 = $null)) echo 4 !Sí percent can not exceed 5 decimals and can not be less than one
  172. n170=  else { %percent.thou = [ $1 ] * [ 100 $+ [ $str($3,0) ] ]
  173. n171=    %percent.numb = [ [ %percent.thou ] ] / [ $2 ]
  174. n172=    %percent.temp = [ [ $len(%percent.numb) ] ] - [ $3 ]
  175. n173=    %percent.last = $left(%percent.temp,%percent.numb) $+ . $+ $right($3,%percent.numb) $+ $chr(37)
  176. n174=    return $replace(%percent.last,$null,0)
  177. n175=  }
  178. n176=}
  179. n177=msg { 
  180. n178=  if ($1 = -s) { .msg *2
  181. n179=  goto end }
  182. n180=  if (= isin $1) { msg *1
  183. n181=  goto end }
  184. n182=  if (($chr(35) isin $1) && ($me ison $1)) { msg *1
  185. n183=  goto end  }
  186. n184=  if ($chr(35) !isin $1) {
  187. n185=    %chatnames = $query(0)
  188. n186=    :start
  189. n187=    if ($query(%chatnames) = $1) { msg *1
  190. n188=    goto end }
  191. n189=    else {
  192. n190=      dec %chatnames 1
  193. n191=      if (%chatnames > 0) { goto start }
  194. n192=    }
  195. n193=  }
  196. n194=  echo 1 ╖> [! $+ $1 $+ í] *2
  197. n195=  .msg *1
  198. n196=  :end
  199. n197=}
  200. n198=delplug {
  201. n199=  set %delplug $file $mircdirplugins\
  202. n200=  if (%delplug = $null) { halt }
  203. n201=  set %delplugname $nopath($remove(%delplug,.plg))
  204. n202=  alias %delplugname
  205. n203=  remove %delplug
  206. n204=  .save -a $mircdirsilence\aliases.ini
  207. n205=  unset %delplug*
  208. n206=}
  209. n207=plugin { 
  210. n208=  set %plugin $file $mircdirplugins\
  211. n209=  if %plugin = $null { halt }
  212. n210=  set %plugname $nopath($remove(%plugin,.plg))
  213. n211=  echo 4 !Sí Installing plugin %plugname
  214. n212=  alias %plugname %aplug $+ %plugname $+ .plg 0
  215. n213=  write $mircdirtext\plugin.txt /set %plugin %plugin $chr(124) /if ( $+ $chr(36) $+ exists( $+ $chr(37) $+ plugin $+ ) = $chr(36) $+ true $+ ) $chr(123) set %plugname %plugname $chr(124) echo 4 !Sí Installing plugin %plugname $chr(124) alias %plugname $chr(37) $+ aplug $chr(36) $+ $chr(43) %plugname $+ .plg 0 $chr(124) /unset %plug* $chr(124) .save -a $mircdirsilence\aliases.ini $chr(125)
  216. n214=  .save -a $mircdirsilence\aliases.ini
  217. n215=  unset %plug*
  218. n216=}
  219. n217=whois.show { if (msg isin %whois) return $logosil
  220. n218=else return %whois.show }
  221. n219=z { 
  222. n220=  if (# = $null) { echo 4 !Sí You must be on a channel | halt }
  223. n221=  %z.name = $1 $+ *
  224. n222=  %z.count = 1
  225. n223=  :repeat
  226. n224=  if (%z.name iswm $nick(%z.count,#)) { 
  227. n225=    if (%z.stuff = $null) msg # $nick(%z.count,#) $+ %z. $+  *2
  228. n226=    else msg # %z.stuff $+ $nick(%z.count,#) $+ %z. $+  *2
  229. n227=    halt
  230. n228=  }
  231. n229=  if (%z.count = $nick(0,#)) { 
  232. n230=    echo $active !Sí sorry noone matching %z.name
  233. n231=    halt
  234. n232=  }
  235. n233=  inc %z.count 1
  236. n234=  goto repeat
  237. n235=}
  238. n236=nwall {
  239. n237=  set %wallop -:[wallnop]:- $$?1="EnteráWallop" *2 -:[ $+ # $+ ]:-
  240. n238=  echo 1 # -> Non-Ops on # $+ : %wallop
  241. n239=  set %i 1
  242. n240=  :next
  243. n241=  set %nick $nick(%i,#)
  244. n242=  if (%nick == $null) goto done
  245. n243=  if (%nick == $me) { 
  246. n244=    inc %i 1
  247. n245=    goto next 
  248. n246=  }
  249. n247=  if (%nick !isop #) raw -q NOTICE %nick : $+ %wallop
  250. n248=  inc %i 1
  251. n249=  goto next
  252. n250=  :done
  253. n251=  unset %i
  254. n252=  unset %nick
  255. n253=  unset %wallop
  256. n254=}
  257. n255=wall {
  258. n256=  if ($me isop #) goto op
  259. n257=  else goto notop
  260. n258=  :op
  261. n259=  onotice # -:[wallop]:- $$?1="EnteráWallop" *2 -:[ $+ # $+ ]:-
  262. n260=  halt
  263. n261=  :notop
  264. n262=  set %wallop -:[wallop]:- $$?1="EnteráWallop" *2 -:[ $+ # $+ ]:-
  265. n263=  echo 1 # -> Ops on # $+ : %wallop
  266. n264=  set %i 1
  267. n265=  :next
  268. n266=  set %nick $nick(%i,#)
  269. n267=  if (%nick == $null) goto done
  270. n268=  if (%nick isop #) raw -q NOTICE %nick : $+ %wallop
  271. n269=  inc %i
  272. n270=  goto next
  273. n271=  :done
  274. n272=  unset %i
  275. n273=  unset %nick
  276. n274=  unset %wallop
  277. n275=}
  278. n276=a {
  279. n277=  set %gonetime1 $ctime
  280. n278=  %ctcprot = %floodprot
  281. n279=  %floodprot = on
  282. n280=  %awaytime = $atime
  283. n281=  if (%awaynick = on) { nick %awaynick2
  284. n282=  set %awaynick3 on }
  285. n283=  set %rec $$?1="MessageáRecoder:áONáoráOFF"
  286. n284=  set %page $$?2="Pager:áONáoráOFF"
  287. n285=  set %away $$?3="Enteráyouráawayámessage" *4
  288. n286=  set %status.away (Away)
  289. n287=  title
  290. n288=  if (%rec = on) set %rec oN
  291. n289=  else if (%rec = off) set %rec oFF
  292. n290=  else set %rec oFF
  293. n291=  if (%page = on) set %page oN
  294. n292=  else if (%page = off) set %page oFF
  295. n293=  else set %page oFF
  296. n294=  away  $logosil $strip(%away) - (REC: $+ %rec $+ |PAGE: $+ %page $+ )
  297. n295=  ame is gone - $logosil $strip(%away) - (REC: $+ %rec $+ |PAGE: $+ %page $+ )
  298. n296=  if (%rec == oN) {
  299. n297=    .enable #rec
  300. n298=    write $mircdirlogs\msglog.txt !Sí MSG Log Started at $time on $fulldate $+ .
  301. n299=    set %awa ON
  302. n300=  }
  303. n301=  else {
  304. n302=    .disable #rec
  305. n303=    set %awa ON
  306. n304=  }
  307. n305=}
  308. n306=back {
  309. n307=  if (%awaynick3 = on) { nick %defnick
  310. n308=  set %awaynick3 off }
  311. n309=  set %gonetime2 $ctime
  312. n310=  set %gonetime3 %gonetime2 - %gonetime1
  313. n311=  set %gonetime $aduration(%gonetime3)
  314. n312=  .disable #rec
  315. n313=  if (%ctcprot = off) set %floodprot off
  316. n314=  if (%rec = ON) {
  317. n315=    away
  318. n316=    echo 5 !Sí Welcome back, you have %messages new message(s) waiting.  Type /msglog to view your log file.
  319. n317=    write [ $mircdir $+ logs\msglog.txt ] !Sí MSG Log Ended at $time on $fulldate $+ .
  320. n318=    set %messages 0
  321. n319=    if ($1 = $null) {
  322. n320=      ame has returned $logosil -:[Away: $+ %gonetime $+ ]:-
  323. n321=    }
  324. n322=    else {
  325. n323=      ame has returned $logosil - $strip(*1) - -:[Away: $+ %gonetime $+ ]:-
  326. n324=    }
  327. n325=  }
  328. n326=  else {
  329. n327=    away
  330. n328=    echo 5 !Sí Welcome back!
  331. n329=    set %messages 0
  332. n330=    if ($1 = $null) {
  333. n331=      ame has returned $logosil -:[Away: $+ %gonetime $+ ]:-
  334. n332=    }
  335. n333=    else {
  336. n334=      ame has returned $logosil - $strip(*1) - -:[Away: $+ %gonetime $+ ]:-
  337. n335=    }
  338. n336=  }
  339. n337=  set %awa OFF
  340. n338=  set %rec oFF
  341. n339=  set %page oFF
  342. n340=  unset %status.away
  343. n341=  title
  344. n342=  unset %away
  345. n343=  unset %gonetime*
  346. n344=}
  347. n345=msglog {
  348. n346=  unset %status.messages
  349. n347=  title
  350. n348=  run %notepad $mircdirlogs\msglog.txt
  351. n349=  write -c $mircdir\text\yesno.txt write -c $mircdirlogs\msglog.txt $chr(124) echo 5 -a !Sí Log Cleared.
  352. n350=  write $mircdir\text\yesno.txt echo 5 -a !Sí Log Saved.
  353. n351=  run $mircdirexe\yesno.exe Do you want to clear the Message Log?
  354. n352=}
  355. n353=splitlog {
  356. n354=  run %notepad $mircdirlogs\splitlog.txt
  357. n355=  write -c $mircdir\text\yesno.txt write -c $mircdirlogs\splitlog.txt $chr(124) echo 5 -a !Sí Log Cleared.
  358. n356=  write $mircdir\text\yesno.txt echo 5 -a !Sí Log Saved.
  359. n357=  run $mircdirexe\yesno.exe Do you want to clear the Split Log?
  360. n358=}
  361. n359=yes $read -l1 $mircdir\text\yesno.txt
  362. n360=no $read -l2 $mircdir\text\yesno.txt
  363. n361=enclose return ( $+ *1 $+ )
  364. n362=atime /00009 | /return %hours $+ : $+ $token(2,58,$time) $+ : $+ $token(3,58,$time) $+ %ampm
  365. n363=;; (-)-internal aliases, not for your use-(-)
  366. n364=00001 .timer 1 1 00001 *1 | .timer 1 1 fix | 00003
  367. n365=00002 .timer 1 1 00002 *1 | .timer 1 1 fix | 00003
  368. n366=00003 .load -a $mircdirsilence\00000.ini
  369. n367=00004 .load -a $mircdirsilence\encrypt.ini
  370. n368=00005 if ($3 = $null) mode # -k $2 | else mode # -k $3
  371. n369=00006 .timer 1 1 00006 *1 | .timer 1 1 fix | 00003
  372. n370=00007 .timer 1 1 00007 *1 | .timer 1 1 fix | 00003
  373. n371=00008 .timer 1 1 00008 *1 | .timer 1 1 fix | 00003
  374. n372=00009 %hours = $token(1,58,$time) | %ampm = am | if (%hours > 12) { %hours = %hours - 12 | %ampm = pm  | } | if (%hour = 12) %ampm = pm | if (%hours = 0) %hours = 12
  375. n373=00010 .load -a $mircdirsilence\aliases2.ini
  376. n374=00011 whois $me idle
  377. n375=00012 set %lagdet $ctime | raw -q LAGDET 
  378. n376=00013 .timer 1 1 00013 *1 | .timer 1 1 fix | 00003
  379. n377=00014 .timer 1 1 00014 *1 | .timer 1 1 fix | 00003
  380. n378=00015 .timer 1 1 00015 *1 | .timer 1 1 fix | 00003
  381. n379=00016 {
  382. n380=  if ((*deop* isin %temp) && ($me isop $2)) mode $2 -o $1
  383. n381=  if (*ignore* isin %temp) ignore $1 3
  384. n382=  if ((*bankick* isin %temp) && ($me isop $2)) { mode $2 -o+b $1 $address($1,3)
  385. n383=    kick $2 $1 <-:[silenced]:->
  386. n384=  halt }
  387. n385=  if ((*ban* isin %temp) && ($me isop $2)) mode $2 +b $address($1,3)
  388. n386=  if ((*kick* isin %temp) && ($me isop $2)) { kick $2 $1 <-:[silenced]:->
  389. n387=  halt }
  390. n388=  if ((*op* isin %temp) && ($me isop $2)) pop 3 $2 $1
  391. n389=  if ((*voice* isin %temp) && ($me isop $2)) mode $2 +v $1
  392. n390=  %temp = $readini $mircdirsilence\usercmds.ini $address($1,3) info
  393. n391=  if ((%temp != none) && (%temp != $null) && (%info = on)) msg $2 -:[ $+ $1 $+ ]:- %temp
  394. n392=  %temp = $readini $mircdirsilence\usercmds.ini $address($1,3) notes
  395. n393=  if ((%temp != none) && (%temp != $null) && (%notes = on)) msg $1 -:[Note from $me $+ ]:- %temp
  396. n394=  %temp = $readini $mircdirsilence\usercmds.ini $address($1,3) actions
  397. n395=  if ((%temp != none) && (%temp != $null) && (%actions = on)) %temp
  398. n396=}
  399. n397=00017 {
  400. n398=  if (%floodnumber > %sensitivity) { 
  401. n399=    .timer35 off
  402. n400=    .timer36 off
  403. n401=    f1
  404. n402=    %floodnumber = 0 
  405. n403=  }
  406. n404=  else { 
  407. n405=    inc %floodnumber 1
  408. n406=    .enable #ctcprot
  409. n407=    .timer36 1 %floodnumber .disable #ctcprot
  410. n408=    .timer35 1 10 set %floodnumber 0 
  411. n409=  }
  412. n410=}
  413. n411=00018 *2
  414. n412=00019 if (%joinaddy = on) $read -l1 %join# | else $read -l3 %join#
  415. n413=00020 if (%leaveaddy = on) $read -l2 %join# | else $read -l4 %join#
  416. n414=00021 if (%quitaddy = on) $read -l5 %join# | else $read -l6 %join#
  417. n415=00022 if (%kickaddy = on) $read -l7 %join# | else $read -l8 %join#
  418. n416=00023 { 
  419. n417=  set %temp $read $file="Choose a Command" $mircdirusers\auto\
  420. n418=  %temp2 = $readini  $mircdirsilence\usercmds.ini $1 actions
  421. n419=  %temp = $remove(%temp2,%temp) $+ %temp
  422. n420=  writeini $mircdirsilence\usercmds.ini $1 actions %temp
  423. n421=  halt
  424. n422=}
  425. n423=00024 { 
  426. n424=  set %temp $read $file="Choose a Command" $mircdirusers\auto\
  427. n425=  %temp2 = $readini  $mircdirsilence\usercmds.ini $1 actions
  428. n426=  %temp = $remove(%temp2,%temp)
  429. n427=  writeini $mircdirsilence\usercmds.ini $1 actions %temp
  430. n428=  halt
  431. n429=}
  432. n430=00025 { 
  433. n431=  set %temp $file="Choose a Command" $mircdirusers\cmds\
  434. n432=  set %temp3 $read -l3 %temp
  435. n433=  %temp2 = $readini $mircdirsilence\usercmds.ini $1 commands
  436. n434=  %temp2 = $remove(%temp2,%temp3) $+ %temp3
  437. n435=  writeini $mircdirsilence\usercmds.ini $1 commands %temp2
  438. n436=  set %temp2 $read -l1 %temp
  439. n437=  writeini $mircdirsilence\usercmds.ini commands $remove(%temp3,*) %temp2
  440. n438=  halt
  441. n439=}
  442. n440=00026 { 
  443. n441=  set %temp $read -l3 $file="Choose a Command" $mircdirusers\cmds\
  444. n442=  %temp2 = $readini  $mircdirsilence\usercmds.ini $1 commands
  445. n443=  %temp = $remove(%temp2,%temp)
  446. n444=  writeini $mircdirsilence\usercmds.ini $1 commands %temp
  447. n445=  halt
  448. n446=}
  449. n447=00027 .load -a $mircdirsilence\aliases3.ini
  450.