SRL Archive - Help and Support

Hello, I'm trying to use the .Worked variable in the player array types.

Unfortunately, all I'm getting in my progress report is

-- Work: 0 mins.

I'm not doing anything for it, just using

WriteLn(' -- Work: ' + IntToStr(Players[I].Worked) + ' mins.');

Is there something else I need to do to other than just use it? because right now It's just a zero…

Thanks,

IceFire.

It should show after the next player is logged in.

Is there anything I can do to avoid that? In other words, make it pick up before that happens?

No. If you want to get the time while it is running you would have to ues a time mark

Oh, I see…

When the character logs out then it uses TimeFromMark, gotcha..

I need to find a way were it only displays the worked time for players who aren't currently being used, any ideas?

From: Icefire908
Oh, I see…

When the character logs out then it uses TimeFromMark, gotcha..

I need to find a way were it only displays the worked time for players who aren't currently being used, any ideas?

When it hasn't been used yet (or it hasn't logged out yet….) it should always display 0 mins. If it is used before however, it displays the old time in minutes. Hopefully that's what you meant. ;D

I mean, like in my proggy report I don't want inaccurate time displaying, so I need a way of only showing the minutes worked for players who aren't currently being used…

mark time and time from mark?


ok make an array of integer….


here let me make an example…


hopefuly you get what i mean:

var
  I : Integer;
  PlayerI : Array of Integer;

begin
  MarkTime(I)
  //bah blah
  PlayerI[currentPlayer]:=TimeFromMark(I);
end;

and add this if you want it in mins:

PlayerI[currentPlayer]:=((TimeFromMark(I)/ 1000) / 60)

Ok thanks.

np.. if you have any errors with that just ask me… that was off the top of my head………. i wrote the code in my post and not scar i think it looks about right :\

Integer Worked is used in SRL stats sytstem, so I think its zero because SRLRandomsReport makes it's value to 0 everytime when report is sent to SRL.

Also there is PlayerStarTime, which is time from that when player logs in, it returns as seconds.

Add PTime and FTime as integer globals and player in a string global then run this procedure after logins. It will count up the time for you and add it into Worked. Personly I run this in the progress procedure so each time I give a progress it has live updates, and it saves it's own time so that it doesn't reset each time you run it.

procedure Playertiming;
begin
  if Player=Players[CurrentPlayer].Name then
  begin
    FTime := FTime + TimeFromMark(PTime);
    MarkTime(PTime);
    Players[CurrentPlayer].Worked := (FTime/1000)/60;
  end else
  begin
    Player:=Players[CurrentPlayer].Name;
    MarkTime(PTime);
    FTime := 0;
  end;
end;

From: grindisbest
Add PTime and FTime as integer globals and player in a string global then run this procedure after logins. It will count up the time for you and add it into Worked. Personly I run this in the progress procedure so each time I give a progress it has live updates, and it saves it's own time so that it doesn't reset each time you run it.

procedure Playertiming;
begin
  if Player=Players[CurrentPlayer].Name then
  begin
    FTime := FTime + TimeFromMark(PTime);
    MarkTime(PTime);
    Players[CurrentPlayer].Worked := (FTime/1000)/60;
  end else
  begin
    Player:=Players[CurrentPlayer].Name;
    MarkTime(PTime);
    FTime := 0;
  end;
end;

Wow, thanks!

I'm not sure if you should use worked variable… look this link: http://www.srl-forums.com/forum/showpost.php?p=97579&postcount=5

Yea… But still… Hmm.. Look at this link, this is how you do it right: http://www.srl-forums.com/forum/showpost.php?p=97627&postcount=6

Well, when you add worked variable wrong, this is what follows:

http://www.villavu.com/forum/showthread.php?t=7885
http://www.villavu.com/forum/showthread.php?t=10283
http://www.villavu.com/forum/showthread.php?t=7883

So you can decide by yourself. :D

Oh is that what happened with JuKKa having like 249857372 mins, I thought he was just screwin around haha.

he was screwing around :p

and then did it intensionally.

so ya just setup a new var like..

MarkTime(Player[currentplayer].integer1)


just replace worked with integer1…..





like so :

procedure Playertiming;
begin
  if Player=Players[CurrentPlayer].Name then
  begin
    FTime := FTime + TimeFromMark(PTime);
    MarkTime(PTime);
    Players[CurrentPlayer].integer1:= (FTime/1000)/60;
  end else
  begin
    Player:=Players[CurrentPlayer].Name;
    MarkTime(PTime);
    FTime := 0;
  end;
end;

Ha, ok..

Lol, Pin is the only integer left I haven't used in my rune crafter, I guess I'll start having to make an extra array after this :sasmokin: