asap1
2012-02-01 23:10:35
Im getting this error
[Error] (53:23): Identifier expected at line 52
Compiling failed.
[Error] (53:23): Identifier expected at line 52
Compiling failed.
Program Al_Kharid_Warrior_Killer;
{$i srl\srl\misc\smart.simba}
{$i SRL\SRL.simba}
{$i srl\srl\skill\fighting.simba}
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Bankpin Here
Players[0].BoxRewards := ['Xp'];
end;
Procedure Attackwarrior;
Var
x, y: Integer;
Begin
If FindObjCustom( x, y, ['att', 'warrior'], [1321795, 5325613, 6509099], 5) Then
Begin
GetMousePos (x, y);
Case Random (0) Of
0: Mouse (x, y, 5, 5, True);
End;
End;
End;
///// Credit goes to Tickyy
Procedure Bankit;
Var
i: Integer;
Begin
If (Not (LoggedIn)) Then Exit;
For i := 1 To 4 Do
Begin
If OpenBank('akb', True, True) Then
begin
Withdraw(10, 1, 28);
break;
end;
End;
Writeln('Banking Failed - Changing Players');
NextPlayer(False);
End;
Function LowHPLetsEat('lobster'): Boolean;
var
I, x, y: Integer;
begin
Result := (HPPercent < 50) and (LoggedIn);
If(not(Result)) then
Exit;
if Result then
If InvEmpty then
begin
Bankit;
end else
for i := 1 to 28 do
begin
InvMouse(I, 3);
Wait(RandomRange(150, 250));
if WaitUpText(What, RandomRange(250, 300)) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, True);
Exit;
end else
Continue;
end;
end;
begin
MouseSpeed := 15;
Smart_Server := 0;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
If InvEmpty Then
Bankit else
Attackwarrior;
While(Infight)do
Wait(100);
LowHPLetsEat;
Until not LoggedIn;
end.