Need help with thsi script

[b12hitman]

This script isn't mine it's called the limocosher a theiving exp based script

program new;
{$DEFINE SRL5}
{$i srl/srl/misc/smart.simba}
{$i srl/srl.simba}
{$i SRL/SRL/misc/paintsmart.simba}
var
x, y, DTMTrainer, DTMFall, TimeBegan, StartingXP, fails, BMPLogo: Integer;
step: string;
aFound: Extended;

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

Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
Players[0].BoxRewards := ['lamp', 'cook', 'emote', 'costume', 'saphire', 'essence'];
PlayersSkill := 'lamp';
end;

procedure SetDTM; //DTM Defining procedure.
begin
DTMFall := DTMFromPlayer('mQwAAAHicY2ZgYOBkZGBgB2I2IO4F8juAuA +Ib+wtZ4jPrmVIzK1nEAHyYZgRCQMBAPmnBp8=');
DTMTrainer := DTMFromPlayer('mQwAAAHicY2YAAkYGBmYg/gtkHgXiI0B8GIirVd0Y6tU8wFgEyIdhRiQMBAAIJwZR');
end;

procedure FreeThings;
begin
FreeDTM(DTMTrainer);
FreeDTM(DTMFall);
end;

procedure SafeExit;
begin;
FreeThings;
TerminateScript;
end;

procedure AntiBan;
begin
if not(LoggedIn)then
SafeExit;
Case Random(100) Of
begin
writeln('Antiban activated: Hovering Thieving.');
HoverSkill('thieving', False);
end;
begin
writeln('Antiban activated: Hovering random skill.');
HoverSkill('random', False);
end;
begin
writeln('Antiban activated: Bored Human.');
Boredhuman;
end;
begin
writeln('Antiban activated: MiniWait');
Wait(2500 + random(4500));
end;
begin
writeln('Antiban activated: Bored Human');
BoredHuman;
end;
begin
writeln('Antiban activated: PickUpMouse');
PickUpMouse;
end;
begin
writeln('Antiban activated: Random Movement');
RandomMovement;
end;
begin
writeln('Antiban activated: RandomRClick');
RandomRClick;
end;
end;
end;

Procedure MiniBreaker;
Begin
Case Random (160) Of
1: begin
writeln('MiniBreaker activated: 40-47s');
Wait(40000 + random(7400));
end;
2: begin
writeln('MiniBreaker activated: 25-34s');
Wait(25500 + random(8550));
end;
3: begin
writeln('MiniBreaker activated: 60-67s');
Wait(60040 + random(6759))
end;
4: begin
writeln('MiniBreaker activated: 20-23s');
Wait(20400 + random(2549));
end;
end;
end;

function ClickOn(PX:Integer; Click: Boolean) : Boolean;
begin
if FindDTMRotated(PX, x, y, MSX1, MSY1, MSX2, MSY2, -Pi, Pi, Pi/30, aFound) then
begin
Mouse(x, y, 1, 1, Click);
Result = True;
end else Result = False;
end;

procedure Report;
var
Exp, ExpHr, TimeRan: integer;
begin;
TimeRan := (1+((GetSystemTime - TimeBegan) / 1000));
Exp := (GetXPBarTotal - StartingXP);
ExpHr := Round((Exp * 3600) / (TimeRan));
writeln(' ');
writeln('-=]=-=[=LimoCosher=]=-=[=-');
writeln('| Runtime: ' + TimeRunning);
writeln('| XP: ' + IntToStr(Exp));
writeln('| XP/h: ' + IntToStr(ExpHr));
writeln('-=]=-=[=LimoCosher=]=-=[=-');
writeln(' ');
end;

Procedure Alert; // In case of randoms/other players
begin;
if FindNormalRandoms then
begin;
PlaySound(ScriptPath+ 'slap.wav');
Writeln('Random event detected.');
end;
if FindColorTolerance(x, y,16711680, 6, 344, 492, 456, 30) then
begin;
PlaySound(ScriptPath+ 'slap.wav');
Wait(RandomRange(2000,6000));
Logout;
SafeExit;
Writeln('Players tried talking to us! LOGGING OUT IMMEDIATELY!');
end;
end;

