Help please scar isent working properly

Hi guys this is the first time i am going to use scar and i needed a woodcutter but i found 2 and both give me the same problem they say:
Failed When Compiling
line 58: [Error] (256:11) : unknown identifier 'CreateTPAFromBMP' in scropt C:\Program Files\SCAR 3.15\includes\SRL/SRL/Core/Math.scar

This is script:
{
Time usage recomendation: Check on it ocasionaly.
Class of script: Auto-leveler
Complexity 1-10: 2
Bugs: Make sure after you run it you click on the top internet explorer bar so it turns blue. Otherwise its typer wont work.
Notes: Works best with regular trees, but will find any tree. Sorry theres no antirandoms, look for them in V 2.0
you may need to change the color of the tree in line 44. But try the defualt color
first.
-----------------------------------------------------------
WORKS BEST IN VARROCK BY THE 3 TREES NEAR THE GEN. STORE

{.Script Info:
# ScriptName = Basicut
# Author = GMK
# Description = A simple tree cutter.
# Version = 2.0
# Date = January 9th 2008
# Comments = You will love the simplicity.
/Script Info}
program Basicut;
{.include SRL/SRL.scar}

const
Waitt= 4000;//the time between cutting

var
x,y:integer;
l,lo:integer;

procedure comp;
begin
l:=0
lo:=0
ActivateClient;
cleardebug;
wait(10)
perfectnorth;
writeln('Basicut made by GMK')
ActivateClient;
end;


procedure chop;
begin
if FindColorSpiralTolerance(x,y,994343,52,26,468,260,3) then
Mouse(x,y,2,2,true)
l:=l+1
wait(waitt + random(10))
end;

procedure drop;
begin
if l=27 then
begin
DropToPosition(2,28)
l:=0
end;
end;

procedure antiban;
begin
if lo=10 then
PickUpMouse; // An interesting litle addin
if lo=15 then
SayCurrentLevels('woodcutting') // just says your wc level
if lo=25 then
typesend('white:')// looks like your bored;
if lo=40 then
AlmostLogout;// hmmmm to logg or not to logg
if lo=50 then
movemousesplineex(x+20,y+20,1,1,10,35,65)// moves mouse over a bit
if lo=50 then
lo:=0
end;

Procedure Randomss;
Begin
wait(10)
Wait(13);
FindTalk;
UseCerterSolver := True
UseSandwichSolver :=True
FindMaze;
wait(10)
Solvepinball;
Wait(10)
begin
if (FindFight) then
begin
RunAwayDirection('N');
Wait(8500 + random(3500));
RunBack;
end;
end;
end;




begin
SetupSRL;
comp;
repeat
lo:= lo+1
wait(10 + random(1))
chop;
wait(10 + random(1))
Randomss;
wait(10 + random(1))
drop;
wait(10 + random(1))
antiban;
until(false)
end.

please help me guys i really want to use it
thank you

 

Hey tis my script i feel loved = )

umm theres a new version out in the scar script section its called basicut 4.1

look for that.

 

ok thank you