@program findrp.muf
1 1000 d
i
$include $lib/rp
$include $lib/alynna
lvar param

: findrp
var target
var targetidle
var curr
var curridle 

0 curridle !
online_array foreach curr ! pop
 target @ idletime curridle !
 curridle @ targetidle @ > if
 
 then
;

: main
param !
command @ "{+findrp/on}" smatch if 
 me @ "gimme" 1 setstat
 "You are now trolling for RP." "FindRP" pretty tellme
 then
command @ "{+findrp/off}" smatch if 
 me @ "gimme" 0 setstat
 "You are no longer trolling for RP." "FindRP" pretty tellme
 then
command @ "+findrp" smatch if
 findrp
then 
;
.
c
q