A really awesome script... I like the DisguiseSCAR thing, it's really a nice touch that is a lot easier, you can flick on your monitor, glance at it, and leave again. Axe head finding didn't work for me the one time I saw it happen, but that's probably the exception to the rule...par for the course anyway, you lose a few axes, so what....
I know I'm being nitpicky, but in your debug report, it says
<Scrips has been running for ' + TimeRunning + '.'
Just a minor minor thing to keep in mind should you release a v6.
Oh ya, and it would be kind of nice if you could have an experience counter... I looked at the one The Nerd has and made my own: (there is probably a MUCH more concise way of doing this, I simply don't know of it)
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;
I also have an idea for levels gained, I'm not too familiar with the functions though, kind of like.... --> If StartLevel + XPGained > (the experience to next level, is there a function for this? ) then Writeln (you gained X levels).....or more simply, a thing that marks each time the congratulations you have gained a level text pops up.