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