on *:join:#lung:{ 
  .timer 1 2 .signal -n hu_join $nick
}

on !*:signal:hu_join:{
  if ($1 isop #lung || $1 ishop #lung) { .notice $1 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 $1 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. }
}

on $*:TEXT:*:#: {
  if ($left($1,1) !isin @!.) halt
  if ($network == nitrousirc) {
    if (geo1988 !ison #heart && anna^ !ison #heart && Geo`AFK !ison #heart) {
      if ($chan == #hu_scripts || $chan == #heart) {
        if ($right($1,-1) == world) var %style = world
        elseif ($right($1,-1) == time) var %style = hutime
        elseif ($right($1,-1) == huforums) var %style = forums
        elseif ($right($1,-1) == member) var %style = members
        elseif ($right($1,-1) == reminder) var %style = remind
      }
      if ($chan == #lung) {
        if ($nick isop #lung || $nick ishop #lung) {
          if ($right($1,-1) == remove) var %style = lremove
          elseif ($right($1,-1) == on) var %style = lon
          elseif ($right($1,-1) == off) var %style = loff
        }
      }
      if ($nick ison #lung) {
        elseif ($right($1,-1) == validators) var %style = lact
        elseif ($right($1,-1) == vali) var %style = lact
      }
    }
  }
  if (%style == lremove) { 
    if ($findtok(%validating,$2,32)) { set %Validating $deltok(%Validating,$findtok(%Validating,$2,32),32) | .notice $nick $2 Has been removed from the validators list.
    }
  }
  if (%style == lact) {
    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 }
  }
  if (%style == lon) {
    if (!$findtok(%validating,$nick,32)) {
      set %Validating $addtok(%Validating,$nick,32) | .notice $nick You have been added to the validators list
    }
  }
  if (%style == loff) {
    if ($findtok(%validating,$nick,32)) {
      set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $nick You have been removed from the validators list.
    }
  }
  if (%style == remind) {
    set %remind.rand $rand(3,15)
    timer 1 1 /reminder $chan
    timer2 1 2 set %remind.rand $rand(3,15)
    timer 1 3 /reminder $chan

  }
  if (%style == world) { 
    if ($nick !isreg #heart || $nick !isreg #stomach) {
      notice $nick Current World: 12 http://heartunit.org/forums/index.php?showforum=22 9Be sure you intend on PCing before you click this link!
    }
    else {
      notice $nick Notice 4You must apply for Squire on the Heart site at this link to get the world link: 9http://heartunit.org/forums/index.php?showtopic=33888&st=0&#entry236108
    }
  }
  if (%style == hutime) { notice $nick World was set $duration($calc($ctime - %settime)) ago
  }
  if (%style == forums) { notice $nick Heart Unit Website: 4 http://heartunit.org/forums/
  }
  if (%style == members) { notice $nick http://heartunit.org/forums/index.php?act=members&name= $+ $2
  }
}
alias remind {
  set %remind.rand $rand(1,4)
  timer1 1 1 /reminder $chan
  timer2 1 2 set %remind.rand $rand(1,4)
  timer3 1 3 /reminder $chan

}
alias reminder {
  msg $1 Reminder:  $+ %remind.rand  The world has changed, please hop to the new world as soon as possible.
}
on !*: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 *:NICK:{
  if ($newnick isop #lung) || ($newnick ishop #lung) && ($findtok(%Validating,$nick,32)) { 
    set %Validating $replacex(%Validating,$nick,$newnick) 
  }
}
on !*: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
  }
}
on !*: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 *:QUIT:{
  if ($findtok(%Validating,$nick,32)) {
    set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32)
  }
}


alias on { set %Validating $addtok(%Validating,$iif($1,$1,$me),32) | $iif($1,.notice $1,echo -ga) You have been added to the active list }
alias off { 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 }
}