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) == 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) == unlead) var %style = staffunset
elseif ($right($1,-1) == actremove) var %style = staffact
elseif ($right($1,-1) == actremoveall) var %style = allstaffact
elseif ($right($1,-1) == setlead) var %style = staffset
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
}
if ($chan == #eyes) {
if ($left($1,1) !isin @!.) halt
elseif ($regex($1,/huforums|site)) var %style = site
elseif ($right($1,-1) == world) var %style = wld
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. | notice $2 you have been invited into #eyes by: $nick
}
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) $+ $iif(%scouter.2,$chr(44)) $iif(%scouter.2,$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 { 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.
/left $nick | /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) {
/eyeremove $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 == 1 ) { set %scouters.message.1 worlds 26, 27, 28, 31, 36, 39, 42, 44, 45, 46, 48, 53, 54, 56, 58, 59, 64, 65, 70, 76, 77, 78, 79, 88, 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-144
}
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 %s.m.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 eyeremove {
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
}