on $*:TEXT:*:#: {
  if ($chan == #eyes && $nick !isreg $chan) {
    if ($left($1,1) !isin @!.) halt 
    if ($regex($1,/on/Si)) var %style = memon
    elseif ($regex($1,/!on/Si)) var %style = on
    elseif ($regex($1,/command(s)?/Si)) var %style = staffcom
    elseif ($regex($1,/set/Si)) var %style = staffset
    elseif ($regex($1,/good(worlds)?/Si)) var %style = staffgood
    elseif ($regex($1,/clear/Si)) var %style = staffclear
    elseif ($regex($1,/remove/Si)) var %style = staffremove
    elseif ($regex($1,/changebad/Si)) var %style = staffchange
    elseif ($regex($1,/time/Si)) var %style = time
    elseif ($regex($1,/active/Si)) var %style = act
    elseif ($regex($1,/world(s)/Si)) var %style = wlds
    elseif ($regex($1,/active/Si)) var %style = act
    elseif ($regex($1,/g(ood)?w(orld)?/Si)) var %style = gw
    elseif ($regex($1,/b(ad)?w(orld)?/Si)) var %style = bw
    elseif ($regex($1,/off/Si)) var %style = memoff
    elseif ($regex($1,/(eye(s)?|me)/Si)) var %style = eyes
    elseif ($regex($1,/members/Si)) var %style = memb
    elseif ($regex($1,/scouter/Si)) var %style = scout
    elseif ($regex($1,/setlead/Si)) var %style = staffset
    elseif ($regex($1,/unsetlead/Si)) var %style = staffset
    elseif ($regex($1,/leader/Si)) var %style = lead
    elseif ($regex($1,/removeall/Si)) var %style = allremove

    if (%style == allremove) {
      /removeall
    }
    if (%style == lead) {
      notice $nick the current leader is $iif(%eyes.leader,%eyes.leader,none set) $+ . Please follow their lead.
    }
    if (%style == staffunset) {
      /leadoff $nick
    }
    if (%style == staffset) {
      /leader $2 $nick
    }
    if (%style == memb) {
      var %i = 0
      var %t = $hget(eyes,0).item
      while (%i < %t) {
        inc %i
        var %list = $addtok(%list,$hget(eyes,%i).item,32)
      }
      if (%list != $null) { notice $nick there are %eyes ppl scouting and they are: $addtok(%list,$hget(eyes,%i).item,32)
      }
      else notice $nick there is no one scouting right now.
    }
    if (%style == eyes) {
      if ($hget(eyes,$nick) == $null) { notice $nick please do !on first before checking world. | halt 
      }
      elseif (%eyes == 1 ) { notice $nick you are the only scouter please scout worlds 20-144.
      }
      elseif (%scout. [ $+ [ $nick ] ] == $nick) { notice $nick you are set to scout worlds %scouters.message. [ $+ [ %scouters. [ $+ [ $nick ] ] ] ] | halt
      }
      else {
        inc %leg
        hadd scout $nick $nick
        set %scout. [ $+ [ $nick ] ] $nick
        set %scouters. [ $+ [ $nick ] ] %leg
        set %scouter. [ $+ [ %leg ] ] $nick 
        if (%scouter.1 == $nick ) { notice $nick you are set to scout worlds %scouters.message.1 }
        elseif (%scouter.2 == $nick ) { notice %scouter.2 you are set to scout worlds %scouters.message.2 }
        elseif (%scouter.3 == $nick ) { /notice %scouter.3 you are set to scout worlds %scouters.message.3 }
        elseif (%scouter.4 == $nick ) { /notice %scouter.4 you are set to scout worlds %scouters.message.4 }
        elseif (%scouter.5 == $nick ) { /notice %scouter.5 you are set to scout worlds %scouters.message.5 }
        elseif (%scouter.6 == $nick ) { /notice %scouter.6 you are set to scout worlds %scouters.message.6 }
        elseif (%scouter.7 == $nick ) { /notice %scouter.7 you are set to scout worlds %scouters.message.7 }
        elseif (%scouter.8 == $nick ) { /notice %scouter.8 you are set to scout worlds %scouters.message.8 }
        elseif (%scouter.9 == $nick ) { /notice %scouter.9 you are set to scout worlds %scouters.message.9 }
        elseif (%scouter.10 == $nick ) { /notice %scouter.10 you are set to scout worlds %scouters.message.10 }
      }
    }
    if (%style == memoff) {
      if ($hget(eyes,$nick) == $null) { notice $nick you are not on the active scouters list. | halt
      }
      else { unset %scouters.message.* | hdel eyes $nick $nick | notice $nick you have been removed from the active scouters list. | dec %eyes | unset %leg | hdel scout $nick $nick
        msg $chan a scouter has left please re-check your worlds by using !eye to make sure you are checking the right ones. | unset %scouters.* | unset %scouter.* | unset %scout.*
        unset %scouter.* | unset %scout.* | unset %scouters.*
      }
    }
    if (%style == memon) {
      if ($hget(eyes,$nick) == $null) { hadd eyes $nick $nick | notice $nick you have been added to the active scouters list. | inc %eyes
        msg #eyes another person has joined the scouters please re-check your worlds to be scouted.
        if (%eyes =< 11 ) { notice $nick there are already 10 scouters please ask if one of them needs help. }
        else {  
          /huworld
        }
        else notice $nick you are already on the active scouters list. | halt
      }
    }
    if (%style == bw) {
      if ($2 isnum 1-144 ) {
        if ($hget(good,$2) == $2 ) { hdel good $2 $2 | hadd worlds $2 $2 | notice $nick $2 has been taken of the good list and moved to the bad list.
        }
        else hadd worlds $2 $2- | notice $nick $2- has been added to the bad worlds
      }
    }
    if (%style == gw) {
      if ($2 isnum 1-144 ) {
        if ($hget(good,$2) == $2 ) { hdel good $2 $2 | hadd worlds $2 $2 | notice $nick $2 has been taken of the good list and moved to the bad list.
        }
        else hadd worlds $2 $2- | notice $nick $2- has been added to the bad worlds
      }
    }
    if (%style == wlds) {
      var %i = 0
      var %t = $hget(worlds,0).item
      while (%i < %t) {
        inc %i
        var %list = $addtok(%list,$hget(worlds,%i).item,32)
      }
      if (%list != $null) { notice $nick the bad worlds are: $addtok(%list,$hget(worlds,%i).item,32)
      }
      else notice $nick there are no bad worlds set right now.
    }
    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 == memcom) {
      msg $nick 4!on 1Adds you to the scouters list
      msg $nick 4!eye 1Tells you what worlds to scout if you are on the scouters list
      msg $nick 4!off 1Takes you off the access list
      msg $nick 4!worlds 1lets you know what worlds are bad
      timer 1 1 msg $nick 4!goodworld ### 1sets a world as a good world. Please make sure you are there for at least 3 min before setting as a good world
      timer 1 1 msg $nick 4!badworld ### 1sets a world as a bad world.
      timer 1 1 msg $nick 4!me 1shows what worlds you are set to scout.

    }
    if (%style == staffchange ) {
      hdel good $2 $2
      hadd worlds $2 $2
      notice $nick $2 has been moved from the good list to the bad list.
    }
    if (%style == staffremove ) {
      if ($nick !isreg $chan) {
        /remove $2 $nick
      }
    }
    if (%style == staffclear ) {
      /eyeclear
    }
    if (%style == staffgood ) {
      var %i = 0
      var %t = $hget(good,0).item
      while (%i < %t) {
        inc %i
        var %list = $addtok(%list,$hget(good,%i).item,32)
      }
      if (%list != $null) { notice $nick the good worlds are: $addtok(%list,$hget(good,%i).item,32)
      }
      else notice $nick there are no good worlds set right now.
    }

    if (%style == staffset ) {
      if ($nick !isreg $chan || $nick isvoice #stomach ) {
        set %world. [ $+ [ $2 ] ] $3- | notice $nick $2 is set to scout the worlds in the $3-
      }
    }
    if (%style == staffcom ) {
      msg $nick 4!scouter <nick> 1shows what worlds a member is set to scout.
      msg $nick 4!on 1Adds you to the scouters list
      msg $nick 4!eye 1Tells you what worlds to scout if you are on the scouters list
      msg $nick 4!off 1Takes you off the access list
      timer 1 1 msg $nick 4!clear 1Clears the good and bad worlds that have been set. this is unneeded if the world was changed. it auto clears the list on !newworld in #heart
      timer 1 1 msg $nick 4!good 1Tells you what worlds are good
      timer 1 1 msg $nick 4!set <nick> <worlds>(IE: 80's 90's 20's)
      timer 1 1 msg $nick 4!worlds 1lets you know what worlds are bad
      timer 1 2 msg $nick 4!goodworld ### 1sets a world as a good world. Please make sure you are there for at least 3 min before setting as a good world
      timer 1 2 msg $nick 4!badworld ### 1sets a world as a bad world.
      timer 1 2 msg $nick 4!me 1shows what worlds you are set to scout.
      timer 1 2 msg $nick 4removeall 1Removes all members from the scouting scripts.
    }
  }
}

