First script help plox.

[Tisa]

Well I have followed Grizz's really old tutorial and would like to make a script and keep working on it. I want to make a simple thing that picks up bones and soon bank them.

This is my script so far but for some reason it will not open the Runescape client... any help?



program new;
//{$DEFINE SMART}
{$i srl/srl.simba}

{$IFDEF SMART}
{$i srl/srl/misc/paintsmart.simba}
{$ENDIF}


procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

with Players[0] do
begin
Name := ''; // Username
Pass := ''; // Password
Active := True; // Set to true if you want to use Player 0
end;
end;

procedure AntiBan;
begin
if(not(loggedIn))then
Exit;
case Random(12) of
0:
begin
Hoverskill('Prayer', false);
wait(2453+Random(432));
end;
1: PickUpMouse;
2:
begin
MakeCompass('N');
wait(100+random(133));
MakeCompass('S');
wait(50+random(177));
MakeCompass('N')
end;
end;
end;

procedure PickBones;
var x, y: integer;
begin
repeat
FindNormalRandoms;
if FindObj(x, y, 'ick', 12698826, 12) then
begin
mouse(x, y, 2, 2, true);
chooseoption('ick');
end;
repeat
wait(400+random(250));
AntiBan;
Until not IsUpText('Bones') or (InvFull);
until(InvFull);
end;


procedure MainLoop;
begin
end;

begin
{$IFDEF SMART}
Smart_Server := 0;
Smart_Members := True;
Smart_Signed := True;
Smart_SuperDetail := False;
{$ENDIF}
SetupSRL();
ClearDebug();
DeclarePlayers();
LoginPlayer();
PickBones();
MainLoop();
end.

[one1988]

// before the smart on second line I believe is why you are having this difficulty remove it and it should work