on *:text:!change*:#:{ if (%pestcontrol == on) {
    if ($nick isvoice #) notice $nick You cannot change the world! 
    if ($nick isreg #) notice $nick You cannot change the world! 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %oldpc %pcworld
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %pctime $ctime 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %pcnick $nick 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %pcworld $2
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) msg $chan 11,1|'|'|'|'|'|PC World is changed to 4 %pcworld 11 by 4 %pcnick 11 |'|'|'|'|'| 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 > 139) notice $nick Error! The PC World must be lower than 139! 
  }
}
on *:text:!setpcw*:#:{ if (%pestcontrol == on) {
    if ($nick isvoice #) notice $nick You cannot change the world! 
    if ($nick isreg #) notice $nick You cannot change the world! 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %oldpc %pcworld
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %pctime $ctime 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %pcnick $nick 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) set %pcworld $2
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 isnum 2-138) msg $chan 11,1|'|'|'|'|'|PC World is changed to 4 %pcworld 11 by 4 %pcnick 11 |'|'|'|'|'| 
    if ($nick isop $chan) || ($nick ishop $chan) && ($2 > 139) notice $nick Error! The PC World must be lower than 139! 
  }
}

on *:TEXT:!world:#:{ if (%pestcontrol == on) {
    notice $nick 11,1 Current PC World: 4 %pcworld 11 --Last Update: 4 $+($duration($calc($ctime - %pctime)),) 11 ago ,  the last world was 4 %oldpc
    notice $nick 11,1 This world was set by: 4 %pcnick 
  } 
}

on *:TEXT:@world:#:{ if (%pestcontrol == on) {
    if ($nick isop #) msg $chan 11,1 Current PC World: 4 %pcworld 11 --Last Update: 4 $+($duration($calc($ctime - %pctime)),) 11 ago , the last world was 4 %oldpc
    if ($nick isop #) msg $chan 11,1 This world was set by: 4 %pcnick 
  } 
}
on *:TEXT:!pcw:#:{ if (%pestcontrol == on) {
    notice $nick 11,1 Current PC World: 4 %pcworld 11 --Last Update: 4 $+($duration($calc($ctime - %pctime)),) 11 ago ,  the last world was 4 %oldpc
    notice $nick 11,1 This world was set by: 4 %pcnick 
  } 
}
on *:text:!mutelock*:#:{
  if ($nick isop #) set %mutelock on
  if ($nick isop #) mode $chan +m
  msg $chan 11,1 mutelock is now 4 on 11 this means the channel will be muted untill somebody uses !mlockoff
}
on *:text:!mlockoff*:#:{ if (%pestcontrol == on)
  if ($nick isop $chan) set %mutelock off
  if ($nick isop $chan) mode $chan -m
}
on *:RAWMODE:#:{ if (-m isin $1) && (%mutelock == on) {
    mode $chan +m $2- 
    /notice $nick 11,1 mutelock is currently on if u want mode -m off do 4 !mlockoff
  }
}
on *:text:!blockpc*:#:{ if ($address($nick,2) == $address($me,2)) || (nick isop $chan) { 
    set %pestcontrol off
    msg $chan 11,1 pestcontrol is now 4 off 11 ( i wont tell pc world )
  }
}
on *:text:!enablepc*:#:{ if ($address($nick,2) == $address($me,2)) || (nick isop $chan) { 
    set %pestcontrol on
    msg $chan 11,1 pestcontrol is now 4 on 11 (  i will tell worlds now  )
  }
}