Simba Code:
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := userName;
Players[0].Pass := passWord;
Players[0].Nick := nickName;
Players[0].Active := True;
Players[0].Pin := bankPin;
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];//Random event prices.
end;
Should be changed to:
Simba Code:
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
with Players[0] do
begin
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].Pin := '';
Players[0].Skill := 'Farming';
Players[0].BoxRewards := ['Xp', 'mote', 'ostume', 'oins', 'aphire', 'ssence'];//Random event prices.
end;
end;
Thus removing your constants:
Simba Code:
const
Ore = 'iron';
OrePrice = 330;
userName = ''; //Username here. (needed to login)
passWord = ''; //Pass here.
nickName = ''; //3-4 lowercase letters from your username.
bankPin = ''; //Bankpin here.
World = 10;//World you want to login.
LampXpIn = 'Farming';//Skill you want exp in from the genie.
Simba Code:
if not LoggedIn then
LoginPlayer;
In "StartUpClient" should be:
Simba Code:
if not LoggedIn then
LoginPlayer;
For standards.
Should be:
Simba Code:
function EnterResource: boolean;
begin
if (ClickObject(2175656, 4079680, 25, 25, 5, 'yster', 'nter', false)) then
begin
result := true;
end;
end;
Could be:
Simba Code:
function EnterResource: boolean;
begin
Result := (ClickObject(2175656, 4079680, 25, 25, 5, 'yster', 'nter', False));
end;
Same with your 'ExitResource':
Simba Code:
function ExitResource: boolean;
begin
Result := (ClickObject(2175656, 4079680, 25, 25, 5, 'yster', 'xit', false));
end;
Your MineOre could be changed to:
Simba Code:
function MineOre: boolean;
begin
AntiRandoms;
while Mining do
Wait(50+random(100));
Result := (ClickObject(AColor, BColor, 25, 10, 5, 'ocks', 'ine', true));
end;
Everything else is just repeated of what I have already pointed out. You need to work on your standards and add multiplayer. Once you do that, I'd like for you to apply to SRL members. I have a good feeling that you have a great shot at getting in, to be honest with you.
Great script though. It's awesome to see members contributing!