Results 1 to 3 of 3

Thread: starting monk killer and healer. error

  1. #1
    Join Date
    Jan 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default starting monk killer and healer. error

    I'ma link the script i just started bout 10mins ago. it compiles so far fine. Fines the monk(Kinda sucks atm i'll fix it onces i get the basic script complete) but everytime it attacks the monk the first time. Stops and different folder opens. any help with this.

    Simba Code:
    program MonkKiller;
    //{$DEFINE SMART}
    {$i SRL\SRL.simba}
    {$i sps/sps.simba}
    {$i SRL\SRL\Misc\Debug.simba}
    {$i SRL/SRL/skill/fighting.simba}

    Const
     SRLStats_Username = '';// Your SRL Stats Username
     SRLStats_Password = ''; // Your SRL Stats Password
     NumbOfPlayers     = 1;       //How many players are you using
     StartPlayer       = 0;       //Player to start auoting with! (0 means first char)
     BreakEvery        = 120;      //How many loads to take a break after.
     BreakFor          = 10;      //How many minutes to break for
     Version           = '2.0';    //Leave Alone
    procedure DeclarePlayers;
      var i:integer;
    begin
      NumberOfPlayers(NumbOfPlayers);
      CurrentPlayer := StartPlayer;
      for i := 0 to NumbOfPlayers-1 do
        Players[i].BoxRewards  := ['mote', 'ostume', 'XP', 'Gem', 'ithril', 'oal', 'une', 'oins'];

      with Players[0] do
      begin
        Name        := '';     //Player username.
        Pass        := '';     //Player password.
        Pin         := ''     //Pin for Bank
        Active      := True;
      end;

    end;
    Procedure StatsGuise(wat:String);
    Begin
      Status(wat);
      Disguise(wat);
    End;

    procedure Load_Antiban;
    begin
      case Random(150) of
        1: BoredHuman;
        2: HoverSkill('random', False);
        3: HoverSkill('Magic', False);
        4: PickUpMouse;
        5: RandomMovement;
        6: RandomRClick;
        7: ExamineInv;
      end;
    end;
    function MonkColor: Integer;
    var
      arP: TPointArray;
      arC: TIntegerArray;
      tmpCTS, i, arL: Integer;
      R, G, B: Integer;
      X, Y, Z: Extended;
    begin
      tmpCTS := GetColorToleranceSpeed;
      ColorToleranceSpeed(2);
      SetColorSpeed2Modifiers(0.12, 0.61);

      FindColorsSpiralTolerance(MSCX, MSCY, arP, 2768453, MSX1, MSY1, MSX2, MSY2, 8);
      if (Length(arP) = 0) then
      begin
        Writeln('Failed to find the color, no result.');
        ColorToleranceSpeed(tmpCTS);
        SetColorSpeed2Modifiers(0.2, 0.2);
        Exit;
      end;

      arC := GetColors(arP);
      ClearSameIntegers(arC);
      arL := High(arC);

      for i := 0 to arL do
      begin
        ColorToRGB(arC[i], R, G, B);

        if (R >= 47) and (R <= 95) and (G >= 42) and (G <= 84) and (B >= 26) and (B <= 54) then
        begin
          ColorToXYZ(arC[i], X, Y, Z);

          if (X >= 2.26) and (X <= 8.37) and (Y >= 2.42) and (Y <= 8.84) and (Z >= 1.37) and (Z <= 4.65) then
          begin
            Result := arC[i];
            Writeln('AutoColor = ' + IntToStr(arC[i]));
            Break;
          end;
        end;
      end;

      ColorToleranceSpeed(tmpCTS);
      SetColorSpeed2Modifiers(0.2, 0.2);

      if (i = arL + 1) then
        Writeln('AutoColor failed in finding the color.');
    end;
    procedure Attack;
    var
      ax, ay, bx, by: integer;

      begin
        if InFight then
      begin
        repeat
          FindNormalRandoms;
        until (not (OthersInFight) or (not LoggedIn) or (not InFight))
        end;
      begin
        if FindObjCustom(ax, ay, ['onk'], [monkcolor], 50) then
      begin
        StatsGuise ('Found Monk');
        GetMousePos(ax, ay);
        Mouse(ax,ay,5,5,Mouse_Right);
        WaitOptionMulti(['ttack M', 'attack Monk'], 200);
        end;
      begin
        if (HPPercent < RandomRange (45,65)) and LoggedIn then
      repeat
        if FindObjCustom(bx, by, ['onk'], [monkcolor], 50) then
        begin
        StatsGuise ('Healing Using Monk');
        GetmousePos(bx, by);
        Mouse(ax,ay,5,5,false);
        waitoptionmulti(['talk', 'Talk-to'], 200);
      end;
      until(HpPercent = (100))
      end;
    end;
    end;

    //end;
    begin;
      SetupSRL;
      repeat
        Attack;
      until(false)

    end.

  2. #2
    Join Date
    Dec 2011
    Posts
    126
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    add smarte to it and it will be better for it just use all computer now so its crappy

    and first to post

  3. #3
    Join Date
    Jan 2012
    Posts
    48
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    anybody?

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
  •