/changing {
if ($1 !isreg $chan) {
set %changing 1
/msg $chan 3ATTENTION! $1 is changing the world page!
}
}
/done {
if ($1 !isreg $chan) {
unset %changing 1
/msg $chan 4ATTENTION! $1 is done changing the world page!
}
}
/hremove {
if ($1 !isreg $chan) && ($findtok(%active,$2,32)) {
set %active $deltok(%active,$findtok(%active,$2,32),32) | .notice $1 $2 has been removed from the active list.
}
}
/lremove {
if ($1 !isreg $chan && $1 !isvoice $chan) && ($findtok(%validating,$2,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$2,32),32) | .notice $1 $2 Has been removed from the validators list.
}
}
/huforums {
/notice $nick The Heart Unit forums can be found here: http://heartunit.org/forums/
}
/world {
/notice $nick The current world can be found here: http://heartunit.org/forums/index.php?showforum=22
}
/lon {
if ( ($1 isop $chan) || ($1 ishop $chan) ) {
set %Validating $addtok(%Validating,$1,32) | .notice $1 You have been added to the validators list
}
}
/loff {
if ( ($1 isop $chan) || ($1 ishop $chan) && ($findtok(%validating,$1,32)) ) {
set %Validating $deltok(%Validating,$findtok(%Validating,$1,32),32) | .notice $1 You have been removed from the validators list.
}
}
/validators {
if (%Validating) { .notice $1 The current staff validating are: $replacex(%Validating,$chr(32),$+($chr(44),$chr(32))) }
else { .notice $1 There are no staff currently available for validating }
}
/hon {
if ($1 !isreg $chan) {
set %Active $addtok(%Active,$1,32) | .notice $1 You have been added to the active list
}
}
/hoff {
if (($1 !isreg $chan) && ($findtok(%Active,$1,32)) ) {
set %Active $deltok(%Active,$findtok(%Active,$1,32),32) | .notice $1 You have been removed from the active list
}
}
/active {
if (%Changing) { .notice $1 World is Currently being changed }
elseif (%Active) { .notice $1 The current world changing people are: $replacex(%Active,$chr(32),$+($chr(44),$chr(32))) }
else { .notice $1 There are no staff currently available for changing the world. Sorry :-( }
}
/time {
/notice $1 World was set by %nick $+ , $duration($calc($ctime - %settime)) ago
on *:text:!newworld *:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/newworld $nick $2-
}
}
on *:text:!world:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/world
}
}
on *:text:!huforums:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/huforums
}
}
on *:text:!changing:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/changing $nick
}
}
on *:text:!done:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/done $nick
}
}
on *:TEXT:!on:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/hon $nick
}
}
on *:TEXT:!off:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/hoff $nick
}
}
on *:TEXT:!active:#heart:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/active $nick
}
}
on *:TEXT:!on:#lung:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/lon $nick
}
}
on $*:TEXT:/!vali(dators)?/Si:#lung:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/validators $nick
}
}
on *:QUIT:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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)
}
}
}
on !*:DEOP:#lung:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
if ($findtok(%Validating,$nick,32)) {
set %Validating $deltok(%Validating,$findtok(%Validating,$nick,32),32) | .notice $opnick You have been removed from the validators list
}
}
}
on !*:DEHELP:#lung:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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 ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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 ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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 ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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 ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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)
}
}
}
on !*:PART:#lung:{
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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 ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
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
}
}
}
on *:Text:!off:#lung: {
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/loff $nick
}
}
on *:Text:!remove *:#lung: {
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/lremove $nick $1
}
}
on *:Text:!remove *:#heart: {
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/hremove $nick $2
}
}
on *:text:!time:#heart: {
if ( Anna^ !ison $chan && [HU]Geo`Bot !ison $chan ) {
/time $nick
}
}