[script]
n0=on $*:text:/^[!](set)(pcw|world)*/si:#: {
n1= if ($nick !isop $chan) && ($nick !ishop $chan) {
n2= .notice $nick Only HalfOps+ can use this command
n3= { halt }
n4= }
n5= if ($2 !isnum) {
n6= .notice $nick $2 is not a number!
n7= { halt }
n8= }
n9= set %pcw [ $+ [ $chan ] ] $2
n10= set %setpcw.time $ctime
n11= set %setpcw.nick $nick
n12= msg $chan $grey(A new Pest Control World has been set! Type) $blue(!pcw) $grey(to see it.)
n13=}
n14=
n15=on $*:text:/^[!](pc|pcw|world)/si:#: {
n16= if (!%pcw [ $+ [ $chan ] ]) {
n17= .notice $nick A Pcw has not been set for $chan,type !setpcw to set the Pc world(Halfops+)
n18= { halt }
n19= }
n20= if ($nick isreg $chan) {
n21= .notice $nick You need voice to view the Pest Control World.
n22= { halt }
n23= }
n24= else {
n25= notice $nick $grey(The current PCW is) $blue(%pcw [ $+ [ $chan ] ]) $+ $grey(.Set By:) $blue(%Setpcw.nick) $grey(-) $blue($duration($calc($ctime - %setpcw.time))) $grey(ago.)
n26= }
n27=}
n28=
n29=on $*:text:/^[!](unset|delete)(pc)(w|world)?/si:#: {
n30= if (%pcw [ $+ [ $chan ] ]) {
n31= unset %pcw [ $+ [ $chan ] ]
n32= unset %setpcw.time [ $+ [ $chan ] ]
n33= unset %setpcw.nick [ $+ [ $chan ] ]
n34= msg $chan $grey(The PestControl World for) $blue($chan) $grey(has been deleted by:) $blue($nick)
n35= }
n36= else {
n37= .notice $nick There is no Pcw set for $chan $+ .
n38= }
n39=}