Results 1 to 3 of 3

Thread: What is wrong with this :/ ... ?

  1. #1
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default What is wrong with this :/ ... ?

    SCAR Code:
    function FindHomeRandoms: Boolean;
    var
     i: Integer;
    begin
      for i := 1 to 11 do
      begin
        case I of
          1: if SolveChatRandom then
              Result := True;
          2:  if FindTalk then
               Result := True;
          3: if FindTalk then
              Result := True;
          4: if FindDead then
              Result := True;
          5: if FindMime then
              Result := True;
          6: if FindMaze then
              Result := True;
          7: if FindQuiz then
              Result := True;
          8: if FindTalk then // Call it twice
              Result := True;
          9: if FindLamp('agility') then // Maybe we missed it?
              Result := True;
          10: if (FindBox) then
            begin
              Result := True;
              if (UseBoxSolver) then
                SolveBox
              else
                GambleBox;
            end;
          11:
            begin
              if NoGameTab then
              begin
                Result := True;
                if(GetColor(649, 78)=0) then begin
                Writeln('Found BeeKeeper, Trying To Solve')
                  if (SolveBeeKeeper) then
                  begin
                    AmtBee := AmtBee + 1
                    for p := 0 to 50 do
                    begin
                      Wait(1000+random(100));
                      if(not(GetColor(649, 78)=0))or(FindColorTolerance(x, y, FlaxMS, MSX1, MSY1, MSX2, MSY2, 22)) then
                      begin
                        Wait(3000 + Random(3000));
                        Writeln('BeeKeeper Solved, At Flax Field')
                          ReportVars[4] := ReportVars[4] + 1;
                          SendSRLReport;
                        Exit;
                      end;
                    end;
                  end;
                end else Logout;
                Exit;
              end;
            end;
        end;
        if Result then
          Break;
        Wait(1);
      end;
    end;


    Procedure SpinProcess;
    Begin
    if(not(LoggedIn))then  Exit;
    Wait(100+Random(100))
    If(O=5) Then begin Writeln('Not Able To Click Spinner, Going To Bank') Exit;
    end
    else
            begin
            MarkTime(SpinMark);
              // Wait until we find a bowstring
              MarkTime(SpinMark2);
              repeat
                FindHomeRandoms;
                if(ClickToContinue)then  WhileSpin;
                if(FindAFight)then  Exit;
              until((FindDTM(Bowstring, x, y, MIX1, MIY1, MIX2, MIY2)) or (TimeFromMark(SpinMark2) > 3500));
              // Check if we breaked out of loop
              if(not(FindDTM(Bowstring, x, y, MIX1, MIY1, MIX2, MIY2)))then
              begin
                MarkTime(SpinMark2);
                repeat
                  FindHomeRandoms;
                  if(FindAFight)then  Exit;
                until(TimeFromMark(SpinMark2) > 3500);
              end;
    MarkTime(WaitMark2);
    Repeat
    if(not(LoggedIn))then  Exit;
    GameTab(4);
    FindHomeRandoms;
    if(ClickToContinue)then WhileSpin;
    if(FindAFight)then exit;
    TalkingTo;
    // We Can Just Hope That Those Random Checks Are Enough :)
                Wait(500+Random(250));
     until((FindDTM(Bowstring, x, y, 682, 426, 727, 462)) or (TimeFromMark(WaitMark2) > 55000));
      if(FindDTM(FlaxDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
          begin
            MarkTime(WaitMark2);
            repeat
              FindHomeRandoms;
              if(FindAFight)then Exit;
            until(TimeFromMark(WaitMark2) > 3500);
            WhileSpin;
        end else
        begin
          Players[CurrentPlayer].Loc := 'Spinner';    // We set the location to spinner when we fail, so we walk back to bank.
          Exit;
        end;
      FreeDTM(Bowstring);
      FreeDTM(FlaxDTM);
    end;
    end;

    It jst won't check the Dam Randoms...

  2. #2
    Join Date
    Sep 2007
    Location
    Michigan
    Posts
    3,862
    Mentioned
    2 Post(s)
    Quoted
    1 Post(s)

    Default

    I went and standardized your spin process. I think you messed up on the ends. I moved a end from the bottom. (shown in script). I think it was executing the procedure wrong but compiled for you... I would test it but i don't have all the identifiers for it. Also "(O=5)" O? I would confuse that for a zero so easily lol.

    If this doesn't solve it I'm not sure (or breaks it...). It might be in your very long beekeeper check in the random checker. I think if its the beekeeper not working you should move it to "1" for the randomchecks. That way findtalk isn't detected and tries to execute that before beekeeper.

    SCAR Code:
    Procedure SpinProcess;
    Begin
      if(not(LoggedIn))then Exit;
      Wait(100+Random(100))
      If(O=5) Then
      begin
        Writeln('Not Able To Click Spinner, Going To Bank');
        Exit;
      end else
      begin
        MarkTime(SpinMark);
        // Wait until we find a bowstring
        MarkTime(SpinMark2);
        repeat
          FindHomeRandoms;
          if(ClickToContinue)then  WhileSpin;
          if(FindAFight)then  Exit;
        until((FindDTM(Bowstring, x, y, MIX1, MIY1, MIX2, MIY2)) or (TimeFromMark(SpinMark2) > 3500));
        // Check if we breaked out of loop
        if(not(FindDTM(Bowstring, x, y, MIX1, MIY1, MIX2, MIY2)))then
        begin
          MarkTime(SpinMark2);
          repeat
            FindHomeRandoms;
            if(FindAFight)then  Exit;
          until(TimeFromMark(SpinMark2) > 3500);
        end;
      end; //this was moved from bottom
      MarkTime(WaitMark2);
      Repeat
        if(not(LoggedIn))then  Exit;
        GameTab(4);
        FindHomeRandoms;
        if(ClickToContinue)then WhileSpin;
        if(FindAFight)then exit;
        TalkingTo;
        // We Can Just Hope That Those Random Checks Are Enough :)
        Wait(500+Random(250));
      until((FindDTM(Bowstring, x, y, 682, 426, 727, 462)) or (TimeFromMark(WaitMark2) > 55000));
      if(FindDTM(FlaxDTM, x, y, MIX1, MIY1, MIX2, MIY2))then
      begin
        MarkTime(WaitMark2);
        repeat
          FindHomeRandoms;
          if(FindAFight)then Exit;
        until(TimeFromMark(WaitMark2) > 3500);
        WhileSpin;
      end else
      begin
        Players[CurrentPlayer].Loc := 'Spinner';    // We set the location to spinner when we fail, so we walk back to bank.
        Exit;
      end;
      FreeDTM(Bowstring);
      FreeDTM(FlaxDTM);
    end;
    //end moved
    (Scripts outdated until I update for new SRL changes)
    AK Smelter & Crafter [SRL-Stats] - Fast Fighter [TUT] [SRL-Stats]
    If you PM me with a stupid question or one listed in FAQ I will NOT respond. -Narcle
    Summer = me busy, won't be around much.

  3. #3
    Join Date
    Feb 2006
    Posts
    3,044
    Mentioned
    4 Post(s)
    Quoted
    21 Post(s)

    Default

    My problem is that, that it won't detect ANY randoms :/

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. what am i doing wrong ?:P
    By sjlou in forum OSR Help
    Replies: 2
    Last Post: 10-01-2007, 01:52 PM
  2. What am i doing wrong?
    By One Leeter in forum OSR Help
    Replies: 7
    Last Post: 06-15-2007, 10:33 PM
  3. Replies: 8
    Last Post: 03-23-2007, 04:20 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
  •