pwnaz0r
2007-10-15 13:18:16
Well, I need this for my miner script. anyways, once its done, anyone can use. Just tell me if I have left out any randoms.
EDIT: O and by the way, FindScapeRune is still in the "Credits" at the top of the AntiRandoms.scar, even though its not there.
EDIT: O and by the way, FindScapeRune is still in the "Credits" at the top of the AntiRandoms.scar, even though its not there.
function FindUnSolvableRandom: boolean;
var
c: integer;
begin
if not LoggedIn then exit;
for c:= 0 to 6 do
begin
case c of
0: if FindDead then
begin
result:= true;
Players[CurrentPlayer].Loc:= 'Dead';
end;
1: if FindMime then
begin
result:= true;
Players[CurrentPlayer].Rand:= 'Mime';
end;
2: if FindMaze then
begin
result:= true;
Players[CurrentPlayer].Rand:= 'Maze';
end;
3: FindTalk;//if FindScapeRune then <-----
//begin <-----
// result:= true; <----- No ScapeRune Finding?
// Players[CurrentPlayer].Rand:= 'ScapeRune';<-----
//end; <-----
4: if InBlack then
begin
result:= true;
Players[CurrentPlayer].Loc:= 'InBlack';
end;
5: if NoGametab then
begin
result:= true;
Players[CurrentPlayer].Loc:= 'No Gametab';
end;
6: FindTalk;//Optional. Some Talking are unsolvable.
end;
if result then exit;
end;
end;