!id Commands:

!id
!profile
!mug
!addid
!delid
!forums
!offences
!about
!bust
!bazaar
!attack
!mail
!trade
!cash
!bail
!ignore
!revive
!bounty
!display
!enemy
!friend
!properties
!allids

Giveaway Commands:

!give
!lotto
!draw
!cgive
!ticket
!remove
!igive
!prize
!changeprize
!ga on
!ga off

!theme Commands:
!theme 1-15

And CBA To do the rest find them out for your self

alias id return ids.txt
alias theme return $read(themes.txt, s, $chan)
on *:TEXT:!bot*:#Yourchannel,?:{
  if ($read(admin.txt, s, $nick)) || ($nick($chan,$nick,&~)) {
    if ($2 == on) {
      set $+(%,Bot.,$chan) 1
      msg $chan $theme $+ All commands have been enabled for $chan 
    }
    elseif ($2 == off) {
      set $+(%,Bot.,$chan) 0
      msg $chan $theme $+ All commands have been disabled for $chan 
    }
  }
  else msg $chan $theme $+ Sorry $nick $+ , only Ops may turn me on/off
}
on *:TEXT:*:#YourChannel,?:{
  if ($($+(%,Bot.,$chan),2) == 0) { halt }
  if ($1 == !about) {
    msg $chan $theme $+  $+ $me $+ , is currently running bot script version $bsv created from scratch by $creater 
  }
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;---- ID script
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  if ($1 == !id) {
    if (!$2) {
      if (!$read(ids.txt, s, $nick)) {
        msg $chan No ID found - add your ID with !addid <id> or !addid <name> <id>.
      }
      else {
        msg $chan $nick $+ 's ID is $read(ids.txt, s, $nick)
      }
    }
    else {
      if (!$read(ids.txt, s, $2)) {
        msg $chan No ID found - add id with !addid <nick> <id>
      }
      else {
        msg $chan $2 $+ 's id is: $read(ids.txt, s, $2)
      }
    }
  }
  if ($1 == !profile) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ View $2 $+ 's profile: http://www.torn.com/profiles.php?XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !bust) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Bust $2 from jail: http://www.torn.com/jail1.php?XID= $+ $read($id, s, $iif($2,$2,$nick))) $+ &action=breakout
    }
  }
  if ($1 == !bail) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Bail $2 from jail: http://www.torn.com/jail1.php?XID= $+ $read($id, s, $iif($2,$2,$nick))) $+ &action=buy
    }
  }
  if ($1 == !cash) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Send $2 cash: http://www.torn.com/sendcash.php?XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !trade) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Trade with $2 $+ : http://www.torn.com/trade.php?step=start&userID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !mail) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Send $2 mail: http://www.torn.com/messages.php?action=send&XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !attack) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Attack $2 $+ : http://www.torn.com/attack.php?PID= $+ $read($id, s, $iif($2,$2,$nick))) $+ &refreshcode=666
    }
  }
  if ($1 == !mug) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Mug $2 $+ : http://www.torn.com/attack.php?PID= $+ $read($id, s, $iif($2,$2,$nick))) $+ &refreshcode=666
    }
  }
  if ($1 == !ignore) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Ignore $2 $+ : http://www.torn.com/ignorelist.php?step=add&XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !revive) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Revive $2 $+ : http://www.torn.com/revive.php?ID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !bounty) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Bounty $2 $+ : http://www.torn.com/bounties.php?action=add2&XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !display) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ View $2 $+ 's display case: http://www.torn.com/displaycase.php?userID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !bazaar) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ View $2 $+ 's bazaar: http://www.torn.com/bazaar.php?userID= $+ $read(ids.txt, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !enemy) {
    if (!$read(ids.txt, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Add $2 to your enemies list: http://www.torn.com/blacklist.php?step=add&XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !friend) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ Add $2 to your friends list: http://www.torn.com/friendlist.php?step=add&XID= $+ $read($id, s, $iif($2,$2,$nick)))
    }
  }
  if ($1 == !properties) {
    if (!$read($id, s, $iif($2,$2,$nick))) { msg $chan $theme $+ I have no ID stored for $2 $+ , add it with !addid <TornID> or !addid <Nick> <TornID> }
    else {
      msg $chan $theme $+ View $2 $+ 's properties: http://www.torn.com/properties.php?step=otherproperties&ID= $+ $read($id, s, $iif($2,$2,$nick))) 
    }
  }
  if ($1 == !allids) {
    describe $chan has $comma($lines($id)) IDs stored.
  }
  if ($1 == !addid) {
    if ((!$3) && ($2 isnum)) {
      if ($read($id, s, $nick)) {
        msg $chan $read(themes.txt, s, $chan) $+ Sorry $nick already has an ID added It is $read(ids.txt, s, $nick) Please contact an OP to remove it.
      }
      else {
        write $id $nick $2
        msg $chan $read(themes.txt, s, $chan) $+  $+ $nick $+ 's id has been added as $2
      }
    }
    else if (($3) && ($3 isnum)) {
      if ($read($id, s, $2)) {
        msg $chan $read(themes.txt, s, $chan) $+ Sorry $2 Already has an ID added It is  $read(ids.txt, s, $2) Please contact an OP to remove it.
      }
      else {
        write $id $2 $3
        msg $chan $read(themes.txt, s, $chan) $+  $+ $2 $+ 's id has been added as $3
      }
    }
    else {
      msg $chan $read(themes.txt, s, $chan) $+ The correct command is: !addid <id> or !addid <name> <id>
    }
  }
  if ($1 == !delid) {
    if ($nick($chan,$nick,@&~)) {
      if ($2 !isnum) {
        if (!$read($id, s, $2)) {
          msg $chan $read(themes.txt, s, $chan) $+ No ID found - add it with !addid <nick> <id>
        }
        else {
          write -ds $2 $id
          msg $chan $read(themes.txt, s, $chan) $+  $+ $2 $+ 's id has been removed
        }
      }
      else {
        msg $chan $read(themes.txt, s, $chan) $+ The corect command command is: !delid <nick>
      }
    }
    else {
      msg $chan $read(themes.txt, s, $chan) $+ Please contact an op to delete IDs....
    }
  }
  ;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;---- Giveaway script
  ;;;;;;;;;;;;;;;;;;;;;;;;;;
  if ($1 == !give) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giveaway.,$chan),2) == on) { msg $chan $theme $+ Giveaways are currently active in $chan  }
    else {
      if ($strip($2) == $null) { msg $chan $theme $+ Please use the correct command !give [prize here] }
      else {
        if ($2 isnum) {
          set $+(%,number.,$chan) $2
          set $+(%,prize.,$chan) $chr(36) $+ $comma($2)
          set $+(%,giver.,$chan) $nick
          set $+(%,giveaway.,$chan) on
          set $+(%,gatime.,$chan) $ctime
          timerlga. $+ $chan off
          msg $chan $theme $+  $+ $($+(%,giver.,$chan),2) has just started a giveaway in $chan  for a/an $($+(%,prize.,$chan),2) type !lotto $+ , !enter or !join
        }
        else {
          set $+(%,prize.,$chan) $2-
          set $+(%,giver.,$chan) $nick
          set $+(%,giveaway.,$chan) on
          set $+(%,gatime.,$chan) $ctime
          timerlga. $+ $chan off
          msg $chan $theme $+  $+ $($+(%,giver.,$chan),2) has just started a giveaway in $chan  for a/an $($+(%,prize.,$chan),2) type !lotto $+ , !enter or !join
        }
      }
    }
  }
  if ($1 == !lotto) || ($1 == !enter) || ($1 == !join) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giver.,$chan),2) == $nick) { msg $chan $theme $+ The lotto starter $chr(40) $+ $($+(%,giver.,$chan),2) $+ $chr(41) cannot join the lotto. }
    else {
      var %txt give $+ $chan $+ .txt
      if (!$read(%txt,s,$nick)) {
        if (%giveaway == off) { msg $chan $theme $+  $+ $nick $+ , There is not a giveaway going on in $chan right now. }
        else {
          if (!$read($idfl, s, $nick)) { msg $chan $theme $+  $+ $nick $+ , before you enter you should add your ID type !addid <TornID> }
          else {
            write %txt $nick entered
            msg $chan $theme $+ Thank you $nick $+ , you have been entered in the current lotto for a/an $($+(%,prize.,$chan),2) $+ , your ticket is number $lines(%txt) $+ !
          }
        }
        else {
          echo -a $read(%txt,s,$nick)
          msg $chan $theme $+  $+ $nick $+ , You have already been entered for the current lotto in $chan with ticket number $readn $+ !
        }
      }
    }
  }
  if ($1 == !Draw) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giveaway.,$chan),2) == off) { msg $chan $theme $+ How can you end something that hasn't been started? }
    if ($($+(%,giveaway.,$chan),2) == on) {
      if ($nick == $($+(%,giver.,$chan),2)) || ($nick($chan,$nick,~)) {
        if ($lines(give $+ $chan $+ .txt) > 2) {
          msg $chan $theme $+ The giveaway is being draw....
          set $+(%,winner.,$chan) $remove($read(give $+ $chan $+ .txt),entered) 
          set $+(%,winnerticket.,$chan) $readn
          msg $chan $theme $+ Ticket number $($+(%,winnerticket.,$chan),2) has been selected.
          msg $chan $theme $+ The winner of the $($+(%,prize.,$chan),2) donated by $($+(%,giver.,$chan),2) is $($+(%,winner.,$chan),2) $+ 's ID is: $+ $read(ids.txt, s, $winner($chan)) $+ $chan,winner)))
          unset $+(%,number.,$chan) 
          unset $+(%,prize.,$chan)
          unset $+(%,winnerticket.,$chan)
          unset $+(%,winner.,$chan)
          unset $+(%,gatime.,$chan)
          unset $+(%,giver.,$chan)
          set $+(%,giveaway.,$chan) off
          write -c give $+ $chan $+ .txt
          timerlga. $+ $chan 0 %lgatme msg $chan $theme $+ Giveaways are currently enabled in $chan $+ . Start a new one with: !give [Prize Here]
        }
        else {
          msg $chan $theme $+ There must be more than 2 participants to start the giveaway.
        }
      }
      else {
        msg $chan $theme $+ Only %giver or Channel Owners (~) can draw the giveaway!
      }
    }
  }
  if ($1 == !cgive) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($nick($chan,$nick,@&~)) {
      if ($($+(%,giveaway.,$chan),2) == off) { msg $chan $theme $+ How can you cancel something that hasn't been started? }
      else {
        unset $+(%,number.,$chan) 
        unset $+(%,prize.,$chan)
        unset $+(%,gatime.,$chan)
        unset $+(%,giver.,$chan)
        set $+(%,giveaway.,$chan) off
        msg $chan $theme $+ The current giveaway has been cancelled by a channel staff member
        timerlga. $+ $chan 0 %lgatme msg $chan $theme $+ Giveaways are currently enabled in $chan $+ . Start a new one with: !give [Prize Here]
      }
    }
    else msg $chan $theme $+ Sorry $nick $+ , only Ops may cancel the giveaway.
  }
  if ($1 == !ticket) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giveaway.,$chan),2) == off) { msg $chan 4The giveaway is currently inactive in $chan $+ ! }
    else {
      if ($nick == $($+(%,giver.,$chan),2)) { 
        msg $chan $theme $+  $+ $nick you cannot have a ticket as you started the giveaway.  
      }
    }
    else {
      if ($read(give $+ $chan $+ .txt, s, $nick)) {
        msg $chan $theme $+  $+ $nick $+ , you have ticket number $readn $+ !
      }
    }
  }
  if ($1 == !remove) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($nick($chan,$nick,@&~)) {
      if ($($+(%,giveaway.,$chan),2) == off) {
        msg $chan $theme $+ There is not a giveaway going on in $chan right now.
      }
      if ($($+(%,giveaway.,$chan),2) == on) {
        set %drule $2-
        set %drule $replace(%drule,$chr(32),$chr(42))
        write -ds $+ %drule give $+ $chan $+ .txt
        msg $chan $theme $+  $+ $2  has been removed from the current giveaway.
      }
    }
    else msg $chan $theme $+ Sorry $nick $+ , only Ops may remove someone from the giveaway.
  }
  if ($1 == !igive) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giveaway.,$chan),2) == off) { msg $chan $theme $+ The giveaway is currently inactive in $chan  }
    else {
      var %txt give $+ $chan $+ .txt
      msg $chan $theme $+ The current prize is a/an $($+(%,prize.,$chan),2) donated by $($+(%,giver.,$chan),2) 
      msg $chan $theme $+ There is currently $lines(%txt) participants in the current giveaway.
      msg $chan $theme $+ The giveaway has been running for $duration($calc($ctime - $($+(%,gatime.,$chan))))
    }
  }
  if ($1 == !prize) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giveaway.,$chan),2) == off) { msg $chan 4The giveaway is currently inactive in $chan  }
    else {
      msg $chan $theme $+ The current prize is a/an $($+(%,prize.,$chan),2) donated by $($+(%,giver.,$chan),2) 
    }
  }
  if ($1 == !changeprize) {
    if ($($+(%,Gon.,$chan),2) == 0) { halt }
    if ($($+(%,giveaway.,$chan),2) == off) { msg $chan $theme $+ The giveaway is currently inactive in $chan  }
    else {
      if ($2 isnum) {
        unset $+(%,number.,$chan) 
        unset $+(%,prize.,$chan)
        set $+(%,number.,$chan) $2
        set $+(%,prize.,$chan) $chr(36) $+ $comma($2)
        msg $chan $theme $+ The prize has been changed to $($+(%,prize.,$chan),2)
      }
      else {
        unset $+(%,prize.,$chan)
        set $+(%,prize.,$chan) $2-
        msg $chan $theme $+ The prize has been changed to $($+(%,prize.,$chan),2)
      }
    }
    else msg $chan $theme $+ Sorry $nick $+ , only Ops may change the giveaway prize.
  }
  if ($1 == !ga) {
    if ($nick($chan,$nick,@&~)) {
      if ($2 == on) {
        set $+(%,Gon.,$chan) 1
        timerlga. $+ $chan 0 %lgatme msg $chan $theme $+ Giveaways are currently enabled in $chan $+ . Start a new one with: !give [Prize Here]
        mag $chan $theme $+ Giveaways have been enabled for $chan 
      }
      elseif ($2 == off) {
        set $+(%,Gon.,$chan) 0
        timerlga. $+ $chan off
        msg $chan $theme $+ Giveaways have been disabled for $chan 
      }
    }
    else msg $chan $theme $+ Sorry $nick $+ , only Ops may turn the giveaway on/off
  }
  if (you sent * to * iswm $1-) && ($remove($3,$chr(44),$chr(36)) isnum) && ($remove($3,$chr(44),$chr(36)) > 0) && ($nick($chan,$nick,~&@%+))) {
    inc $+(%,total,$chan) $remove($3,$chr(44),$chr(36))
    msg $chan $theme $+ I have added $3 to the total. The total amount of money given out in $chan is $ $+ $comma($($+(%,total,$chan),5)))
  }
  if ($1 == !total) {
    msg $chan $theme $+ The total amount of money given out in $chan is $ $+ $comma($($+(%,total,$chan),5)))
  }
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;---- Direct links
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  if ($1 == !gym) {
    msg $chan $theme $+ Visit the Gym: http://www.torn.com/gym.php
  }
  if ($1 == !crimes) {
    msg $chan $theme $+ Do some crimes: http://www.torn.com/crimes.php
  }
  if ($1 == !events) {
    msg $chan $theme $+ Check your events: http://www.torn.com/events.php
  }
  if ($1 == !faction) {
    msg $chan $theme $+ Your Faction: http://www.torn.com/factions.php?step=your
  }
  if ($1 == !auction) {
    msg $chan $theme $+ Take a look at the Auction House: http://www.torn.com/amarket.php
  }
  if ($1 == !poker) {
    msg $chan $theme $+ Play a game of poker: http://www.torn.com/poker.php
  }
  if ($1 == !jail) && (!$2) {
    msg $chan $theme $+ Take a look at the prisoners in TC Jail: http://www.torn.com/jailview.php
  }
  if ($1 == !news) {
    msg $chan $theme $+ Read through the TC Times: http://www.torn.com/newspaper.php
  }
  if ($1 == !laptop) {
    msg $chan $theme $+ Your Laptop: http://www.torn.com/laptop.php
  }
  if ($1 == !records) {
    msg $chan $theme $+ Your criminal offences: http://www.torn.com/criminalrecords.php
  }
  if ($1 == !bounties) {
    msg $chan $theme $+ bounties: http://www.torn.com/bounties.php
  }
  if ($1 == !hospital) {
    msg $chan $theme $+ Have a look at the injured in TC Hospital: http://www.torn.com/hospitalview.php
  }
  if ($1 == !preferences) {
    msg $chan $theme $+ Change your preferences: http://www.torn.com/preferences.php
  }
  if ($1 == !offences) {
    msg $chan $theme $+ See your criminal offences: http://www.torn.com/criminalrecords.php
  }
  if ($1 == !awards) {
    msg $chan $theme $+ Look at your awards: http://www.torn.com/awards.php
  }
  if ($1 == !forums) {
    msg $chan $theme $+ Browse through the forums: http://www.torn.com/forums.php
  }
  if ($1 == !stocks) {
    msg $chan $theme $+ View your stock portfolio: http://www.torn.com/stockexchange.php?step=portfolio
  }
  if ($1 == !tcse) {
    msg $chan $theme $+ Torn City Stock Exchange (TCSE): http://www.torn.com/stockexchange.php?step=profile&stock=0
  }
  if ($1 == !tcsb) {
    msg $chan $theme $+ Torn City and Shanghi Banking Corporation (TCSB): http://www.torn.com/stockexchange.php?step=profile&stock=1
  }
  if ($1 == !tcb) {
    msg $chan $theme $+ Torn City Investment Banking (TCB): http://www.torn.com/stockexchange.php?step=profile&stock=2
  }
  if ($1 == !sys) {
    msg $chan $theme $+ Syscore MFG (SYS): http://www.torn.com/stockexchange.php?step=profile&stock=3
  }
  if ($1 == !slag) {
    msg $chan $theme $+ Society and Legal Authorities Group (SLAG): http://www.torn.com/stockexchange.php?step=profile&stock=4
  }
  if ($1 == !iou) { 
    msg $chan $theme $+ Insured On Us (IOU): http://www.torn.com/stockexchange.php?step=profile&stock=5
  }
  if ($1 == !grn) {
    msg $chan $theme $+ Grain (GRN): http://www.torn.com/stockexchange.php?step=profile&stock=6
  }
  if ($1 == !tchs) {
    msg $chan $theme $+ Torn City Health Service (TCHS): http://www.torn.com/stockexchange.php?step=profile&stock=7
  }
  if ($1 == !yaz) {
    msg $chan $theme $+ Yazoo (YAZ): http://www.torn.com/stockexchange.php?step=profile&stock=8
  }
  if ($1 == !tct) {
    msg $chan $theme $+ The Torn City Times (TCT): http://www.torn.com/stockexchange.php?step=profile&stock=9
  }
  if ($1 == !cnc) {
    msg $chan $theme $+ Crude & Co. (CNC): http://www.torn.com/stockexchange.php?step=profile&stock=10
  }
  if ($1 == !msg) {
    msg $chan $theme $+ Messaging Inc. (MSG): http://www.torn.com/stockexchange.php?step=profile&stock=11
  }
  if ($1 == !tmi) {
    msg $chan $theme $+ TC Music Inductries (TMI): http://www.torn.com/stockexchange.php?step=profile&stock=12
  }
  if ($1 == !tcp) {
    msg $chan $theme $+ TC Media Productions (TCP): http://www.torn.com/stockexchange.php?step=profile&stock=13
  }
  if ($1 == !iil) {
    msg $chan $theme $+ I Industries Ltd. (IIL): http://www.torn.com/stockexchange.php?step=profile&stock=14
  }
  if ($1 == !fhc) {
    msg $chan $theme $+ Feathery Hotel Corp (FHC): http://www.torn.com/stockexchange.php?step=profile&stock=15
  }
  if ($1 == !sym) {
    msg $chan $theme $+ Symbiotic Ltd. (SYM): http://www.torn.com/stockexchange.php?step=profile&stock=16
  }
  if ($1 == !lsc) {
    msg $chan $theme $+ Lucky Shot Casino (LSC): http://www.torn.com/stockexchange.php?step=profile&stock=17
  }
  if ($1 == !prn) {
    msg $chan $theme $+ Performance Ribaldry Network (PRN): http://www.torn.com/stockexchange.php?step=profile&stock=18
  }
  if ($1 == !ewm) {
    msg $chan $theme $+ Eaglewood Mercenary (EWM): http://www.torn.com/stockexchange.php?step=profile&stock=19
  }
  if ($1 == !tcm) {
    msg $chan $theme $+ Torn City Motors (TCM): http://www.torn.com/stockexchange.php?step=profile&stock=20
  }
  if ($1 == !elbt) {
    msg $chan $theme $+ The Empty Lunchbox Building Traders (ELBT): http://www.torn.com/stockexchange.php?step=profile&stock=21
  }
  if ($1 == !hrg) {
    msg $chan $theme $+ Home Retail Group (HRG): http://www.torn.com/stockexchange.php?step=profile&stock=22
  }
  if ($1 == !tgp) {
    msg $chan $theme $+ Tell Group Plc. (TGP): http://www.torn.com/stockexchange.php?step=profile&stock=23
  }
  if ($1 == !24) {
    msg $chan $theme $+ The mysterious stock no. 24 (24): http://www.torn.com/stockexchange.php?step=profile&stock=24
  }
  if ($1 == !wssb) {
    msg $chan $theme $+ West Side South Bank University (WSSB): http://www.torn.com/stockexchange.php?step=profile&stock=25
  }
  if ($1 == !istc) {
    msg $chan $theme $+ International School TC (ISTC): http://www.torn.com/stockexchange.php?step=profile&stock=26
  }
  if ($1 == !bag) {
    msg $chan $theme $+ Big Al's Gun Shop (BAG): http://www.torn.com/stockexchange.php?step=profile&stock=27
  }
  if ($1 == !evl) {
    msg $chan $theme $+ Evil Ducks Candy Corp (EVL): http://www.torn.com/stockexchange.php?step=profile&stock=28
  }
  if ($1 == !mcs) {
    msg $chan $theme $+ Mc Smoogle Corp (MCS): http://www.torn.com/stockexchange.php?step=profile&stock=29
  }
  if ($1 == !wlt) {
    msg $chan $theme $+ Wind Lines Travel (WLT): http://www.torn.com/stockexchange.php?step=profile&stock=30
  }
  if ($1 == !tcc) {
    msg $chan $theme $+ Torn City Clothing (TCC): http://www.torn.com/stockexchange.php?step=profile&stock=31
  }
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;---- Bot control commands
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  if ($1 == !theme) {
    if ($read(admin.txt, s, $nick)) || ($nick($chan,$nick,&~)) {
      if ($strip($2) == $null) {
        msg $chan $theme $+ To set this channels color theme use: !theme <ColorCode>
        msg $chan $theme $+ Set $me $+ 's theme with the following color codes: ( 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 $theme $+ )
        msg $chan $theme $+ To reset this channels color theme use: !theme 0
      }
      else {
        write -ds $chan themes.txt
        write themes.txt $chan  $+ $2-
        msg $chan $theme $+  $+ $me $+ 's color theme will now look like this in $chan 
      }
    }
  }
  if ($1 == !part) {
    if ($chan) {
      if ($2 == $me) {
        if ($read(admin.txt, s, $nick)) || ($nick == monster18) || ($nick == toclafane) {
          part $chan Requested by $nick 
        }
        else msg $chan $theme $+ Only Ops can ask me to part the channel!
      }
      else msg $chan $theme $+ To avoid confusion, to make me part the channel, use !part  $+ $me $+ 
    }
  }
  if ($1 == !hop) {
    if ($chan) {
      if ($2 == $me) {
        if ($read(admin.txt, s, $nick)) || ($nick == monster18) || ($nick == toclafane) {
          hop $chan Requested by $nick
        }
        else msg $chan $theme $+ Only Ops can ask me to hop the channel!
      }
      else msg $chan $theme $+ To avoid confusion, to make me part the channel, use !hop $+ $me $+ 
    }
  }
  if ($1 == !join) && ($2) {
    if ($read(admin.txt, s, $nick)) || ($nick == monster18) || ($nick == toclafane) {
      join $2
      msg $chan $theme $+ Channel $2 joined.
    }
  }
  if ($1 == !zchan) {
    if ($read(admin.txt, s, $nick)) || ($nick == monster18) || ($nick == toclafane) {
      if ($2 == add) {
        if ($read(ZChans.txt, w, $3)) { msg $chan $theme $+  $+ $3 is already on my ZChan list, $nick $+ . }
        else {
          write ZChans.txt $3
          msg $chan $theme $+  $+ $3 added to my ZChan list, $nick $+ .
        }
      }
      if ($2 == del) {
        if (!$read(ZChans.txt, w, $3)) { msg $chan $theme $+  $+ $3 is not on my ZChan list to delete, $nick $+ . }
        else {
          write -ds $+ $3 ZChans.txt
          msg $chan $theme $+  $+ $3 removed from my ZChan list, $nick $+ .
        }
      }
      if ($2 == count) {
        msg $chan $theme $+ I have $lines(ZChans.txt)  channels stored in my ZChan list, $nick $+ .
      }
      if ($2 == list) {
        msg $chan $theme $+ Listing channels on ZChan list..
        var %zc.list = 1
        var %zc.lines = $lines(ZChans.txt)
        while (%zc.list <= %zc.lines) {
          msg $chan $theme $+  $+ [ $+ %zc.list $+ / $+ %zc.lines $+ ] $read(ZChans.txt, %zc.list)
          inc %zc.list
        }
      }
      if ($2 == globalmsg) {
        var %zc = 1
        var %zc.lines = $lines(ZChans.txt)
        while (%zc <= %zc.lines) {
          msg $read(ZChans.txt, %zc) $read(themes.txt, s, $read(ZChans.txt, %zc)) $+ $1-
          inc %zc
        }
        msg $chan $theme $+ GlobalMsg sent to all channels in ZChan list, $nick $+ .
      }
      if ($2 == help) {
        msg $chan $theme $+ Commands: !zchan add #chan , !zchan del #chan , !zchan count , !zchan list , !zchan globalmsg message
      }
    }
  }
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;---- Misc/other commands
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  if ($1 == !calc) {
    if ($strip($2) == $null) { msg $chan $theme $+ The correct command is: !calc <Calculation> }
    else {
      var %calc $comma($calc($replace($2-,k,000,m,000000,b,000000000,t,000000000000,q,000000000000000,$chr(44),$null)))
      msg $chan $theme $+ Calculating: $2-
      msg $chan $theme $+ Result is: %calc
      if (%calc == 0) {
        msg $chan $theme $+ if 0 is not the correct awnser then thats because this calculator cant handle some of the characters or the formula used
      }
    }
  }
  if ($1 == !mute) {
    if ($chan) {  
      if ($2) {  
        if ($read(admin.txt, s, $nick)) || ($nick == monster18) || ($nick == toclafane) {
          if ($2 isnum) { 
            if ($3) {
              if ($3 !isop $chan) || (!$zs.admin($3)) { 
                if ($3 ison $chan) { 
                  mode $chan +b-qaohv ~q: $+ $address($3,2) $str($3 $chr(32),6)
                  msg $chan $theme $+  $+ $3 has been muted for $2 minutes by $nick $+ .
                  .timer 1 $calc( $2 * 60 ) mode $chan -b ~q: $+ $address($3,2)
                }
                else msg $chan $theme $+ Erm, $3 is not on $chan at the moment.. unable to mute.. so, yeah.
              }
              else msg $chan $theme $+ I will not mute Ops. 
            }
            else msg $chan $theme $+ Please use the correct command: !mute Mins Nick 
          }
          else msg $chan $theme $+  $+ $2 must be a number. E.g. !mute 10 Nick will mute for 10 minutes.
        }
      }
      else msg $chan $theme $+ Please use the correct command: !mute Mins Nick
    }
  }
  if ($1 == !giveaway) {
    if ($chan) {
      var %rgivenick = $nick($chan,$rand(1,$nick($chan,0))) | var %rgiveid = $read($id, s, %rgivenick)
      msg $chan $theme $+ Random winner in $chan is: %rgivenick [ $+ $iif(%rgiveid,%rgiveid,No ID Stored) $+ ]
    }
  }
  if ($1 == !d) {
    if (!%bot [ $+ [ $chan ] ]) {
      var %i 1
      var %time $ctime
      var %dups 0
      /msg $chan $theme $+ Removing duplicate ids from ids.txt
      while (%i <= $lines($id)) {
        tokenize 32 $read($id,%i)
        if (%id [ $+ [ $1 ] ] == 1) {
          write deleted.txt $1-
          write -ds $+ $1 ids.txt
          inc %dups
        }
        var %id [ $+ [ $1 ] ] 1
        inc %i
      }
      msg $chan $theme $+ Finished sorting, found $iif(%dups,%dups,no) duplicate id's operation took $duration($calc($ctime - %time))
      0
      .231..3
    }
  }
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;---- Alerts script
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  if ($1 == !a) || ($1 == !alert) || ($1 == !alerts) {
    if (!$2) {
      if (!$timer(.travel $+ $nick)) && (!$timer(.drugs $+ $nick)) && (!$timer(.energy $+ $nick)) && (!$timer(.hosp $+ $nick)) && (!$timer(.jail $+ $nick)) && (!$timer(.nerve $+ $nick)) && (!$timer(.happy $+ $nick)) && (!$timer(remind $+ $nick)) && (!$timer(.edu $+ $nick)) && (!$timer(.oc $+ $nick)) && (!$timer(.bank $+ $nick)) {
        msg $iif($chan,$chan,$nick) $theme $+  $+ $nick $+ , no alerts found.
      }
      else {
        var %drug = $iif($timer(.drugs $+ $nick),$iif($($+(%,drug,$nick),2), $+ $($+(%,drug,$nick),2) $+ ,Drug) effects in $duration($timer(.drugs $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.drugs $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %energy = $iif($timer(.energy $+ $nick),Energy refill in $duration($timer(.energy $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.energy $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %happy = $iif($timer(.happy $+ $nick),Happy refill in $duration($timer(.happy $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.happy $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %nerve = $iif($timer(.nerve $+ $nick),Nerve refill in $duration($timer(.nerve $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.nerve $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %hosp = $iif($timer(.hosp $+ $nick),Hospital release in $duration($timer(.hosp $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.hosp $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %jail = $iif($timer(.jail $+ $nick),Jail release in $duration($timer(.jail $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.jail $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %travel = $iif($timer(.travel $+ $nick),Travel $+ $iif($($+(%,destination,$nick),2),,ling) $iif($($+(%,destination,$nick),2),to $($+(%,destination,$nick),2),on a plane) in $duration($timer(.travel $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.travel $+ $nick).secs).secs)),h:nntt) $+ ),)
        var %edu = $iif($timer(.edu $+ $nick),Education course in $duration($timer(.edu $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.edu $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ ),)
        var %oc = $iif($timer(.oc $+ $nick),OC ready in $duration($timer(.oc $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.oc $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ ),)
        var %bank = $iif($timer(.bank $+ $nick),Bank investment finishes in $duration($timer(.bank $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(.bank $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ ),)
        var %remind = $iif($timer(remind $+ $nick),Reminder: $($+(%,remind,$nick),2) in $duration($timer(remind $+ $nick).secs) ( $+ $time($calc($gmt + $duration($duration($timer(remind $+ $nick).secs).secs)),h:nntt) $+ ),)
        if (%drug) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %drug }
        if (%energy) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %energy }
        if (%happy) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %happy }
        if (%nerve) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %nerve }
        if (%hosp) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %hosp }
        if (%jail) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %jail }
        if (%travel) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %travel }
        if (%edu) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %edu }
        if (%oc) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %oc }
        if (%bank) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %bank }
        if (%remind) { var %alist = %alist $+ $iif(%alist,$chr(44),$null) %remind }
        msg $iif($chan,$chan,$nick) $theme $+ Alerts for  $+ $nick $+ : %alist
      }
    }
    if ($2 == off) { 
      if (!$timer(.travel $+ $nick)) && (!$timer(.drugs $+ $nick)) && (!$timer(.energy $+ $nick)) && (!$timer(.hosp $+ $nick)) && (!$timer(.jail $+ $nick)) && (!$timer(.nerve $+ $nick)) && (!$timer(.happy $+ $nick)) && (!$timer(remind $+ $nick)) && (!$timer(.edu $+ $nick)) {
        msg $chan $theme $+  $+ $nick $+ , no alerts found to switch off.
      }
      else {
        .timer. $+ jail $+ $nick off | .timer. $+ happy $+ $nick off | .timer. $+ hosp $+ $nick off | .timer. $+ travel $+ $nick off
        .timer. $+ drugs $+ $nick off | .timer. $+ energy $+ $nick off | .timer. $+ nerve $+ $nick off  | .timer. $+ edu $+ $nick off
        .timerremind $+ $nick off
        unset $+(%,destination,$nick,2) $+(%,remind,$nick)
        msg $chan $theme $+  $+ $nick $+ , all your alerts have been switched off.
      }
    }
  }
  if ($1-2 == !nerve off) && ($timer(.nerve $+ $nick)) { 
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ nerve $+ $nick off
  }
  if ($1-2 == !happy off) && ($timer(.happy $+ $nick)) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ happy $+ $nick off
  }
  if ($1-2 == !energy off) && ($timer(.energy $+ $nick)) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ energy $+ $nick off
  }
  if ($1 == !drug) || ($1 == !fx) {
    if ($2 == off) && ($timer(.drugs $+ $nick)) {
      msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
      .timer. $+ drugs $+ $nick off
    }
    if ($2 isnum) { 
      var %dtime = $calc(60 * $2)
      .timer $+ .drugs $+ $nick -co 1 %dtime msg $chan $theme $+  $+ $nick $+ , the drug effects should now be wearing off.
      msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.drugs $+ $nick).secs) $+  when your drug effects should be wearing off. ( $+ $time($calc($gmt + $duration($duration($timer(.drugs $+ $nick).secs).secs)),h:nntt) TC Time)
    }
  }
  if (($1-2 == !plane off) || ($1-2 == !travel off)) && ($timer(.travel $+ $nick)) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ travel $+ $nick off
  }
  if ($1-2 == !jail off) && ($timer(.jail $+ $nick)) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ jail $+ $nick off
  }
  if (($1-2 == !education off) || ($1-2 == !edu off)) && ($timer(.edu $+ $nick)) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ edu $+ $nick off
  }
  if (($1-2 == !hosp off) || ($1-2 == !hospital off)) && $timer(.hosp $+ $nick) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ hosp $+ $nick off
  }
  if ($1-2 == !oc off) && $timer(.oc $+ $nick) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ oc $+ $nick off
  }
  if ($1-2 == !bank off) && $timer(.bank $+ $nick) {
    msg $chan $theme $+  $+ $nick $+ , your alert has been switched off.
    .timer. $+ bank $+ $nick off
  }
  if ($1 == !remind) {
    if ($2) {
      if ($2 == off) {
        if ($timer(remind $+ $nick)) {
          .timerremind $+ $nick off
          msg $chan $theme $+  $+ $nick $+ , your reminder has been cancelled. 
        }
        else msg $chan $theme $+  $+ $nick $+ , no remind set to cancel.
      }
      else {
        if ($2 isnum) { 
          if ($3) {
            set %remind $+ $nick $replace($replace($3-,$chr(124),$+(,$chr(124),)),$chr(36),$+(,$chr(36),))
            msg $chan $theme $+  $+ $nick $+ , I will remind you to $3- in $duration($calc($2 * 60)) $+ .
            .timerremind $+ $nick 1 $calc($2 * 60) msg $chan $theme $+  $+ $nick $+ , you asked me to remind you to $($+(%,remind,$nick),2) $+ .
          }
          else msg $chan $theme $+ You need to specify what you want me to remind you: !remind  Reminder here
        }
        else msg $chan $theme $+  $+ $2 is not a number. Use !remind  Reminder here
      }
      else msg $chan $theme $+ Use the correct command: !remind  Reminder here
    }
  }
  if ($2 == drug) && ($4 isnum) && ($5 == minutes) && (($6 == left) || ($6 == left])) {
    set $+(-u,%dtime) %drug $+ $nick $remove($1,$chr(91),$chr(46),$chr(124),$chr(36))
    var %dtime = $calc(60 * $4)
    .timer $+ .drugs $+ $nick -co 1 %dtime msg $chan $theme $+  $+ $nick $+ , your $($+(%,drug,$nick),2) effects should now be wearing off.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.drugs $+ $nick).secs) $+  when your $($+(%,drug,$nick),2) effects should be wearing off. ( $+ $time($calc($gmt + $duration($duration($timer(.drugs $+ $nick).secs).secs)),h:nntt) TC Time)
  }
  if ($1-8 == You are currently on the plane flying to) && (($10-14 == You should be there in) || ($11-15 == You should be there in)) {
    if ($16 isnum) {
      var %ptime = $calc($16 * 60)
      set $+(-u,%ptime) %destination $+ $nick $remove($9 $10,$chr(46),$chr(124),$chr(36))
      .timer $+ .travel $+ $nick -co 1 %ptime msg $chan $theme $+  $+ $nick $+ , you are now landing at $($+(%,destination,$nick),2) $+ .
      msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.travel $+ $nick).secs) $+  that you are due to land in $($+(%,destination,$nick),2) $+ . ( $+ $time($calc($gmt + $duration($duration($timer(.travel $+ $nick).secs).secs)),h:nntt) TC Time)
    }
    else {
      var %ptime = $calc($15 * 60)
      set $+(-u,%ptime) %destination $+ $nick $remove($9,$chr(46),$chr(124),$chr(36))
      .timer $+ .travel $+ $nick -co 1 %ptime msg $chan $theme $+  $+ $nick $+ , you are now landing at $($+(%,destination,$nick),2) $+ .
      msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.travel $+ $nick).secs) $+  that you are due to land in $($+(%,destination,$nick),2) $+ . ( $+ $time($calc($gmt + $duration($duration($timer(.travel $+ $nick).secs).secs)),h:nntt) TC Time)
    }
  }
  if ($1-8 == You step onto the plane. It will take) && ($9 isnum) && ($10-15 == hours to get to the destination.) {
    unset %destination $+ $nick
    var %ptime = $calc($9 * 60 * 60)
    .timer $+ .travel $+ $nick -co 1 %ptime msg $chan $theme $+  $+ $nick $+ , you are now landing at your destination.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.travel $+ $nick).secs) $+  that you are due to land at your destination. ( $+ $time($calc($gmt + $duration($duration($timer(.travel $+ $nick).secs).secs)),h:nntt) TC Time)
  }
  if ($1-3 == You pay the) && ($5-12 = and step onto the plane. It will take) && ($14-19 = minutes to get to the destination.) {
    unset %destination $+ $nick
    var %ptime = $calc($13 * 60)
    .timer $+ .travel $+ $nick -co 1 %ptime msg $chan $theme $+  $+ $nick $+ , you are now landing at your destination.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.travel $+ $nick).secs) $+  that you are due to land at your destination. ( $+ $time($calc($gmt + $duration($duration($timer(.travel $+ $nick).secs).secs)),h:nntt) TC Time)
  }
  if ($1 == Nerve:) {
    if ($chr(47) isin $2) {
      var %temp.nerve = $replace($2,/,$chr(32) $chr(32))
      var %bar.nerve = $right(%temp.nerve,2)
      var %nerve = $left(%temp.nerve,2)
      var %min.nerve = $asctime($calc($gmt + %daylight),nn)
      var %sec.nerve = $asctime($calc($gmt + %daylight),ss)
      var %secs.passed.nerve = $calc(%min.nerve * 60 + %sec.nerve)
      while (%secs.passed.nerve > 300) {
        var %secs.passed.nerve = $calc(%secs.passed.nerve - 300)
      }
      if ($strip(%nerve,burc) < $strip(%bar.nerve,burc)) { 
        var %refill.nerve = $calc(300 - %secs.passed.nerve + (%bar.nerve - %nerve - 1) * 300)
        .timer $+ .nerve $+ $nick -co 1 %refill.nerve msg $chan $theme $+  $+ $nick $+ , your Nerve Bar is now full.
        msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.nerve $+ $nick).secs) $+  when your Nerve Bar has fully regenerated. ( $+ $time($calc($gmt + $duration($duration($timer(.nerve $+ $nick).secs).secs)),h:nntt) TC Time)
      }
    }
  }
  if ($1 == Happy:) {
    if ($chr(47) isin $2) {
      var %temp.happy = $replace($2,/,$chr(32) $chr(32))
      var %bar.happy = $right(%temp.happy,5)
      var %happy = $left(%temp.happy,5)
      var %min.happy = $asctime($calc($gmt + %daylight),nn)
      var %sec.happy = $asctime($calc($gmt + %daylight),ss)
      var %secs.passed.happy = $calc(%min.happy * 60 + %sec.happy)
      while (%secs.passed.happy > 900) {
        var %secs.passed.happy = $calc(%secs.passed.happy - 900)
      }
      if ($strip(%happy,burc) < $strip(%bar.happy,burc)) { 
        var %refill = $calc($calc($calc($calc($calc(%bar.happy - %happy) - 5) / 5) * 15) * 60)
        .timer $+ .happy $+ $nick -co 1 $calc($calc(900 - %secs.passed.happy) + %refill) msg $chan $theme $+  $+ $nick $+ , your Happy Bar is now full.
        msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.happy $+ $nick).secs) $+  when your Happy Bar has fully regenerated. ( $+ $time($calc($gmt + $duration($duration($timer(.happy $+ $nick).secs).secs)),h:nntt) TC Time)
      }
    }
  }
  if ($1 == Energy:) {
    if ($chr(47) isin $2) {
      var %temp.energy = $replace($2,/,$chr(32) $chr(32))
      var %bar = $right(%temp.energy,3)
      var %energy = $remove($left(%temp.energy,3),$chr(32))
      if (%bar == 150) {
        var %min = $asctime($calc($gmt + %daylight),nn)
        var %sec = $asctime($calc($gmt + %daylight),ss)
        var %secs.passed = $calc(%min * 60 + %sec)
        while (%secs.passed > 600) {
          var %secs.passed = $calc(%secs.passed - 600)
        }
        if ($strip(%energy,burc) < $strip(%bar,burc)) { 
          var %refill = $calc(((((%bar - %energy) - 5) / 5) * 10) * 60) 
          .timer $+ .energy $+ $nick -co 1 $calc($calc(600 - %secs.passed) + %refill) msg $chan $theme $+  $+ $nick $+ , your Energy Bar is now full.
          msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.energy $+ $nick).secs) $+  when your Energy Bar has fully regenerated. ( $+ $time($calc($gmt + $duration($duration($timer(.energy $+ $nick).secs).secs)),h:nntt) TC Time)
        }
      }
      if (%bar == 100) {
        var %min = $asctime($calc($gmt + %daylight),nn)
        var %sec = $asctime($calc($gmt + %daylight),ss)
        var %secs.passed = $calc(%min * 60 + %sec)
        while (%secs.passed > 900) {
          var %secs.passed = $calc(%secs.passed - 900)
        }
        if ($strip(%energy,burc) < $strip(%bar,burc)) { 
          var %refill = $calc($calc($calc($calc($calc(%bar - %energy) - 5) / 5) * 15) * 60)
          .timer $+ .energy $+ $nick -co 1 $calc($calc(900 - %secs.passed) + %refill) msg $chan $theme $+  $+ $nick $+ , your Energy Bar is now full.
          msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.energy $+ $nick).secs) $+  when your Energy Bar has fully regenerated. ( $+ $time($calc($gmt + $duration($duration($timer(.energy $+ $nick).secs).secs)),h:nntt) TC Time)
        }
      }
    }
  }
  if ($1 == You) && (($2 ==  are) || ($2 == will)) && (($3 == in) || ($3 == be)) && (($4 == hospital) || ($4 == here)) && ($5 == for) && ($6 == another) {
    if ($8 == hours,) || ($8 == hour) { var %h = $calc($7 * 3600) }
    if ($10 == minutes) || ($10 == minute) { var %m = $calc($9 * 60) }
    if ($8 == minutes) || ($8 == minute) { var %m = $calc($7 * 60) }
    if ($13 == seconds) { var %s = $12 }
    if ($11 == seconds) { var %s = $10 }
    if ($8 == seconds) { var %s = $7 }
    var %htime = $calc((%h + %m) + %s)
    .timer $+ .hosp $+ $nick -co 1 %htime msg $chan $theme $+  $+ $nick $+ , you are due to be released from hospital.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.hosp $+ $nick).secs)  when you are due to be released from the hospital. ( $+ $time($calc($gmt + $duration($duration($timer(.hosp $+ $nick).secs).secs)),h:nntt) TC Time)
  }
  if ($1 == You) && ($2 == will) && ($3 == be) && ($4 == in) && ($5 == jail) && ($6 == for) { 
    if ($9 == hours,) || ($9 == hour,) { var %h = $calc($8 * 3600) }
    if ($11 == minutes) || ($11 == minute) { var %m = $calc($10 * 60) }
    if ($8 == minutes) || ($8 == minute) { var %m = $calc($7 * 60) }
    if ($14 == seconds) { var %s = $13 }
    if ($10 == seconds) { var %s = $9 }
    if ($8 == seconds) { var %s = $7 }
    var %jtime = $calc((%h + %m) + %s)
    .timer $+ .jail $+ $nick -co 1 %jtime msg $chan $theme $+  $+ $nick $+ , you are due to be released from jail.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.jail $+ $nick).secs) $+  when you are due to be released from the jail. ( $+ $time($calc($gmt + $duration($duration($timer(.jail $+ $nick).secs).secs)),h:nntt) TC Time)
  }
  if ($1-3 == In Education ~) || ($1-3 == [In Education ~) {
    var %d = $calc((($4 * 24) * 60) * 60) | var %h = $calc(($6 * 60) * 60) | var %m = $calc($8 * 60) | var %s = $11
    var %etime = $calc(%d + %h + %m + %s)
    .timer $+ .edu $+ $nick -co 1 %etime msg $chan $theme $+  $+ $nick $+ , your education course is now complete.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.edu $+ $nick).secs) $+  when your education course is complete. ( $+ $time($calc($gmt + $duration($duration($timer(.edu $+ $nick).secs).secs)), h:nntt $+ $chr(44) doo mmm) $+ ) 
  }
  if ($1-3 == It will take) && ($4 isnum) && ($5-8 == weeks to complete.) {
    var %etime = $calc(((($4 * 7) * 24) * 60) * 60)
    .timer $+ .edu $+ $nick -co 1 %etime msg $chan $theme $+  $+ $nick $+ , your education course is now complete.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.edu $+ $nick).secs) $+  when your education course is complete. ( $+ $time($calc($gmt + $duration($duration($timer(.edu $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ ) 
  }
  if ($1-6 == This course will be completed in) {
    if ($8 == days,) || ($8 == day,) {
      var %etime = $calc($calc(($7 * 24 * 60 * 60) + ($12 * 60)) + $iif(minute isin $10,$9 * 60,$9 * 60 * 60))
    }
    if ($8 == hours) || ($8 == hour) { var %etime = $calc(($7 * 60 * 60) + ($10 * 60)) }
    if ($8 == minute) || ($8 == minutes) { var %etime = $calc($7 * 60) }
    .timer $+ .edu $+ $nick -co 1 %etime msg $chan $theme $+  $+ $nick $+ , your education course is now complete.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.edu $+ $nick).secs) $+  when your education course is complete. ( $+ $time($calc($gmt + $duration($duration($timer(.edu $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ )
  }
  if (($3 == -) || ($2 == -)) && ((($4 == hrs) || ($5 == hrs)) || ((($4 == mins) || $5 == mins)) && (left isin $2-)) {
    var %octime = $duration($remove($iif($3 == -,$4-,$3-),left))
    .timer $+ .oc $+ $nick -co 1 %octime msg $chan $theme $+  $+ $nick $+ , your organised crime is now ready.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.oc $+ $nick).secs) $+  when your organised crime is ready. ( $+ $time($calc($gmt + $duration($duration($timer(.oc $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ )
  }
  if ($1-15 == You currently have an investment account. When the time is up, you may withdraw the) && ($remove($16,$chr(44),$chr(36)) isnum) && ($17-24 == and start a new account if you wish.) {
    set -u3 %bank $+ $nick $true
  }
  if ($($+(%,bank,$nick),2)) && (remain. isin $3-) && ($1 isnum) {
    var %btime = $duration($remove($1-,$chr(44),remain.))
    .timer $+ .bank $+ $nick -co 1 %btime msg $chan $theme $+  $+ $nick $+ , your investment is now finished.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.bank $+ $nick).secs) $+  when your investment finishes. ( $+ $time($calc($gmt + $duration($duration($timer(.bank $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ )     
  }
  if (($1-2 == You have) || ($1-2 == [You have)) && ($remove($3,$chr(44),$chr(36)) isnum) && ($4 == invested,) && ((remain isin $7-) || (remain] isin $7-)) {
    var %btime = $duration($remove($5-,$chr(44),remain,]))
    .timer $+ .bank $+ $nick -co 1 %btime msg $chan $theme $+  $+ $nick $+ , your investment is now finished.
    msg $chan $theme $+  $+ $nick $+ , I will remind you in  $+ $duration($timer(.bank $+ $nick).secs) $+  when your investment finishes. ( $+ $time($calc($gmt + $duration($duration($timer(.bank $+ $nick).secs).secs)),h:nntt $+ $chr(44) doo mmm) $+ )
  }
}
alias -l comma {
  var %a, %b = $regsub($ticks,$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a)
  return %a
}