Results 1 to 3 of 3

Thread: Please Help

  1. #1
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Please Help

    SCAR Code:
    program New;
    {.include SRL/SRL.scar}
     
    const
      LoadsPerPlayer = 10; //Amounts of loads per player before switching.
      TreeColor = 1456433;       //Fill in the treecolor here.
      WaitPerTree = 5000; //the time to wait while we are chopping the tree in Miliseconds.
     
    procedure Start;
    begin
         MakeCompass('N');
         HighestAngle;
         MouseSpeed:=21;
         SetRun(true)
         Gametab(4);
     
     end;
     
     
    function FindFastRandoms: Boolean; //By WT-Fakawi.
    var
      i: Integer;
    begin
      for i := 1 to 9 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;
                Players[CurrentPlayer].loc := 'No GameTab';
                Logout;
                Exit;
              end;
            end;
          7: begin
              if InBlack then
              begin
                Result := True;
                Players[CurrentPlayer].loc := 'InBlack';
                Logout;
                Exit;
              end;
            end;
          8: RC;
          9: FindLamp(Players[CurrentPlayer].Skill);
          10: if FindTalk then
              Result := True;
          11: ClickToContinue;
        end;
        wait(1);
      end;
    end;
    Procedure AntiBanActions;
    var
      Ban: Integer;
    begin
      Ban:= Random(10);
     case Ban of
        0: PickUpMouse;
        1: RandomMovement;
        2: BoredHuman;
     
      end;
    end;
     
    procedure Randoms;
    begin
      FindNormalRandoms;
      Wait(20 + random(5));
     if (FindFight) then
      begin
        RunAwayDirection('N');
        Wait(4500 + Random(1900));
        RunBack;
      end;
      Wait(20)
        FindTalk;
    end;
     
     
    procedure Randomcheck;
    begin
    Findfastrandoms;
    Randoms;
    end;
     
    function FindObjMultiText2(var cx, cy: Integer; Ut1, UT2, UT3: string; color,
      tolerance: Integer): Boolean;
    var
      x, y, a, c, i, x1, y1, x2, y2: Integer;
    begin
        Color := Color;
      if (FindColorTolerance(x, y, Color, msx1, msy1, msx2, msy2, tolerance)) then
      begin
        x1 := 245;
        y1 := 165;
        x2 := 277;
        y2 := 185;
        repeat
          if (not (Loggedin)) then
            Break;
          a := a + 1;
          if (a = 1) or (a = 3) then
            c := c + 1;
          for i := 1 to c do
          begin
            if (a = 1) then
            begin
              x1 := x1 + 30;
              x2 := x2 + 30;
            end
            else if (a = 2) then
            begin
              y1 := y1 - 20;
              y2 := y2 - 20;
            end
            else if (a = 3) then
            begin
              x1 := x1 - 30;
              x2 := x2 - 30;
            end
            else if (a = 4) then
            begin
              y1 := y1 + 20;
              y2 := y2 + 20;
            end;
            if (x1 = 485) and (x2 = 517) then
              x2 := x2 - 2;
            if (y1 = 325) and (y2 = 345) then
              y2 := y2 - 7;
            if (x2 > 515) then
              Break;
            if (FindColorTolerance(x, y,Color, x1, y1, x2, y2, tolerance)) then
            begin
              MMouse(x, y, 0, 0)
              Wait(10);
                cx := x;
              cy := y;
              if (IsUpTextMulti(UT1, UT2, UT3)) then
              begin
                Result := True;
                Break;
              end;
            end;
          end;
          if (a = 4) then
            a := 0;
        until (x2 > 515) or (Result = True);
      end;
    end;
     
    procedure ChopTree;
    var
      x, y, MyMark : integer;
    begin
      if not Loggedin then Exit;
      MarkTime(MyMark);
      repeat
        If (FindObjEx(x,y,'ree',273,58,418,271,TreeColor,0,7,7,300,false))then
     
        begin
          MMouse(x, y, 5, 5);
          Randomcheck;
          AntiBanActions;
          Wait(100 + random(50));
          Mouse(x, y, 0, 0, True);
          Wait(1500 + random(1500));
          if ChooseOption('ree') then
          begin
            Randomcheck;
            Wait(WaitPerTree + Random(1000));
            Exit;
          end;
        end;
        if TimeFromMark(MyMark) > (3 * 60 * 100) then
        begin
          Logout;
          Exit;
        end;
      until false
    end;
     
    begin
      SetupSRL;
      SRLPlayerForm(True, [], [], [], []);
      Start;
      repeat
        ChopTree;
        if InvFull then
        begin
          Randomcheck;
          AntiBanActions;
          DropToPosition(4, 28);
          Inc(Players[CurrentPlayer].Banked);
          if Players[CurrentPlayer].Banked mod LoadsPerPlayer = 0 then
          begin
            NextPlayer(True);
          end;
        end;
        if not Loggedin then NextPlayer(False);
      until false
     
    end.


    this is my script. Please just dont view it! Reply please. I want to come a better scripter. One of the top ones! Please tell me any mistakes and please make corrections and post it. FOr example if there are uneeded info in my script or missing things. please just dont tell me if its good or not. Btw! there is a problem. It cuts one tree then examines stuff..i guess its the anti ban or random thing..but then it doesnt cut no more plz help..THANKS!

  2. #2
    Join Date
    Apr 2007
    Location
    The Netherlands
    Posts
    5,553
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    its a bit short i didnt compiled it but it l00ks 0kay
    ~Hermen

  3. #3
    Join Date
    Mar 2007
    Posts
    1,223
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    thanks but does anyone have any changes to make or advice?

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
  •