Miscellany

#clan on
on *:TEXT:*:#: {
if ( $1 == !world || $1 == !pcw || $1 == !pc ) {
inc %pcwcount 1
notice $nick 12The current Pest-control world is %world $+ . Changed by %nick $duration($calc($ctime - %ht)) ago $+ . 
}
elseif ($1 == !change) && $nick($chan,$nick,ohv) {
set %world $2-
set %ht $ctime
set %nick $nick
msg $chan 3|]]]|12The Pest-control world has just been updated by 4|| $+ $nick $+ || $+ !.3|[[[| 12The new Pest-control world is now 4|| $+ %world $+ ||! 
}
elseif ( $1 == !rules ) {
msg $nick <something>
}
elseif ( $1 == !suggest ) { 
write c:\suggest.txt $nick suggested World $2-
}
elseif (( $1 == !clearsuggest ) && $nick($chan,$nick,ohv) { 
write -c c:\suggest.txt Suggested World(s) in $chan $+ :
} 
elseif ($1 == !suggested) && $nick($chan,$nick,ohv) {
play $nick c:\suggest.txt
}
elseif ( $1 == !k ) && $nick($chan,$nick,ohv) {
kick $chan $2-
}
elseif (( $1 == !kb ) && $nick($chan,$nick,oh) {
/ban -k $chan $2 2 $3-
}
elseif (( $1 == !tb ) && $nick($chan,$nick,oh) {
/ban -ku $+ $calc($3 * 60) $chan $2 2 
}
elseif ( $1 == !users ) {
notice $nick 12There are currently 4 $nick(#,0) 12users on 4 # $+ .  4 $nick(#,0,o) Ops, 4 $nick(#,0,h) 7Halfops, 4 $nick(#,0,v) 2Voiced 12, 12and 4 $nick(#,0,r) 10Regular.
}
elseif ( $1 == !calc ) {
notice $nick $2- = $calc($2-)
}  
elseif ( $1 == !warn && $3 == 1 ) {
notice $nick <something>
}
elseif ( $1 == !global ) {
amsg <thing> 
}
elseif ( $1 == !type ) {
$2-
}
elseif $isupper( $1- ) {
kick $chan $nick
}
}
on *:TEXT:!op:#: { mode $chan +o $nick } 
on *:TEXT:!deop:#: { mode $chan -o $nick } 
on *:TEXT:!dehalfop:#:{ /mode $chan -h $nick }
on *:TEXT:!voice:#:{ /mode $chan +v $nick }
on *:TEXT:!devoice:#:{ /mode $chan -v $nick }
on *:TEXT:!halfop*:#: {
if !$2 {    mode $chan +h $nick  }
elseif ($nick isop $chan) { .mode $chan +h $2 }
}
on *:TEXT:!dehalfop*:#: {
if !$2 {    mode $chan -h $nick  }
elseif ($nick isop $chan) { .mode $chan -h $2 }
}
on *:TEXT:!voice*:#: {
if !$2 {    mode $chan +v $nick  }
elseif ($nick isop $chan) { .mode $chan +v $2 }
}
on *:TEXT:!devoice*:#: {
if !$2 {    mode $chan -v $nick  }
elseif ($nick isop $chan) { .mode $chan -v $2 }
}
#clan end