- Joined
- Jan 21, 2007
- Sythe Gold
- 5
- Messages
- 3,776
- Age
- 33
And that one. . .
No one will be able to fix all of these errors themselves so this script is pretty much dead. I'm not going to remake it.
Code:
function FindMyNormalRandoms: Boolean;
var
p, i: Integer;
begin
for i := 1 to 10 do
begin
case I of
1: if SolveChatRandom then
Result := True;
2: Respond;
3: if FindTalk then
Result := True;
4: if FindDead then
Result := True;
5: if FindMaze then
Result := True;
6: if FindQuiz then
Result := True;
7: if FindTalk then // Call it twice
Result := True;
8: if FindLamp(LampSkill) then // Maybe we missed it?
Result := True;
9: if (FindBox) then
begin
Result := True;
if (UseBoxSolver) then
SolveBox
else
GambleBox;
end;
10:
begin
if NoGameTab then
begin
Result := True;
if (InBlack) then
begin
if (SolveBeeKeeper) then
begin
AmtBee := AmtBee + 1
for p := 0 to 50 do
begin
Wait(100);
if (not (InBlack)) then
begin
Wait(3000 + Random(3000));
Exit;
end;
end;
end;
end else Logout;
Exit;
end;
end;
end;
if Result then
Break;
Wait(1);
end;
end;No one will be able to fix all of these errors themselves so this script is pretty much dead. I'm not going to remake it.
... umm... why?
