Results 1 to 16 of 16

Thread: hometeleport and radialroadwalk/ need testers

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

    hometeleport and radialroadwalk/ need testers

    i made a small snippet
    a walker to the chicken pen and if your not in lumby
    then it will cast hometeleport but i think there is somthing wrong because i used the walking 2 times i think i can use it 1 time if i make an extra procedure

    but please test it the walking works not fully 100% but most of the time its works its goes wrong most of the rime the first 3 clicks and fflag(10); fflag is not working dont know why

    really i need comments

    SCAR Code:
    program LumbyAllInOne;
    {.include SRL/SRL.scar}

    {.include SRL/SRL/skill/woodcutting.scar}

    {.include SRL/SRL/skill/cooking.scar}
    {.include SRL/SRL/skill/fighting.scar}
    var
    hometeleport, lx, ly:integer;

    const
    InChickenPen=false;
    inlumby=true;

    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    procedure loadbitmaps;
     begin
       HomeTelePort := BitmapFromString2(False, 'a647A478DA7D8D510AC42' +
           '00C05AFF46C4CE27EAA6DEE7FA4FA2A6C05D9253084715400883E' +
           '80560624B85A3A06358C2C64B6D79BB037657F94CC46FBB73726C' +
           '89DA7AE7CCEE5A46FFA9478FD87A937BE80934C01AF5EA3EC1495' +
           '6CD7CAE9791769322ECE3CDDFD6A763FF775FEF7BFFEBD01421');
     end;

    Procedure casthometeleport;
     begin
      gametab(7)
      If(FindBitmap(HomeTelePort, lx, ly)) Then
       begin
        wait(100 + Random(150));
        Mouse(lx, ly, 5, 5, True);
        wait(15000);
        WriteLn('your in limbridge, have a nice day!');
      end
      else
      If Not(FindBitmap(HomeTelePort, lx, ly)) Then
        begin
          WriteLn('couldnt fin spell.');
        end;
       end;



    procedure ToChickenPen;
    begin
      if inchickenpen=true then
      begin
      exit;
      end
      else
      if inlumby=true and inchickenpen=false then
      begin
      HighestAngle;
      MakeCompass('N');
      FindRoadColor;
      SetRun(true);
      RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
      FFlag(5);
      RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
      FFlag(5);
      RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
      FFlag(5);
      RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
      FFlag(4);
      RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
      FFlag(6);
      RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
      FFlag(5);
      RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
      FFlag(5);
      RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
      SetRun(false);
      end
      else
      loadbitmaps
      casthometeleport;
      HighestAngle;
      MakeCompass('N');
      FindRoadColor;
      SetRun(true);
      RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
      FFlag(5);
      RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
      FFlag(5);
      RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
      FFlag(5);
      RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
      FFlag(4);
      RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
      FFlag(6);
      RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
      FFlag(5);
      RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
      FFlag(5);
      RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
      SetRun(false);
    end;





    begin
    SetupSrl;
    activateclient;
    ToChickenPen;
    end.



    i need help pleasze
    ~Hermen

  2. #2
    Join Date
    Nov 2006
    Location
    Latvia
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I always have problems with radial waking, i can offer you my easy procedure DirWalkPerCoord(dir: string; howfar:integer);

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

    Default

    it clicks random? that it dont clicks always the same pixel
    ~Hermen

  4. #4
    Join Date
    Nov 2006
    Location
    Latvia
    Posts
    53
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Yeah! But i make it like 5 minutes. So i will to it. But it`s easy to edit that. But its click so far on direction which big is your nummber. Like 65 is mm max then repeating...

  5. #5
    Join Date
    Jul 2007
    Posts
    184
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default great idea

    great idea would be good to add to a chicken killer

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

    Default

    this is the begin of a big script so.... just a begin
    but i need people to test please test please test i really need it
    ~Hermen

  7. #7
    Join Date
    Jan 2007
    Location
    Skaville, Jamaica
    Posts
    1,117
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I'm not that great with radialwalking, but anyway, why didn't you just use

    Cast('1'); to cast the hometeleport?

  8. #8
    Join Date
    Apr 2007
    Posts
    379
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    OK Well I did a small Test and added some Scripting Standards and Debug Messages, first off.

    Why do you teleport back if you are in the Chicken Pen? That is kind of what you have it doing, and it doesn't find the spell. Soo I will try and fix this up,

    And you really shouldn't turn run on when walking, and may cause errors or miss a click.

    And when walking you should add fail safes, I will implement them and show you.

    Okay so here you go, this is what I would use instead.

    SCAR Code:
    program LumbyAllInOne;
    {.include SRL/SRL.scar}

    {.include SRL/SRL/skill/woodcutting.scar}

    {.include SRL/SRL/skill/cooking.scar}
    {.include SRL/SRL/skill/fighting.scar}
    var
    hometeleport, lx, ly:integer;

    const
     Location = 'Lumbridge'; //You can use Chicken Pen, Lumbridge, or Other.

    {=====================================================================================]
                DONT TOUCH THIS BELOW IF YOU DONT KNOW WHAT YOUR DOING!
    [=====================================================================================}


    procedure loadbitmaps; //I made a new BMP, this one was out of date.
     begin
      hometeleport := BitmapFromString2(False, 'a84B1878DA8D8E510A0' +
           '3210C44AF944493D84F75F5FE47EA8E5B4C410A55181EE14D9488' +
           '58E93ECCF94E6D6063014F4316A469D9AC23D8247C4B7D9B52D63' +
           '6ED7BCFC75C5DD7894C17260DCF7BCBC1D2839DC27FC936F94297' +
           '5AA5F5F739701F3E274953B6E1D5EB2C4FFED33ABBDFCE797FB5D' +
           'E870');
     end;

    Procedure casthometeleport;
     begin
      gametab(7);
      WriteLn('Opened Tab');
      wait(400+Random(600));
       If(FindBitmap(hometeleport, lx, ly)) Then
        Begin
        wait(100 + Random(150));
        Mouse(lx, ly, 5, 5, True);
        wait(15000);
        WriteLn('your in limbridge, have a nice day!');
      end
       else
        If Not(FindBitmap(HomeTelePort, lx, ly)) Then
         begin
          WriteLn('couldnt fin spell.');
       end;
    end;


    procedure Move;
    begin
      if Location='Other' then
        begin
          casthometeleport;
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
          WriteLn('Clicked 1');
          FFlag(5);
          RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
          WriteLn('Clicked 2');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('Clicked 3');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('Clicked 4');
          FFlag(4);
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
          WriteLn('Clicked 5');
          FFlag(6);
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
          WriteLn('Clicked 6');
          FFlag(5);
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
          WriteLn('Clicked 7');
          FFlag(5);
          RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
          WriteLn('Clicked 8');
        SetRun(false);
        end
      if Location='Lumbridge' then
        begin
          HighestAngle;
          MakeCompass('N');
          FindRoadColor;
          SetRun(true);
          RadialRoadWalk(RoadColor, 75, 84, 60, 0, 0);
          WriteLn('Clicked 1');
          FFlag(5);
          RadialRoadWalk(RoadColor, 70, 90, 57, 0, 0);
          WriteLn('Clicked 2');
          FFlag(5);
          RadialRoadWalk(RoadColor, 30, 50, 66, 0, 5);
          WriteLn('Clicked 3');
          FFlag(5);
          RadialRoadWalk(RoadColor, 360, 335, 65, 0, 0);
          WriteLn('Clicked 4');
          FFlag(4);
          RadialRoadWalk(RoadColor, 332, 350, 71, 0, 1);
          WriteLn('Clicked 5');
          FFlag(6);
          RadialRoadWalk(RoadColor, 315, 330, 72, 0, 0);
          WriteLn('Clicked 6');
          FFlag(5);
          RadialRoadWalk(RoadColor, 337, 350, 65, 0, 1);
          WriteLn('Clicked 7');
          FFlag(5);
          RadialRoadWalk(RoadColor, 350, 360, 65, 1, 0);
          WriteLn('Clicked 8');
        SetRun(false);
      end
        If Location='Chicken Pen' Then
         Begin
          Exit;
        end;
    end;

    begin
    SetupSrl;
    activateclient;
    loadbitmaps; //Load your bitmaps here instead of in Procedure.
    Move; //It is named Move because it takes care of everything not just chicken pen, doesn't really matter
    end.

    You should use a different Const than chickenpen = False, or lumbridge = True; because that may cause problems if the person does it wrong, so you can just add them all together to make 1 using something like Location = 'Other', or Location = 'Lumbridge', or Location = 'Chicken Pen'; and the reason they are in '' are because they are Words not numbers, or true, or false.

    I saw the bug where it clicks in the wrong place, but it still got near the chicken pen.

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

    Default

    dude if you set lumbridge on true then you set chicken pen on false and if your in the chicken pen that true both nice work its okay thanks
    thanks

    \
    but the walking was okay?
    i already fixed the walking forgot to save but now its okay thanks for help maybe you can add me on msn for talking and help me out somtimes and it really helped
    ~Hermen

  10. #10
    Join Date
    Apr 2007
    Posts
    379
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    I don't use MSN, or AIM, or any other instant messanger, sorry.

    The walking will work just fine, the thing is with having to set lumbridge on true and the Chicken Pen on False it may just cause some kind of error, maybe an assignment expected... but anyways I would recommend putting them together in 1.

    Well I am off to read 50 pages in the Harry Potter book and then go to sleep.

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

    Default

    lol okay thanks for reformating
    ~Hermen

  12. #12
    Join Date
    May 2007
    Location
    NSW, Australia
    Posts
    2,823
    Mentioned
    3 Post(s)
    Quoted
    25 Post(s)

    Default

    You know this part?
    SCAR Code:
    else
      If Not(FindBitmap(HomeTelePort, lx, ly)) Then
        begin
          WriteLn('couldnt fin spell.');
        end;
       end;

    What if it cant find the spell? You should add something like the nextplayer(i fogot the procedure name >.<) thing or somthing.

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

    Default

    Quote Originally Posted by bobbohobbo View Post
    You know this part?
    SCAR Code:
    else
      If Not(FindBitmap(HomeTelePort, lx, ly)) Then
        begin
          WriteLn('couldnt fin spell.');
        end;
       end;

    What if it cant find the spell? You should add something like the nextplayer(i fogot the procedure name >.<) thing or somthing.
    i know but that was not workingfor me maybe ill fix it later

    still need help with forms
    ~Hermen

  14. #14
    Join Date
    Apr 2007
    Posts
    379
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    else
      If Not(FindBitmap(HomeTelePort, lx, ly)) Then
        begin
          WriteLn('couldnt fin spell.');
          NextPlayer(False); //Is this what you are talking about?  
        end;
       end;

    If that is what you are talking about, it will go to the next player and set the current player's .Active to False.

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

    Default

    nope if you cant use the spell for like few mins he cant find it because theres no bitmap for it but i already fixed that so...
    ~Hermen

  16. #16
    Join Date
    Jun 2007
    Posts
    785
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    08-24-2007, 01:37 PM

    CLOSE

    [22:20] <[-jesus-]> freddy, go uninstall yourself

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. HomeTeleport
    By faster789 in forum OSR Help
    Replies: 10
    Last Post: 04-10-2008, 03:23 AM
  2. RadialRoadWalk?!
    By Eicca in forum Research & Development Lounge
    Replies: 9
    Last Post: 11-08-2007, 10:34 PM
  3. RadialRoadWalk
    By stuckman in forum OSR Help
    Replies: 11
    Last Post: 07-06-2007, 01:58 AM
  4. RadialRoadWalk is.............
    By rkroxpunk in forum OSR Help
    Replies: 21
    Last Post: 03-21-2007, 05:07 AM

Posting Permissions

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