Log in

View Full Version : FindNormalRandomsChoice ?



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;

stupedspam
05-08-2007, 03:04 AM
Bump...Still woul like to know :) would be helpfull not only to me but others who read this!

Thanks :D
~Stupedspam

Ejjman
05-08-2007, 03:34 AM
Speaking of your sig, your second post was..Stup0id Spam.


I think he uses it for like, lets say he's smelting, and he doesn't have to worry about finding something WHILE smelting (I dunno if this is proven), so he just checks for ClickToContinue, cuz he might lvl up. :) Instead of constantly checking the others even though he KNOWS it wont be there.