home *** CD-ROM | disk | FTP | other *** search
/ isnet Internet / Isnet Internet CD.iso / prog / chat / 12 / 12.exe / SYSTEM / TOGGLES.ALS < prev    next >
Encoding:
Text File  |  2000-03-04  |  9.3 KB  |  333 lines
  1. autoaway {
  2.   if ($1 == on) {
  3.     set %autoaway on
  4.     iecho Autoaway enabled.
  5.   }
  6.   elseif ($1 == off) {
  7.     set %autoaway off
  8.     iecho Autoaway disabled.
  9.   }
  10.   else iecho Syntax: /autoaway <on|off>
  11. }
  12. botflood {
  13.   if (($1 == on) && (%bt.flood == off)) {
  14.     set %bt.flood on
  15.     .load -rs btnetfld.mrc
  16.     iecho BotNet flood protection $hc(activated.)
  17.   }
  18.   elseif (($1 == on) && (%bt.flood == on)) iecho BotNet flood protection already active.
  19.   elseif (($1 == off) && (%bt.flood == on)) {
  20.     set %bt.flood off
  21.     if ($script(btnetfld.mrc)) .unload -rs btnetfld.mrc
  22.     iecho BotNet flood protection $hc(deactivated.)
  23.   }
  24.   elseif (($1 == off) && (%bt.flood == off)) iecho BotNet flood protection not active.
  25.   else iecho Syntax: /botflood <on|off>
  26. }
  27. chandump {
  28.   if ($1 == on) {
  29.     set %dchans $$?="Channels to scan (separate w/commas)"
  30.     set %duchan $$?="Channel to echo messages into"
  31.     set %chandump on
  32.   }
  33.   else {
  34.     set %chandump off
  35.     unset %duchan %dchans
  36.   }
  37. }
  38. cprot {
  39.   if ($1 == on) {
  40.     set %chanprot on
  41.     .load -rs fldprot.mrc
  42.     iecho Channel Flood Protection has been enabled.
  43.   }
  44.   elseif ($1 == off) {
  45.     set %chanprot off
  46.     if ($script(fldprot.mrc)) .unload -rs fldprot.mrc
  47.     iecho Channel Flood Protection has been disabled.
  48.     cclr
  49.   }
  50.   else iecho Syntax: /cprot <on|off>
  51. }
  52. dccrelay {
  53.   if ($1 == off) {
  54.     set %dccrelay off
  55.     unset %dccnick
  56.     unset %dccrinfo
  57.     iecho DCC relay has been disabled.
  58.   }
  59.   elseif ($1 != $null) {
  60.     set %dccrelay on
  61.     set %dccnick $1
  62.     iecho Fowarding all DCC Sends to $hc($1) $+ .
  63.   }
  64.   else iecho Syntax: /dccrelay <off|relay nick>
  65. }
  66. dccstatus {
  67.   if ($1 == on) {
  68.     set %dccstatus $1
  69.     if ((($send(0)) || ($get(0))) && ($dialog(ircN.dccstatus) == $null)) dialog -m ircN.dccstatus ircN.dccstatus
  70.     elseif ($dialog(ircN.dccstatus) == $null) iecho DCC Status enabled.
  71.   }
  72.   elseif ($1 == off) {
  73.     set %dccstatus $1
  74.     if ($dialog(ircN.dccstatus)) dialog -x ircN.dccstatus
  75.     else iecho DCC Status disabled.
  76.   }
  77.   else iecho Syntax: /dccstatus <on|off>
  78. }
  79. fprot {
  80.   if ($1 == on) {
  81.     set %userprot on
  82.     .load -rs userprot.mrc
  83.     iecho User flood protection has been enabled.
  84.   }
  85.   elseif ($1 == off) {
  86.     set %userprot off
  87.     if ($script(userprot.mrc)) .unload -rs userprot.mrc
  88.     iecho User flood protection has been disabled.
  89.   }
  90.   else iecho Syntax: /fprot <on|off>
  91. }
  92. idlechk {
  93.   if ($1 == on) {
  94.     .load -rs idle.mrc
  95.     set %idcheck on
  96.     if (%idauto == on) { .timer 0 300 idchk | set %idletimer $ltimer }
  97.     iecho Idle checker has been enabled.
  98.   }
  99.   elseif ($1 == off) {
  100.     if ($script(idle.mrc)) .unload -rs idle.mrc
  101.     set %idcheck off
  102.     .remove $tp(idle.txt)
  103.     .remove $tp(idlep.txt)
  104.     timoff %idletimer idletimer
  105.     iecho Idle checker has been disabled.
  106.   }
  107.   else iecho Syntax: /idlechk <on|off>
  108. }
  109. inotify {
  110.   if ($1 == on) {
  111.     .enable #notify #notify1
  112.     set %notify on
  113.     iecho ircN notify enabled.
  114.   }
  115.   elseif ($1 == off) {
  116.     .disable #notify #notify1
  117.     set %notify off
  118.     iecho ircN notify disabled.
  119.   }
  120.   else iecho Syntax: /inotify <on|off>
  121. }
  122. irc2 {
  123.   if ($1 != $null) {
  124.     .load -a irc2.als
  125.     .load -rs irc2.mrc
  126.     .load -rs irc2-2.mrc
  127.     set %i 0
  128.     :start
  129.     inc %i
  130.     if ($sock($addtok(irc2,%i,46)) == $null) set %tmp.irc2 $addtok(irc2,%i,46)
  131.     else goto start
  132.     write -c $i2.ini(%tmp.irc2)
  133.     i2.set %tmp.irc2 server $1
  134.     if ($2) i2.set %tmp.irc2 port $2
  135.     else i2.set %tmp.irc2 port %irc2.dport
  136.     if ($3) set %irc2.nick $3
  137.     if ($4) set %irc2.altnick $4
  138.     if ($5) i2.set %tmp.irc2 pass $5
  139.     if ($window($i2.status(%tmp.irc2)) == $null) window -ake $i2.status(%tmp.irc2) %i2loc @i2.status $replace($readini $mircini Fonts fstatus,$chr(44),$chr(32))
  140.     titlebar $i2.status(%tmp.irc2) Not Connected
  141.     i2.secho %tmp.irc2 $colour(Info) *** Connecting to $1 ( $+ $i2.var(%tmp.irc2,port) $+ )
  142.     i2.secho %tmp.irc2 $colour(Info2) Local host: $host ( $+ $ip $+ )
  143.     tsound connect
  144.     sockopen %tmp.irc2 $1 $i2.var(%tmp.irc2,port)
  145.   }
  146.   else iecho Syntax: /irc2 <irc2 server> [port] [nick] [altnick] [password]
  147. }
  148. ircii {
  149.   if ($1 == on) {
  150.     set %ircii on
  151.     .load -rs ircii.mrc
  152.     window -akl11Se @ircII 0 0 $window(-3).w $window(-3).h
  153.     iecho ircII mode enabled.
  154.     ircIIchan $chan(1)
  155.     tb
  156.   }
  157.   elseif ($1 == off) {
  158.     set %ircii off
  159.     if ($window(@ircII)) window -c @ircII
  160.     iecho ircII mode disabled.
  161.     tb
  162.     if ($script(ircii.mrc)) .unload -rs ircii.mrc
  163.   }
  164.   else iecho Syntax: /ircii <on|off>
  165. }
  166. msglog {
  167.   if ($1 == off) {
  168.     set %msglog off
  169.     iecho Message logging has been disabled.
  170.   }
  171.   elseif ($1 == on) {
  172.     set %msglog on
  173.     iecho Message logging has been enabled.
  174.   }
  175.   else iecho Syntax: /msglog <on|off>
  176. }
  177. pager {
  178.   if ($1 == on) {
  179.     set %pager on
  180.     iecho Pager has been enabled.
  181.   }
  182.   elseif ($1 == off) {
  183.     set %pager off
  184.     iecho Pager has been disabled.
  185.   }
  186.   else iecho Syntax: /pager <on|off>
  187. }
  188. partyline {
  189.   if ($1 == on) {
  190.     if (%tdaemon == off) tdaemon on
  191.     set %partyline on
  192.     .load -a partylin.als
  193.     iecho Partyline has been enabled.
  194.     tb
  195.   }
  196.   elseif ($1 == off) {
  197.     if ($alias(partylin.als)) .unload -a partylin.als
  198.     if ($sock(partyline.*)) sockwrite -n partyline.* ERROR: Closing link (partyline shut down)
  199.     sockclose partyline.*
  200.     if ($sock(su.*)) sockwrite -n su.* ERROR: Closing link (partyline shut down)
  201.     sockclose su.*
  202.     set %partyline off
  203.     iecho Partyline has been disabled.
  204.     tb
  205.   }
  206.   else iecho Syntax: /partyline <on|off>
  207. }
  208. pdcc {
  209.   if ($1 == on) {
  210.     set %pdcc on
  211.     .pdcc 2147483647
  212.     iecho Pump DCC has been enabled.
  213.   }
  214.   elseif ($1 == off) {
  215.     set %pdcc off
  216.     .pdcc off
  217.     iecho Pump DCC has been disabled.
  218.   }
  219.   else pdcc $1-
  220. }
  221. rcontrol {
  222.   if ($1 == on) {
  223.     if (%tdaemon == off) tdaemon on
  224.     set %rcontrol on
  225.     iecho Remote control has been enabled.
  226.   }
  227.   elseif ($1 == off) {
  228.     if ($sock(remote.*)) sockwrite -n remote.* ERROR: Closing link (remote control shut down)
  229.     sockclose remote.*
  230.     set %rcontrol off
  231.     iecho Remote control has been disabled.
  232.   }
  233.   else iecho Syntax: /rcontrol <on|off>
  234. }
  235. rgetnick {
  236.   if ($1 == on) {
  237.     if ($2) {
  238.       set %getnick $1
  239.       set %getnick.nick $2
  240.       if ($notify(%getnick.nick) == $null) .notify %getnick.nick GetNick.temp
  241.       else .notify %getnick.nick $notify(%getnick.nick).note GetNick.perm
  242.       iecho GetNick enabled, nickname set to $hc(%getnick.nick) $+ .
  243.     }
  244.     else iecho Syntax: /rgetnick $hc(on) <nickname>
  245.   }
  246.   elseif ($1 == off) {
  247.     set %getnick $1
  248.     iecho GetNick disabled.
  249.   }
  250.   else iecho Syntax: /rgetnick <on|off> [nickname]
  251. }
  252. seen {
  253.   if ($1 == on) {
  254.     set %seenbot on
  255.     .load -rs seen.mrc
  256.     iecho Seen Bot has been enabled.
  257.   }
  258.   elseif ($1 == off) {
  259.     set %seenbot off
  260.     if ($script(seen.mrc)) .unload -rs seen.mrc
  261.     iecho Seen Bot has been disabled.
  262.   }
  263.   elseif ($2) {
  264.     if (%seenbot == off) {
  265.       iecho You must have the seen bot enabled.
  266.       return
  267.     }
  268.     if ($readini -n users.ini $usrl($2) seen != $null) {
  269.       lastseen $usrl($2) $readini -n users.ini $usrl($2) seen
  270.       msg $1 $result
  271.     }
  272.     elseif ($read -ns [ $+ [ $2 ] ] seen.ini != $null) {
  273.       lastseen $2 $read -ns [ $+ [ $2 ] ] seen.ini
  274.       msg $1 $result
  275.     }
  276.   }
  277.   else iecho Syntax: /seen <on|off|#channel> [nickname]
  278. }
  279. stheme {
  280.   if ($1 == on) { set %sthemes on | iecho Script themes activated. }
  281.   elseif (($1 == off) && (%formats)) { set %sthemes off | iecho Script themes deactivated. }
  282.   elseif ($1 == off) iecho No script theme loaded.
  283.   else iecho Syntax: /stheme <on|off>
  284. }
  285. tdaemon {
  286.   if ($1 == on) {
  287.     set %tdaemon on
  288.     .load -rs telnet.mrc
  289.     iecho Telnet Daemon has been enabled.
  290.     tb
  291.   }
  292.   elseif ($1 == off) {
  293.     if (%partyline == on) partyline off
  294.     if (%rcontrol == on) rcontrol off
  295.     if ($script(telnet.mrc)) .unload -rs telnet.mrc
  296.     if ($sock(telnet.*)) sockwrite -n telnet.* ERROR: Closing link (telnet daemon shut down)
  297.     sockclose telnet.*
  298.     set %tdaemon off
  299.     iecho Telnet Daemon has been disabled.
  300.     tb
  301.   }
  302.   else iecho Syntax: /tdaemon <on|off>
  303. }
  304. xdcc {
  305.   if ($1 == on) {
  306.     if ((%xdccs == on) && ($script(xdcc.mrc))) { iecho Xdcc is already enabled. | return }
  307.     .flood off
  308.     set %xdccs on
  309.     .load -rs xdcc.mrc
  310.     tb
  311.     write -c $tp(queue.txt)
  312.     iecho Xdcc has been enabled; mIRC flood protection disabled.
  313.   }
  314.   elseif ($1 == off) {
  315.     if ((%xdccs == off) && ($script(xdcc.mrc) == $null)) { iecho Xdcc is not enabled. | return }
  316.     if ($script(xdcc.mrc)) { poff | .unload -rs xdcc.mrc }
  317.     set %xdccs off
  318.     timoff %xdcc.timer1 xdcc.timer1
  319.     timoff %xdcc.timer2 xdcc.timer2
  320.     window -c @Xdcc
  321.     .remove $tp(xstatus.txt)
  322.     tb
  323.     iecho Xdcc has been disabled.
  324.   }
  325.   elseif (($2 <= %numpacks) && ($2)) {
  326.     if ($1 == file) set %file [ $+ [ $2 ] ] $$dir="Select File for Pack [ $2 ] " *.*
  327.     elseif ($1 == desc) set %filedesc [ $+ [ $2 ] ] $$?="Pack Description for [ [ $2 ] $+ ] :"
  328.     elseif ($1 == note) set %fcomment [ $+ [ $2 ] ] $$?="File Comment for [ [ $2 ] $+ ] :"
  329.     else iecho Syntax: /xdcc <file|desc|note> <pack #>
  330.   }
  331.   else iecho Syntax: /xdcc <on|off|file|desc|note> [pack #]
  332. }
  333.