Someone

on *:TEXT:!setworld*:#chan: { 
if ($nick isop #) || ($nick ishop #) && ($istok(6 9 12 22 23 24 26 27 28 31 36 41 42 44 46 48 53 54 56 58 59 60 64 65 66 69 70 71 76 77 78 79 83 83 84 88 89 91 92 97 98 99 100 103 104 110 111 112 114 115 116 120 121 123 124 129 130 131 132,$2,32)) { 
set %lastworld %world 
set %setby $nick 
set %world $2 
set %timechan $asctime(hh:mm:tt)  
/msg $chan current PC world is %world changed from %lastworld at %timechan 
} 
else { halt } 
}
on *:TEXT:!world:#chan: { 
/notice $nick Previous pcworld: %lastworld current pcworld: %world world was set at %timechan 
}