Results 1 to 6 of 6

Thread: ChaosBone

  1. #1
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default ChaosBone

    ChaosBone
    It's simple, I've seen it before, but... I needed something simple to start with...

    It collects the bones at the chaos altar in the wilderness and after inventory full, it buries them. Because it is in the wilderness it also checks for nearby players and if found it switches world (works, but can be better...)

    Features
    • Simple Antiban (some idea's?)
    • When stuck, move to first red dot on minimap (sometimes walks too far away from the altar, trying to fix now...)
    • Simple PK protection (tested, works great!)
    • SRL Stats Support


    The proggy is simple, and inaccurate but it some sort of works...
    And for the existing one, Sorry, I didn't know and haven't looked at your source.

    There is still a problem with my bone finder (or maybe srl, can't figure out where, I never use a value below zero and none is calculated...) , sometimes it spams your debug box, sorry
    the error is:
    Code:
    Warning! You passed a wrong xs to a finder function: -16. That is below 0, thus out of bounds. Setting the value to 0 for now.
    I've tried to Improve the code, removed ALL try except finally and sorted the code out, and did some other tweaks...

    And here you have my one proggy:

    Code:
    ~~ChaosBone by Psyonity~~
    Time running: 8443
    Loads done: 24
    Bones Collected: 911
    Bones Burried: 678
    EXP Gained: 3051
    EXP Hour: 1300
    ~~ChaosBone by Psyonity~~
    At the end it walked wrong and got stuck, working on that now...
    Last edited by psyonity; 04-18-2012 at 06:30 AM.

  2. #2
    Join Date
    Dec 2011
    Location
    Kosovo
    Posts
    831
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default

    Congratz on your first script.
    Goals:
    Understanding TPAs
    Making Proggy for fighting
    Getting on SRL members
    Get 500 posts

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

    Default

    Quote Originally Posted by begginer View Post
    Congratz on your first script.
    Thanks!

  4. #4
    Join Date
    Oct 2006
    Location
    finland, helsinki
    Posts
    2,501
    Mentioned
    3 Post(s)
    Quoted
    2 Post(s)

    Default

    theres alot of improvements to be made.

    first:
    Simba Code:
    procedure GotoAltarIcon;
    var
    Xe ,Ye: Integer;
    begin
      if FindSymbol(Xe,Ye,'altar') then
      begin
        getmousepos(xe, ye); //REMOVE THIS??  you will never click the symbol.
        Mouse(Xe,Ye,4 ,4 ,true);
         //add some Flag or FFlag(X) to wait for the "runescape flag" to dissapear.
      end;
    end;

    Simba Code:
    procedure BuryBones;
    var
       invItems: TInvenItemArr;
       i :Integer;
    begin
    try
          invItems := GetInventoryArray();
          for i := 0 to 28 do
          begin
            Mouse(invItems[i].centerPoint.x, invItems[i].centerPoint.y, 2, 2, true);


          end;

         except
         finally
         begin
                 BonesBurried:=BonesBurried + 28-InvCount;
            EXPGained:=BonesBurried/2*9;
          LoadsDone:=BonesBurried/28;
          Proggy;
         end;
         end;
    end;
    here you should only do 0 to 27; because you only have 28 inventory spots. 0..28 = 29 thus you will get the runtime error, after that u can remove the try except finally. Also add a "Wait" after the Mouse click to make it more humanlike.


    secondd: you have alot of try except & finally... why? Why not work out the bugs so u dont need them?

    thirdly: i HIGHLY recommend that you read a tutorial on scripting standards. Your code is all over the place.

    Anways good job on your first script, although there are alot of improvement that could be done.

    Code:
    • Narcle: I recall Jukka releasing a bunch of scripts like this before... Its how he rolls I think. rofl
    • Solarwind: Dude, you are like... t3h s3x.
    • Hy71194: JuKKa you're a machine! You released 3 scripts in 10 minutes! :O
    • benjaa: woah.... Jukka is the man Guildminer pwns all
    • NaumanAkhlaQ: And JuKKa Is my Her0!

  5. #5
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by JuKKa View Post
    theres alot of improvements to be made.

    first:
    Simba Code:
    procedure GotoAltarIcon;
    var
    Xe ,Ye: Integer;
    begin
      if FindSymbol(Xe,Ye,'altar') then
      begin
        getmousepos(xe, ye); //REMOVE THIS??  you will never click the symbol.
        Mouse(Xe,Ye,4 ,4 ,true);
         //add some Flag or FFlag(X) to wait for the "runescape flag" to dissapear.
      end;
    end;


    secondd: you have alot of try except & finally... why? Why not work out the bugs so u dont need them?

    thirdly: i HIGHLY recommend that you read a tutorial on scripting standards. Your code is all over the place.

    Anways good job on your first script, although there are alot of improvement that could be done.
    Thank you for you response, I don't use that function anymore so I will remove it

    and third, I have read the tut but I miss my visual studio auto formatting... I will try to improve that!

    EDIT: After reading your edit, when I bury bones myself I have really a lot of speed clicking the bones, but yea thank you

  6. #6
    Join Date
    Feb 2012
    Posts
    12
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Wink

    BUMP

    There was a update yesterday... will someone try it?

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
  •