alias lead {
  echo 1 -ea %eyes.leader is the set leader
}
alias leadoff {
  unset %eyes.leader | $iif($1,notice $1,echo 4 -ea) The scouting leader has been removed.
}
alias members {
  var %i = 0
  var %t = $hget(eyes,0).item
  while (%i < %t) {
    inc %i
    var %list = $addtok(%list,$hget(eyes,%i).item,32)
  }
  if (%list != $null) { echo 4 -ea there are %eyes ppl scouting and they are: $addtok(%list,$hget(eyes,%i).item,32)
  }
  else echo 4 -ea there is no one scouting right now.
}
alias leader {
  set %eyes.Leader $1 | $iif($2,notice $2,echo 4 -ea) The scouting leader is set to $1
}
alias huworld {
  if (%eyes == 2 ) { set %scouters.message.1  20-90 | set %scouters.message.2 91-144
  }
  elseif (%eyes == 3 ) { set %scouters.message.1 20-61 | set %scouters.message.2 62-102 | set %scouters.message.3 103-144
  }
  elseif (%eyes == 4 ) { set %scouters.message.1 20-51 | set %scouters.message.2 52-83 | set %scouters.message.3 84-115 
    set %scouters.message.4 116-144 
  }
  elseif (%eyes == 5 ) { set %scouters.message.1 20-44 | set %scouters.message.2 45-70 | set %scouters.message.3 71-96 
    set %scouters.message.4 97-122 | set %scouters.message.5 123-144 
  }
  elseif (%eyes == 6 ) { set %scouters.message.1 20-40 | set %scouters.message.2 41-62 | set %scouters.message.3 63-82 
    set %scouters.message.4 83-104 | set %scouters.message.5 105-126 | set %scouters.message.6 127-144
  }
  elseif (%eyes == 7 ) { set %scouters.message.1 20-37 | set %scouters.message.2 38-55 | set %scouters.message.3 56-74 
    set %scouters.message.4 75-91 | set %scouters.message.5 92-110 | set %scouters.message.6 111-129 | set %scouters.message.7 130-144
  }
  elseif (%eyes == 8 ) { set %scouters.message.1 20-35 | set %scouters.message.2 36-52 | set %scouters.message.3 53-68 
    set %scouters.message.4 69-85 | set %scouters.message.5 86-101 | set %scouters.message.6 102-118 | set %scouters.message.7 119-134 
    set %scouters.message.7 135-144
  }
  elseif (%eyes == 9 ) { set %scouters.message.1 20-33 | set %scouters.message.2 34-48 | set %scouters.message.3 49-63 
    set %scouters.message.4 64-78 | set %scouters.message.5 79-92 | set %scouters.message.6 93-106 | set %scouters.message.7 107-121 
    set %scouters.message.8 122-134 | set %scouters.message.9 135-144
  }
  elseif (%eyes == 10 ) { set %scouters.message.1 20-32 | set %scouters.message.2 33-45 | set %scouters.message.3 46-59 
    set %scouters.message.4 60-72 | set %scouters.message.5 73-86 | set %scouters.message.6 87-98 | set %scouters.message.7 99-111 
    set %scouters.message.8 112-125 | set %scouters.message.9 126-136 | set %scouters.message.10 137-144
  }
}
alias eyemembers {
  var %i = 0
  var %t = $hget(eyes,0).item
  while (%i < %t) {
    inc %i
    var %list = $addtok(%list,$hget(eyes,%i).item,32)
  }
  if (%list != $null) { msg #eyes Attention: $addtok(%list,$hget(eyes,%i).item,32) the world was set 20 min ago please scout a new world if needed.
  }
  else notice $nick there is no one scouting right now.
}
alias removeall {
  hdel -w scout * | hdel -w eyes * * | unset %scouters.* | unset %scouter.* | unset %scout.* | msg #eyes the scouters have been removed please do !on and then !eyes if you are scouting.
  unset %leg | unset %eyes 
}
alias remove {
  hdel eyes $1 $1 | dec %eyes | dec %leg | msg #eyes $1 was removed by $2 $+ . Please make sure you are checking the right worlds with !eyes. | /huworld
}
alias huset {
  set %hutime $ctime
  set %hunick $me
  msg #heart !newworld $1-
  /eyeclear
  msg #eyes ATTENTION:4http://heartunit.org/forums/index.php?showforum=22 (Set By: Adam, Scouted By: $1- $+ )
  timerremind 1 $calc( 20 * 60 ) /eyemembers
}
alias scoutset {
  set %hutime $ctime
  set %hunick $me
  msg #heart !newworld heart_scouters
  /eyeclear
  msg #eyes ATTENTION:4http://heartunit.org/forums/index.php?showforum=22 (Set By: Adam, Scouted By: Heart Scouters)
  timerremind 1 $calc( 20 * 60 ) /eyemembers
}
alias eyeclear {
  hdel -w worlds * | hdel -w good * | notice $nick the worlds have been cleared | unset %ey.*
}
alias nextscout {
  echo 3 -ea the next scout is in $duration( $calc(( 20:00 - $ctime - %hutime ) ) )
}
alias changebad {
  hdel good $1 $1
  hadd worlds $1 $1
  msg #eyes !changebad $1-
}


alias eyegood {
  var %i = 0
  var %t = $hget(good,0).item
  while (%i < %t) {
    inc %i
    var %list = $addtok(%list,$hget(good,%i).item,32)
  }
  if (%list != $null) { echo 4 -ea the good worlds are: $addtok(%list,$hget(good,%i).item,32)
  }
  else echo 4 -ea there are no good worlds set right now.
}
alias eyeworlds {
  var %i = 0
  var %t = $hget(worlds,0).item
  while (%i < %t) {
    inc %i
    var %list = $addtok(%list,$hget(worlds,%i).item,32)
  }
  if (%list != $null) { echo 4 -ea the bad worlds are: $addtok(%list,$hget(worlds,%i).item,32)
  }
  else echo 4 -ea there are no bad worlds set right now.
}
alias Removeact {
  hdel active $1 $1
}