on $*:TEXT:*:#: {
  if ($chan == #eyes && $nick isreg $chan ) {
    if ($left($1,1) !isin @!.) halt 
    if ($regex($1,/time/Si)) var %style = memtime
    elseif ($regex($1,/active/Si)) var %style = act
    elseif ($regex($1,/world(s)/Si)) var %style = wlds
    elseif ($regex($1,/command(s)?/Si)) var %style = memcom
    elseif ($regex($1,/active/Si)) var %style = act
    elseif ($regex($1,/gw|goodworld/Si)) var %style = gw
    elseif ($regex($1,/bw|badworld/Si)) var %style = bw
    elseif ($regex($1,/on/Si)) var %style = memon
    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,/leader/Si)) var %style = lead
    if (%style == lead) {
      notice $nick the current leader is $iif(%eyes.leader,%eyes.leader,none set) $+ . Please follow their lead.
    }
    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 { hdel eyes $nick $nick | notice $nick you have been removed from the active scouters list. | dec %eyes | dec %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 %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(worlds,$2) != $2 ) { hdel worlds $2 $2 | notice $nick $2 has been added to the bad list.
        }
      }
    }
    if (%style == gw) {
      if ($2 isnum 1-144 ) {
        if ($hget(good,$2) != $2 ) { hadd good $2 $2 | notice $nick $2 has been added to the good list.
        }
      }
    }
    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 == memtime) {
      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/!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
    }
  }
}
on $*:TEXT:*:#: {
  if ($chan == #eyes && %eyes.leader == $nick) {
    if ($left($1,1) !isin @!.) halt 
    if ($regex($1,/time/Si)) var %style = memtime
    elseif ($regex($1,/active/Si)) var %style = act
    elseif ($regex($1,/world(s)/Si)) var %style = wlds
    elseif ($regex($1,/command(s)?/Si)) var %style = memcom
    elseif ($regex($1,/active/Si)) var %style = act
    elseif ($regex($1,/gw|goodworld/Si)) var %style = gw
    elseif ($regex($1,/bw|badworld/Si)) var %style = bw
    elseif ($regex($1,/on/Si)) var %style = memon
    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,/leader/Si)) var %style = lead
    elseif ($regex($1,/changebad/Si)) var %style = staffchange
  }
  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 == lead) {
    notice $nick the current leader is $iif(%eyes.leader,%eyes.leader,none set) $+ . Please follow their lead.
  }
  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 %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 == memtime) {
    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/!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 1 msg $nick 4!changebad <number> 1will change a world from the good worlds to bad worlds.
  }
}