macromacro123
10-27-2007, 07:23 PM
hi in my script i did my own findnormalrandoms. i only use my own findnormalrandoms in my script i dont use findnormalrandoms; i did call it myfindnormalrandoms; and i did it like this:
Function MyFindNormalRandoms: Boolean;
Var
I : Integer;
Begin
For I := 1 To 13 Do
Begin
Case I Of
1: If SolveChatRandom Then
Result := True;
2: If FindTalk Then
Result := True;
3: If FindDead Then
Begin
Result := True;
WriteLn('Found death');
Players[CurrentPlayer].Loc := 'Lumbridge';
End;
4: If FindMod Then
Result := True;
5: If FindMime Then
Begin
Result := True;
WriteLn('Found mime');
End;
6: If FindMaze Then
Begin
Result := True;
WriteLn('Found maze');
End;
7: If FindQuiz Then
Begin
Result := True;
WriteLn('Found quiz');
End;
8: If FindDemon Then
Result := True;
9: If FindLamp(LampSkill) Then
Result := True;
10: If FindBox Then
Begin
Result := True;
If UseBoxSolver Then
SolveBox
Else
GambleBox;
End;
11: If SolvePinball Then
Result := True;
12: If FindFight Then
Begin
HandleFight;
End;
13: If FindBrokenAxe Then
Begin
WriteLn('Found broken axe');
Players[CurrentPlayer].Rand := 'Broken Axe';
LogOut;
Exit;
End;
End;
Wait(1);
End;
End;
Now i was wondering if its necessary to put Closewindow; like this
Function MyFindNormalRandoms: Boolean;
Var
I : Integer;
Begin
For I := 1 To 13 Do
Begin
Case I Of
1: CloseWindow;
2: If SolveChatRandom Then
Result := True;
3: If FindTalk Then
Result := True;
Is that necessary to use closewindow? or it is already included in solvechatrandoms or something?
Function MyFindNormalRandoms: Boolean;
Var
I : Integer;
Begin
For I := 1 To 13 Do
Begin
Case I Of
1: If SolveChatRandom Then
Result := True;
2: If FindTalk Then
Result := True;
3: If FindDead Then
Begin
Result := True;
WriteLn('Found death');
Players[CurrentPlayer].Loc := 'Lumbridge';
End;
4: If FindMod Then
Result := True;
5: If FindMime Then
Begin
Result := True;
WriteLn('Found mime');
End;
6: If FindMaze Then
Begin
Result := True;
WriteLn('Found maze');
End;
7: If FindQuiz Then
Begin
Result := True;
WriteLn('Found quiz');
End;
8: If FindDemon Then
Result := True;
9: If FindLamp(LampSkill) Then
Result := True;
10: If FindBox Then
Begin
Result := True;
If UseBoxSolver Then
SolveBox
Else
GambleBox;
End;
11: If SolvePinball Then
Result := True;
12: If FindFight Then
Begin
HandleFight;
End;
13: If FindBrokenAxe Then
Begin
WriteLn('Found broken axe');
Players[CurrentPlayer].Rand := 'Broken Axe';
LogOut;
Exit;
End;
End;
Wait(1);
End;
End;
Now i was wondering if its necessary to put Closewindow; like this
Function MyFindNormalRandoms: Boolean;
Var
I : Integer;
Begin
For I := 1 To 13 Do
Begin
Case I Of
1: CloseWindow;
2: If SolveChatRandom Then
Result := True;
3: If FindTalk Then
Result := True;
Is that necessary to use closewindow? or it is already included in solvechatrandoms or something?