Whats wrong with SMART

[IsoMorphic]

So i made a simple Clay min3r and b4nker script and i define smart with my declare players and then login player, in the browser it works, why wont it with my smart? i would honestly prefer smart in my script.

My begin end. thing:

begin


SetupSRL;
DeclarePlayers; //This runs your DeclarePlayers procedure, making sure that the script has a player to run.
LoginPlayer; //This logs in your player.
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
Repeat
FindNormalRandoms;
AntiBan;
ClayColour;
MineClay;
if(InvFull) then
begin
WalkBank;
wait(3000 + Random(2000));
Bank;
wait(2000 + Random(2000));
WalkMine;

End;

Until(false)




end.

ALSO just a test, WTF IS BANANA TEST!

[John]

we need the whole script.

[IsoMorphic]

Ok, here it is! (im not too eager for the skids C+Ping my script but ok!


{************************************************* ******************************
Have your Pickaxe equipped or in toolbelt otherwise this script will bank it!

************************************************** *****************************}
program Clayminr;
//{$DEFINE SMART}
{$i SRL\SRL.simba}
{$i sps/sps.simba} //Walking around
Var
myPath, myPath2:TPointArray;

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

Players[0].Name := 'fisherblue23'; //Your Runescape username here.
Players[0].Pass := 'harrison'; //Your Runescape password here.
Players[0].Active := True; //Set to True if you want to use this player. Set to False to disable this player.
Players[0].Pin := 'Your_Bank_PIN'; //Put your Bank PIN here. Leave alone if you don't have a Bank PIN.
end;
function ClayColour: Integer;
var
arP: TPointArray;
arC: TIntegerArray;
tmpCTS, i, arL: Integer;
X, Y, Z: Extended;
begin
tmpCTS := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
SetColorSpeed2Modifiers(0.03, 3.54);

FindColorsSpiralTolerance(MSCX, MSCY, arP, 8373741, MSX1, MSY1, MSX2, MSY2, 6);
if (Length(arP) = 0) then
begin
Writeln('Failed to find the color, no result.');
ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);
Exit;
end;

arC := GetColors(arP);
ClearSameIntegers(arC);
arL := High(arC);

for i := 0 to arL do
begin
ColorToXYZ(arC[i], X, Y, Z);

if (X >= 47.66) and (X <= 68.88) and (Y >= 48.40) and (Y <= 69.92) and (Z >= 24.26) and (Z <= 35.08) then
begin
Result := arC[i];
//Writeln('AutoColor = ' + IntToStr(arC[i]));
Break;
end;
end;

ColorToleranceSpeed(tmpCTS);
SetColorSpeed2Modifiers(0.2, 0.2);

if (i = arL + 1) then
//Writeln('AutoColor failed in finding the color.');
end;
Procedure AntiBan;

Begin
case Random(20) of
0:BoredHuman;
1:PickUpMouse;
2:ExamineInv;
3:GameTab(tab_Stats);


End;

End;
Procedure MineClay;
var
x, y, PlusOne, timer: integer;
begin
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
PlusOne := InvCount + 1;
x := MSCX;
y := MSCY;


//if FindObj(x, y, 'ocks', ClayColour, 5) then
if FindObjTPA(x,y,ClayColour,3,2,2,2,2,['Mine']) then

Mouse(x,y,0,0,true);
ChooseOption('Min');
Flag;
MarkTime(timer);
repeat
AntiBan;
wait(6000);
Until(InvCount = PlusOne) or (TimeFromMark(timer) > 10000 + random(100))
if(InvCount = PlusOne) then
writeln('Mined Clay');


End;
Procedure WalkBank;
begin
FindNormalRandoms;

SPS_Setup(RUNESCAPE_SURFACE,['10_7', '11_7']);

myPath := [Point(4165, 3057), Point(4186, 3051), Point(4194, 3048), Point(4199, 3037), Point(4207, 3028), Point(4213, 3018), Point(4221, 3006), Point(4227, 2987), Point(4236, 2971), Point(4252, 2971), Point(4275, 2971), Point(4302, 2972), Point(4309, 2977), Point(4320, 2984), Point(4342, 2984), Point(4370, 2986), Point(4397, 2983), Point(4411, 2985), Point(4419, 2987), Point(4438, 2987), Point(4467, 2976), Point(4485, 2967), Point(4494, 2949), Point(4522, 2936), Point(4556, 2936), Point(4559, 2934), Point(4580, 2924), Point(4579, 2911), Point(4579, 2906)];
Disguise('Walking to bank');

SPS_WalkPath(myPath);

end;
Procedure Bank;
begin
Disguise('Banking our clay');
if OpenBankFast('vwb') then
DepositAll;
End;

Procedure WalkMine;
Begin
FindNormalRandoms;
RestUntil(100);
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
SPS_Setup(RUNESCAPE_SURFACE,['10_7', '11_7']);
myPath2 := [Point(4582, 2915), Point(4545, 2937), Point(4525, 2940), Point(4504, 2943), Point(4496, 2952), Point(4486, 2961), Point(4477, 2970), Point(4456, 2985), Point(4426, 2985), Point(4392, 2976), Point(4354, 2990), Point(4331, 2990), Point(4313, 2985), Point(4302, 2979), Point(4288, 2975), Point(4274, 2975), Point(4244, 2989), Point(4223, 3027), Point(4213, 3045), Point(4208, 3060), Point(4195, 3060), Point(4176, 3060), Point(4168, 3058)];
SPS_WalkPath(myPath2);
Writeln('Walking back to mine');
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH)
End;




begin

SetupSRL;
DeclarePlayers; //This runs your DeclarePlayers procedure, making sure that the script has a player to run.
LoginPlayer; //This logs in your player.
MakeCompass('N');
SetAngle(SRL_ANGLE_HIGH);
Repeat
FindNormalRandoms;
AntiBan;
ClayColour;
MineClay;
if(InvFull) then
begin
WalkBank;
wait(3000 + Random(2000));
Bank;
wait(2000 + Random(2000));
WalkMine;

End;

Until(false)




end.

[IsoMorphic]

Although above SMART isnt commented out when i try smart obviuously, im just coding the script usin the browser

[Kyle Undefined]

You left your account credentials in the script. PM'ing you a new pass.