i need to bot!
01-14-2012, 12:37 PM
Well, I have given up on using the 'OpenBank' procedure, as that has failed, and begun creating a custom bank opener. program OpenMehBank;
{$DEFINE Smart}
{$i SRL\SRL.scar}
{$i sps/sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'nevermind this!';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Pin := '';
Players[0].Active := true;
LoginPlayer
end;
procedure Bankit;
var x, y: integer;
begin
FindNormalRandoms;
if FindObjCustom(x, y, ['ank'],[3218210, 4074031, 5059387, 4270897, 4073775, 3677991, 5322302, 4205359, 4402227, 4073775, 4533813, 4205361, 4533813, 4730934], 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Bankit;
end.
I know this is very basic.. just opening a bank xD, but I have already finished the rest of my script, and this is really annoying me.
I get :'Identifier expected at line 38'
Now, what does Identifier expected actually mean, and how can i fix
Thanks ! :D
{$DEFINE Smart}
{$i SRL\SRL.scar}
{$i sps/sps.simba}
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'nevermind this!';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Pin := '';
Players[0].Active := true;
LoginPlayer
end;
procedure Bankit;
var x, y: integer;
begin
FindNormalRandoms;
if FindObjCustom(x, y, ['ank'],[3218210, 4074031, 5059387, 4270897, 4073775, 3677991, 5322302, 4205359, 4402227, 4073775, 4533813, 4205361, 4533813, 4730934], 35) then
begin
Mouse(x, y, 0, 0, false);
ChooseOption('hop');
end;
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
Bankit;
end.
I know this is very basic.. just opening a bank xD, but I have already finished the rest of my script, and this is really annoying me.
I get :'Identifier expected at line 38'
Now, what does Identifier expected actually mean, and how can i fix
Thanks ! :D