SCAR Code:
program TryThis;
{.include SRL/SRL.scar}
var
ArmorVar : Array[0..1 {Change to the amount of players you have}] of Array[0..9] of Boolean;
I : Integer;
procedure DeclarePlayers; //Fill this in!
begin
HowManyPlayers :=1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //username
Players[0].Pass := ''; //password
Players[0].Nick := ''; //3-4 letters from your username
Players[0].integers[0]:=10; // attack
ArmorVar[0] := [True, True, False, False, True, True, False, False, True];
end;
Procedure DoStuff;
Begin
For I := 0 To 10 Do
Begin
Case I Of
0 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(463, 127) = 144) Then
Mouse(463, 127, 15, 15, True);
1 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(425, 162) = 144) Then
Mouse(425, 163, 15, 15, True);
2 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(503, 167) = 144) Then
Mouse(503, 167, 15, 15, True);
3 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(405, 207) = 144) Then
Mouse(463, 127, 15, 15, True);
4 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(463, 207) = 144) Then
Mouse(463, 207, 15, 15, True);
5 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(516, 208) = 144) Then
Mouse(516, 208, 15, 15, True);
6 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(459, 249) = 144) Then
Mouse(463, 249, 15, 15, True);
7 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(407, 285) = 144) Then
Mouse(407, 285, 15, 15, True);
8 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(462, 286) = 144) Then
Mouse(463, 286, 15, 15, True);
9 : If Not (ArmorVar[CurrentPlayer][I]) Then
If Not (GetColor(517, 287) = 144) Then
Mouse(517, 287, 15, 15, True);
End;
End;
End;
begin
SetupSRL;
DeclarePlayers;
DoStuff;
For I := 0 To 9 Do
If Not (ArmorVar[CurrentPlayer][I]) Then
WriteLn('False');
end.