SCAR Code:
function OakXP: integer;
var OXP : integer;
begin
OXP := 37 * TotalLogs
result := OXP
end;
function WillowXP: integer;
var WXP : integer;
begin
WXP := 67 * TotalLogs
result := WXP
end;
function TreeXP: integer;
var TXP : integer;
begin
TXP := 25 * TotalLogs
result := TXP
end;
//[][][][][][][][][][][][][][][][][][][][]
//Progress Report <======================
//[][][][][][][][][][][][][][][][][][][][]
Procedure ProgressReport;
var XPGained : integer;
Begin
If NameofTree = ('Oak') then
XPGained := OakXP
If NameofTree = ('Willow')then
XPGained := WillowXP
If NameofTree = ('Tree') then
XPGained := TreeXP
ClearDebug;
WriteLn('')
WriteLn('<---------------------------------------------------------------->')
WriteLn('<Script has been running for ' + TimeRunning + '.')
WriteLn('<---------------------------------------------------------------->')
WriteLn('<Script has chopped and dropped ' +IntToStr(TotalLogs) + ' logs.')
WriteLn('<---------------------------------------------------------------->')
WriteLN('<You have gained a total of ' + IntToStr(XPGained) + 'experience')
WriteLN('<---------------------------------------------------------------->')
end;