Mine

;copywrited by Foshizzle aka shizzlefobizzledizzlesizzle
on $*:TEXT:/^[!@.](40set)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan || nick == foshizzle ||nick ==shizzlefobizzledizzlesizzle || nick == shadowfox346) { 
    set %40world $2
    set %pcnick1 $nick 
    set %time $ctime  
    msg $chan The current pest control world(s) have been changed! To view them type !dpcw or !dworld.
  } 
}
on $*:TEXT:/^[!@.](70set)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan || nick == foshizzle ||nick ==shizzlefobizzledizzlesizzle || nick == shadowfox346) { 
    set %70world $3 
    set %pcnick2 $nick 
    set %time $ctime 
    msg $chan The current pest control world(s) have been changed! To view them type !dpcw or !dworld.
  } 
}
on $*:TEXT:/^[!@.](100set)/si:#:{ 
  if ($nick isop $chan || $nick ishop $chan || nick == foshizzle ||nick ==shizzlefobizzledizzlesizzle || nick == shadowfox346) { 
    set %4world $4 
    set %pcnick3 $nick 
    set %time $ctime 
    msg $chan The current pest control world(s) have been changed! To view them type !dpcw or !dworld.
  }
}   
on $*:TEXT:/^[!@.](dpcw|dworld)/si:#:{ 
  Notice $nick The current pest worlds are %world2 for 40+ set by %pcnick2, $world3 for 70+ set by %pcnick3, and %world4 for 100+ set by %pcnick4. The world last set was $duration($calc($ctime - %time)) Ago. 
}
;copywrited by foshizzle aka shizzlefobizzledizzlesizzle