This is my script. It's far from finished. Thx for helping me !
I don't post the includes, you know where to find them 
Code:
program Trifonius;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Firemaking.scar}
{.include SRL/SRL/skill/Woodcutting.scar}
var
x,y,i : Integer; //i is used for Iterations
FoundTB,FoundLogs : Boolean; //Used for finding/locating the items
TB: Tbox; //Used for finding TinderBox
procedure DeclarePlayers;
begin
//How many players do you want to use?
//Replace the 1 with the correct amount
NumberOfPlayers(1);
CurrentPlayer := 0;
{ -==- Player 1 -==- }
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Active := true;
end;
procedure CutWood;
begin
FindAxe; //<==== The problem! ====>//
end;
//end Cutwood;
procedure MakeTheFire;
begin
SetupFiremaking; //Loads the Firemaking bmp's (Fire, TinderBox, LogMask) Unload?
FoundTB:=true; //Resets the FoundTB
FoundLogs:=true; //Resets the FoundLogs
GameTab(4); //Makes sure the inventory is open
if(CountItemBmpMaskTol(TinderBox,10,10)=0) then //Checks for TinderBox
begin
Writeln('Could not find TinderBox');
FoundTB:=false; //Script ends here
end;
if(FoundTB=true) then //Only when TinderBox is found
begin
if(CountItemBmpMaskTol(LogMask,10,10)=0) then //Checks for Wood
begin
Writeln('Could not find Logs, lets make some');
CutWood; //No logs in inventory, start CutWood procedure!
FoundLogs:=false;
end;
if(FoundLogs=true) then //There are logs in the inventory
begin
WeHaveLogs( x, y); //Firemaking.scar function, returns x and y of logs
MMouse( x+15, y+15, 0, 0);Wait(500+random(100));
ClickMouse( x+15, y+15, false);Wait(500+random(100));
MMouse( x+15, y+15+25, 0, 0);Wait(500+random(100));
ClickMouse( x+15, y+15+25, true);Wait(500+random(100)); //Logs are being used now
FoundTB:=false; //Resets the FoundTB to use in the while loop
while(FoundTB=false) do //Here FoundTB is used to search the TinderBox' posistion in the Inventory
begin
TB := InvBox(i);
if ExistsItem(i) then //TinderBox inventory position found
if FindBitmapMaskTolerance(TinderBox, x, y, TB.x1, TB.y1, TB.x2, TB.y2, 10, 10) then //x and y of TinderBox is now stored in x and y
FoundTB:=true;
end;
MMouse(x+15,y+15,0,0);Wait(500+random(100));
ClickMouse( x+15, y+15, true);Wait(500+random(100)); //Make fire! Clicks TinderBox
end;
end;
end;
//end MakeTheFire
begin
SetupSRL;
DeclarePlayers;
LoginPlayer;
MakeCompass('n');
HighestAngle;
MakeTheFire;
end.