Results 1 to 7 of 7

Thread: A Firemaking Addon?

  1. #1
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Question A Firemaking Addon?

    Alright so I have the code for my Resource Island Woodcutter and it is a powercutter so far, but with a bonfire addon I could make this such good FM xp. Does anyone have a code sitting around that they could just post or PM me? I've tried ripping from the various bonfire making scripts but it's to no avail... so if you have a nice little addon kicking around it would be greatly appreciated (I'll give credit as well). Once I have the firemaking working I can release to the public!

    ~Joe

  2. #2
    Join Date
    Jan 2012
    Posts
    2,568
    Mentioned
    35 Post(s)
    Quoted
    356 Post(s)

    Default

    I dont have a bonfire script but attempted one for u
    Simba Code:
    procedure Bonfire;
    var
      x,y,t:integer;
    label
      Start,Start2;
    begin
      Start:
      InvMouse(randomrange(2,28),2); //randomly choose a slot, dont include 1st slot if its for holding hatchet
      if WaitUpTextMulti(['Craf','raft','log'],1200) then
      begin
        ClickMouse2(false);
        WaitOption('ight',1000);
      end else
      goto Start;   //incase its not log but something else!

      Start2:
      MarkTime(t);
      repeat
        wait(50);
      until (TimeFromMark(t)>5000) or FindColorSpiralTolerance(x,y,1337488,157,87,426,285,10);   //if doesn't work, try a different color; search radius is only near the centre screen

      if (TimeFromMark(t)>5000) then
      begin
        writeln('cant find bonfire');
        TerminateScript;
      end;

      writeln('found bonfire!');
      Mouse(x,y,1,1,false);
      if not WaitOptionMulti(['dd','dd-lo','Fire'],1200) then
        goto Start2;

      while ExistsItem(28) do wait(100); //wait until last slot empty
    end;

  3. #3
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    well thanks for that.. Ill test that for a bit and tell you how it goes. Thanks a lot!

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

    Default

    It should be quite easy to do that -- just make it right click a random inventory slot, choose the light option, then left click on another random inventory slot, then mousebox then add to bonfire option. Wait until inventory is empty of logs(could use a DTM for that) and it's done.
    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

  5. #5
    Join Date
    Jan 2012
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    If you make the script left click three options will appear in the dialogue box. First mousebox the light fire, and then have it click again and mousebox the add to fire. Then of course you could just add in a simple wait function to make sure they all get burned
    -My Scripts-
    Dude'sFighters
    Dude'sBonfires
    Donations help with scripting Paypal!

  6. #6
    Join Date
    Feb 2012
    Location
    SRL Jail
    Posts
    1,319
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I know how easy it sounds, its just so finicky and it sometimes chooses the options too fast. I tried TPA, DTM, findobj, etc... I suck at inventory work.

  7. #7
    Join Date
    Jan 2012
    Posts
    319
    Mentioned
    0 Post(s)
    Quoted
    2 Post(s)

    Default

    Can you use mouseitem???? that always works for me.

    For example
    Simba Code:
    procedure burn;

    var
      I:integer;

    begin
    for i := 1 to 28 do
    begin
    if existsitem(i) then
    begin
    MMouseItem(i) then
    if waituptext('log', 500) then
    begin
    MouseItem(i, mouse_left);
    wait(1300+random(500));
    mousebox(x, y,x,y);  //cords??
    wait(500+random(500));
    Mouseitem((i+1), mouse_left);
    wait(1200+random(500));
    mousebox(x,y,x,y);
    exit;
    end;
    end;
    end;

    Then have a procedure that will wait until the inventory is empty after that.

    I just made that off the top of my head, so you may need to tweak it a little.
    Last edited by [D]ude; 06-02-2012 at 03:51 PM.
    -My Scripts-
    Dude'sFighters
    Dude'sBonfires
    Donations help with scripting Paypal!

Thread Information

Users Browsing this Thread

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

Tags for this Thread

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •