Mine

on *:TEXT:!scriptson:#heart: {
  if ($nick !isreg $chan) {
    set %huscripts on | notice $nick The HU Scripts Are not activated. To turn them off put in !scriptsoff
  }
}
on $*:TEXT:*:#: {
  if (%huscripts == on ) {
    if ($chan == #heart ) {
      if ($left($1,1) !isin !) halt
      if ($regex($1,/!time/Si)) var %style = time
      elseif ($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,/!active/Si)) var %style = act

      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 ($nick !isreg $chan) {
          if ($hget(active,$nick) == $null) { hadd active $nick $nick  | notice $nick you have been added to active staff list. | halt
          }
          else notice $nick you are already on my active staff list. | halt
        }
      }
      if (%style == off) {
        if ($nick !isreg $chan) {
          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! | halt
          }
          else hdel active $nick $nick | notice $nick you have been taken off the active staff list. | halt
        }
      }
      if (%style == change) {
        if ($nick !isreg $chan) {
          msg $chan Attention:4 $nick is changing the world page!
        }
      }
      if (%style == done) {
        if ($nick !isreg $chan) {
          msg $chan Attention:6 $nick is done changing the world page!
        }
      }
      if (%style == nw) {
        if ($nick !isreg $chan) {
          set %hunick $nick | set %hutime $ctime
          timer 1 1 msg $chan New World: 8http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
          timer 1 2 msg $chan New World: 7http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
          timer 1 3 msg $chan New World: 9http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
          timer 1 4 msg $chan New World: 4http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
          timer 1 5 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 == 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) { notice $nick the active staff is/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 The world was changed $duration($calc( $ctime - %hutime )) ago by %hunick $+ . 
      }
    }
  }
}