Ok i have NO idea what this error is plz help. This is my first script and it is not finished
Simba Code:
program Al_Kharid_Warrior_Killer;
{$i srl/srl/misc/smart.simba}
{$i SRL\SRL.simba}
{$i srl/srl/skill/fighting.simba}
////Used DemiseScythe tutorial for all DTM's////
var
x, y: Integer;
Q: Array [0..1] of Integer;
aFound: Extended;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; // Username
Players[0].Pass := ''; // Password
Players[0].Nick := ''; // 3-4 lowercase letters from username
Players[0].Active := True; // Set to true if you want to use Player 0
Players[0].Pin := ''; // Bankpin Here
Players[0].BoxRewards := ['Xp'];
end;
procedure FromBank;
begin
Q[0] := DTMFromString('mwQAAAHic42RgYJjExMBQBMSpQJwFxAlAHA7EdkBsAcSmQGwJVGcIxDJAnADEpkAcC8RKQJwFxPZAPL07BYx9is0Y3r9hArNbyyIYwrwMGNomzGRoztNk4AeqI4QZicBwAAB4iBJ0');
Q[1] := DTMFromString('mlwAAAHicY2dgYNjAxMCQCsTOQOwIxDVAbAzEQUCcD5QPAOJGIDYGYgco3xuIp9QEM/z6zgTGfkUWDKZJEgwzu9LAmB8ojwsz4sFQAACVeQ9w');
end;
procedure FrDTM;
begin
FreeDTM(Q[0]);
FreeDTM(Q[1]);
end;
/////All credit for anti-ban goes to kevin33////
procedure StatsGuise(wat:String);
Begin
Status(wat);
Disguise(wat);
End;
procedure FightingAntiban;
begin
Case Random(250) Of
0: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('attack', False) GameTab(28) End;
1: Begin StatsGuise('Antiban') SleepAndMoveMouse(7000 + Random(500)); End;
2: Begin StatsGuise('Antiban') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
6: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('strength', False); GameTab(28); End;
7: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('defence', False); GameTab(28); End;
8: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('ranged', False); GameTab(28); End;
9: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('magic', False); GameTab(28); End;
10: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('constitution', False); GameTab(28); End;
end;
begin
Smart_Server := 0;
Smart_Members := False;
Smart_Signed := True;
Smart_SuperDetail := False;
ClearDebug;
SetupSRL;
DeclarePlayers;
LoginPlayer;
MouseSpeed := 18;
MakeCompass('n');
SetAngle(SRL_ANGLE_HIGH);
FromBank;
FrDTM;
end;