Results 1 to 4 of 4

Thread: Identifier help

  1. #1
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default Identifier help

    Title says it all on line 41 i have a problem (ITS POINTED OUT IN A ARROW!)

    can you help me and some reviews and some to-do's and not to-do's please


    This is my script

    program PowerWoodCutter;

    {.include SRL/SRL.scar}
    {.include SRL/SRL/Skill/Woodcutting.scar}

    var
    x, y: Integer;
    i: Integer;

    const
    TreeColor = 1922123;

    function FindFastRandoms: Boolean;
    var
    i: Integer;
    begin
    for i := 1 to 8 do
    begin
    case I of
    1: if FindDead then {Does this work for me if im using 1 autoer? (Im getting more for times of 5 mins eac)}
    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;
    Players[CurrentPlayer].loc := 'No GameTab';
    Logout;
    Exit;


    procedure Chop; {<-----------------------------------------Problem here can someone help me there?}
    begin
    if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
    begin
    Mouse(x, y, 5, 5, true);
    Wait(1000 + Random(8000));
    case Random(10) of
    1: typesend('this is boring')
    2: typesend('i cant take any more!!!')
    3: typesend(' Blink 182 are such beaasts!!!')
    4: typesend('ugh')
    5: typesend('zzzz...zzzz...')
    6: typesend ('This is so not fun')
    7: typesend('when does it end!')
    8: typesend ('This is 3 hours straight!!!')
    9: typesend ('I wish i was on a shift!')
    10: typesend (' 4 hours straight woodcutting!!!')
    end;
    Wait(10000 + Random(20000));
    end;
    end;

    begin
    SetupSRL

    i := 0;
    repeat
    i := i + 1;
    Chop;
    MMouse(MSX1, MSY1, MSX2, MSY2);
    if InvFull = true then
    Procedure DropAllLogs;
    Begin
    end;
    until (i >= 50);
    end.

  2. #2
    Join Date
    Apr 2007
    Location
    UK
    Posts
    2,295
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    program PowerWoodCutter;

      {.include SRL/SRL.scar}
      {.include SRL/SRL/Skill/Woodcutting.scar}

    var
      x, y: Integer;
      i: Integer;

    const
      TreeColor = 1922123;

    function FindFastRandoms: Boolean;
    var
      i: Integer;
    begin
      for i := 1 to 8 do
      begin
        case I of
          1: if FindDead then
              {Does this work for me if im using 1 autoer? (Im getting more for times of 5 mins eac)}
              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;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
        end;
      end;
    end;

    procedure Chop;
    begin
      if (FindColor(x, y, TreeColor, 117, 179, 889, 709)) then
      begin
        Mouse(x, y, 5, 5, true);
        Wait(1000 + Random(8000));
        case Random(10) of
          1: typesend('this is boring')
            2: typesend('i cant take any more!!!')
            3: typesend(' Blink 182 are such beaasts!!!')
            4: typesend('ugh')
            5: typesend('zzzz...zzzz...')
            6: typesend('This is so not fun')
            7: typesend('when does it end!')
            8: typesend('This is 3 hours straight!!!')
            9: typesend('I wish i was on a shift!')
            10: typesend(' 4 hours straight woodcutting!!!')
        end;
        Wait(10000 + Random(20000));
      end;
    end;

    begin
      SetupSRL
      i := 0;
      repeat
        i := i + 1;
        Chop;
        MMouse(MSX1, MSY1, MSX2, MSY2);
        if InvFull then
        begin
          DropAllLogs;
        end;
        until (i >= 50);
    end.

    ? hows that?. No procedure called DropAllLogs tho

    Rogeruk's Al-Kharid Tanner V1.1 [Released]
    Rogeruk's Barbarian Crafter [Coming Soon]
    Rogeruk's Guild Fisher [Coming Soon]
    !! - Taking Requests - !!

  3. #3
    Join Date
    Sep 2007
    Location
    England
    Posts
    80
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Need to have 3 ends.

  4. #4
    Join Date
    Nov 2007
    Location
    SCAR central
    Posts
    116
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    cheers

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Identifier Help
    By Rora in forum OSR Help
    Replies: 2
    Last Post: 12-16-2007, 10:59 PM
  2. help with 3.10 identifier
    By fastler in forum OSR Help
    Replies: 4
    Last Post: 07-17-2007, 12:43 PM
  3. identifier
    By macromacro123 in forum OSR Help
    Replies: 1
    Last Post: 03-06-2007, 04:10 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
  •