I havnt been on scar for a while and re-opend my 1st old script 
but it doesnt work 
im getting a 'CreateTPAFromBMP' error,
I think it's because its old :P
please can some1 try and fix it
thankyou 4 ur time
heres the script;
SCAR Code:
//=======South Varock OakOblivion========//
// //
// 1. Position yourself south of varrock //
// - by the oak trees facing north. //
// 2. Enter you login details. //
// ##IMPORTANT## //
// AXE MUST BE EQUIPTED //
// 3.Press play and watch the lvls go //
// up //
//=======================================//
///////////////////////////////////////////
{=========================================
program VarrockSouth_OakOblivionV1;
{.include SRL/SRL.scar}
var
i,x,y:Integer;
const
TreeColor = 926756;//the color of the tree
Procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := '---------'; //UserName
Players[0].Pass := '---------'; //Password
Players[0].Nick := '----'; //Your Nickname - 3-4 leters
Players[0].Active := True; //Active
Writeln('Using '+IntToStr(HowManyPlayers)+' Players');
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
end;
procedure Signiture;
begin
writeln('T'); // sig
writeln('O');
writeln('M');
writeln('D');
writeln('A');
writeln('V');
writeln('I');
writeln('E');
writeln('S');
end;
procedure Login; //Login
begin
if (not(LoggedIn)) then //If not logged in then logs in player
LoginPlayer;
end;
procedure CutTree; //Cuts the Trees
begin
i:= 0;
repeat //repeats
i:=i + 1;
if(FindColor(x,y,TreeColor,0,0,700,700)) then // Search's for TreeColor
begin
Wait(3000 +random(500))
Mouse(x, y, 3, 3, True); // Moves mouse
Wait(9000 +random(500));
end;
wait(200+random(250)); //Not to lag out RS (Increase if needed)
until(InvFull) or (i>700000); //change this to whatever u need
if(i>700000)then //change this aswell
begin
writeln('Logging out, cant find tree.');
Logout;
end;
end;
procedure Drop; //Drops logs
begin
DropAll; // Drops Everything
end;
begin
SetupSRl; // setup srl
Signiture; // setup sig
DeclarePlayers; // Declare Players
if (not(LoggedIn)) then Login;
repeat // Repeat these functions
CutTree; // Cut
Drop; // Drop
until(false) // Until stoped
end. // Finished