alias hon { set %Active $addtok(%Active,$iif($1,$1,$me),32) | $iif($1,.notice $1,echo -ga) You have been added to the active list }
alias hoff { set %Active $deltok(%Active,$findtok(%Active,iif($1,$1,$me),32),32) | $iif($1,.notice $1,echo -ga) You have been removed from the active list }
alias active {
if (%Active) { $iif($1,.notice $1,say) The current world changing people are: $replacex(%Active,$chr(32),$+($chr(44),$chr(32))) }
else { $iif($1,.notice $1,say) There are no staff currently available for changing the world. }
}
on *:JOIN:#heart:{
if (%heart === 1) { timer 1 2 .signal -n heart_join $nick
}
}
on !*:SIGNAL:heart_join:{
if ($1 isop #heart) || ($1 ishop #heart) || ($1 isvoice #heart) { .notice $nick Welcome to #heart, please press !on to be on active list Thank You. }
else { .notice $nick Welcome, please type !active now to get a list of those who are changing worlds. Please pm only 1 of these. If they do not respond in an orderly fashion(2 minutes) than pm another one. Thank You. }
}
on *:TEXT:!on:#heart:{
if (%heart == 1) && (($nick !isreg $chan) || ($nick isvoice #stomach)) {
set %Active $addtok(%Active,$nick,32) | .notice $nick You have been added to the active list
}
}
on *:TEXT:!off:#heart:{
if (%heart == 1) && ($nick isvoice #stomach) && ($findtok(%Active,$nick,32)) {
set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $nick You have been removed from the active list
}
}
on *:TEXT:!active:#heart:{
if (%Changing) && (%heart == 1) { .notice $nick World is Currently being changed }
elseif (%Active) && (%heart == 1) { .notice $nick The current world changing people are: $replacex(%Active,$chr(32),$+($chr(44),$chr(32))) }
elseif (%heart == 1) { .notice $nick There are no staff currently available for changing the world. Sorry :-( }
}
alias lon { set %Validating $addtok(%Validating,$iif($1,$1,$me),32) | $iif($1,.notice $1,echo -ga) You have been added to the active list }
alias loff { set %Validating $deltok(%Validating,$findtok(%Validating,iif($1,$1,$me),32),32) | $iif($1,.notice $1,echo -ga) You have been removed from the active list }
alias validators {
if (%Validating) { $iif($1,.notice $1,say) The current staff validating are: $replacex(%Validating,$chr(32),$+($chr(44),$chr(32))) }
else { $iif($1,.notice $1,say) There are no staff currently available for validating }
}
o *:JOIN:#lung:{ .timer 1 2 .signal -n lung_join $nick }
o !*:SIGNAL:lung_join:{
if ($1 isop #lung) || ($1 ishop #lung) { .notice $nick Welcome to #lung, please press !on to be on validators list and do !off please before any nick changes or before you leave. Thank You. }
else { .notice $nick Welcome, please type !vali now to get a list of those who are validating. Please pm only 1 of these. If they do not respond in an orderly fashion(2 minutes) than pm another one. Thank You. }
}
o *:TEXT:!on:#lung:{
if ($nick isop $chan) || ($nick ishop $chan) {
set %Validating $addtok(%Validating,$nick,32) | .notice $nick You have been added to the validators list
}
}
on $*:TEXT:/!vali(dators)?/Si:#lung:{
if (%Validating) { .notice $nick The current staff validating are: $replacex(%Validating,$chr(32),$+($chr(44),$chr(32))) }
else { .notice $nick There are no staff currently available for validating }
}
on *:QUIT:{
if ($findtok(%Validating,$nick,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32)
}
if ($findtok(%Active,$nick,32)) {
set %Active $deltok(%Active,$findtok(%Active,$nick,32),32)
}
}
o !*:DEOP:#lung:{
if ($findtok(%Validating,$nick,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $opnick You have been removed from the validators list
}
}
o !*:DEHELP:#lung:{
if ($findtok(%Validating,$nick,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $hnick You have been removed from the validators list
}
}
on !*:DEOP:#heart:{
if ($findtok(%Active,$nick,32)) {
set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $opnick You have been removed from the active list
}
}
on !*:DEHELP:#heart:{
if ($findtok(%Active,$nick,32)) {
set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $hnick You have been removed from the active list
}
}
on !*:DEVOICE:#heart:{
if ($findtok(%Active,$nick,32)) {
set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $vnick You have been removed from the active list
}
}
on *:NICK:{
if ($newnick isop #lung) || ($newnick ishop #lung) && ($findtok(%Validating,$nick,32)) {
set %Validating $replacex(%Validating,$nick,$newnick)
}
if ($newnick isop #heart) || ($newnick ishop #heart) || ($newnick isvoice #heart) && ($findtok(%Active,$nick,32)) {
set %Active $replacex(%Active,$nick,$newnick)
}
}
o !*:PART:#lung:{
if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%Validating,$nick,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $nick You have been removed from the validators list
}
}
on !*:PART:#heart:{
if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%Active,$nick,32)) {
set %Active $deltok(%Active,$findtok(%Active,$nick,32),32) | .notice $nick You have been removed from the active list
}
}
o *:Text:!off:#lung: {
if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%validating,$nick,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $nick You have been removed from the validators list.
}
}
n *:Text:!remove *:#lung:{
if ($nick isop $chan) || ($nick ishop $chan) && ($findtok(%validating,$2,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$2,32),32) | .notice $nick $2 Has been removed from the validators list.
}
}
on *:Text:!remove *:#heart: {
if (%heart == 1) && ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) && ($findtok(%active,$2,32)) {
set %active $deltok(%active,$findtok(%active,$2,32),32) | .notice $nick $2 has been removed from the active list.
}
}
on *:TEXT:!changing:#heart: {
if (%heart == 1) && (%active == $nick) {
set %changing 1
msg $chan Attention:4 $nick Is updating the World Page
}
}
on *:Text:!done:#heart: {
if (%heart == 1) && (%active == $nick) {
unset %changing 1
msg $chan Attention:11 $nick $2 is done updating the world
}
}
on *:TEXT:*!world*:#heart:{
if (%heart == 1) && (%changing) { /notice $nick $nick Hello7 $nick $+ 5! 7The World is Currently being changed. World can be Found at 12http://heartunit.org/forums/index.php?showtopic=3 }
elseif (%heart == 1) { /notice $nick Hello7 $nick $+ 5! The World can be found at: 12http://heartunit.org/forums/index.php?showtopic=3 }
}
on *:text:!time:#heart: {
if (%heart) { /notice $nick World was set by %nick $+ , $duration($calc($ctime - %settime)) ago
}
}
on *:text:!newworld *:#heart: {
if (%heart == 1) && (%active == $nick) {
/timer1 1 1 /msg $chan New World: 4http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
/timer2 1 2 /msg $chan New World: 7http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
/timer3 1 3 /msg $chan New World: 12http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
/timer4 1 4 /msg $chan New World: 8http://heartunit.org/forums/index.php?showforum=22 (Set By:4 $nick $+ , Scouted By:7 $2 )
/timer5 1 5 /msg $chan New World: 13http://heartunit.org/forums/index.php?showforum=22 (Set By: 4 $nick $+ , Scouted By:7 $2 )
/timer 1 6 unset %changing 1
/timer 1 7 set %settime $ctime
/timer 1 8 set %nick $nick
/timer 1 400 /msg $chan Reminder: 4The World has changed! Make sure you are there!
/timer 1 401 /msg $chan Reminder: 7The World has changed! Make sure you are there!
}
}
on *:text:!hearton:#heart:{
if ($nick !isreg $chan) {
set %heart 1
msg $chan Scripts For #Heart have been set to 3ON.
}
}
on *:text:!heartoff:#heart:{
if ($nick !isreg $chan) {
unset %heart 1
msg $chan Scripts for #Heart have been set to 4OFF.
}
}
o *:text:!huforums:#heart:{
if (%heart == 1) {
/notice $nick www.heartunit.org
}
}
on *:text:!lungon:#jimbo: {
set %lung 1
}
on *:text:!lungoff:#jimbo: {
unset %lung 1
}