@create Powers Viewer=10
@lock Powers Viewer=*Yohshee
&GETALL Powers Viewer=$getall:think [pemit(%#,list([search(type=player)],Player name: [name(##)] (##)%tLast on: [get(##/last)]%tPowers:[u(powerfunc,##)]))]
&POWERLIST Powers Viewer=announce boot builder chown_anything comm_all control_all expanded_who find_unfindable free_money free_quota guest halt hide idle long_fingers monitor poll prog search see_all see_queue stat_any steal_money tel_anywhere tel_anything unkillable
&POWERFUNC Powers Viewer=[iter(v(powerlist),ifelse(haspower(%0,##),##,))]
&CHECKPOWERS Powers Viewer=$cpower *:@switch hastype(*%0,player)=1,{@pemit %#=%ch%cc[name(*%0)] has the following powers:%cn%r[setq(0,u(powerfunc,*%0))][ifelse(gt(strlen(%q0),0),%q0,None.)]},{@pemit %#=That is not a valid player name.}
@Use Powers Viewer=~Commands for the Powers Viewer~%rgetall - Gets a complete list of all of the existing players and their powers. (WARNING: Do not use this - still buggy 'n stuff!)%rcpower <Player> - Displays all of the powers that that player has.
@Desc Powers Viewer=It's a little black box with the words "Powers Viewer" stenciled upon it. Weird and freaky stuff. <use powers viewer>
@set Powers Viewer=INHERIT