on $*:TEXT:/^[!]wsuggest|suggest*/Si:#: {
  if (!$($+(%,$2,$nick),2)) {
    set -u120 $+(%,$2,$nick) 
    if (!$($+(%,x.,$2),2)) {  
      set -u120 $+(%,x.,$2)
      inc $+(%,x.,$2) 
      if ($($+(%,x.,$2),2) == 1) {
        set %pcw.nick. [ $+ [ $chan ] ] $me
        set $+(%,world,$chan) $2 
        inc $+(%,wchange,$chan)  
        msg $chan 15**[[7UPDATE15]]1 World Changed to 15[7 $2 15]  1by 15[7 $me 15]** 
        unset $+(%,x.,$2)
      }
    }
  }
}