on $*:TEXT:*:#heart: {
  if ($left($1,1) !isin !) halt
  if ($regex($1,/!time/Si)) var %style = time
  elseif ($regex($1,/!active/Si)) var %style = act
  elseif ($regex($1,/!world/Si)) var %style = wld
  elseif ($regex($1,/!huforums/Si)) var %style = site
  elseif ($nick !isreg #heart || $nick !isreg #stomach ) {
    if ($regex($1,/!on/Si)) var %style = on
    elseif ($regex($1,/!scriptsoff/Si)) var %style = soff
    elseif ($regex($1,/!off/Si)) var %style = off
    elseif ($regex($1,/!changing/Si)) var %style = change
    elseif ($regex($1,/!done/Si)) var %style = done
    elseif ($regex($1,/!newworld/Si)) var %style = nw
    elseif ($regex($1,/!remind(er)?/Si)) var %style = remin
  }


  if (%style == soff) {
    set %huscripts off | notice $nick The HU Scripts are not Deactivated. To turn them back on please use !scriptson
  }
  if (%style == on) {
    if ($hget(active,$nick) == $null) { hadd active $nick $nick  | notice $nick you have been added to active staff list. | inc %changer | halt
    }
    else notice $nick you are already on my active staff list. | halt
  }
  if (%style == off) {
    if ($hget(active,$nick) == $null) { notice $nick you are not set to change a world, so I can't take him off the active staff list! | dec %changer | halt
    }
    else hdel active $nick $nick | notice $nick you have been taken off the active staff list. | halt
  }
  if (%style == change) {
    if (%huchanging == $null) {
      set %huchanging $nick
      msg $chan Attention:4 $nick is changing the world page!
    }
    else notice $nick %huchanging is already changing the world please talk to them about what is the better world.
    notice %huchanging $nick also has a world please talk to them to find out what is the better world.
  }
  if (%style == done) {
    if ($nick !isreg $chan) {
      msg $chan Attention:6 $nick is done changing the world page! | unset %huchanging
    }
  }
  if (%style == nw) {
    set %hunick $nick | set %hutime $ctime
    msg $chan New World: 8http://heartunit.org/forums/index.php?showforum=22 (Set By: $nick $+ , Scouted By: $2- $+ )
    timer 1 1 msg $chan New World: 7http://heartunit.org/forums/index.php?showforum=22 (Set By: $nick $+ , Scouted By: $2- $+ )
    timer 1 2 msg $chan New World: 9http://heartunit.org/forums/index.php?showforum=22 (Set By: $nick $+ , Scouted By: $2- $+ )
    timer 1 3 msg $chan New World: 4http://heartunit.org/forums/index.php?showforum=22 (Set By: $nick $+ , Scouted By: $2- $+ )
    timer 1 4 msg $chan New World: 6http://heartunit.org/forums/index.php?showforum=22 (Set By: $nick $+ , Scouted By: $2- $+ )
    timer 1 300 msg $chan Reminder: 9The World has changed! Make sure you are there!
    timer 1 301 msg $chan Reminder: 4The World has changed! Make sure you are there!
  }
  if (%style == remin) {
    msg $chan Reminder: 9The World has changed! Make sure you are there!
    msg $chan Reminder: 4The World has changed! Make sure you are there!
  }
  if (%style == act) {
    var %i = 0
    var %t = $hget(active,0).item
    while (%i < %t) {
      inc %i
      var %list = $addtok(%list,$hget(active,%i).item,32)
      var %clist = $addtok(%clist,$hget(changing,%i).item,32)
    }
    if (%list != $null) {
      if (%changer == 1) { notice $nick the active staff is: $addtok(%list,$hget(active,%i).item,32)
      }
      else notice $nick the active staff are: $addtok(%list,$hget(active,%i).item,32)

    }
    else notice $nick there is no one active to set a world right now. Sorry
  }

  if (%style == time) {
    notice $nick $nick $+ , The world was changed $duration($calc( $ctime - %hutime )) ago by %hunick $+ . 
  }
  if (%style == wld) {
    notice $nick $nick $+ , to get the world fallow 12http://heartunit.org/forums/index.php?showtopic=3 to the world page.
  }
  if (%style == site) {
    notice $nick $nick $+ , to get the site fallow 12http://heartunit.org/ 
  }

}