alias c1 { return $+($chr(3),1,$1-) } 
alias c2 { return $+($chr(3),4,$1-) }
alias c3 { return $+($chr(3),7,$1-) }

on $*:TEXT:*:#eyes: {
  if ($chan == #eyes && $nick !isreg $chan || %eyes.leader == $nick) {
    if ($left($1,1) !isin @!.) halt
    elseif ($right($1,-1) == giveworld) var %style = staffwset
    elseif ($right($1,-1) == good) var %style = staffgood
    elseif ($right($1,-1) == clear) var %style = staffclear
    elseif ($right($1,-1) == removeall) var %style = allremove
    elseif ($right($1,-1) == remove) var %style = staffremove
    elseif ($right($1,-1) == changebad) var %style = staffchange
    elseif ($right($1,-1) == setlead) var %style = staffset
    elseif ($right($1,-1) == unlead) var %style = staffunset
    elseif ($right($1,-1) == actremove) var %style = staffact
    elseif ($right($1,-1) == actremoveall) var %style = allstaffact
    elseif ($right($1,-1) == scripts) var %style = scripts
    elseif ($regex($1,/remind(er)?/Si)) var %style = reminder
  }
  if ($chan == #eyes && $nick !isreg $chan) {
    if ($left($1,1) !isin @!.) halt
    elseif ($right($1,-1) == invite) var %style = invite
    elseif ($right($1,-1) == change) var %style = msgchange
    elseif ($right($1,-1) == setchange) var %style = setmsgchange
    elseif ($right($1,-1) == huworld) var %style = huworld
    elseif ($right($1,-1) == setworld) var %style = sethuworld
    elseif ($right($1,-1) == joins) var %style = staffjoin
    elseif ($right($1,-1) == worldpage) var %style = wld
    elseif ($regex($1,/huforums|site)) var %style = site
  }
  if ($chan == #eyes) {
    if ($left($1,1) !isin @!.) halt
    elseif ($right($1,-1) == on) var %style = memon
    elseif ($right($1,-1) == time) var %style = time
    elseif ($right($1,-1) == active) var %style = act
    elseif ($right($1,-1) == worlds) var %style = worlds
    elseif ($right($1,-1) == world) var %style = worlds
    elseif ($right($1,-1) == active) var %style = act
    elseif ($right($1,-1) == goodworld) var %style = gw
    elseif ($right($1,-1) == gw) var %style = gw
    elseif ($right($1,-1) == badworld) var %style = bw
    elseif ($right($1,-1) == bw) var %style = bw
    elseif ($right($1,-1) == off) var %style = memoff
    elseif ($right($1,-1) == members) var %style = member
    elseif ($right($1,-1) == eyes) var %style = eyes
    elseif ($right($1,-1) == me) var %style = eyes
    elseif ($right($1,-1) == eye) var %style = eyes
    elseif ($right($1,-1) == leader) var %style = lead
    elseif ($right($1,-1) == 80) var %style = eighty
    elseif ($right($1,-1) == 90) var %style = ninty
    elseif ($right($1,-1) == 100) var %style = onehund
    elseif ($right($1,-1) == 110) var %style = oneten
    elseif ($right($1,-1) == send) var %style = send
    elseif ($right($1,-1) == scouters) var %style = scouters
    elseif ($right($1,-1) == commands) var %style = staffcom
    elseif ($right($1,-1) == humember) var %style = humember
  }
  if (%style == humember) {
    notice $nick http://heartunit.org/forums/index.php?act=members&name= $+ $2
  }
  if (%style == reminder) {
    var %a = 0
    var %s = $hget(eyes,0).item
    while (%a < %s) {
      inc %a
      var %list = $addtok(%list,$hget(eyes,%a).item,32)
    }
    if (%list != $null) { msg #eyes 12Attention: $nick wishes for you to scout: $addtok(%list,$hget(eyes,%a).item,32) $+ .
    }
  }
  if (%style == wld) {
    notice $nick $nick $+ , to get the world fallow 12http://heartunit.org/forums/index.php?showtopic=3 to the world page.
  }
  if (%style == site) {
    notice $nick $nick $+ , to get the site fallow 12http://heartunit.org/ 
  }
  if (%style == scripts) {
    notice $nick there are %eyes players on the active scouters list. this number should never be below 0. there are %leg players that are actively scouting this number again should not be below 0. If the numbers are below 0 please put in !removeall and have them do !on and !eyes gain. $&
      if they do not see a world put in !removeall again this will clear the info and reset the worlds and scouters.
  }
  if (%style == sethuworld) {
    set %heartold %heartworld | set %heartworld $2 | notice $nick the heart world has been set as %heartworld and the old world is set as %heartold
  }
  if (%style == huworld) {
    notice $nick the world is %heartworld $+ . And the old world is %heartold $+ .
  }
  if (%style == setmsgchange) {
    hadd change $nick $2- | notice $nick $gettok($hget(change,$nick),1,2) | hsave -o change change.htb
  }
  if (%style == msgchange) {
    if ($hget(change,$nick) != $null) { msg $chan $gettok($hget(change,$nick),1,2)
    }
    else notice $nick no message saved
  }
  if (%style == invite) {
    invite $2 #eyes | notice $nick you have invited $2 into #eyes.
  } 
  if (%style == allstaffact) {
    hdel -w active * | notice $nick All active staff have been taken off the active list.
  }
  if (%style == staffjoin) {
    if ($2 == Fe2O3) { notice $nick OMG! $2 needs a life she never seems to leave! 
    }
    elseif ($2 == Adam[fire] || $2 == firegod381) { notice $nick WTH!!!! Adam has never left this channel but he was here at registering he needs to get a life!
    }
    elseif ($2 == $me) { notice $nick Wow you must really like me you are checking out where I rest my head at night. *wink*
    }
    elseif (%joins. [ $+ [ $2 ] ] != $null) {  notice $nick $2 has $c2(joined #eyes %joins. [ $+ [ $2 ] ]) time(s).
    }
    else notice $nick $2 has never joined #eyes since this script was made.
  }
  if (%style == staffact) {
    hdel active $2 $2 | notice $nick $2 has been removed from the active list.
  }
  if (%style == scouters) {
    notice $nick $c2(%scout. [ $+ [ %scouter.1 ] ]) $c1(is scouting) $c3(worlds %s.m.1) $+ , $c2(%scout. [ $+ [ %scouter.2 ] ]) $c1(is scouting) $c3(worlds %s.m.2) $+ $iif(%scouter.3,$chr(44)) $iif(%scouter.3,$c2(%scout. [ $+ [ %scouter.3 ] ]) $c1(is scouting) $c3(worlds %s.m.3)) $+ $iif(%scouter.4,$chr(44)) $iif(%scouter.4,$c2(%scout. [ $+ [ %scouter.4 ] ]) $c1(is scouting) $c3(worlds %s.m.4)) $+ $iif(%scouter.5,$chr(44)) $iif(%scouter.5,$c2(%scout. [ $+ [ %scouter.5 ] ]) $c1(is scouting) $c3(worlds %s.m.5)) $+ $iif(%scouter.6,$chr(44))  $&
      $iif(%scouter.6,$c2(%scout. [ $+ [ %scouter.6 ] ]) $c1(is scouting) $c3(worlds %s.m.6)) $iif(%scouter.7,$chr(44)) $iif(%scouter.7,$c2(%scout. [ $+ [ %scouter.7 ] ]) $c1(is scouting) $c3(worlds %s.m.7)) $+ $iif(%scouter.8,$chr(44)) 
    $iif(%scouter.8,notice $nick $c2(%scout. [ $+ [ %scouter.8 ] ]) $c1(is scouting) $c3(worlds %s.m.8) $iif(%scouter.9,$c2(%scout. [ $+ [ %scouter.9 ] ]) $c1(is scouting) $c3(worlds %s.m.9)) $+ $iif(%scouter.10,$chr(44),) $iif(%scouter.10,$c2(%scout. [ $+ [ %scouter.10 ] ]) $c1(is scouting) $c3(worlds %s.m.10) $+ .)) 
  }
  if (%style == eighty) {
    if (!$2) { notice $nick the world to send lvls 45-89 players is $iif(%ey.eighty,%ey.eighty,no world set) $+ .
    }
    elseif ($2 isnum 20-144) {
      if (%ey.eighty != $null) {
        set %ey.eighty $2 | notice $nick $iif(%ey.eighty,%ey.eighty,no world set) is set as the world for 45-89 lvl players to be sent to.
      }
      else notice $nick a world is already set for this group it is %ey.eighty
    }
  }
  if (%style == ninty) {
    if (!$2) { notice $nick the world to send lvls 90-99 players is $iif(%ey.ninty,%ey.ninty,no world set) $+ .
    }
    elseif ($2 isnum 20-144) {
      if (%ey.ninty == $null) {
        set %ey.ninty $2 | notice $nick $iif(%ey.ninty,%ey.ninty,no world set) is set as the world for 90-99 lvl players to be sent to.
      }
      else notice $nick a world is already set for this group it is %ey.ninty
    }
  }
  if (%style == onehund) {
    if (!$2) { notice $nick the world to send 100-109 lvl players is $iif(%ey.onehund,%ey.onehund,no world set) $+ .
    }
    elseif ($2 isnum 20-144) {
      if (%ey.onehund == $null) {
        set %ey.onehund $2 | notice $nick $iif(%ey.onehund,%ey.onehund,no world set) is set as the world for 100-109 lvl players to be sent to.
      }
      else notice $nick a world is already set for this group it is %ey.onehund
    }
  }
  if (%style == oneten) {
    if (!$2) { notice $nick the world to send 110+ lvl players is $iif(%ey.oneten,%ey.oneten,no world set) $+ .
    }
    elseif ($2 isnum 20-144) {
      if (%ey.oneten == $null) {
        set %ey.oneten $2 | notice $nick $iif(%ey.oneten,%ey.oneten,no world set) is set as the world for 110+ lvl players to be sent to.
      }
      else notice $nick a world is already set for this group it is %ey.oneten
    }
  }
  if (%style == send) {
    notice $nick 1the world to send lvls 45-89 players is $+ 4 $iif(%ey.eighty,%ey.eighty,no world set) $+ . $&
      1lvls 90-99 players is $+ 4 $iif(%ey.ninty,%ey.ninty,no world set) $+ . $+ 1 100-109 lvl players is $+ 4 $iif(%ey.onehund,%ey.onehund,no world set) $+ . $+ $&
      1 110+ lvl players is $+ 4 $iif(%ey.oneten,%ey.oneten,no world set)  $+ .
  }

  if (%style == allremove) {
    /allremove
  }
  if (%style == lead) {
    if (%eyes.leader == $nick) { notice $nick you are the leader please make wise choices.
    }
    else notice $nick $c1(the current leader is) $c2($iif(%eyes.leader,%eyes.leader,%scouter.1)) $+ . $c1(Please follow their lead.)
  }
  if (%style == staffunset) {
    unset %eyes.leader | notice $nick The scouting leader has been removed.
  }
  if (%style == staffset) {
    set %eyes.Leader $2 | notice $nick The scouting leader is set to $2
  }
  if (%style == member) {
    var %d = 0
    var %f = $hget(eyes,0).item
    while (%d < %f) {
      inc %d
      var %list = $addtok(%list,$hget(eyes,%d,$chr(44)).item,32)
    }
    if (%list != $null) { notice $nick there are %eyes ppl scouting and they are: $addtok(%list,$hget(eyes,%d).item,32)) and the lead scouter is4 $iif(%eyes.leader,%eyes.leader,Not set) | halt
    }
    else notice $nick there is no one scouting right now. | halt
  }
  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 
      notice $nick you are set to scout worlds %scouters.message. [ $+ [ %scouters. [ $+ [ $nick ] ] ] ] 
    }
  }
  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 | set %leg 0 | 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.* | /huworld 
    }
  }
  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 
        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 $iif(%scouters.message.1,%scouters.message.1,20-144) }
        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 }
      }
      else notice $nick you are already on the active scouters list. | halt
    }
  }
  if (%style == bw) {
    if ($2 isnum 1-144 ) {
      if ($hget(worlds,$2) == $2 ) { notice $nick $2 is already on the bad worlds 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 ) { notice $nick $2 is already on the good list.
      }
      else hadd good $2 $2 | notice $nick $2- has been added to the good worlds
    }
  }
  if (%style == worlds) {
    var %g = 0
    var %h = $hget(worlds,0).item
    while (%g < %h) {
      inc %g
      var %list = $addtok(%list,$hget(worlds,%g).item,32)
    }
    if (%list != $null) { notice $nick the bad worlds are: $addtok(%list,$hget(worlds,%g).item,32)
    }
    else notice $nick there are no bad worlds set right now.
  }
  if (%style == act) {
    var %j = 0
    var %k = $hget(active,0).item
    while (%j < %k) {
      inc %j
      var %list = $addtok(%list,$hget(active,%j).item,32)
    }
    if (%list != $null) {
      if (%changer == 1) { notice $nick the active staff is: $addtok(%list,$hget(active,%j).item,32)
      }
      else notice $nick the active staff are: $addtok(%list,$hget(active,%j).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 $+ . heart scouters worlds have found %scoutersset worlds. 
  }
  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 %q = 0
    var %w = $hget(good,0).item
    while (%q < %w) {
      inc %q
      var %list = $addtok(%list,$hget(good,%q).item,32)
    }
    if (%list != $null) { notice $nick the good worlds are: $addtok(%list,$hget(good,%q).item,32)
    }
    else notice $nick there are no good worlds set right now.
  }

  if (%style == staffwset ) {
    set %world. [ $+ [ $2 ] ] $3- | notice $nick $2 is set to scout the worlds in the $3- | notice $2 you are set to scout worlds $3-
  }
  if (%style == staffcom ) {
    if ($nick !isreg $chan || %eyes.leader == $nick) {
      msg $nick 4!scouter <nick> 1shows what worlds a member is set to scout.
      msg $nick 4!on/off 1Adds/removes you to the scouters list
      msg $nick 4!eye/me 1Tells you what worlds to scout if you are on the scouters list
      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!giveworld <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 1 msg $nick 4!goodworld/badworld ### 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!removeall 1Removes all members from the scouting scripts.
      timer 1 2 msg $nick 4!80/90/100/110 <world> 1Sets a world for you to send lvls in that group.
      timer 1 2 msg $nick 4!send 1tells you what lvls to send to what worlds. this will cut back on relogging in to our worlds.
      timer 1 2 msg $nick 4!leadset/unlead 1Will Set a leader of unset a leader.
      timer 1 3 msg $nick 4!Leader 1Will display who the leader is set as
      timer 1 3 msg $nick 4!setchange <person message> 1Will display a message in #eyes when you set a world.
    }
    if ($nick isreg $chan) {
      msg $nick 4!on 1Adds you to the scouters list
      msg $nick 4!eye/!me 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/gw <number> 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/bw <number> 1sets a world as a bad world.
      timer 1 1 msg $nick 4!leader 1tells you who the leader is set as
      timer 1 1 msg $nick 4!active 1tells you who is the active world changers
      timer 1 2 msg $nick 4!80/90/100/110 <world> 1Sets a world for you to send lvls in that group.
      timer 1 2 msg $nick 4!send 1tells you what lvls to send to what worlds. this will cut back on relogging in to our worlds.
    }
  }
}
alias huworld {
  if (%eyes == 2 ) { set %scouters.message.1  26, 27, 28, 31, 36, 39, 42, 44, 45, 46, 48, 53, 54, 56, 58, 59, 64, 65, 70, 76, 77, 78, 79, 88 | set %scouters.message.2 91, 92, 97, 98, 99, 100, 103, 104, 114, 115, 116, 120, 121, 124, 129, 130, 131, 132, 137, 138, 140, 143, 144
    set %s.m.1  20-90 | set %s.m.2 91-144
  }
  elseif (%eyes == 3 ) { set %scouters.message.1 26, 27, 28, 31, 36, 39, 42, 44, 45, 46, 48,53, 54, 56, 58, 59 | set %scouters.message.2 64, 65, 70, 76, 77, 78, 79, 88, 91, 92, 97, 98, 99, 100 | set %scouters.message.3 103, 104, 114, 115, 116, 120, 121, 124, 129, 130, 131, 132, 137, 138, 140, 143, 144
    set %s.m.1 20-61 | set %s.m.2 62-102 | set %s.m.3 103-144
  }
  elseif (%eyes == 4 ) { set %scouters.message.1 26, 27, 28, 31, 36, 39, 42, 44, 45, 46, 48 | set %scouters.message.2 53, 54, 56, 58, 59, 64, 65, 70, 76, 77, 78, 79 | set %scouters.message.3 88, 91, 92, 97, 98, 99, 100, 103, 104, 114, 115 
    set %scouters.message.4 116, 120, 121, 124, 129, 130, 131, 132, 137, 138, 140, 143, 144 
    set %s.m.1 20-51 | set %s.m.2 52-83 | set %s.m.3 84-115 
    set %s.m.4 116-144 
  }
  elseif (%eyes == 5 ) { set %scouters.message.1 26, 27, 28, 31, 36, 39, 42, 44 | set %scouters.message.2 45, 46, 48, 53, 54, 56, 58, 59, 64, 65, 70 | set %scouters.message.3 76, 77, 78, 79, 88, 91, 92 
    set %scouters.message.4 97, 98, 99, 100, 103, 104, 114, 115, 116, 120, 121 | set %scouters.message.5 124, 129, 130, 131, 132, 137, 138, 140, 143, 144 
    set %s.m.1 20-44 | set %s.m.2 45-70 | set %s.m.3 71-96 
    set %s.m.4 97-122 | set %s.m.5 123-144 
  }
  elseif (%eyes == 6 ) { set %scouters.message.1 26, 27, 28, 31, 36, 39 | set %scouters.message.2 42, 44, 45, 46, 48, 53, 54, 56, 58, 59 | set %scouters.message.3 64, 65, 70, 76, 77, 78, 79 
    set %scouters.message.4 88, 91, 92, 97, 98, 99, 100, 103, 104 | set %scouters.message.5 114, 115, 116, 120, 121, 124 | set %scouters.message.6 129, 130, 131, 132, 137, 138, 140, 143, 144
    set %s.m.1 20-40 | set %s.m.2 41-63 | set %s.m.3 64-80 
    set %s.m.4 81-104 | set %s.m.5 105-124 | set %sm.6 125-144 
  }
  elseif (%eyes == 7 ) { set %scouters.message.1 26, 27, 28, 31, 36 | set %scouters.message.2 39, 42, 44, 45, 46, 48, 53, 54 | set %scouters.message.3 56, 58, 59, 64, 65, 70 
    set %scouters.message.4 76, 77, 78, 79, 88, 91 | set %scouters.message.5 92, 97, 98, 99, 100, 103, 104 | set %scouters.message.6 114, 115, 116, 120, 121, 124, 129 | set %scouters.message.7 130, 131, 132, 137, 138, 140, 143, 144
    set %s.m.1 20-37 | set %s.m.2 38-55 | set %s.m.3 56-74 
    set %s.m.4 75-91 | set %s.m.5 92-110 | set %s.m.6 111-129 | set %s.m.7 130-144
  }
  elseif (%eyes == 8 ) { set %scouters.message.1 26, 27, 28, 31 | set %scouters.message.2 36, 39, 42, 44, 45, 46, 48 | set %scouters.message.3 53, 54, 56, 58, 59, 64, 65 
    set %scouters.message.4 70, 76, 77, 78, 79 | set %scouters.message.5 88, 91, 92, 97, 98, 99, 100 | set %scouters.message.6 103, 104, 114, 115, 116 | set %scouters.message.7 120, 121, 124 
    set %scouters.message.7 129, 130, 131, 132, 137 | set %scouters.message.8 138, 140, 143, 144
    set %s.m.1 20-35 | set %s.m.2 36-52 | set %s.m.3 53-68 
    set %s.m.4 69-85 | set %s.m.5 86-101 | set %s.m.6 102-118 | set %s.m.7 119-134 
    set %s.m.8 135-144
  }
  elseif (%eyes == 9 ) { set %scouters.message.1 26, 27, 28, 31 | set %scouters.message.2 36, 39, 42, 44, 45, 46, 48 | set %scouters.message.3 53, 54, 56, 58, 59 
    set %scouters.message.4 64, 65, 70, 76, 77, 78 | set %scouters.message.5 79, 88, 91, 92 | set %scouters.message.6 97, 98, 99, 100, 103, 104 | set %scouters.message.7 114, 115, 116, 120, 121 
    set %scouters.message.8 124, 129, 130, 131, 132 | set %scouters.message.9 137, 138, 140, 143, 144
    set %s.m.1 20-33 | set %s.m.2 34-48 | set %s.m.3 49-63 
    set %s.m.4 64-78 | set %s.m.5 79-92 | set %s.m.6 93-106 | set %s.m.7 107-121 
    set %s.m.8 122-134 | set %s.m.9 135-144
  }
  elseif (%eyes == 10 ) { set %scouters.message.1 26, 27, 28, 31 | set %scouters.message.2 36, 39, 42, 44 | set %scouters.message.3 46, 48, 53, 54, 56, 58, 59 
    set %scouters.message.4 64, 65, 70 | set %scouters.message.5 76, 77, 78, 79 | set %scouters.message.6 88, 91, 92, 97, 98 | set %scouters.message.7 99, 100, 103, 104 
    set %scouters.message.8 114, 115, 116, 120, 121, 124 | set %scouters.message.9 129, 130, 131, 132 | set %scouters.message.10 137, 138, 140, 143, 144
    set %s.m.1 20-32 | set %s.m.2 33-45 | set %s.m.3 46-59 
    set %s.m.4 60-72 | set %s.m.5 73-86 | set %s.m.6 87-98 | set %s.m.7 99-111 
    set %s.m.8 112-125 | set %s.m.9 126-136 | set %s.m.10 137-144
  }
}
on *:TEXT:!on:#heart: {
  if ($nick !isreg $chan || $nick isvoice #stomach) {
    hadd active $nick $nick
  }
}
on *:TEXT:!off:#heart: {
  if ($nick !isreg $chan || $nick isvoice #stomach) {
    hdel active $nick $nick
  }
}
alias meeyes {
  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 -ea the bad worlds are: $addtok(%list,$hget(eyes,%i).item,32)
  }
  else echo -ea there are no bad worlds set right now.
}
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 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 12Attention: $addtok(%list,$hget(eyes,%i).item,32) the world was set 20 min ago please scout a new world if needed.
  }
}
alias allremove {
  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 * | unset %ey.* | notice $nick the worlds have been cleared 
}
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
}