SMART isnt working?

[Mahatna]

Hey guys finished my script but for some reason it wont work! i cant see anything wrong with any part of my script, only thing i can think of is the long delay in starting the client up because im on a bad laptop atm.

program new;
{$DEFINE SMART}
{$i srl/srl.simba}
Procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;

Players[0].Name :='****';
Players[0].Pass :='*****';
Players[0].Nick :='';
Players[0].Active:=True;
end;
Procedure ClickWill;
Var
Willow, X, Y: integer;
Begin
Willow := DTMFromString('mwQAAAHic42RgYOhghOAqIK4F4k4g7gPiqU A8AYgbgDgXiJOBOAeIK4C4HIjLgDgPiFOAOBWIjXT4gaYxEcCE ASMRGA4AkRQJPQ==');
IF FindDTM(willow, X, Y, MIX1, MIY1, MIX2, MSY2) Then
Begin
//If Isuptext('ill') Then
Mouse(X, Y, 10, 10, 1);
Wait(943+random(23))
End;
FreeDTM(Willow);
End;

Procedure FletchProcess;
Var
X, Y:integer;
begin
If(not(Loggedin)) then
Exit;
Begin
If FindColorSpiralTolerance(X, Y, 801885, 266, 400, 325, 459, 15) Then
Begin
wait(922+random(334));
Mouse( X, Y, 10, 10, 1);
Wait(900+random(200));
End;
FindColorSpiralTolerance(X, Y, 2070783, 215, 400, 305, 457, 15);
Mouse(X, Y, 10, 10, 1);
Wait(49876+random(3973));
End;
End;


function DepositAlll:Boolean;
begin
if (InvEmpty) then
begin
Result := True;
Exit;
end;

QuickDeposit(SRL_DEPOSIT_ALL);
Result := WaitFunc(@InvEmpty, 50, 3000);
end;

procedure Withdraww;
Begin
Withdraw(1, 1, 28);
CloseBank;
End;



Function OpeningBank:boolean;
Var
T:Integer;
begin
If OpenBankChest(SRL_Bank_CW) then
begin
MarkTime(T);
Repeat
If PinScreen then
InPin('4694');
Until((BankScreen)Or(TimeFromMark(T)>4000));
If BankScreen then
Result := True;end;
end;

procedure AntiBan;
begin
//if (not T_LoggedIn) then Exit;
//AutoRespond;
//FindNormalRandoms;
case Random(20) of //Chooses a random procedure to do below
//0: HoverSkill('random'); //Hovers a random skill
1: PickupMouse; //Simulates a human picking up their mouse
2: RandomRClick; //Does a random right click
//3: ExamineInv;
4: BoredHuman;
5: wait(546+random(342));
6: wait(546+random(342));
7: wait(546+random(342));
8: wait(546+random(342));
9: wait(546+random(342));
10: wait(546+random(342));
11: wait(546+random(342));
12: wait(546+random(342));
13: GameTab(tab_Friends); //Goes to the friends game tab
//If the random number is greater than 5, then SCAR won't do anything
//If SCAR does something every time this was called, it might look like a bot
end;
end;



begin
SetUpSRL;
ActivateClient;
DeclarePlayers;
LoginPlayer;
Repeat
ClickWill;
AntiBan;
FletchProcess;
AntiBan;
OpeningBank;
DepositAlll;
Withdraww;
Until(False);
end.

[Mahatna]

Thanks for those who Pm'ed me about leaving the account info in the script, luckily it was not my account nor my password just random info i put in :p

[Abu]

Lol I was just about to tell you!

However, now you need to edit your code again because as you can see - everything is blue :p

EDIT: You fixed it :)


EDIT2: Before SetupSRL in your mainloop, try adding this:
Smart_Server := 16;
Smart_Members := False;
Smart_Signed := False;
Smart_SuperDetail := False;