Get time running not working properly?

[rj]

In my script in the main loop function i declare the "t" varible is equel to:

t := GetTimeRunning div 1000+1;

and each of my procedures displays:

Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));

But it only goes to 1 even if its been running more then 1 seconds..

[Wardancer]

1- You might want to create one consolidated thread for all your questions.

2- I suggest you to use TimeRunning include.

[rj]

1- You might want to create one consolidated thread for all your questions.

2- I suggest you to use TimeRunning include.

Not for rs

[Wardancer]

Doesn't matter if it's for rs or not. It returns the time since the script was started.

EDIT: I strongly suggest you to read the includes and try to understand them before posting. You'll learn a lot more this way. There usually is a description of what the procedure or function does.

[rj]

Doesn't matter if it's for rs or not. It returns the time since the script was started.

so how would i include that?
If it requires any addional downloads I would rather do it a different way so other people can use the script

[Wardancer]

so how would i include that?
If it requires any addional downloads I would rather do it a different way so other people can use the script

Please read the edit of my previous post. I believe you have all the necessary information to solve your problem.

[NKN]

GetTimeRunning automatically puts it into Hours Minutes Seconds i thought

[rj]

I see "thetime" and "timerunning" in the includes.And it appears that I am currently using "timerunning" and it's not working.. so..

[Wardancer]

GetTimeRunning automatically puts it into Hours Minutes Seconds i thought

I doubt it as TimeRunning uses GetTimeRunning as its ms variable.

EDIT:

I see "thetime" and "timerunning" in the includes.And it appears that I am currently using "timerunning" and it's not working.. so..

Read the actual function and its description. Also read the functions that are called by it. Try to understand what you're working with. You won't learn much otherwise.

[rj]

I doubt it as TimeRunning uses GetTimeRunning as its ms variable.

EDIT:



Read the actual function and its description. Also read the functions that are called by it. Try to understand what you're working with. You won't learn much otherwise.

Get an error when i include it...

{$i timing/timing.simba}

[Wardancer]

Get an error when i include it...

{$i timing/timing.simba}

It is already included by {$i srl/srl.simba}. You only have to add an extra line for the includes that aren't in the core folder of srl. An easy way to know if you have access to a function in an include is to search it from your script. If you can find it, there is no need to add any line.

[rj]

I'm still not understanding the concept of why the time isnt working if i delcared it.

[Wardancer]

Your t will only equal GetTimeRunning div 1000+1 when you call it. It won't, by itself, adjusts over the course of time. I don't see your full script, but I assume that's the issue.

[rj]

Heres my script:

{
-------------------------------VALID MONSTERS---------------------------------
-skeleton,ghost,warewolf,dwarf,bat,druid
If you want more added ask me on thread. some are not reliable such as guards.
DO NOT WEAR A FIGHTER TORSO IF YOU ARE FIGHTING SKELETONS
}
Program autofight;
{$i srl/srl.simba}
const
  time = 2; // in seconds
  monsterkill = ('ghost');
  breaking = ('Yes');
  minbreaktime = 4;
  maxbreaktime = 9;
  breakrate = 200;
  hpbarx = 213;
  hpbary = 90;
  hpbarx2 = 335;
  hpbary2 = 201;

  //status1 = ('waiting to get out of combat')
  //status2 = ('Attacking ')
var
hpbar,skelet,ghost,dwarf,druid,bat,warewolf,kills,t,outcome,bitch: Integer;
resulte,qtab,invtab:Integer;
status:string;
procedure breakin;
var
  X, Y: Integer;
    begin
    outcome := Random(breakrate);
    bitch := (maxbreaktime*60000)-(minbreaktime*60000);
    resulte := Random(bitch)
    if outcome = 1 then
      begin
      TypeSend('brb afk');
      Wait(1100 + Random(500));
      if FindDTM(qtab, x, y, 536, 194, 755, 225) then
        begin
        mmouse(x, y,1,1);
        Wait(1450 + Random(50));
        ClickMouse(x, y, mouse_Left);
        if FindColorTolerance(X,Y,3424328,563,247,639,257,15) then
          begin
          mmouse(x, y,1,1);
          Wait(350 + Random(50));
          ClickMouse(x, y, mouse_Left);
          if FindDTM(qtab, x, y, 536, 194, 755, 225) then
            begin
            mmouse(x, y,1,1);
            Wait(350 + Random(50));
            ClickMouse(x, y, mouse_Left);
            begin
            wait(minbreaktime+resulte)
          end;
        end;
      end;
    end;
  end;
