Results 1 to 19 of 19

Thread: Thinking of a Script to Attempt.

  1. #1
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default Thinking of a Script to Attempt.

    Any Idea?
    Things I'm not going to do
    • Fighting
    • Summoning
    • Ow and Obv Dung :P

    I may do a Hunter.
    Please Post Idea's Below.
    Thanks
    Mat



    ^^

  2. #2
    Join Date
    Aug 2008
    Posts
    10
    Mentioned
    1 Post(s)
    Quoted
    1 Post(s)

    Default

    -Nissan Nut

  3. #3
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    I may have a go but I don't think I'd release to the Public I'd probably Use of a SRL Application.
    Mat



    ^^

  4. #4
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Well here's the list of ideas I've had in mind for myself.

    Shilo village fly fisher
    Orb maker
    Fire rune crafter via duel rings
    Monkfisher
    various hunter scripts
    and some fighting scripts that you wouldn't be interested in.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  5. #5
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Shilo Village that near the Nature Altar?
    I like the Idea of the RuneCrafting one as I like Runecrafting :P
    I think I'm gonna have ago at the Runecrafter
    Thank Pat
    Mat
    P.s. I've got your name in my Sig



    ^^

  6. #6
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Cool,I'm Jesus!

    And np, I was going to do that weeks ago and never started it,good luck,shouldn't be too hard.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  7. #7
    Join Date
    Jul 2010
    Posts
    1,115
    Mentioned
    1 Post(s)
    Quoted
    10 Post(s)

    Default

    Earth runes :-)

  8. #8
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Quote Originally Posted by bolshak25 View Post
    Earth runes :-)
    If I did that would it just be walking wouldn't it?
    Mat
    (But I'm gonna have a go at the Teleporting Fire crafter
    May Start that after )



    ^^

  9. #9
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Btw, how does this qualify as a utility? =p

    That does give me an interesting ides for a fun utility for people who want script ideas.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  10. #10
    Join Date
    Dec 2011
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Program that randomly picks from a list of current requests? Possibly even auto-updated?

  11. #11
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by Grihmm View Post
    Program that randomly picks from a list of current requests? Possibly even auto-updated?
    Am I really that predictable?

    You guessed it on the money, I have some ideas for it that can narrow a search.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  12. #12
    Join Date
    Dec 2011
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    You may be predictable, but I don't know you well enough to have read you. We both had the same idea is all.

  13. #13
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    I just picked one out of the list :P My Bad
    Owell
    Mat
    Update
    I've got it to tele and Pick up on the ring crumbling.



    ^^

  14. #14
    Join Date
    Dec 2011
    Posts
    484
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Nice. I am willing to help test. Just let me know.

  15. #15
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Right I've got it to run it all, craft tele out etc. Currently no Fail safes etc Need to add.
    Having to use Radical walking, I've got to admit I like it :P a lot more Fun than SPS to make
    Mat
    Edit RadicalWalking is a bitch!
    Last edited by Mat; 01-01-2012 at 10:23 PM.



    ^^

  16. #16
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Okay Given up...
    Banking works Teleporting works Ring Detection works but Walking in the desert just can't work SPS doesn't work Radial walking is a bitch and with fagex constantly changing the colours its impossible for me anyway.
    Simba Code:
    program new;
    {$DEFINE SMART}
    {$i srl/srl.scar}
    {$i sps/sps.simba}
    Var
    X,Y:Integer;
    procedure DeclarePlayers;
    begin
      HowManyPlayers := 1; // Number of Players to use
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0; // Player to start with, first one is 0
      Players[0].Name := ''; // Username
      Players[0].Pass := ''; // Password
      Players[0].Active := True; // True if you are using this player
      Players[0].Pin := ''; // Bank Pin. Leave it if you don't have one.
      Players[0].Integers[1] := 10000; // Number of loads
    end;
    Function WalkingToBank:Boolean;
    Var
    ToBank:TPoint;
    Begin
      SPS_Setup(RUNESCAPE_SURFACE,['4_10','3_10','4_11']);
      ToBank :=  Point(1622, 4336);
      SPS_WalkToPos(ToBank);
      Wait(700+Random(200));
    End;
    Function DepositRunes:Boolean;
    Var
    Fire:Integer;
    Begin
      Fire := BitmapFromString(10, 4, 'meJwTV5wnDkM1NU3iSNzm5k5kblV' +
            '1AzKXQgQAiy4jbQ==');

      If FindBitMapTolerancein(Fire,X,Y,MIX1,MIY1,MIX2,MIY2,45) then
      Begin
        MMouse(X,Y,6,6);
        ClickMouse2(False);
        Wait(100+Random(100));
        ChooseOption('Deposit-All');
      End;
      FreeBitMap(Fire);
    End;
    Function DepositEss:Boolean;
    Var
    Ess:integer;
    Begin
      Ess := BitmapFromString(9, 5, 'meJwzNTU3NTU3t7ACIisrWxtbewiy' +
            't3cyMjKBI2Q1QKSlpQNEurr6+gZGQARRAFGjoqIKROrqmhAFEDVAB' +
            'UwMDLiQsbExABKMFcg=');
     If FindBitMapTolerancein(Ess,X,Y,MIX1,MIY1,MIX2,MIY2,45) then
        Begin
          MMouse(X,Y,6,6);
          ClickMouse2(False);
          Wait(300+Random(150));
          ChooseOption('Deposit-All');
        End;
      FreeBitMap(Ess);
    End;
    Function RingChecker:Boolean;
    Var
    DuelRing:Integer;
    Begin
      DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
            'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
            '5RbJxCfFxgYKlonBAAKbhfV');
      If FindBlackChatMessage('crumbles to dust') then
      Begin
        Writeln('Withdrawing Ring');
        If FindBitMapTolerancein(DuelRing,x,y,MSX1,MSY1,MSX2,MSY2,45) then
        Begin
          DepositEss;
          MMouse(X,Y,6,6);
          ClickMouse2(True);
          Wait(1100+Random(150));
          If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
          Begin
            MMouse(X,Y,6,6);
            ClickMouse2(False);
            Wait(400+Random(50));
            ChooseOption('Wear');
          End;
        End else
        Writeln('Cant Find ring');
      End else
      Begin
        Writeln('No Need to Take another Ring Yet');
      End;
    FreeBitMap(DuelRing);
    End;
    Function WithdrawEss:Boolean;
    Var
    Ess:integer;
    Begin
      Ess := BitmapFromString(9, 5, 'meJwzNTU3NTU3t7ACIisrWxtbewiy' +
            't3cyMjKBI2Q1QKSlpQNEurr6+gZGQARRAFGjoqIKROrqmhAFEDVAB' +
            'UwMDLiQsbExABKMFcg=');
     If FindBitMapTolerancein(Ess,X,Y,MSX1,MSY1,MSX2,MSY2,45) then
        Begin
          MMouse(X,Y,6,6);
          ClickMouse2(False);
          Wait(300+Random(150));
          ChooseOption('Withdraw-All');
        End else
        Begin
          Logout;
          TerminateScript;
        End;
      FreeBitMap(Ess);
    End;
    Function ChestFinding:Boolean;
    Var
    X, Y:Integer;
    Begin
      If  (FindObjEx(X, Y, ['ank','chest','k chest','Bank chest'], [5789788, 6122360, 12698314, 3424846], 5, 10, 280, 100, 330, 220))then
      Begin
        MMouse(X,Y,6,6);
        Wait(100+Random(200));
        ClickMouse2(True);
      End;
    End;
    Function TelePortingDuel:Boolean;
    Var
    DuelRing:Integer;
    Begin
      GameTab(Tab_Equip);
      DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
            'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
            '5RbJxCfFxgYKlonBAAKbhfV');
      If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
        Begin
          MMouse(X,Y,6,6);
          ClickMouse2(False);
          Wait(400+Random(50));
          ChooseOption('Duel');
          GameTab(Tab_Inv);
          Wait(3200+Random(230));
        End else
        Begin
        ChestFinding;
        If PinScreen then
          Wait(1400+Random(300));
          InPin(Players[CurrentPlayer].Pin);
        Wait(1400+Random(300));
        If BankScreen then
        Begin
          DepositEss;
          If FindBitMapTolerancein(DuelRing,x,y,MSX1,MSY1,MSX2,MSY2,45) then
          Begin
            MMouse(X,Y,6,6);
            ClickMouse2(True);
            Wait(1100+Random(150));
            If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
            Begin
              MMouse(X,Y,6,6);
              ClickMouse2(False);
              Wait(400+Random(50));
              ChooseOption('Wear');
            End;
          End;
          WithdrawEss;
          CloseBank;
          TeleportingDuel;
        End;
      End;
      FreeBitMap(DuelRing);
    End;
    Function TelePortingCastle:Boolean;
    Var
    DuelRing:Integer;
    Begin
      GameTab(Tab_Equip);
      DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
            'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
            '5RbJxCfFxgYKlonBAAKbhfV');
      If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
        Begin
          MMouse(X,Y,6,6);
          ClickMouse2(False);
          Wait(400+Random(50));
          ChooseOption('Castle');
          GameTab(Tab_Inv);
          Wait(3200+Random(230));
        End;
      FreeBitMap(DuelRing);
    End;
    Function WalkingToRuins:Boolean;
    Var
    ColorsGate:TIntegerArray;
    I:Integer;
    Begin
      ColorsGate := [328682, 1528, 2034, 197104, 133098, 133102, 65779, 460523, 198631, 262638];
      For i := 0 to 8 do

      RadialWalkTolerance(ColorsGate[i], -125, -45, 20, -1, 0, 55);
      Wait(600+Random(300));
      RadialWalkTolerance(3632975,-65 ,-45 ,55 , -1, 0, 25);
      Wait(600+Random(300));
      RadialWalkTolerance(6257807, 35, 50, 50, -1, 0, 25);
      Wait(1400+Random(300));
    End;
    Function WalkingToAltar:Boolean;
    Begin
      RadialWalkTolerance(3952729, 120, 135,40, -1, 0, 25);
      Wait(1500+Random(300));
    End;
    Function EnteringAltar:Boolean;
    Var
    X, Y:Integer;
    Begin
      If  (FindObjEx(X, Y, ['Enter','Mysterious ruins'], [2763820, 5210621, 7567480, 5593433], 5, 5, 100, MSY1, MSX2, 200)) then
      Begin
        MMouse(X,y,3,3);
        ClickMouse2(True);
      End else
        Begin
         If (FindObjEx(X, Y, ['Enter','Mysterious ruins'], [2763820, 5210621, 7567480, 5593433], 5, 5, MSX1, MSY1, MSX2, MSY2)) then
         Begin
          MMouse(X,y,6,6);
          ClickMouse2(True);
         End else
          Begin
            Logout;
            TerminateScript;
          End;
        End;

    End;
    Function FindingAltar:Boolean;
    Var
    X, Y:Integer;
    Begin
      If  (FindObjEx(X, Y, ['Al','tar','Altar'], [6446689, 5461847, 6975086, 6317156], 5, 10, MSX1, 200, MSX2, MSY2))then
      Begin
        MMouse(X,y,6,6);
        ClickMouse2(True);
      End else
        Begin
          Logout;
          TerminateScript;
        End;
    End;
    Function Bank:Boolean;
    Begin
      WalkingToBank;
      ChestFinding;
      Wait(1300+Random(300));
      If PinScreen then
        InPin(Players[CurrentPlayer].Pin);
      Wait(800+Random(200));
      If BankScreen then
      Begin
        RingChecker;
        Wait(200+Random(100));
        DepositRunes;
        Wait(200+Random(100));
        WithdrawEss;
        Wait(200+Random(100));
        CloseBank;
      End else
      Begin
        Bank;
      End;
    End;
    Function StartRingFind:Boolean;
    Var
    DuelRing:Integer;
    Begin
      DuelRing := BitmapFromString(8, 4, 'meJxjYmCQWy8FQaJVQhDEF8rDBBOX' +
            'XSspNVscgiDiQCRc0CSQWMAbGCfRLwpE4t0iEr2LJaesEW+fK1rdL' +
            '5RbJxCfFxgYKlonBAAKbhfV');
      GameTab(tab_Equip);
      Wait(300+Random(200));
      If FindBitMapTolerancein(DuelRing,X,Y,MIX1,MIY1,MIX2,MIY2,45) then
      Begin
        MMouse(X,Y,6,6);
        Wait(500+Random(300));
        GameTab(Tab_Inv);
      End else
      Begin
        GameTab(Tab_Inv);
        ChestFinding;
        If PinScreen then
          Wait(1400+Random(300));
          InPin(Players[CurrentPlayer].Pin);
        Wait(1400+Random(300));
        If BankScreen then
        Begin
          DepositEss;
          If FindBitMapTolerancein(DuelRing,x,y,MSX1,MSY1,MSX2,MSY2,45) then
          Begin
            MMouse(X,Y,6,6);
            ClickMouse2(True);
            Wait(1100+Random(150));
            If FindBitMapTolerancein(DuelRing,x,y,MIX1,MIY1,MIX2,MIY2,45) then
            Begin
              MMouse(X,Y,6,6);
              ClickMouse2(False);
              Wait(400+Random(50));
              ChooseOption('Wear');
            End;
          End;
        End;
      End;
      FreeBitMap(DuelRing);
    End;
    begin
      MouseSpeed := RandomRange(14,16);
      smart_server := 16;
      smart_members := false;
      smart_signed := true;
      smart_superDetail := false;
      ClearDebug;
      SetupSRL;
      DeclarePlayers;
      LoginPlayer;
      StartRingFind;
      Repeat
      Wait(500+Random(200));
      Bank;
      Wait(300+Random(100));
      TelePortingDuel;
      Wait(500+Random(200));
      WalkingToRuins;
      Wait(1000+Random(200));
      EnteringAltar;
      Wait(4300+Random(200));
      Writeln('Wait over trying to walk to altar!');
      WalkingToAltar;
      Wait(100+Random(200));
      FindingAltar;
      Wait(500+Random(200));
      TelePortingCastle;
      Until(Not Loggedin);
    end.
    Heres the code if anyone wants to have a go at it.
    Mat



    ^^

  17. #17
    Join Date
    Feb 2011
    Location
    Earth
    Posts
    1,784
    Mentioned
    1 Post(s)
    Quoted
    0 Post(s)

    Default

    Camaro' walking method might work for the desert, I use it in a POH in my fm'er. I'm not on my computer so I can't link you to it, but it should be in the same section as the other walking tutorials.

    Currently: Working on Defending&Attacking in my Castle-Wars Script
    Project Rebuild: 90M/170M

  18. #18
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    I can't see anything on his walking about deserts :/
    Mat
    I was trying to get it to walk to the gate then to a cacti then to another cacti near the altar. Worked some times but :/
    Mat



    ^^

  19. #19
    Join Date
    Nov 2011
    Posts
    1,589
    Mentioned
    9 Post(s)
    Quoted
    17 Post(s)

    Default

    Change of Plan Working on a Law Runecrafter :P
    Mat
    (Doing the Quest about to plant the tree then off to bed )



    ^^

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
  •