/changing {
  if ($1 !isreg $chan) {
    set %changing 1
    /msg $chan 3ATTENTION! $1 is changing the world page!
  }
}
/done {
  if ($1 !isreg $chan) {
    unset %changing 1
    /msg $chan 4ATTENTION! $1 is done changing the world page!
  }
}

/hremove {
  if ($1 !isreg $chan) && ($findtok(%active,$2,32)) {
    set %active $deltok(%active,$findtok(%active,$2,32),32) | .notice $1 $2 has been removed from the active list.
  }
}

/lremove {
  if ($1 !isreg $chan && $1 !isvoice $chan) && ($findtok(%validating,$2,32)) {
    set %Validating $deltok(%Validating,$findtok(%Validating,$2,32),32) | .notice $1 $2 Has been removed from the validators list.
  }
}

/huforums {
  /notice $nick The Heart Unit forums can be found here: http://heartunit.org/forums/
}

/world {
  /notice $nick The current world can be found here: http://heartunit.org/forums/index.php?showforum=22
}

/lon {
  if ( ($1 isop $chan) || ($1 ishop $chan) ) {
    set %Validating $addtok(%Validating,$1,32) | .notice $1 You have been added to the validators list
  }
}

/loff {
  if ( ($1 isop $chan) || ($1 ishop $chan) && ($findtok(%validating,$1,32)) ) {
    set %Validating $deltok(%Validating,$findtok(%Validating,$1,32),32) | .notice $1 You have been removed from the validators list.
  }
}

/validators {
  if (%Validating) { .notice $1 The current staff validating are: $replacex(%Validating,$chr(32),$+($chr(44),$chr(32))) }
  else { .notice $1 There are no staff currently available for validating }
}

/hon {
  if ($1 !isreg $chan) {
    set %Active $addtok(%Active,$1,32) | .notice $1 You have been added to the active list
  }
}
/hoff {
  if (($1 !isreg $chan) && ($findtok(%Active,$1,32)) ) {
    set %Active $deltok(%Active,$findtok(%Active,$1,32),32) | .notice $1 You have been removed from the active list
  }
}
/active {
  if (%Changing) { .notice $1 World is Currently being changed }
  elseif (%Active) { .notice $1 The current world changing people are: $replacex(%Active,$chr(32),$+($chr(44),$chr(32))) }
  else { .notice $1 There are no staff currently available for changing the world.  Sorry :-( }
}

/time {
  /notice $1 World was set by %nick $+ , $duration($calc($ctime - %settime)) ago


on *:text:!newworld *:#heart:{
  if ( Anna^ !ison $chan  && [HU]Geo`Bot !ison $chan ) {
    /newworld $nick $2-
  }
}


on *:text:!world:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /world
  }
}

on *:text:!huforums:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /huforums 
  }
}

on *:text:!changing:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /changing $nick
  }
}

on *:text:!done:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /done $nick
  }
}

on *:TEXT:!on:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /hon $nick
  }
}
on *:TEXT:!off:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /hoff $nick
  }
}
on *:TEXT:!active:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /active $nick
  }
}

on *:TEXT:!on:#lung:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /lon $nick
  }
}
on $*:TEXT:/!vali(dators)?/Si:#lung:{ 
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /validators $nick
  }
}
on *:QUIT:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($findtok(%Validating,$nick,32)) {
      set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32)
    }
    if ($findtok(%Active,$nick,32)) {
      set %Active $deltok(%Active,$findtok(%Active,$nick,32),32)
    }
  }
}
on !*:DEOP:#lung:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($findtok(%Validating,$nick,32)) {
      set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $opnick You have been removed from the validators list
    }
  }
}
on !*:DEHELP:#lung:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($findtok(%Validating,$nick,32)) {
      set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $hnick You have been removed from the validators list
    }
  }
}
on !*:DEOP:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($findtok(%Active,$nick,32)) {
      set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $opnick You have been removed from the active list
    }
  }
}
on !*:DEHELP:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($findtok(%Active,$nick,32)) {
      set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $hnick You have been removed from the active list
    }
  }
}
on !*:DEVOICE:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($findtok(%Active,$nick,32)) {
      set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $vnick You have been removed from the active list
    }
  }
}
on *:NICK:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($newnick isop #lung) || ($newnick ishop #lung) && ($findtok(%Validating,$nick,32)) { 
      set %Validating $replacex(%Validating,$nick,$newnick) 
    }
    if ($newnick isop #heart) || ($newnick ishop #heart) || ($newnick isvoice #heart) && ($findtok(%Active,$nick,32)) {
      set %Active $replacex(%Active,$nick,$newnick)
    }
  }
}
on !*:PART:#lung:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%Validating,$nick,32)) {
      set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $nick You have been removed from the validators list
    }
  }
}
on !*:PART:#heart:{
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%Active,$nick,32)) {
      set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $nick You have been removed from the active list
    }
  }
}

on *:Text:!off:#lung: {
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /loff $nick
  }
}
on *:Text:!remove *:#lung: {
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /lremove $nick $1
  }
}
on *:Text:!remove *:#heart: {
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /hremove $nick $2
  } 
}

on *:text:!time:#heart: {
  if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
    /time $nick
  }
}