SRL/SRL-OSR — pull request #110 by slushpuppy (2013-03-31 13:46:26+00:00)
Title: Revamped antirandom for skill/custom random event detection

Hope we can get some discussion going about this change!

//

{$DEFINE ANTIRANDOM_CUSTOMSETSOLVER}

...

function AntiRandom_CustomSetSolver(name : String; args : T2DPointArray) : Boolean;
var
box : TBox;
begin
case name of
'Poison Gas':
begin
if (Length(args) > 0) AND FindObjDTM(MouseX,MouseY,upStairsDTM) then
begin
with MiddleTPA(args[0]) do
begin
if Distance(x,y,MSCX,MSCY) < 20 then
begin
writeln('fcking randoms');
hatetheserandoms(false);
sleep(50000);
end;
end;
end;
Result := True;
end;
end;
end;

repeat
..
FindNormalRandomsCustoms(SRL_ThievingRandoms);
..

until false