You can use mine. Just credit me.
SCAR Code:
procedure AntiRandom;
//------------------------------- AntiRandom-------------------------------------
begin
if(not loggedin)then exit;
CheckEnt;
FindTalk;
LampSkill:= (''+LlampSkill+'');
FindNormalRandoms;
if (FindFight) then
begin
MakeCompass('N');
RunTo('N', True);
RunAway('S', true, 3, (7000+random(3000)));
end;
FindMod;
DwarfItem;
FindDead;
CheckEnt;
if NoGameTab xor InBlack then
begin
Writeln('Found unsolvable random');
Logout;
NextPlayer(False);
Exit;
end;
end;