Easy? Why not do it
I made something similar when I had my pure.
A curser does not have to be complicated to be effective 
Here is what I have come up with
(Don't forget to free your DTM's btw...)
SCAR Code:
Procedure MainLoop;
Var Times, Check: Integer; {Edit}
begin
ScriptSetup
DeclarePlayers;
LoginPlayer;
MarkTime(NapTime);
Jesus;
Check := RandomRange(15,25); {Edit}
repeat
Magic;
CastCurse;
FindNonInventoryRandoms; {Edit}
Inc(Times); {Edit}
If Times < Check then {Edit}
Begin {Edit}
FindInventoryRandoms; {Edit}
Times:=0 {Edit}
Check := RandomRange(15,25); {Edit}
end; {Edit}
Inc(Cursed);
AntiBanage;
ClearDebug;
TimeForNap;
Until(Cursed >= HowManyCurses);
R_RandomsReport;
LogOut;
Report;
end;
begin
MainLoop;
FreeDTM(BodyRune) {Edit}
end.
Shows a general place that has changed or been added. You dont have to use it or credit me for it