end;
procedure CheckCombat;
var
  X, Y: Integer;
    begin
    ClearDebug;
    status := ('Waiting to get out of combat.');
    writeln('Status:' + status + monsterkill + '.');
    Writeln('Kills:' + Tostr(kills));
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
    Wait((time * 500) + Random(1000));
      begin
      repeat
      until  (FindDTM(hpbar, x, y, hpbarx, hpbary, hpbarx2, hpbary2)=false);
  end;
  IncEx(kills, 1);
  breakin;
end;
procedure ClickWarewolf;
var
  X, Y: Integer;
begin
  if FindDTM(warewolf, x, y, 4, 6, 512, 333) then
  begin
    ClearDebug;
    status := ('Attacking ');
    writeln('Status:' + status + monsterkill + '.');
    Writeln('Kills:' + Tostr(kills));
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
    MouseSpeed:=45;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1800 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickBat;
var
  X, Y: Integer;
begin
  if FindDTM(bat, x, y, 4, 6, 512, 333) then
  begin
    ClearDebug;
    status := ('Attacking ');
    writeln('Status:' + status + monsterkill + '.');
    Writeln('Kills:' + Tostr(kills));
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
    MouseSpeed:=45;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1800 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickDruid;
var
  X, Y: Integer;
begin
  if FindDTM(druid, x, y, 4, 6, 512, 333) then
  begin
    ClearDebug;
    status := ('Attacking ');
    writeln('Status:' + status + monsterkill + '.');
    Writeln('Kills:' + Tostr(kills));
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
    MouseSpeed:=45;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1800 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickDwarf;
var
  X, Y: Integer;
begin
  if FindDTM(dwarf, x, y, 4, 6, 512, 333) then
  begin
    ClearDebug;
    status := ('Attacking ');
    writeln('Status:' + status + monsterkill + '.');
    Writeln('Kills:' + Tostr(kills));
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
    MouseSpeed:=45;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1800 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickGhost;
var
  X, Y: Integer;
begin
  if FindDTM(ghost, x, y, 4, 6, 512, 333) then
  begin
    ClearDebug;
    status := ('Attacking ');
    writeln('Status:' + status + monsterkill + '.');
    Writeln('Kills:' + Tostr(kills));
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
    MouseSpeed:=45;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1800 + Random(500));
    CheckCombat;
  end;
end;
procedure ClickSkeleton;
var
  X, Y: Integer;
begin
  if FindDTM(skelet, x, y, 4, 6, 512, 333) then
  begin
    ClearDebug;
    status := ('Attacking ');
    writeln('Status:' + status + monsterkill + '.');
    MouseSpeed:=25;
    mmouse(x, y,1,1);
    Wait(20 + Random(50));
    ClickMouse(X, Y, Mouse_Left);
    Wait(1800 + Random(500));
    CheckCombat;
  end;
end;
procedure Chooseproc;
   begin
   if monsterkill = ('ghost') then
    begin
    ClickGhost;
   end;
   if monsterkill = ('skeleton') then
    begin
    Clickskeleton;
   end;
   if monsterkill = ('bat') then
    begin
    ClickBat;
   end;
   if monsterkill = ('druid') then
    begin
    ClickDruid;
   end;
   if monsterkill = ('warewolf') then
    begin
    Clickwarewolf;
   end;
   if monsterkill = ('dwarf') then
    begin
    Clickskeleton;
   end;
