Yaaay!! got it to work 
Successfully compiled
Line 5: [Hint] (15995:1): Variable 'NORMALLOG' never used in script C:\Documents and Settings\Aram & Peyman\Skrivbord\Burner.scar
Line 5: [Hint] (15995:1): Variable 'OAKLOG' never used in script C:\Documents and Settings\Aram & Peyman\Skrivbord\Burner.scar
Line 5: [Hint] (15995:1): Variable 'WILLOWLOG' never used in script C:\Documents and Settings\Aram & Peyman\Skrivbord\Burner.scar
Line 5: [Hint] (15995:1): Variable 'MAPLELOG' never used in script C:\Documents and Settings\Aram & Peyman\Skrivbord\Burner.scar
Line 5: [Hint] (15995:1): Variable 'YEWLOG' never used in script C:\Documents and Settings\Aram & Peyman\Skrivbord\Burner.scar
Line 5: [Hint] (15995:1): Variable 'MAGICLOG' never used in script C:\Documents and Settings\Aram & Peyman\Skrivbord\Burner.scar
SRL Compiled in 15 msec
Successfully executed
just changed some stuff like Mixter said
SCAR Code:
program ShortBurner;
{.include SRL\SRL.scar}
Var
NormalLog, OakLog,WillowLog,MapleLog,YewLog,MagicLog : Integer;
Const
CNormalLog = False;
COakLog = False;
CWillowLog =True;
CMapleLog =False;
CYewLog =False;
CMagicLog =False;
Var
DNormalLog, DOakLog,DWillowLog,DMapleLog,DYewLog,DMagicLog,TinderBox : Integer;
Procedure LoadDTMs;
begin
DNormalLog := DTMFromString('78DA63E4636060E06540010DC9D60CFF81342' +
'30CCB0209165435AE36C6609A11CA6704C9B3115003B28B19558D' +
'879D29AA1A2620218EAAC6DBC90A550DC83D1204EC12C05403938' +
'5AB91061202A82A6A13AD30DD2388AAA63A5C1E450D003D5E08E4' +
'');
DOakLog := DTMFromString('78DA63E4636060E06640017D794E0CFF81342' +
'30C4B0309165435060A0A609A11CA676406126CA86A3CEC4C51D5' +
'80EC624255E3ED6485698E28AA1A4F3B0B54355240420C4D8D039' +
'A5DBC986A40FE425103F2171FAA9ACE2C7B143500389C0913');
DWillowLog := DTMFromString('78DA63E4656060E0674001DE2ED20CFF81342' +
'3103381681920C18AAAC6D94A0F4C3342F98C2C40829D010D30A2' +
'AA01D9C586AA22C04316550DC842315435AE36C6A86AA48184040' +
'135203F8913700FC85F02987E47560300F69D0628');
DMapleLog := DTMFromString('78DA6314626060E0634001B95EBC0CFF81342' +
'3103381682520C18CAAC6D3C1144C3342F98CCC986A3CECD0D480' +
'08095435CE567AA86A40764911B04B10D39C425F3E54358A40821' +
'F554DB41D37A69BF9F1DB0500F07107F0');
DYewLog := DTMFromString('78DA63E4616060E063400141765C0CFF81342' +
'3103381685920C182AAC6D5C6184C3342F98C4C44A80199238EAA' +
'C6DBC90A550D2BA61A4F075354355240821F554D82070FA67BD0F' +
'C156ECA8DA20600AD3E06AC');
DMagicLog := DTMFromString('78DA6314606060E06340017969F60CFF81342' +
'30C2B0009565435DE4E56609A11CA6704319888502386AAC6D5C6' +
'18558D22909020600E3390104055535B84A64606D35FD525C1A86' +
'AF8818424AA1A03050554352033D850D57435C5A2A80100E4B70A' +
'82');
TinderBox := DTMFromString('78DA63E4676060106040014B67CE64F80FA41' +
'981980944CB0209665435DE4E56609A11CA6704C9B3A1AAF1B033' +
'45550362481130471248C8A0AAF174403387054808A2AA59367B1' +
'6AA1A69202184AAA6343717550DC80C56543559C949A86A7831DD' +
'3C7FCA1414350052B30D29');
end;
procedure DeclarePlayers;
begin
NumberOfPlayers(1);
CurrentPlayer := 0;
Players[0].Name := 'Username'; //Name
Players[0].Pass := 'Pass'; //Password
Players[0].Active := True;
Players[0].Nick := 'Nick';
end;
Procedure BurnLogs;
var X, Y,DNormalLog : Integer;
Begin
if(CNormalLog = True)then
begin
if(FindDTM(DNormalLog, x, y, 100, 100, 500, 300)) then
Mouse(X, Y, 0, 0, True);
if(FindDTM(TinderBox, x, y, 100, 100, 500, 300)) then
Mouse(X, Y, 0, 0, True);
Writeln ('We Just Burned 1 Normal Log!');
FreeDTM(DNormalLog);
end;
end;
begin
SetUpSRL;
LoadDTMs;
DeclarePlayers;
if(not(LoggedIn))then
LogInPlayer;
BurnLogs;
end.
Edit: those vars will be used soon