PDA

View Full Version : [Utility] Universal Proggy System



Sin
04-20-2012, 02:49 PM
procedure Proggy;
var
StartTime:Integer;
XP,XPH,Sec:Integer;
begin
ClearDebug;
XP := GetXPBarTotal - Players[CurrentPlayer].Integers[0];
Sec:= (1+((Getsystemtime-StartTime)/1000));
XPH := (3600*XP) / (SeC);
//Your other vars go here

writeLn('============Proggy============');
writeLn('Time Running: ' + TimeRunning);
writeLn('XP Earned: ' + IntToStr(XP));
writeLn('XP/h: ' + IntToStr(XPH));
//other stuff
//other stuff
writelN('===================================');
end;

Add that before your main loop:

StartTime:=GetSystemTime;
if (Players[CurrentPlayer].Integers[1] = 0) then
begin
if not IsXPBarOpen then ToggleXPBar(true);
Players[CurrentPlayer].Integers[0] := GetXPBarTotal;
Players[CurrentPlayer].Integers[1] := (Players[CurrentPlayer].Integers[1] + 1);
end;

Should save you guys a lot of time =]

Sir Ducksworthy
04-20-2012, 02:54 PM
The Leeches sure will be bloodsucking'ly Happy with you today, Sin XD

Imanoobbot
04-20-2012, 02:56 PM
Pretty cool!
+Rep

tls
04-20-2012, 06:10 PM
There is already a universal proggy system included in srl/misc...

Abu
04-20-2012, 06:13 PM
There is already a universal proggy system included in srl/misc...

*facepalmed*

the flea
04-20-2012, 06:13 PM
check out reports.simba in misc

E: already said woops

Hitman1531
04-20-2012, 06:20 PM
thanks

Sin
04-20-2012, 07:34 PM
Half the people don't know reports.simba exist.
And abu, you say MY attitude is bad?

I do believe that meme applies to this.

Joe
04-20-2012, 08:00 PM
I appreciate it..
rep+ but I have to rep someone else first

Olly
04-20-2012, 08:02 PM
I didn't know reports.simba existed before this thread lol :p I used Abu's tutorial before.

Sin
04-20-2012, 08:03 PM
I didn't know reports.simba existed before this thread lol :p I used Abu's tutorial before.

My point proven.

Sex
04-20-2012, 08:05 PM
Save me a lot of time? Maybe 3 minutes.

Sin
04-20-2012, 08:09 PM
Save me a lot of time? Maybe 3 minutes.

Doing frost dragons = 2.5m/h.
2.5m / 60 = 41666.66666666667.
41666 x 3 = 120k
Saved you 120k / $0.06 ^^

tehq
04-20-2012, 08:12 PM
Doing frost dragons = 2.5m/h.
2.5m / 60 = 41666.66666666667.
41666 x 3 = 120k
Saved you 120k / $0.06 ^^


6 whole cents! ;) Could be helpful for newcomers, good job.

BuckWild
05-07-2012, 02:47 AM
Thanks a ton for this