rendered paste body
on $*:text:/^[!@.]pcw|world/Si:#: {
if (!%pc) notice $nick The pc-world is not set
elseif (%flooods. [ $+ [ $nick ] ] == 1) notice $nick You just queried the pc-world. Please wait 5 seconds.
else {
set %flooods. [ $+ [ $nick ] ] 1
timer 1 2 notice $nick The current pc-world is: %pc - Last update: $duration($calc($ctime - %pcc)) ago
timer 1 5 unset %flooods. [ $+ [ $nick ] ]
}
}
on $*:text:/^[!@.]set pcw */Si:#: {
if ($nick isop #) || ($nick ishop #) {
set %pcc $ctime
set %pc $3-
notice $nick The new pc-world has been set as %pc
if (%pcstop. [ $+ [ $chan ] ] == 1) halt
else {
/amsg [4Pc-World Update1] New world: $3-
topic #propc 4,5/5,4\4,5/5,4\4,5/5,4\1,5W1,4e1,5l1,4c1,5o1,4m1,5e1,4 1,5t1,4o1,5 1,4P1,5r1,4o1,5 1,4P1,5c1,4,1,5 1,4C1,5u1,4r1,5r1,4e1,5n1,4t1,5 1,4w1,5o1,4r1,5l1,4d1,5:1,4 1,0| $+ $3 $+ |4,5/5,4\4,5/5,4\4,5/5,4\1,0 Commands = "!pcw" or "!world
notice $nick 4You have changed the ProPC Channel Topic to World $3
}
}
}
on *:text:@*:#propc:{ kick #propc $nick Don't say @* on this channel! }
on *:TEXT:!v *:#propc:{ if ($nick isop $chan) || ($nick ishop $chan) { /mode $chan +vvvvvvvvvv $2 $3 $4 $5 $6 $7 $8 $9 $10 $11 } }
off *:TEXT:!k *:#propc:{ if ($nick isop $chan) || ($nick ishop $chan) inc %kcount |
kick #propc $2 Reason: $3- - N00B5 H4X0R3D: ( %kcount ) }
on *:TEXT:!kbt*:#propc: { if (($nick isop $chan) || ($nick ishop $chan)) { inc %kcount | /ban -ku $+ $3 $chan $2 2 Reason: $4- - $3 Second Ban - Noobs Pwnt: ( %kcount ) } }
on *:text:*:#: {
var %regex = /#[^,]*,0/
if ($regex($1-,%regex)) kick $chan $nick 1- 12Do NOT try and make people part channels!1 -
}