Results 1 to 19 of 19

Thread: WizKiller by Ilya

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

    Default WizKiller by Ilya

    Loots Water Talismans and Fire Talismans for a groovy 50k-75k an hour F2P.
    Start in the middle of dark wizard circle just outside of Varrock.


    Be sure to have the map faced North.
    Enjoy!


    Simba Code:
    program WizardKiller;
    {$i srl/srl/misc/smart.simba}
    {$i srl/srl.simba}
    {$i SRL/SRL/skill/fighting.simba}

    Var
    x, y :Integer;
     c, T, i : Integer;
     foodnumber: integer;

                      //By Ilya\\
            //Loots Water Talismans and Fire Talismans\\
          //Has a procedure for runes, but its slow\\
    //Start in the middle of dark wizard circle just outside of Varrock\\






    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name := '';
      Players[0].Pass := '';
      Players[0].Nick := '';
      Players[0].Active := True;
      Players[0].BoxRewards := ['ostume'];
    end;



    procedure AntiRandom;
    begin
      FindNormalRandoms;
      LampSkill := 'attack';
      LevelUp;
      Writeln('Checking for randoms');
    end;

    procedure Hungry;
    var
      c, T, i, x, y: Integer;


      begin
      if (HPPercent < RandomRange(50, 70)) and LoggedIn then
      begin
        if not InvEmpty then
          for c := 0 to 2 do
            for i := 1 to 28 do
              if ExistsItem(i) then
              begin
                MMouseItem(i);
                GetMousePos(x, y);
                if WaitUptext('Eat', 100) then
                begin
                  Mouse(x, y, 0, 0, false);
                  if WaitOption('Eat', 100) then
                  begin
                  Writeln('Eating.')
                    t := GetSystemTime;
                    while ExistsItem(i) and ((GetSystemTime - t) < 2000) do
                      wait(20);
                  end;
                  Exit;
                end;
              end;
      end;
    end;

    function FindWizard(): Boolean;
    begin
    if(StrInArr('Dark wizard', ChatBoxTextArray(clMessage)))
    then
    Wait(RandomRange(1200, 1700));
    FindObjCustom(x, y, ['Dark', 'wizard'], [1712417, 7312038, 2305581], 3);
    Mouse(x, y, 1, 1, false );
    ChooseOption('Attack');
    end;


    Function RuneFinder(Colors: TIntegerArray; TheUpText: TStringArray; midx, midy: integer): Boolean;
      Var
        T,i,X,Y: Integer;
        TPA: TPointArray;
        ATPA: Array of TPointArray;
      Begin
        MarkTime(T);
        Repeat
          SetArrayLength(ATPA, Length(Colors));
          for i := 0 to High(Colors) do
            FindColorsSpiralTolerance(midx, midy, ATPA[i], Colors[i], MSX1, MSY1, MSX2, MSY2, 3);
          TPA := MergeATPA(ATPA);
          ATPA := TPAtoATPAEx(TPA, 10, 10);
          SortATPAFrom(ATPA, Point(MSCX, MSCY));
          if (Length(ATPA) = 0) then
            Exit;

          MiddleTPAEx(ATPA[0], x, y);

          if (TimeFromMark(T) > 5000) then
            Exit;

          MMouse(x, y, 10, 10);
          Wait(randomrange(10,15));
          If(IsUpTextMultiCustom(TheUpText)) then
          begin
            ClickMouse2(False);
            WaitOption('une', 50);
            if DidRedClick then
            begin
              Result := True;
              Break;
            end;
          end;
        Until(Result)
      end;



    function Loot(): Boolean;
    begin

    FindObjCustom(x, y, ['ake water', 'ake Fire', 'alisman'], [11486773, 7548451, 8684938, 11555637, 3620789], 3);
    Mouse(x, y, 5, 5, false);
    ChooseOption('talisman');
    Wait(RandomRange(1277, 2121));
    end;

    function FindBanker(): Boolean;
    begin
    if(StrInArr('Bank', ChatBoxTextArray(clMessage)))
    then
    Wait(RandomRange(200, 700));
    FindObjCustom(x, y, ['Banker'], [3152673], 3);
    Mouse(x, y, 5, 5, false);
    ChooseOption('Bank Banker');
    end;

    Function GetFood : boolean;
    begin
    Withdraw(0, 0, 20);
    wait(777 + Random(77));
    end;


    begin
      Smart_Server := 5;
      Smart_Members := True;
      Smart_Signed := True;
      Smart_SuperDetail := False;

      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      MakeCompass('N');
      SetAngle(SRL_ANGLE_HIGH);
      repeat
      repeat
      FindWizard;
      Wait(2000 + Random(753));
      until InFight;
      while InFight do wait (5000);
      FindNormalRandoms;
      Hungry;
      Loot;
      until(AllPlayersInactive);
    end.
    Last edited by Ilya; 06-30-2012 at 10:46 PM. Reason: Removed Banking.

  2. #2
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by core View Post
    To ensure facing north, MakeCompass('N');
    Added it in the script.
    Thanks for that.
    Anyone try it?
    Comments?
    Suggestions?

  3. #3
    Join Date
    Feb 2012
    Posts
    202
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    going to test after 80 range

  4. #4
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Thanks, let me know how it goes. Personally i've gotten 80 attack, strength and defense with this script.

  5. #5
    Join Date
    May 2012
    Posts
    3
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Testing right now. For random events, will it just choose costumes?

  6. #6
    Join Date
    Jan 2012
    Posts
    1,596
    Mentioned
    78 Post(s)
    Quoted
    826 Post(s)

    Default

    Instead of using mousebox for the teleport, SRL does have a lodestone function built in.
    LodestoneScreen returns true/false if the tele screen is open.
    LodestoneTeleport('location') teleports and then returns true/false if successful.

    Simba Code:
    // Xtrapsp and ReadySteadyGo
      HomeTele := DTMFromString('mggAAAHicY2NgYNjGxMCwiQlBrwbinUD8Gyj3H4pB7L8w/Pcvw74jn8AYxG6bc4PBR7OeQRIohw0z4sAQAADcGhiV');
    GameTab(tab_Magic);
      If FindDTM(HomeTele, x, y, MIX1, MIY1, MIX2, MIY2) then
      Begin
        MMouse(x, y, 3, 3);
        If WaitUptext('ome', 1000) then
        Begin
          Repeat
            ClickMouse2(mouse_Left);
            If WaitFunc(@LodestoneScreen, 250, 4000) then
              LodestoneTeleport('Taverley');
            Wait(RandomRange(12000, 15000));
          Until not LodestoneScreen
        End;
      End;
    This was a complete boolean function until i chopped it up and made it a procedure, but you could use something like this instead... if its easier for you.

  7. #7
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    ooh... this is actually how I make the majority of my money :P Interesting guess great minds think alike haha

    If I could, could you maybe "anti-leech" the banking method or just remove it and make it a combat script. (If not don't worry, I am thinking of myself here so it is basically only selfish reasons)




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  8. #8
    Join Date
    Nov 2011
    Location
    England
    Posts
    3,072
    Mentioned
    296 Post(s)
    Quoted
    1094 Post(s)

    Default

    50-75k F2p damn.. not bad :P

  9. #9
    Join Date
    Jan 2012
    Location
    in a galaxy far far away
    Posts
    371
    Mentioned
    3 Post(s)
    Quoted
    48 Post(s)

    Default

    add p2p rune support, i slaughter these on my main for runes
    >:)

  10. #10
    Join Date
    May 2007
    Location
    knoxville
    Posts
    2,873
    Mentioned
    7 Post(s)
    Quoted
    70 Post(s)

    Default

    Who else thought "Why would you want to kill Wizzup??"

    Anyways, I suggest you look up some good failsafe tutorials. Coordinate clicking isn't a very good method, for what you're doing I would use Radialwalk, which also has some decent tutorials
    <TViYH> i had a dream about you again awkwardsaw
    Malachi 2:3

  11. #11
    Join Date
    Feb 2012
    Posts
    92
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Just started testing script. Might want to change the colour of dark wizards because it hovers of tree stumps a lot that are a similar colour. Also could you possibly increase the speed at which it finds the wizards? So far so good will update once it needs to bank.

  12. #12
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by Ronbo View Post
    Testing right now. For random events, will it just choose costumes?
    Yes.

    Quote Originally Posted by chief herb View Post
    add p2p rune support, i slaughter these on my main for runes
    There is rune support. There is a procedure called RuneFinder. Just include it in the main loop. It DOES SIGNIFICANTLY SLOW DOWN THE SCRIPT!!!

    Quote Originally Posted by R4nd0m View Post
    ooh... this is actually how I make the majority of my money :P Interesting guess great minds think alike haha

    If I could, could you maybe "anti-leech" the banking method or just remove it and make it a combat script. (If not don't worry, I am thinking of myself here so it is basically only selfish reasons)
    This was actually the script that i applied to SRL Members with, that's why there is banking.
    I was done using the script that's why i released the full version haha.
    I haven't used it in a week or so, are prices crashing?
    If so, i'll definitely remove the banking.
    Last edited by Ilya; 05-31-2012 at 08:55 PM.

  13. #13
    Join Date
    Jul 2007
    Location
    Ottawa, Canada
    Posts
    930
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    noooooo0 make this script private!

    My botting sp0t b compromised!
    ~ Metagen

  14. #14
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Post here if you want me to pull the script.
    Or at least the banking.

  15. #15
    Join Date
    Jul 2011
    Location
    /home/litoris
    Posts
    2,226
    Mentioned
    0 Post(s)
    Quoted
    159 Post(s)

    Default

    Don't include banking in the mainloop, problem with leechers solved
    Miner & Urn Crafter & 07 Chicken Killer
    SPS BlindWalk Tutorial

    Working on: Nothing

    teacher in every art, brought the fire that hath proved to mortals a means to mighty ends

  16. #16
    Join Date
    Oct 2011
    Location
    Chicago
    Posts
    3,352
    Mentioned
    21 Post(s)
    Quoted
    437 Post(s)

    Default

    I would recommend just removing banking all together, it isn't too hard to implement if someone wanted to.




    Anti-Leech Movement Prevent Leeching Spread the word
    Insanity 60 Days (Killer workout)
    XoL Blog (Workouts/RS/Misc)

  17. #17
    Join Date
    Jun 2012
    Posts
    2,182
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by litoris View Post
    Don't include banking in the mainloop, problem with leechers solved
    I second this
    Thx Euphemism and Vinyl for the awesome siggy and avatar!

  18. #18
    Join Date
    Jan 2012
    Posts
    160
    Mentioned
    0 Post(s)
    Quoted
    19 Post(s)

    Default

    Quote Originally Posted by R4nd0m View Post
    I would recommend just removing banking all together, it isn't too hard to implement if someone wanted to.
    Done.
    Hopefully now it won't get leeched.

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
  •