FunCommands (Starter Script)

;***********************************************************************************************************************************************************************************************************************************************************************************************
;*** !Ping - Ping-Tick Skript v2.1 *** Original by: Kasbah (http://www.hawkee.com/profile/52882/) *** Downloaded from: http://www.hawkee.com/snippet/5411/
;***********************************************************************************************************************************************************************************************************************************************************************************************
on *:CTCPREPLY:PING*: { var %ans $calc(($ticks - $hget($nick,pping)) / 1000 ), %X = $calc(15 - %ans), %Y = $calc(15 - %X), %bar = $+([05,$str($chr(124),%Y),03,$chr(124),03,$str($chr(124),%X),])
  write Records.txt %ans $nick $ctime
  if (%ans > $hget($nick,Worst)) { $iif($v2 != 0.001,set -u1 %msg $xTEXT(NOTE:) This is your worst time yet) | hadd $nick Worst %ans }
  if (%ans < $hget($nick,Record)) { $iif($v2 != 20,set -u1 %msg $xTEXT(New Record:) $+(15,$calc(%ans -$hget($nick,Record)),14secs faster) $replace(%msg,This is,This is also)) | hadd $nick Record %ans }
  ;*** Reply messages
  $iif($hget($nick,pWhere),$v1,msg $active) $+([14PiNG]-,%bar) $xTEXT(Currently:) $+(15,%ans,14secs) %msg $xWRAP($iif($left(%ans,1) > 6,Waaaaay too much,$replace($left(%ans,1),0,Zero,1,Minimal,2,Minimal,3,Minimal,4,A bit,5,Too much,6,Too much)) lag between $xNiCK($hget($nick,pNick)) and Me)
}
;****************************************************************************************************************************************************************************************************************************************
on *:LOAD: { echo -at Loaded... $KaiPing | echo -at $xTEXT(Commands:) $xCMDS(!PiNG) $chr(149) $xCMDS(!aPiNG) $chr(149) $xCMDS(!mPiNG) $chr(149) $xCMDS(!rPiNG) $chr(149) $xCMDS(!sPiNG) $xTEXT(and) $xCMDS(!wPiNG) $xWRAO(Or use the popup Menu via Commands, Channel and Status) }
on *:QUIT: { if ($nick == $me ) { var %s $hget(0), %ss 1 | while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write -c backup.txt $hget(%ss) | inc %ss 1 } } }
on *:EXIT: { var %s $hget(0), %ss 1 | while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write -c backup.txt $hget(%ss) | inc %ss 1 } }
on *:DISCONNECT: { var %s $hget(0), %ss 1 | while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write -c backup.txt $hget(%ss) | inc %ss 1 } }
on *:UNLOAD: { var %s $hget(0), %ss 1 | while (%ss <= %s) { hsave $hget(%ss) $hget(%ss) $+ .hsh | write -c backup.txt $hget(%ss) | hfree -s $hget(%ss) | inc %ss 1 } | echo -at Unloaded... $KaiPing | echo -a Hash tables removed but backed-up to backup.txt, Record.txt containing ping records remain. }
on *:START: { var %s $lines(backup.txt), %ss 1 | while (%ss <= %s) { var %nick $read(backup.txt,%ss) | if (!$hget(%nick)) { .hmake %nick 100 } | if ($exists($+(%nick,.hsh))) { hload $read(backup.txt,%ss) $+(%nick,.hsh) } | inc %ss 1 } }
;****************************************************************************************************************************************************************************************************************************************
on *:TEXT:*:#: { set -u3 %method $iif($left($1,1) != !,.notice $nick,$iif($regex($nick($chan,$nick).pnick,/(!|~|&|@|%|\+)/),.msg #,.notice $nick))
  ;*** +/- (Enable/Disable) **********************************************************************************************************************************************************************************************************************************************************************************************************
  elseif ($regex($nick($chan,$me).pnick,/(!|~|&|@|%)/)) && (($left($1,1) == $chr(43)) || ($left($1,1) == $chr(45))) && (($regex($nick($chan,$nick).pnick,/(!|~|&|@)/)) || ($NETWORK-CMM($nick) == true) || ($OWNER($nick) == true) || ($NETWORK-OWNER($nick) == true) || ($CHANNEL-OWNER($nick) == true)) { Enable/Disable $1- | halt }
  ;*** +/- UJFF *******************************************************************************************************************
  elseif ($regex($nick($chan,$me).pnick,/(!|~|&|@|%)/)) && (($left($1,1) == $chr(43)) || ($left($1,1) == $chr(45))) && ($regex($nick($chan,$nick).pnick,/(!|~|&|@|%|+)/)) && ($istok(UJFF FACT nFACT FUNFACT,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%NickUJFF,$iif($chr(35) isin $2,#,$nick),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%NickUJFF,$iif($chr(35) isin $2,#,$nick),32))) { msg # [4ERROR!] You've already got 8UJFF $+($iif(- isin $1,de),activated) }
    else { set %NickUJFF $iif(- isin $strip($1),$remtok(%NickUJFF,$iif($chr(35) isin $2,$+($network,#),$nick),1,32),$addtok(%NickUJFF,$iif($chr(35) isin $2,$+($network,#),$nick),32)) | set -u1 %MSG-ENABLE-DiSABLE $xNick($nick) has just $iif(- isin $strip($1),4deactivated 8FunFacts,9activated 8FunFacts instead of 14UJF) on join $iif($chr(35) isin $2,for $xChan(#)) }
  }
  ;*** Check to see if everything as it should be before trying to write database *******************************************************************************************************************************************************************************************************************************
  elseif (%Safe.Mode == ON) || ($nick == $me) || (%TEXT.NiCK) || (BOT isin $nick) || (SRU isin $nick) || (Machine isin $nick) || (Guest isin $nick) || ($nick == GETiT) || ($nick == Pre) || ($nick == Tracer) || ($nick == BotServ) || ($nick == ChanServ) || ($nick == Global) || ($nick == HelpServ) || ($nick == HostServ) || ($nick == MemoServ) || ($nick == NickServ) || ($nick == OperServ) || ($nick == vHost) || ($nick == NS) || ($nick == CS) || ($nick == BS) || ($nick == MS) || ($nick == HS) || ($nick == OS) { return }
  elseif (!$istok(%ChanList,$+($network,$chan),32)) { return }
  ;**************************************************************************************************************************************************************
  tokenize 32 $replace($strip($1-),@,!,.,!)
  ;**************************************************************************************************************************************************************
  ;*** Check to see if activated (and/or SPAMMiNG the channel) - If so we don't do anything... funny enough
  if (!$istok(%ChanList,$+($network,$chan),32)) || ($timer($+(SPAM,$network,$chan))) { halt }
  ;**************************************************************************************************************************************************************
  ;******* !Ping - Ping-Tick Skript v2.1 *** Original by: Kasbah (http://www.hawkee.com/profile/52882/) *** Downloaded from: http://www.hawkee.com/snippet/5411/
  ;*** !pHelp
  elseif ($istok(!pHelp !PingHelp !HelpPing !HelpP !hPing,$1,32)) { PingHelp $1- }
  ;**************************************************************************************************************************************************************
  ;*** !Ping
  elseif ($istok(!Ping !Pong,$1,32)) { xPing $1- }
  ;**************************************************************************************************************************************************************
  ;*** !aPing
  elseif ($istok(!aPing !PingAvg !AvgPing !Average,$1,32)) && (!$hget($nick,Flood)) { PingAverage $1- }
  ;**************************************************************************************************************************************************************
  ;*** !mPing
  elseif ($istok(!mPing !cPing !PingAll !PingChan,$1,32)) && (!$hget($nick,Flood)) && ($regex($nick($chan,$me).pnick,/(!|~)/)) && ($regex($nick($chan,$nick).pnick,/(!|~|&)/)) { PingAll $1- }
  ;**************************************************************************************************************************************************************
  ;*** !sPing
  elseif ($istok(!sPing !PingSta !PingStats,$1,32)) && (!$hget($nick,Flood)) { PingStats $1- }
  ;**************************************************************************************************************************************************************
  ;*** !rPing
  elseif ($istok(!rPing !PingRec !PingRecord,$1,32)) && (!$hget($nick,Flood)) { PingRecord $1- }
  ;**************************************************************************************************************************************************************
  ;*** !wPing
  elseif ($istok(!wPing !PingW !PingWorst,$1,32)) && (!$hget($nick,Flood)) { PingWorst $1- }
  ;**************************************************************************************************************************************************************
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
;*** ######
;*** #     # # #    #  ####             ##   #      #   ##    ####  ######  ####
;*** #     # # ##   # #    #           #  #  #      #  #  #  #      #      #
;*** ######  # # #  # #               #    # #      # #    #  ####  #####   ####
;*** #       # #  # # #  ###          ###### #      # ######      # #           #
;*** #       # #   ## #    #          #    # #      # #    # #    # #      #    #
;*** #       # #    #  ####           #    # ###### # #    #  ####  ######  ####
;***********************************************************************************************************************************************************************************************************************************************************************************************
;*** Ping aliases *** Used for Ping-Tick Skript v2.1 *** Original by: Kasbah (http://www.hawkee.com/profile/52882/) *** Downloaded from: http://www.hawkee.com/snippet/5411/
alias KaiPing { return [14Ping Tick] $xTEXT(Version:) 0.1 $xTEXT(Re-coded by:) $xNiCK(MashhitDK)  $xTEXT(Original by:) $xNiCK(Kasbah) $+($chr(40),2http://www.hawkee.com/snippet/5411/,$chr(41)) }
;****************************************************************************************************************************************************************************************************************************************
menu menubar,channel {
  -
  Ping
  .Help (Displayed in channel):PingHelp Show $me
  .-
  .(MASS) Ping Channel:$PingAll
  .Ping:set -u10 %getnick $?="Enter nickname?" | xPing $active %getnick
  .Ping Stats:set -u10 %getnick $?="Enter nickname?" | PingStats $active %getnick
  .-
  .Ping Records
  ..Record:set -u10 %getnick $?="Enter Nickname?" | PingRecord $active %getnick
  ..Worst:set -u10 %getnick $?="Enter Nickname?" | PingWorst $active %getnick
  ..Average:set -u10 %getnick $?="Enter Nickname?" | PingAverage $active %getnick
  .-
  .Advertise:msg $active Ping Tick Version 2.1 By Kasbah 2008 using System ticks for accuracy (Get it: 2http://www.hawkee.com/snippet/5411/)
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias PingHelp { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2)))
  $iif($hget($nick,Flood) == YES,halt,hadd -mu3 $nick Flood YES)
  ;***************************************************************
  $iif(%nick != $me,.notice %nick,echo -a) $KaiPing
  $iif(%nick != $me,.msg,msg) # $xTEXT(Commands:) $xCMDS(!PiNG) $chr(149) $xCMDS(!aPiNG) $chr(149) $xCMDS(!mPiNG) $chr(149) $xCMDS(!rPiNG) $chr(149) $xCMDS(!sPiNG) $xTEXT(and) $xCMDS(!wPiNG) $xWRAP(Use $xCMDS(!PingHelp) for more details)
  $iif(%nick != $me,.notice %nick,echo -a) $xCMDS(!Ping) - Pings and displays result in channel $chr(149) $xCMDS(!mPing) - Pings every nick in channel and displays result in channel $xWRAP2(4Do not abuse)
  $iif(%nick != $me,.notice %nick,echo -a) $xCMDS(!sPing) - Retrieves ping status in the form of record, worst and average $chr(149) $xCMDS(!rPing) - Retrieves ping record $chr(149) $xCMDS(!wPing) - Retrieves worst ping $chr(149) $xCMDS(!aPing) - Retrieves ping average
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias xPing { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2)))
  $iif($hget($nick,Flood) == YES,halt,hadd -mu3 $nick Flood YES)
  ;***************************************************************
  if (!$hget(%nick,Record)) { hadd -m %nick Record 20 | hadd %nick Worst 0.001 }
  hadd -u120 %nick pNick %nick | hadd -u120 %nick pWhere %method | hadd -u120 %nick pPing $ticks | ctcp %nick Ping
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias PingStats { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2))), %high $hget(%nick,Record), %low $hget(%nick,Worst)
  $iif($hget($nick,Flood) == YES,halt,hadd -mu5 $nick Flood YES)
  ;***************************************************************
  if ($hget(%nick,Record) == 20) || (!$hget(%nick,Record)) { .msg # I have no ping reply from $iif(%nick == $nick,you,$xNiCK($v1)) yet $iif(%nick != $nick,$v2) | halt }
  else { .msg # $+([14PiNG]-[,$xNiCK(%nick),]) $xTEXT(Record:) $+(15,$hget(%nick,Record),14secs) $iif($hget(%nick,Worst) != $hget(%nick,Record),$xTEXT(Worst:) $+(15,$v1,14secs)) $xTEXT(Average:) $+(15,$calc((%high + %low) /2),14secs) }
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias PingAverage { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2)))
  $iif($hget($nick,Flood) == YES,halt,hadd -mu3 $nick Flood YES)
  ;***************************************************************
  if ($hget(%nick,Worst) == 0.1) || ($hget(%nick,Record) == 20) { .msg # I cannot calculate $iif(%nick == $nick,your,$+($v1,'s)) average due to insufficient $+(data,$iif(%nick != $nick,$chr(44) $xNiCK($v2)),...) | halt }
  ;************************************************************************************************************************************************************
  var %high $hget(%nick,Record), %low $hget(%nick,Worst)
  msg # [14PiNG] $iif(%nick == $nick,$xTEXT(Your),$+($xNiCK($v1),'s)) $xTEXT(average is:) $+(15,$calc((%high + %low) /2),14secs)
  else { msg # I have no ping record for $iif(%nick == $nick,you...,$xNiCK(%nick)) }
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias PingRecord { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2)))
  $iif($hget($nick,Flood) == YES,halt,hadd -mu5 $nick Flood YES)
  ;***************************************************************
  if ($hget(%nick,Record) == 20) || (!$hget(%nick,Record)) { .msg # I have no ping reply from $iif(%nick == $nick,you,$xNiCK($v1)) yet $iif(%nick != $nick,$v2) lol, problems aye ;) | halt }
  else { .msg # $iif(%nick == $nick,$xTEXT(Your),$+($xNiCK($v1),'s)) $xTEXT(Record is:) $+(15,$hget(%nick,Record),14secs) $iif($hget(%nick,Worst) != $hget(%nick,Record),$xTEXT(Worst:) $+(15,$v1,14secs)) }
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias PingWorst { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2)))
  $iif($hget($nick,Flood) == YES,halt,hadd -mu5 $nick Flood YES)
  ;***************************************************************
  if ($hget(%nick,Worst) == 0.001) || (!$hget(%nick,Worst)) { .msg # I have no ping reply from $iif(%nick == $nick,you,$xNiCK($v1)) yet $iif(%nick != $nick,$v2) | halt }
  else { .msg # $iif(%nick == $nick,$xTEXT(Your),$+($xNiCK($v1),'s)) $xTEXT(worst is:) $+(15,$hget(%nick,Worst),14secs) $iif($hget(%nick,Worst) != $hget(%nick,Record),$xTEXT(Record:) $+(15,$v2,14secs)) }
}
;***********************************************************************************************************************************************************************************************************************************************************************************************
alias PingAll { var %nick $iif(!$2,$nick,$nick(#,$nick(#,$2))), %p $nick(#,0), %pp 1
  $iif($hget($nick,Flood) == YES,halt,hadd -mu600 $nick Flood YES)
  ;***************************************************************
  while (%pp <= %p) { var %nick $nick(#,%pp)
    if (%nick != $me) {
      if (!$hget(%nick)) { hadd -m %nick Record 20 | hadd %nick Worst 0.001 }
      hadd -u120 %nick pNick %nick | hadd -u120 %nick pWhere %method | hadd -u120 %nick pPing $ticks | ctcp $nick(#,%pp) Ping
    }
    inc %pp 1
  }
}
;****************************************************************************************************************************************************************************************************************************************
;*** #######                                                ######
;*** #       #    #   ##   #####  #      ######             #     # #  ####    ##   #####  #      ######
;*** #       ##   #  #  #  #    # #      #                  #     # # #       #  #  #    # #      #
;*** #####   # #  # #    # #####  #      #####     #####    #     # #  ####  #    # #####  #      #####
;*** #       #  # # ###### #    # #      #                  #     # #      # ###### #    # #      #
;*** #       #   ## #    # #    # #      #                  #     # # #    # #    # #    # #      #
;*** ####### #    # #    # #####  ###### ######             ######  #  ####  #    # #####  ###### ######
;****************************************************************************************************************************************************************************************************************************************
alias Enable/Disable { tokenize 32 $1-
  ;*** ERROR - BOT (aka) Stoner Recommended Utility ************************************************************************************************************************************************************************
  if ($istok(bot robot $me,$remove($strip($1),+,-),32)) && (($left($strip($1),1) == $chr(43) && $istok(%ChanList,$+($network,$chan),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanList,$+($network,$chan),32))) { msg # [4ERROR!] $iif(+ isin $1,I'm already,I ain't currently) running inside $xChan(#) }
  ;*************************************************************************************************************************************************************************************************************************
  ;*** ERROR MSG - Bot not activated ***************************************************************************************************************************************************************************************
  elseif (%Safe.Mode == ON) && (!$istok(safemode safe-mode smode,$remove($strip($1),+,-),32)) { halt }
  elseif ((+ isin $1 && $me !isin $1) || (- isin $1 && $me !isin $1)) && (!$istok(%ChanList,$+($network,$chan),32)) { halt }
  ;********************************************************************************************************************************
  ;*** +/- BOT ********************************************************************************************************************
  elseif ($istok(Robot bot $me,$remove($strip($1),+,-),32)) { set %ChanList $iif(- isin $strip($1),$remtok(%ChanList,$+($network,$chan),1,32),$addtok(%ChanList,$+($network,$chan),32)) | set -u1 %MSG-ENABLE-DiSABLE Initializing... $iif(- isin $strip($1),shutdown,start up) sequence (8C) $xStart $iif(- isin $strip($1),4Disabled,9Activated) by $xNick($nick) $xEND }
  ;*** +/- SafeMode ***************************************************************************************************************
  elseif ($istok(safemode safe-mode smode,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && %Safe.Mode == ON) || ($left($strip($1),1) == $chr(45) && %Safe.Mode == OFF)) { msg # [4ERROR!] Safe mode $iif(+ isin $1,is already,isn't currently) enabled }
    else { set %Safe.Mode $iif(- isin $strip($1),OFF,ON) | set -u1 %MSG-ENABLE-DiSABLE [15Safe Mode] $+($iif(+ isin $strip($1),Initializing... c,C),omenzing) system $iif(+ isin $strip($1),shutdown,restore) $xStart $iif(- isin $strip($1),4Disabled,9Activated) by $xNick($nick) $xEND }
  }
  ;*** +/- UJF ********************************************************************************************************************
  elseif ($istok(UJF UserJoinedFrom,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ChanUJF,$+($network,$chan),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanUJF,$+($network,$chan),32))) { msg # [4ERROR!] 14UJF (15U14ser15J14oined15F14rom) is already $+($iif(- isin $1,de),activated) }
    else { set %ChanUJF $iif(- isin $strip($1),$remtok(%ChanUJF,$+($network,$chan),1,32),$addtok(%ChanUJF,$+($network,$chan),32)) | set -u1 %MSG-ENABLE-DiSABLE Initializing... $iif(- isin $strip($1),shutdown,start up) sequence (14UJF) $xStart $iif(- isin $strip($1),4Disabled,9Activated) by $xNick($nick) $xEND }
  }
  ;*** +/- UJFF *******************************************************************************************************************
  elseif ($istok(UJFF FACT nFACT FUNFACT,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%NickUJFF,$iif($chr(35) isin $2,#,$nick),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%NickUJFF,$iif($chr(35) isin $2,#,$nick),32))) { msg # [4ERROR!] You've already got 8UJFF $+($iif(- isin $1,de),activated) }
    else { set %NickUJFF $iif(- isin $strip($1),$remtok(%NickUJFF,$iif($chr(35) isin $2,$+($network,#),$nick),1,32),$addtok(%NickUJFF,$iif($chr(35) isin $2,$+($network,#),$nick),32)) | set -u1 %MSG-ENABLE-DiSABLE $xNick($nick) has just $iif(- isin $strip($1),4deactivated 8FunFacts,9activated 8FunFacts instead of 14UJF) on join $iif($chr(35) isin $2,for $xChan(#)) }
  }
  ;*** +/- Tender *****************************************************************************************************************
  elseif ($istok(Bar Tender Bartender,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ChanBartender,$+($network,$chan),44)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanBartender,$+($network,$chan),44))) { msg # Not sure what your trying to do... but $+(07,Bartender) is already $+($iif(- isin $1,de),activated) for $xChan(#) }
    else { set %ChanBartender $iif(- isin $strip($1),$remtok(%ChanBartender,$+($network,$chan),1,44),$addtok(%ChanBartender,$+($network,$chan),44)) | set -u1 %MSG-ENABLE-DiSABLE $xChan(#) 14GA14RAGE is now $iif(+ isin $strip($1),opening,closing) $xStart $iif(- isin $strip($1),4Closed,9Opened) by $xNick($nick) $xEND }
  }
  ;*** +/- Quote ******************************************************************************************************************
  elseif ($istok(Quote Q,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ChanQuotes,$+($network,$chan),44)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanBartender,$+($network,$chan),44))) { msg # Not sure what your trying to do... but $+(07,Quote) is already $+($iif(- isin $1,de),activated) for $xChan(#) }
    else { set %ChanQuotes $iif(- isin $strip($1),$remtok(%ChanQuotes,$+($network,$chan),1,44),$addtok(%ChanQuotes,$+($network,$chan),44)) | set -u1 %MSG-ENABLE-DiSABLE 7Quote system $iif(+ isin $strip($1),is now running,disablede) $xWRAP($iif(- isin $strip($1),4Closed,9Opened) by $xNick($nick)) }
  }
  ;*** +/- Ignore *****************************************************************************************************************
  elseif ($istok(iGnore exclude spammer,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ExcludeList,$2,32)) || ($left($strip($1),1) == $chr(45) && !$istok(%ExcludeList,$2,32))) { msg # $xNick($2) $iif(+ isin $1,is already,isn't currently) being ignored }
    else { set %ExcludeList $iif(- isin $strip($1),$remtok(%ExcludeList,$2,1,32),$addtok(%ExcludeList,$2,32)) | set -u1 %MSG-ENABLE-DiSABLE $xNick($2) is $iif(- isin $strip($1),no longer,now) being ignored $xStart $iif(- isin $strip($1),4Removed,9Added) by $xNick($nick) $xEND }
  }
  ;*** +/- a420 *******************************************************************************************************************
  elseif ($istok(420A 420Annonucer a420,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%420AutoAnnouncer- [ $+ [ $network ] ],$chan,44)) || ($left($strip($1),1) == $chr(45) && !$istok(%420AutoAnnouncer- [ $+ [ $network ] ],$chan,44))) { msg # [4ERROR!] $+(09,4:20 ANNOUNCER) $iif(- isin $1,is already,isn't currently) activated for $xChan(#) }
    else { set %420AutoAnnouncer- [ $+ [ $network ] ] $iif(- isin $strip($1),$remtok(%420AutoAnnouncer- [ $+ [ $network ] ],$chan,1,44),$addtok(%420AutoAnnouncer- [ $+ [ $network ] ],$chan,44)) | set -u1 %MSG-ENABLE-DiSABLE [9It's always 4:20 somewhere] Announcements will $iif(- isin $strip($1),no longer) be listed every hour $xStart $iif(- isin $strip($1),4Disabled,9Activated) by $xNick($nick) $xEND }
  }
  ;*** +/- aVoice *****************************************************************************************************************
  elseif ($istok(avoice autovoice,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ChanAutoVoice,$+($network,$chan),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanAutoVoice,$+($network,$chan),32))) { msg # 15AutoVoice(14+) $iif(+ isin $1,is already,isn't currently) activated for $xChan(#) }
    else { set %ChanAutoVoice $iif(- isin $strip($1),$remtok(%ChanAutoVoice,$+($network,$chan),1,32),$addtok(%ChanAutoVoice,$+($network,$chan),32)) | set -u1 %MSG-ENABLE-DiSABLE Initializing... $iif(- isin $strip($1),shutdown,start up) sequence (14a15V) $xStart 14AutoVoice $iif(- isin $strip($1),4disbaled,9activated) for $xChan(#) by $xNick($nick) $xEND }
  }
  ;*** +/- Peak *******************************************************************************************************************
  elseif ($istok(Peak,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ChanPeak,$+($network,$chan),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanAutoVoice,$+($network,$chan),32))) { msg # 8PEAK(14+) $iif(+ isin $1,is already,isn't currently) activated for $xChan(#) }
    else { set %ChanPeak $iif(- isin $strip($1),$remtok(%ChanPeak,$+($network,$chan),1,32),$addtok(%ChanPeak,$+($network,$chan),32)) | set -u1 %MSG-ENABLE-DiSABLE Initializing... $iif(- isin $strip($1),shutdown,start up) sequence (8P) $xStart 8Peak $iif(- isin $strip($1),4disbaled,9activated) for $xChan(#) by $xNick($nick) $xEND }
  }
  ;*** +/- Games ***********************************************************************************************************************
  elseif ($istok(game games,$remove($strip($1),+,-),32)) {
    if (($left($strip($1),1) == $chr(43) && $istok(%ChanGame,$+($network,$chan),32)) || ($left($strip($1),1) == $chr(45) && !$istok(%ChanGame,$+($network,$chan),32))) { msg # $iif(- isin $1,There are no $+(09,GAMEs) running here on $xChan(#),The $+(09,GAMEs) are already activated) }
    else { set %ChanGame $iif(- isin $strip($1),$remtok(%ChanGame,$+($network,$chan),1,32),$addtok(%ChanGame,$+($network,$chan),32)) | set -u1 %MSG-ENABLE-DiSABLE $xNick($nick) has just $iif(- isin $strip($1),4disbaled,9activated) 15GAMEs }
  }
  ;*** Messages ************************************************************************************************************************
  if (%MSG-ENABLE-DiSABLE != $null) { msg # %MSG-ENABLE-DiSABLE | $iif($hget(Database\Connection,Nordic-RLS) == ONLiNE,$iif($network != Nordic-RLS,scid $net(Nordic-RLS)) .msg #SRU-STATS [4NOTE] %MSG-ENABLE-DiSABLE Inside $xChan(#) on $xNet($network)) }
  ;*************************************************************************************************************************************
}
;****************************************************************************************************************************************************************************************************************************************