on *:TEXT:!pcw:#RSCW: if ($nick isreg $chan || $nick isvoice $chan) { kick # $nick Please join4 #RSPC for the Pest-Control worlds. }
on @*:text:*:#rscw:{
if ( $len($1-) >= 15 ) && ( $nick isreg # ) {
if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 60 ) kick # $nick [ 60% ] Caps allowed.4 [ $v1 $+ % ] Caps used.
}
}
on *:TEXT:*world*Sucks*:#rspc: { msg # $nick $+ : To suggest a new Pest-Control world, type 4!suggest world }
on *:TEXT:pc world?*:#rspc: { msg $chan $nick $+ , to view the current Pest-Control world, type: 4!PCW }
ctcp *:finger:*:{
ctcpreply $nick FINGER Don't finger me!!
halt
}
ctcp *:PING:*:{
ctcpreply $nick PING Pong!
halt
}
ctcp *:VERSIOn:*:{
ctcpreply $nick VERSION http://www.mIRC.com
halt
}
on $*:TEXT:/^[!.]cw/Si:#rscw: {
notice $nick 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }
on $*:TEXT:/^[!@.]mode/Si:#:{ if ($nick ishop $chan) || ($nick isop $chan) { mode # $2 }
on $*:TEXT:/^[@]cw/Si:#rscw: {
if ($nick isop $chan) || ($nick ishop $chan) {
msg # 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }
on $*:TEXT:/^[!.]world/Si:#rscw: {
notice $nick 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }
on $*:TEXT:/^[@]world/Si:#rscw: {
if ($nick ishop $chan) || ($nick isop $chan) {
msg # 14[4 $+ $nick $+ 14] the current world is: «[4 $gettok(%world,1,160) 14]» set by [4 $+ $gettok(%world,2,160) $+ 14] }
on *:CONNECT:{
/timer 1 3 /ns id dollar1
/timer 1 5 /cs id #Rscw lisaanddoug
on $*:TEXT:/^[!.]setcw../Si:#rscw:{
if (($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan)) {
set %world $+($2,$chr(160),$nick,$chr(160),$ctime)
msg $chan 14«[4 $+ $nick $+ 14]» has changed changed the world, type 4!CW
}
else { notice $nick 14You 4NEED14 Voice+ to use the $1 command. }