[[please use scar tags when posting a script 
makes things much easier.]]
but anyways it's because you declared the variable 'tree' as a local variable so basically it's only known in the the procedure 'LoadImages'
you need to declare it globally(like i did below)
SCAR Code:
program AirRunes;
{.include SRL/SRL.scar}
var
Tree : Integer;
//declare it usually in the beginning of your script that way it can be used in ANY procedure/function
// ----------------------------------------------------------------------------------------- //
procedure DeclarePlayers;
begin
HowManyPlayers := 5 ; // Number of characters you will use.
NumberOfPlayers (HowManyPlayers) ; // Leave like this.
CurrentPlayer := 0 ; // The number of the starting player.
Players[0].Name :=''; // Character Name
Players[0].Pass :=''; // Character Pass
Players[0].Nick :=''; // Three letters of your Character name.
Players[0].Active := True;
Players[1].Name :=''; // Character Name
Players[1].Pass :=''; // Character Pass
Players[1].Nick :=''; // Three letters of your Character name.
Players[1].Active := True;
Players[2].Name :=''; // Character Name
Players[2].Pass :=''; // Character Pass
Players[2].Nick :=''; // Three letters of your Character name.
Players[2].Active := True;
Players[3].Name :=''; // Character Name
Players[3].Pass :=''; // Character Pass
Players[3].Nick :=''; // Three letters of your Character name.
Players[3].Active := True;
Players[4].Name :=''; // Character Name
Players[4].Pass :=''; // Character Pass
Players[4].Nick :=''; // Three letters of your Character name.
Players[4].Active := True;
Writeln (' Using ' + IntToStr(HowManyPlayers) + ' Players ') ;
end;
// ----------------------------------------------------------------------------------------- //
procedure Papenco;
begin
Writeln( ' ________ ___ ________ ________ __ __ ________ ________ ');
wait(200);
Writeln( ' | ___ | / _ \ | ___ | | _____| | \ | | | _____| | _____ |');
wait(200);
Writeln( ' | |__| | / /_\ \ | |__| | | |_ | \ | | | | | | | |');
wait(200);
Writeln( ' | _____| / ___ \ | _____| | _| | \ | | | | | | | |');
wait(200);
Writeln( ' | | | / \ | | | | |____ | |\ \| | | |____ | |___| |');
wait(200);
Writeln( ' |__| |_| |_| |__| |_______| |_| \___| |_______| |_______|');
wait(200);
Writeln( ' Papenco Presents ' );
wait(2000);
Cleardebug;
Writeln('Papenco´s Air Runes Runecrafter');
wait(1000);
end;
// ----------------------------------------------------------------------------------------- //
procedure LoadImages;
begin
Tree := BitmapFromString(17, 17, 'beNrNUl0LgkAQ3B3X0jQfIglC' +
'Q9LeeigIevX//6p07/yKU5+ChmFZjpnbWe6IfgRWOgGAPe0CrZ6Vs' +
'raiHIsNyFg26jIKDEb3LIymiHpldN5HZesOwzA+BPykyysp69 35fm' +
'yVvtLkxPeENE3z8hQXdH0nFcujvlmLqBgzyaChipZVv8MktMP SSLK' +
'csoz2cZvFUDeDzD9BJRG6vWVgY4HT0twZbW2jFUphAq+9NSCT ISb0' +
'Cvyu+nZ7LOsx5eJX+wd8AO/+BeE=');
end;
// ----------------------------------------------------------------------------------------- //
procedure GoToAltar;
var
x, y, T, FallyRoadColor, RoadColor: integer;
begin
T:= 0;
FallyRoadColor:= FindFallyRoadColor;
RadialRoadWalk(FallyRoadColor ,210 ,225, 2, -2, 75);
flag;
wait(150 + random(100));
FallyRoadColor:= FindFallyRoadColor;
RadialRoadWalk(FallyRoadColor ,165 ,195, 0, -1, 65);
flag;
wait(100 + random(150));
Repeat
RoadColor:= FindRoadColor;
RadialRoadWalk(RoadColor, 165, 195, -1, 0, 65);
flag;
wait(50 +random(200));
T:= T+1;
100 until T= 3;
101 RoadColor:= FindRoadColor;
102 RadialRoadWalk(RoadColor,250, 300, 0, 0, 70);
103 flag;
104 wait(200 + random(50));
105 FindBitmapIn(Tree, x, y, 845, 245, 883, 280);
106 Mouse(x, y);
107 flag;
108 wait(150 + random(150));
end;
begin
SetupSRL;
Papenco;
DeclarePlayers;
LoadImages;
GoToAltar
end.
Hope this helps 
Derek-