Results 1 to 5 of 5

Thread: ChoppingLoop help

  1. #1
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default ChoppingLoop help

    Ok guys please dont hate me for asking for help
    Ok so here is my chopping loop:
    SCAR Code:
    function ChoppingLoop: Boolean;
    var
      T, x, y: Integer;
      P: TPoint;
      Colour: Integer;
    begin
      repeat
      begin
        AntiRandom;
        MarkTime(T);
        if FindWillow(x, y) then
        begin
          Mouse(x, y, 3, 3, False);
          Wait(100+random(200));
          if ChooseOption('hop') then
          begin
            Colour := GetColor(x, y - 5);
            Wait(1000+random(2000));
            while (SimilarColors(Colour, GetColor(x, y - 5), 4) and not(InvFull)) do
            begin
              MakeCompass('N');
              Result := True;
              AntiBanage;
              Wait(100)
              AntiRandom;
              SleepAndMoveMouse(2500+random(100));
              if TimeFromMark(T) >= 20000 then Break;
            end;
          end;
        end;
      end;
      until(InvFull = True);
    end;
    But it keeps chopping even when it has a full inv.
    What have I done wrong, and sorry if I look nooby

    T~M
    Last edited by Dynamite; 05-24-2009 at 08:17 AM.

  2. #2
    Join Date
    Sep 2008
    Location
    Sweden
    Posts
    70
    Mentioned
    1 Post(s)
    Quoted
    3 Post(s)

    Default

    Seems right to me, but i find the whole procedure strange. You could use a timer failsafe too, but the InvFull should work. I've used it many time.
    Quote Originally Posted by #SRL
    * Gurkan` performs brain surgery on Wizzup
    <Wizzup> wat!
    <Gurkan`> now he believes everything you say
    <Gurkan`> Wizzup, im way cooler than you
    <Wizzup> k

  3. #3
    Join Date
    Oct 2007
    Location
    http://ushort.us/oqmd65
    Posts
    2,605
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    try it without " = true" just use "until(invfull)"

    outdated srl?

    If using reflection use "until(R_InvFull)"
    I do visit every 2-6 months

  4. #4
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    OK, it still aint working what should I use?
    function FindBlackChatMessage(ChatMsg: string): Boolean; ?
    I will post full script, and you tell me what I have done wrong?

    T~M

  5. #5
    Join Date
    Jul 2007
    Location
    Right now? Chair.
    Posts
    8,488
    Mentioned
    3 Post(s)
    Quoted
    12 Post(s)

    Default

    SCAR Code:
    if PlayerLoc = 'Chopping' then
          ChoppingLoop;

    did it maybe occur to you that in that function of yours you'd need to change your PlayerLoc to 'LoadDone' ?

    SCAR Code:
    if PlayerLoc = 'Chopping' then
          if ChoppingLoop then
            PlayerLoc := 'LoadDone';


    ~RM
    Last edited by Sir R. M8gic1an; 05-24-2009 at 09:26 AM.

    I & I know Zion. It is in the spirit, body and mind of every one of us
    RMouse(obj: TMSIObject): boolean;

Thread Information

Users Browsing this Thread

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

Posting Permissions

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