Procedure MainL33ch;
begin;
if (not(LoggedIn)) then SafeExit;
MouseSpeed := RandomRange(15,19);
if step = 'LureRC' then
begin;
if (fails > 5) then
begin;
writeln('Weird. I just cannot find the damned trainer...');
writeln('Sorry, but it is better to log out just to be safe.');
Logout;
SafeExit;
end;
if (not(ClickOn(DTMTrainer, False))) then
begin;
fails := fails + 1;
writeln('Cannot find trainer. Trying to wait... Failures: ' +
inttostr(fails) + '/5');
Wait(RandomRange(2000,3000));
end else step := 'LureRC2';
end;

if step = 'LureRC2' then
begin;
Wait(RandomRange(70,90));
ChooseOption('lure');
step := 'LureLC';
WriteLn('Attempting to lure the trainer');
Wait(RandomRange(950,1050));
GetMousePos(x, y);
MMouse(x - 3,y - 65, x + 3, y - 75);
end;

if step = 'LureLC' then
begin;
if AreTalking then
begin;
WriteLn('Dialog opened. Continuing to part 2.');
ClickContinue(True,False);
Wait(RandomRange(950,1050));
ClickContinue(True,False);
ClickOn(DTMTrainer,False);
step :='Knock';
fails :=0;
Wait(RandomRange(100,400));
end else
begin;
if fails < 3 then
begin;
fails := fails + 1;
Writeln('Failed ' + inttostr(fails) + '/3 times.');
Wait(RandomRange(100,125));
end else
begin;
fails := 0;
Writeln('Failed 3 times. Restarting.');
step:= 'LureRC';
end;
end;
end;

if step = 'Knock' then
begin;
ChooseOption('nock');
Wait(RandomRange(15,25));
step := 'LOOT';
fails := 0;
WriteLn('Knocked the fat-head out. Attempting to loot...');
ClickOn(DTMTrainer, False);
Wait(RandomRange(20,25));
end;

if step='LOOT' then
begin;
ChooseOption('loot');
Wait(RandomRange(15,25)); // 2nd loot
ClickOn(DTMFall, False);
Wait(RandomRange(20,25));
ChooseOption('oot');
wait(randomrange(15,25));
ClickOn(DTMFall, False);
Wait(RandomRange(20,25));
ChooseOption('loot'); // 3rd loot
fails := 0;
step := 'LureRC';
GetMousePos(x, y);
MMouse(x + randomrange(-2, 2),y - randomrange(45, 55),0,0);
end;

begin
Smart_Server := 84;
Smart_Members := True;
Smart_Signed := True;

Smart_SuperDetail := False;
ClearPlayerScreen;
SetupPlayer;
Declare Players;
Login Player;
SetDTM; //Set DTM's before code.
step := 'LureRC';
fails := 0;

SetBMP;
SMART_DrawBitmap(true, BMPLogo,Point(5,5));
SetChat('All',0);
SetChat('Off',2);
SetChat('Off',3);
SetChat('Off',4);
SetChat('Off',5);
ToggleXPBar(True);
StartingXP := (GetXPBarTotal);
TimeBegan := GetSystemTime;
repeat
if (not(FindNormalRandoms)) then
begin;
if not(TwoTimesTwo = 4) then TerminateScript;
MakeCompass('E');
SetAngle(SRL_ANGLE);
Alert;
MainLoop;
Antiban;
MiniBreaker;
Report;
end;
until AllPlayersInactive;
FreeThings;
end.

can someone tell me why im getting this error

[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1349:13): Variable 'Result' never used at line 1348
[Error] (23:3): Unknown identifier 'PlayersSkill' at line 22
Compiling failed.

[Abu]

Just change PlayersSkill at line 22 to:
LampSkill := SKILL_THIEVING;

[KeepBotting]

Agggg, use code tags next time!

[b12hitman]

still doesnt work i get

[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1353:3): Variable 'BOX' never used at line 1352
[Hint] C:\Simba\Includes\SRL/SRL/core/mapwalk.simba(1349:13): Variable 'Result' never used at line 1348
[Error] (23:32): Type mismatch at line 22

[momotron]

post on the damn script thread! And if the thread has been inactive for a few weeks, expect the script to not work.

[b12hitman]

its a working thread but the autor put a anti leech on it so it took my time to get at this far but its not working yet ima kinda newbie