Mine

alias eyestart {
  hmake scout 5 | hmake worlds 5 | hmake active 5 | hmake eyes 5
  if ($isfile(worlds.htb)) hload active active.htb
  if ($isfile(change.htb)) hload worlds worlds.htb
  if ($isfile(eyes.htb)) hload eyes eyes.htb
  if ($isfile(scout.htb)) hload scout scout.htb
}
on *:Start: {
  hmake scout 5 | hmake worlds 5 | hmake active 5 | hmake eyes 5
  if ($isfile(worlds.htb)) hload active active.htb
  if ($isfile(change.htb)) hload worlds worlds.htb
  if ($isfile(eyes.htb)) hload eyes eyes.htb
  if ($isfile(scout.htb)) hload scout scout.htb
}
on *:TEXT:!newworld *:#heart: {
  if ($chan == #heart ) {
    if ($nick !isreg #heart || $nick !isreg #stomach ) {
      timerremind off
      hdel -w worlds * 
      hdel -w good *
      unset %world.*
      set %currenttime $duration($calc( $ctime - %hutime ))
      inc %humember. [ $+ [ $2 ] ]
      inc %huchange. [ $+ [ $nick ] ]
      set %humem $2
      timerremind 1 $calc( 20 * 60 ) /eyemembers
      msg #eyes ATTENTION:4: http://heartunit.org/forums/index.php?showforum=22 (Set By: $nick $+ , Scouted By: $2 $+ )
      if (%longetsttime <= %currenttime ) { 
        set %longetsttime %currenttime
        inc %meworld 
        set %hutime $ctime
        set %hunick $nick
      }
      else {
        inc %meworld 
        set %hutime $ctime
        set %hunick $nick
      }
    }
  }
}
on *:Quit: {
  if ($hget(active,$nick) == $nick ) {
    hdel active $nick $nick 
  }
  if ($hget(eyes,$nick) == $nick) {
    dec %eyes | hdel eyes $nick $nick | dec %leg | msg #eyes a scouter has left please recheck your worlds by using !eye.
    unset %scouter.* | hdel scout $knick $knick |  | unset %scout.* | unset %scouters.*
  }
  if (%eyes.leader == $nick) { unset %eyes.leader | dec %eyes | hdel eyes $nick $nick | dec %leg | msg #eyes a scouter has left please recheck your worlds by using !eye.
    unset %scouter.* | hdel scout $knick $knick |  | unset %scout.* | unset %scouters.*
  }
}

on *:Part:#heart: {
  if ($hget(active,$nick) == $nick ) {
    hdel active $nick $nick 
  }
}
on *:Part:#eyes: {
  if ($hget(eyes,$nick) == $nick) {
    dec %eyes | hdel eyes $nick $nick | dec %leg | msg #eyes a scouter has left please recheck your worlds by using !eye.
    unset %scouter.* | hdel scout $knick $knick |  | unset %scout.* | unset %scouters.*
  }
  if (%eyes.leader == $nick) { unset %eyes.leader
    dec %eyes | hdel eyes $nick $nick | dec %leg | msg #eyes a scouter has left please recheck your worlds by using !eye.
    unset %scouter.* | hdel scout $knick $knick |  | unset %scout.* | unset %scouters.*
  }
}
on *:kick:#eyes: {
  if ($hget(eyes,$nick) == $nick) {
    dec %eyes | hdel eyes $knick $knick | dec %leg | msg #eyes a scouter has left please recheck your worlds by using !eye.
    unset %scouter.* | hdel scout $knick $knick |  | unset %scout.* | unset %scouters.*
  }
  if (%eyes.leader == $knick) { unset %eyes.leader
    dec %eyes | hdel eyes $knick $knick | dec %leg | msg #eyes a scouter has left please recheck your worlds by using !eye.
    unset %scouter.* | hdel scout $knick $knick |  | unset %scout.* | unset %scouters.*
  }
}
on *:join:#eyes: {
  notice $nick Put in !leader to see who is the scouting leader. Please put in !on to be an active scouter and then !eye(s)? to be giving a list of worlds to scout..
}
alias clean2 {
  unset %scouters. [ $+ [ %scouter.2 ] ] | unset %scout. [ $+ [ %scouter.2 ] ] | unset %scouter.2 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean3 {
  unset %scouters. [ $+ [ %scouter.3 ] ] | unset %scout. [ $+ [ %scouter.4 ] ] | unset %scouter.3 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean4 {
  unset %scouters. [ $+ [ %scouter.4 ] ] | unset %scout. [ $+ [ %scouter.4 ] ] | unset %scouter.4 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean5 {
  unset %scouters. [ $+ [ %scouter.5 ] ] | unset %scout. [ $+ [ %scouter.5 ] ] | unset %scouter.5 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean6 {
  unset %scouters. [ $+ [ %scouter.6 ] ] | unset %scout. [ $+ [ %scouter.6 ] ] | unset %scouter.6 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean7 {
  unset %scouters. [ $+ [ %scouter.7 ] ] | unset %scout. [ $+ [ %scouter.7 ] ] | unset %scouter.7 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean8 {
  unset %scouters. [ $+ [ %scouter.8 ] ] | unset %scout. [ $+ [ %scouter.8 ] ] | unset %scouter.8 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean9 {
  unset %scouters. [ $+ [ %scouter.9 ] ] | unset %scout. [ $+ [ %scouter.9 ] ] | unset %scouter.9 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}
alias clean10 {
  unset %scouters. [ $+ [ %scouter.10 ] ] | unset %scout. [ $+ [ %scouter.10 ] ] | unset %scouter.10 | unset %scouters. [ $+ [ $1 ] ] |  unset %scout. [ $+ [ $1 ] ] 
}