alias hon { set %Active $addtok(%Active,$iif($1,$1,$me),32) | $iif($1,.notice $1,echo -ga) You have been added to the active list }
alias hoff { set %Active $deltok(%Active,$findtok(%Active,iif($1,$1,$me),32),32) | $iif($1,.notice $1,echo -ga) You have been removed from the active list }
alias active {
  if (%Active) { $iif($1,.notice $1,say) The current world changing people are: $replacex(%Active,$chr(32),$+($chr(44),$chr(32))) }
  else { $iif($1,.notice $1,say) There are no staff currently available for changing the world. }
}
on *:JOIN:#heart:{ 
  if (%heart === 1) { timer 1 2 .signal -n heart_join $nick
  }
}
on !*:SIGNAL:heart_join:{
  if ($1 isop #heart) || ($1 ishop #heart) || ($1 isvoice #heart) { .notice $nick Welcome to #heart, please press !on to be on active list Thank You. }
  else { .notice $nick Welcome, please type !active now to get a list of those who are changing worlds.  Please pm only 1 of these.  If they do not respond in an orderly fashion(2 minutes) than pm another one.  Thank You. }
}
on *:TEXT:!on:#heart:{
  if (%heart == 1) && (($nick !isreg $chan) || ($nick isvoice #stomach)) {
    set %Active $addtok(%Active,$nick,32) | .notice $nick You have been added to the active list
  }
}
on *:TEXT:!off:#heart:{
  if (%heart == 1) && ($nick isvoice #stomach) && ($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:!active:#heart:{ 
  if (%Changing) && (%heart == 1) { .notice $nick World is Currently being changed }
  elseif (%Active) && (%heart == 1) { .notice $nick The current world changing people are: $replacex(%Active,$chr(32),$+($chr(44),$chr(32))) }
  elseif (%heart == 1) { .notice $nick There are no staff currently available for changing the world.  Sorry :-( }
}
alias lon { set %Validating $addtok(%Validating,$iif($1,$1,$me),32) | $iif($1,.notice $1,echo -ga) You have been added to the active list }
alias loff { set %Validating $deltok(%Validating,$findtok(%Validating,iif($1,$1,$me),32),32) | $iif($1,.notice $1,echo -ga) You have been removed from the active list }
alias validators {
  if (%Validating) { $iif($1,.notice $1,say) The current staff validating are: $replacex(%Validating,$chr(32),$+($chr(44),$chr(32))) }
  else { $iif($1,.notice $1,say) There are no staff currently available for validating }
}
o *:JOIN:#lung:{ .timer 1 2 .signal -n lung_join $nick }
o !*:SIGNAL:lung_join:{
  if ($1 isop #lung) || ($1 ishop #lung) { .notice $nick Welcome to #lung, please press !on to be on validators list and do !off please before any nick changes or before you leave.  Thank You. }
  else { .notice $nick Welcome, please type !vali now to get a list of those who are validating.  Please pm only 1 of these.  If they do not respond in an orderly fashion(2 minutes) than pm another one.  Thank You. }
}
o *:TEXT:!on:#lung:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %Validating $addtok(%Validating,$nick,32) | .notice $nick You have been added to the validators list
  }
}
on $*:TEXT:/!vali(dators)?/Si:#lung:{ 
  if (%Validating) { .notice $nick The current staff validating are: $replacex(%Validating,$chr(32),$+($chr(44),$chr(32))) }
  else { .notice $nick There are no staff currently available for validating }
}
on *:QUIT:{
  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)
  }
}
o !*:DEOP:#lung:{
  if ($findtok(%Validating,$nick,32)) {
    set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $opnick You have been removed from the validators list
  }
}
o !*:DEHELP:#lung:{
  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 ($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 ($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 ($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 ($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)
  }
}
o !*:PART:#lung:{
  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 ($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
  }
}
o *:Text:!off:#lung: {
  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.
  }
}
n *:Text:!remove *:#lung:{
  if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%validating,$2,32)) {
    set %Validating $deltok(%Validating,$findtok(%Validating,$2,32),32) | .notice $nick $2 Has been removed from the validators list.
  }
}
on *:Text:!remove *:#heart: {
  if (%heart == 1) && ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) && ($findtok(%active,$2,32)) {
    set %active $deltok(%active,$findtok(%active,$2,32),32) | .notice $nick $2 has been removed from the active list.
  }
}
on *:TEXT:!changing:#heart: {
  if (%heart == 1) && (%active == $nick) {
    set %changing 1
    msg $chan Attention:4 $nick Is updating the World Page
  }
}
on *:Text:!done:#heart: {
  if (%heart == 1) && (%active == $nick) {
    unset %changing 1
    msg $chan Attention:11 $nick $2 is done updating the world
  }
}
on *:TEXT:*!world*:#heart:{
  if (%heart == 1) && (%changing) { /notice $nick $nick Hello7 $nick $+ 5! 7The World is Currently being changed. World can be Found at 12http://heartunit.org/forums/index.php?showtopic=3 }
  elseif (%heart == 1) { /notice $nick Hello7 $nick $+ 5! The World can be found at: 12http://heartunit.org/forums/index.php?showtopic=3 }
}
on *:text:!time:#heart: {
  if (%heart) {  /notice $nick World was set by %nick $+ , $duration($calc($ctime - %settime)) ago
  }
}
on *:text:!newworld *:#heart: {
  if (%heart == 1) && (%active == $nick) {
    /timer1 1 1 /msg $chan New World:  4http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
    /timer2 1 2 /msg $chan New World:  7http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
    /timer3 1 3 /msg $chan New World:  12http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
    /timer4 1 4 /msg $chan New World:  8http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
    /timer5 1 5 /msg $chan New World:  13http://heartunit.org/forums/index.php?showforum=22 (Set By: 4 $nick $+ , Scouted By:7 $2 )
    /timer 1 6 unset %changing 1
    /timer 1 7 set %settime $ctime
    /timer 1 8 set %nick $nick
    /timer 1 400 /msg $chan Reminder: 4The World has changed! Make sure you are there!
    /timer 1 401 /msg $chan Reminder:  7The World has changed! Make sure you are there!
  }
}
on *:text:!hearton:#heart:{
  if ($nick !isreg $chan) {
    set %heart 1
    msg $chan Scripts For #Heart have been set to 3ON.
  }
}
on *:text:!heartoff:#heart:{
  if ($nick !isreg $chan) {
    unset %heart 1
    msg $chan Scripts for #Heart have been set to 4OFF.
  }
}
o *:text:!huforums:#heart:{
  if (%heart == 1) {
    /notice $nick www.heartunit.org
  }
}
on *:text:!lungon:#jimbo: {
  set %lung 1
}
on *:text:!lungoff:#jimbo: {
  unset %lung 1
}