SRL Archive - Test corner

uhh this is the print progress report if anyone needs it

Procedure PrintProgressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds,avtime:LongInt;
Time:String;

Begin
  Seconds:=(GetSystemTime-ST) div 1000;
  Minutes:=Seconds div 60;
  RHours:=Minutes div 60;
  Time:=inttostr(Seconds)+'seconds';
  avtime:=Seconds/banked;
  if Minutes<>0 then
     begin
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=inttostr(Minutes)+' minute(s) '+inttostr(RSeconds)+' seconds ';
     end;
  if RHours<>0 then
     begin
       RMinutes:=Minutes Mod (RHours*60);
       RSeconds:=Seconds Mod (Minutes*60);
       Time:=inttostr(RHours)+' hour(s) '+inttostr(RMinutes)+' minute(s) '+inttostr(RSeconds)+' seconds';
     end;
  writeln('|==============Script Name================|');
  writeln('|PROGRESS REPORT:');
  writeln('|Worked for '+Time+'');
  writeln('|§mined/cut/thieved etc§ and banked '+inttostr(banked)+' time(s) '+inttostr(banked*§amount if items that are banked each time§)+' '§Item at hand§');
  writeln('|Currently Averaging '+inttostr(3600/avtime*§amount if items that are banked each time§)+' '§Item at hand§' per hour');
  writeln('|=========================================|');
End;[CODE]

use code tags and some standards with it, also here is one i made that gets down to the rounded amount (not numbers like 2600, but 2781..) uses SRL time instead of using the global ST

just a different alternative

procedure ProgressReport;
var ProgCounter, Hours, Minutes, Seconds, TSeconds, RoundedRate :Integer;
    Rate :Extended;
    Time :String;
begin
  If(ProgCounter = 50)Then
    begin
      ClearDebug;
      ProgCounter:= 0
    end;
  Hours:= ScriptTime(1)
  Minutes:= ScriptTime(2)
  Seconds:= ScriptTime(3)
  If(Hours>0)Then
    begin
    TSeconds:=TSeconds + (Hours*3600)
    end;
  If(Minutes>0)Then
    begin
    TSeconds:=TSeconds + (Minutes*60)
    end;
  If(Seconds>0)Then
    begin
    TSeconds:=TSeconds + Seconds
    end;
  Time:= inttostr(Hours)+ ' Hours, ' +inttostr(Minutes)+ ' Minutes, and ' +inttostr(Seconds)+ ' Seconds.'
  If(ItemCount>0)Then
    begin
      Rate:= (Items/TSeconds)*3600
      RoundedRate:=Round(Rate)
    end;
  WriteLn('')
  WriteLn('<<----------------Progress-Report---------------->>')
  WriteLn('Worked For ' +Time)
  WriteLn('Bought ' +inttostr(ItemCount)+ ' Items So Far.')
  WriteLn('Averaging About ' +inttostr(RoundedRate)+ ' Items Per Hour.')
  WriteLn('<<----------------------------------------------->>')
  ProgCounter:= ProgCounter + 1
end;

ok thanks man if u have the time maybe you could explain a little of that to me im kinda nooby:rolleyes:

lol you just posted the same thing

heh.. deleted it :p

you got msn? if so ill get on right now..

From: canofpeople
lol you just posted the same thing

ugh? i dont see any same things in here :S

From: c0de
ugh? i dont see any same things in here :S

he deleted it please dont post if you dont know how to use the forums

lol canofpeople, be easy please, you forgot to use code tags so you kinda dont know how to use forums :p

c0de.. i just deleted the post because i accidentally double posted..

koolo thanx ill inclue to a couple of scripts of mine