stupedspam
05-07-2007, 08:20 PM
How does Starblaster100's FindNormalRandomsChoice work?? :duh:
Also what is the diffrence between WT-Fakawi's FindFastRandoms and FindNormalRandomsChoice? :duh:
I'm am asking because FindNormalRandomsChoice has find frogs and FindFastrandoms (and FindNormalRandoms) doesn't... If you could help me it would be very apreciated!
Thanks!
~Stupedspam
Edit: Here is FindNormalRandomsChoice... By Starblaster100
{************************************************* ******************************
function FindNormalRandomsChoice(Talk, Misc, Lamp, Box, Demon, ScapeRune, Trade,
GameTab, Pinball, Frog, Certer, Sandwich, Plant, Black, ClickContinue: Boolean): Boolean;
By: Starblaster100
Description: Calls the 'Normal' Randoms, but only the ones you choose.
************************************************** *****************************}
function FindNormalRandomsChoice(Talk, Misc, Lamp, Box, Demon, ScapeRune, Trade,
GameTab,
Pinball, Frog, Certer, Sandwich, Plant, Black, ClickContinue: Boolean):
Boolean;
var
i: Integer;
begin
repeat
I := I + 1;
Wait(1);
case i of
1: if (Talk) then
if (FindTalk) then
Result := True;
2: if (Misc) then
if ((FindDead) or (FindMod) or (FindMime) or (FindMaze) or (FindQuiz))
then
Result := True;
3: if (Lamp) then
if (FindLamp(LampSkill)) then
Result := True;
4: if (Box) then
if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
begin
SolveBox;
end else
GambleNewBox;
end;
5: if (Demon) then
if (FindDemon) then
Result := True;
6: if (ScapeRune) then
if (FindScapeRune) then
Result := True;
7: if (Trade) then
if (FindTrade) then
Result := True;
8: if (GameTab) then
if (NoGameTab) then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
9: if (Pinball) then
if (SolvePinball) then
Result := True;
10: if (Frog) then
if (SolveFrog) then
Result := True;
11: if (Certer) then
if (SolveCerter) then
Result := True;
12: if (FindTalk) then
if (Sandwich) then
if (SolveSandWich) then
Result := True;
13: if (Plant) then
if (FindPlant) then
Result := True;
14: if (Black) then
if (InBlack) then
begin
Result := True;
Players[CurrentPlayer].loc := 'In Black';
Logout;
Exit;
end;
15: if (ClickContinue) then
if (ClickToContinue) then
Result := True;
end;
until (i >= 15)
end;
Also what is the diffrence between WT-Fakawi's FindFastRandoms and FindNormalRandomsChoice? :duh:
I'm am asking because FindNormalRandomsChoice has find frogs and FindFastrandoms (and FindNormalRandoms) doesn't... If you could help me it would be very apreciated!
Thanks!
~Stupedspam
Edit: Here is FindNormalRandomsChoice... By Starblaster100
{************************************************* ******************************
function FindNormalRandomsChoice(Talk, Misc, Lamp, Box, Demon, ScapeRune, Trade,
GameTab, Pinball, Frog, Certer, Sandwich, Plant, Black, ClickContinue: Boolean): Boolean;
By: Starblaster100
Description: Calls the 'Normal' Randoms, but only the ones you choose.
************************************************** *****************************}
function FindNormalRandomsChoice(Talk, Misc, Lamp, Box, Demon, ScapeRune, Trade,
GameTab,
Pinball, Frog, Certer, Sandwich, Plant, Black, ClickContinue: Boolean):
Boolean;
var
i: Integer;
begin
repeat
I := I + 1;
Wait(1);
case i of
1: if (Talk) then
if (FindTalk) then
Result := True;
2: if (Misc) then
if ((FindDead) or (FindMod) or (FindMime) or (FindMaze) or (FindQuiz))
then
Result := True;
3: if (Lamp) then
if (FindLamp(LampSkill)) then
Result := True;
4: if (Box) then
if (FindNewBox) then
begin
Result := True;
if (UseBoxSolver) then
begin
SolveBox;
end else
GambleNewBox;
end;
5: if (Demon) then
if (FindDemon) then
Result := True;
6: if (ScapeRune) then
if (FindScapeRune) then
Result := True;
7: if (Trade) then
if (FindTrade) then
Result := True;
8: if (GameTab) then
if (NoGameTab) then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
9: if (Pinball) then
if (SolvePinball) then
Result := True;
10: if (Frog) then
if (SolveFrog) then
Result := True;
11: if (Certer) then
if (SolveCerter) then
Result := True;
12: if (FindTalk) then
if (Sandwich) then
if (SolveSandWich) then
Result := True;
13: if (Plant) then
if (FindPlant) then
Result := True;
14: if (Black) then
if (InBlack) then
begin
Result := True;
Players[CurrentPlayer].loc := 'In Black';
Logout;
Exit;
end;
15: if (ClickContinue) then
if (ClickToContinue) then
Result := True;
end;
until (i >= 15)
end;