end;
var
  X,Y,s: Integer;
    begin
    t := GetTimeRunning div 1000+1;
    skelet := DTMFromString('mLgAAAHicY2JgYIhjZGCIBuK9QPZJIO7paWJoaqpk4ASyQZgRihkYAJb8BW8=');
    ghost := DTMFromString('mLgAAAHicY2JgYLgKxDeAuB6Im4F43twlDDNnLmFgAbJBmBGKGRgAuZgGcQ==');
    druid := DTMFromString('mLgAAAHicY2JgYChiZGAoAOIdQPZWIJ6R5s6wd/MMBhYgG4QZoZiBAQCdPQWr');
    bat := DTMFromString('mLgAAAHicY2JgYEhhZGDIAOJlQPZSIC7ITGcozc1hYAGyQZgRihkYAIVaBLQ=');
    dwarf := DTMFromString('mLgAAAHicY2JgYIhihOBgEBuIm6uqGFq0FBlYgWwQZoRiBgYAaUADuA==');
    warewolf := DTMFromString('mLgAAAHicY2JgYFjEyMCwDIhNgdgIiA3UxBh83WwY2IFyIMwIxQwMAF3WAwE=');
    hpbar := DTMFromString('mLgAAAHicY2JgYLBjZGAIAuIOIO4E4pZjQLEdDAzsDBDMCMUMDABvpgP4');
    qtab := DTMFromString('mbQAAAHicY2VgYEhnYmDIBuI8IE4G4jQgPgMUvwTEp4H4AhAfA+KGyd8YUqv+MXz/ehiOuYDi6JgRCwYDAJvSEkI=');
    invtab := DTMFromString('mbQAAAHicY2VgYOhiYmCYDMQTgLgNiFuA+CxQ/AQQXwLiy0B8HIhleFgZkoyFGdxUBMDYTIGTgQsojo4ZsWAwAADC7gkn');

    repeat
    ClearDebug;
    Chooseproc;
    until False;
    Freedtm(skelet);
    Freedtm(hpbar);
    Freedtm(ghost);
    Freedtm(druid);
    Freedtm(bat);
    Freedtm(dwarf);
    Freedtm(warewolf);
    Freedtm(qtab);
    Freedtm(invtab);
end.

[Wardancer]

I strongly suggest you to make use of case... of statements. They'll make your script much more readable and let you save a lot of time by reducing redundant lines. You should read (or re-read) Coh3n's tutorial: http://villavu.com/forum/showthread.php?t=58935. I don't mean to sound harsh, but it's very painful for the eyes (hard to read).

As for the actual problem with time, it's exactly what I suspected.

PS: You really have a variable called bitch? Please...

[rj]

I strongly suggest you to make use of case... of statements. They'll make your script much more readable and let you save a lot of time by reducing redundant lines. You should read (or re-read) Coh3n's tutorial: http://villavu.com/forum/showthread.php?t=58935. I don't mean to sound harsh, but it's very painful for the eyes (hard to read).

As for the actual problem with time, it's exactly what I suspected.

PS: You really have a variable called bitch? Please...

Cba to change it because i wrote that break procedure a month ago and use it for my scripts..
Also: its my script i could care less if other people cant read it

[Wardancer]

I'm not sure you should say, on one hand, that it's your script and you could care less if other people can't read it, and ask for help on the other.

[rj]

I'm not sure you should say, on one hand, that it's your script and you could care less if other people can't read it, and ask for help on the other.

All you needed was the 2 lines of code.

[masterBB]

The problem is that the t variable will only hold the integer value. Not the formula. So you will have to call t := GetTimeRunning div 1000+1; every time before the writeln.

program new;

var
  t, i: Integer;

begin
  t := GetTimeRunning div 1000+1;

  for i := 0 to 100 do
  begin
    wait(100);
    t := GetTimeRunning div 1000+1;
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
  end;
end.

If you call it every function I suggest to create a procedure.

procedure displayTimeRunning;
var
  t: Integer;
begin
  t := GetTimeRunning div 1000 + 1;
  Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
end;

But this will not display what you think it will. Can you adjust it? Pm me if you don't know how to continue. ^^

[Ashaman88]

what does writeln(gettimerunning) display?

[masterBB]

miliseconds since you pressed start

[rj]

what does writeln(gettimerunning) display?

0:0:1

[rj]

The problem is that the t variable will only hold the integer value. Not the formula. So you will have to call t := GetTimeRunning div 1000+1; every time before the writeln.

program new;

var
  t, i: Integer;

begin
  t := GetTimeRunning div 1000+1;

  for i := 0 to 100 do
  begin
    wait(100);
    t := GetTimeRunning div 1000+1;
    Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
  end;
end.

If you call it every function I suggest to create a procedure.

procedure displayTimeRunning;
var
  t: Integer;
begin
  t := GetTimeRunning div 1000 + 1;
  Writeln('Time running: ' + IntToStr(Round(t/3600))+ ':' + IntToStr(Round(t/60))+ ':' + IntToStr(Round(t)));
end;

But this will not display what you think it will. Can you adjust it? Pm me if you don't know how to continue. ^^

Thanks working great!

[DannyRS]

I strongly suggest you to read the includes and try to understand them before posting. You'll learn a lot more this way. There usually is a description of what the procedure or function does.