Someone

on $*:TEXT:/^[!@.](change40+)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    set %40world $2 
    set %pcnick1 $nick 
timerauto off
timerauto 0 30 msg # >>PCW<< 40+ %40world - 70+ %70world - 100+ %100world
    msg $chan The current pest control world(s) have been changed! To view them type !40+pcw or !40+. 
  } 
} 
on $*:TEXT:/^[!@.](change70+)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    set %70world $2 
    set %pcnick2 $nick 
timerauto off
timerauto 0 30 msg # >>PCW<< 40+ %40world - 70+ %70world - 100+ %100world
    msg $chan The current pest control world(s) have been changed! To view them type !70+pcw or !70+. 
  } 
} 
on $*:TEXT:/^[!@.](change100+)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan) { 
    set %100world $2 
    set %pcnick3 $nick 
timerauto off
timerauto 0 30 msg # >>PCW<< 40+ %40world - 70+ %70world - 100+ %100world
    msg $chan The current pest control world(s) have been changed! To view them type !100+pcw or !100+. 
  } 
}    
on $*:TEXT:/^[!@.](40+pcw|40+)/si:#:{ 
  Notice $nick The current Pest Control world for 40+ is %40world set by %pcnick1 
} 
on $*:TEXT:/^[!@.](70+pcw|70+)/si:#:{ 
  Notice $nick The current Pest Control world for 70+ is %70world set by %pcnick2 
} 
on $*:TEXT:/^[!@.](100+pcw|100+)/si:#:{ 
  Notice $nick The current Pest Control world for 100+ is %100world set by %pcnick3 
}