[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=}