on $*:TEXT:*:#: {
if (%huscripts == on ) {
if ($chan == #fireworkingarea || $chan == #heart ) {
if ($left($1,1) !isin !) halt
if ($regex($1,/!time/Si)) var %style = time
elseif ($regex($1,/!active/Si)) var %style = act
elseif ($regex($1,/!world/Si)) var %style = wld
elseif ($regex($1,/!huforums/Si)) var %style = site
elseif ($nick !isreg #heart || $nick !isreg #stomach ) {
if ($regex($1,/!on/Si)) var %style = on
elseif ($regex($1,/!scriptsoff/Si)) var %style = soff
elseif ($regex($1,/!off/Si)) var %style = off
elseif ($regex($1,/!changing/Si)) var %style = change
elseif ($regex($1,/!done/Si)) var %style = done
elseif ($regex($1,/!newworld/Si)) var %style = nw
if (%style == soff) {
set %huscripts off | notice $nick The HU Scripts are not Deactivated. To turn them back on please use !scriptson
}
if (%style == on) {
if ($hget(active,$nick) == $null) { hadd active $nick $nick | notice $nick you have been added to active staff list. | inc %changer | halt
}
else notice $nick you are already on my active staff list. | halt
}
if (%style == off) {
if ($hget(active,$nick) == $null) { notice $nick you are not set to change a world, so I can't take him off the active staff list! | dec %changer | halt
}
else hdel active $nick $nick | notice $nick you have been taken off the active staff list. | halt
}
if (%style == change) {
if (%huchanging == $null) {
set %huchanging $nick
msg $chan Attention:4 $nick is changing the world page!
}
else notice $nick %huchanging is already changing the world please talk to them about what is the better world.
notice %huchanging $nick also has a world please talk to them to find out what is the better world.
}
if (%style == done) {
if ($nick !isreg $chan) {
msg $chan Attention:6 $nick is done changing the world page! | unset %huchanging
}
}
if (%style == nw) {
set %hunick $nick | set %hutime $ctime
msg $chan New World: 8http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
timer 1 1 msg $chan New World: 7http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
timer 1 2 msg $chan New World: 9http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
timer 1 3 msg $chan New World: 4http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
timer 1 4 msg $chan New World: 6http://heartunit.org/forums/index.php?showforum=22 (Set By: %nick $+ , Scouted By: $2- $+ )
timer 1 300 msg $chan Reminder: 9The World has changed! Make sure you are there!
timer 1 301 msg $chan Reminder: 4The World has changed! Make sure you are there!
set %hutime $ctime | set %hunick $nick
}
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 == 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/
}
}
}
}
}