Results 1 to 7 of 7

Thread: Need help with progres report

  1. #1
    Join Date
    Sep 2007
    Location
    Finland > Tampere
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default Need help with progres report

    So.. how can i make progres report and where do i put i ....?

    SCAR Code:
    program PallooosPowerChopper;
    {.include SRL\SRL.scar}

    var
      x,y : integer;
      Loads : integer;

    const
      Treecolor1=6988186;  //Treecolor1 in your main screen
      Treecolor2=6988186;  //Treecolor2 in your main screen

    Procedure DeclarePlayers;
    begin

    HowManyPlayers:=2
    CurrentPlayer:=0

    NumberOfPlayers(HowManyPlayers);

    Players[0].Name := '';      //Your charters name
    Players[0].Pass := '';      //Your charters password
    Players[0].Nick := '';      //Part of your charters name 3-4 letters
    Players[0].Active:= True;

    Players[1].Name := '';      //your second charters name
    Players[1].Pass := '';      //Your second charters password
    Players[1].Nick := '';      //Part of your charters name 3-4 letters
    Players[1].Active:= False;
    End;

    procedure Chop;
    begin
      If (Not(LoggedIN)) then NextPlayer(True);
      repeat
        if(FindColorTolerance(x, y,Treecolor1, MSX1, MSY1, MSX2, MSY2, 10))or
          (FindColorTolerance(x, y,Treecolor2, MSX1, MSY1, MSX2, MSY2, 8))then
        begin
          Mouse(x,y,0,0,false);
          if(chooseOption('hop'))then
          Writeln('Chopping down tree');
          Writeln('');
          wait(4000+random(3000))
        end;
      until(InvFull);
    end;

    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              Result := True;
          2: if FindMod then
              Result := True;
          3: if FindMime then
              Result := True;
          4: if FindMaze then
              Result := True;
          5: if FindQuiz then
              Result := True;
          6: if FindDemon then
              Result := True;
          7: begin
              if NoGameTab then
              begin
                Result := True;
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Logout;
                Exit;
              end;
            end;
          8: RC;
        end;
        wait(1);
      end;
    end;

    Procedure Drop;
    begin
      if(InvFull)then
      begin
        DropAll;
        Loads:=Loads+1;
        Writeln('');
        Writeln('LogsDropped');
        Writeln('');
        Writeln('Begin Chopping...');
        Writeln('');
      end;
    end;

    begin
      SetupSRL;
      repeat
        Chop;
        Drop;
        FindFastRandoms;
      until(false)
    end.

  2. #2
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Something like this?
    SCAR Code:
    Procedure ProgressReport;
    var H,M,S: Integer;
    begin
      ConvertTime(GetTimeRunning,H,M,S)
      Writeln('Script run-time: '+IntToStr(H)+' hours, '+IntToStr(M)+' minutes and '+IntToStr(S)+' seconds')
      Writeln('Has dropped '+IntToStr(Loads)+' loads.')
    end;

    Also, I believe InvFull is out of order. I heard that somewhere. Change it to InvCount = 28

    -Knives

  3. #3
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    procedure Proggy;
    begin;
      Writeln('[]-------------------------------------------[]');
      Writeln('Worked For : ' + TimeRunning)
      Writeln('');
      WriteLn(' ');
      Writeln('[]--------------------------------------------[]');
      begin
        for I := 0 To HowManyPlayers - 1 do
        begin
          WriteLn((IntToStr(I)) + ' : ' + Players[I].Name + ' = ' +
          + BoolToStr(Players[i].Active) + ' |Loc: ' + Players[I].Loc + ' |');
        end;
      end;
      WriteLn('[]--------------------------------------------[]');
      SRLRandomsReport; //will give the randoms report.
    end;

    just have a little play with it

  4. #4
    Join Date
    Aug 2007
    Posts
    1,404
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Rikjess, why don't you just use BoolToStr(Players[i].Active) ?

    -Knives

  5. #5
    Join Date
    Mar 2007
    Location
    Netherlands->Amersfoort.
    Posts
    1,615
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    i don't know. i always forget that function.

    ty

  6. #6
    Join Date
    Sep 2007
    Location
    Finland > Tampere
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    Do i put it into that repeat place in end?

    like this?

    SCAR Code:
    repeat
        Chop;
        Drop;
        FindFastRandoms;
        Randoms;
        ProgressReport;
      until(false)

  7. #7
    Join Date
    Sep 2007
    Location
    Finland > Tampere
    Posts
    61
    Mentioned
    0 Post(s)
    Quoted
    4 Post(s)

    Default

    if i put it, or dont, it wont work anyway...

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. MarkTime for my report.
    By ironlarreh in forum OSR Help
    Replies: 4
    Last Post: 04-02-2007, 12:23 AM
  2. Do you report?
    By ub3r |<1||3r*1337* in forum News and General
    Replies: 35
    Last Post: 05-30-2006, 07:31 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •