Results 1 to 9 of 9

Thread: Need Help with ge yew woodcutter

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

    Default Need Help with ge yew woodcutter

    Hi I have a new script i am working on if someone can plz help with this i will credit ...
    It doesnt need much but i got most of it done i just need alittle bit someone plz just help me...
    Simba Code:
    program GeYewCuttingScript;

    {$DEFINE SMART}
    {$i srl/srl.simba}
    {$i sps/sps.simba}

    const
    {SMART Setup Constants}
      WORLD = 0;  // Set a world, if you'd like. Leave 0 to choose a random world.
      MEMBERS = False;  // Are you Members or Free-To-Play? False for F2P, True for P2P.
      SIGNED = True;  // True if running a single account, false otherwise.
    {---------------------------}
    {--------Script Info--------}
      Author = 'Oreokilla';
      Name = 'OreosyewKilla';
      Version = '1.0';
    {---------------------------}
    procedure DeclarePlayers; //This declares the players to be used in the script.
    begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;

      Players[0].Name := ''; //Your Runescape username
      Players[0].Pass := ''; //Your Runescape password
      Players[0].Nick := ''; //3 or 4 lowercase letters from your Runescape username. Used as a Nickname.
      Players[0].Active := True; //Set to true if you want to use this player. Set to False to disable this player.
      Players[0].Pin := ''; //Leave blank if the player doesn't have a Bank PIN.
    end;
    procedure SetupScript;
    begin;
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('Hope you enjoy this oak cutting script.');
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
      WriteLn('I made this My self.');
      WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
    end;
    procedure AntiBan;
    begin
      case random(50) of
          0: RandomRClick;
          1: PickUpMouse;
          2: RandomRClick;
          3: HoverSkill('woodcutting', False);
          4: SetAngle(SRL_ANGLE_HIGH);
      end;
    end;

    procedure Chopyews;
    var x, y: integer;
    begin
    SetAngle(SRL_ANGLE_HIGH);
        repeat
        WriteLn('Looking for ew to chop.');
        if FindObj(x, y, 'ew', 4937570, 5) then
        WriteLn('Cuttingyews.');
          Mouse(x, y, 0, 0, true);
          ChooseOption('hop');
          wait(3000+random(1000));
          Until not IsUpText('ew') or (InvFull);
          end;
       Procedure WalkToBank;
        Var
          myPath:TPointArray;
        Begin
        SetupSRL;
        SPS_Areas := ['11_6'];
    myPath := [Point(4644, 2623), Point(4553, 2724)];
     SPS_WalkPath(myPath);
     end;

    function Bank: Boolean;
    Var
      x, y: integer;
    begin
    if (InvFull) then
    begin
    Wait (300 + random(160));
    OpenBankQuiet('db');
    if(FindColorSpiral(x, y, 3745323, 547, 206, 734, 464))then
    begin
    Mouse(x, y, 4, 3, false);
    ChooseOption('All');
    end;
    CloseBank;
    Wait(150 + random (278));
    end;
    end;
    Procedure WalkToYews;
    Var
      myPath:TPointArray;
     Begin
    SetupSRL;
    SPS_Areas := ['11_6'];
    myPath := [Point(4553, 2720), Point(4648, 2624)];
     SPS_WalkPath(myPath);
     end;

       Begin
      Smart_Server := WORLD;
      Smart_Members := MEMBERS;
      Smart_Signed := SIGNED;
      Smart_SuperDetail := False;
      SetupSRL;
      SetupScript;
      declarePlayers;
      LoginPlayer;
      antiban;
      ChopYews;
      WalkToBank;
      Bank;
      walkToYews;
      repeat



    //Notice that AntiRandoms isn't in here. It would be useless to include because Reflection is currently broken.


      until AllPlayersInactive; //This stops the script completely once your player has failed. e.g. Gotten into a random event, died (almost impossible) or failed to find a tree.
    end.
    Last edited by oreokilla; 02-01-2012 at 12:39 AM.

  2. #2
    Join Date
    May 2007
    Location
    UK
    Posts
    4,007
    Mentioned
    1 Post(s)
    Quoted
    12 Post(s)

    Default

    First of all please wrap in [SIMBA] tags. <3

    -Boom

  3. #3
    Join Date
    Jan 2012
    Posts
    29
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    lol sry how do i do dat...

  4. #4
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    go advanced in an edit and look for simba. put your code in the tags.
    Last edited by tehq; 01-31-2012 at 11:49 PM.

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

    Default

    There you go guys this is my first script on this website so...
    And any help would be appreciated thanks...

  6. #6
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    i would change your banking procedure to something more manageable. Perhaps,
    Simba Code:
    Procedure Bank;
    begin
      if not LoggedIn then
      Exit;

      repeat
        SetAngle(srl_angle_high);
        OpenBanknpc;
        Wait(Random(700));
        until BankScreen or PinScreen;
        if PinScreen then
        begin
          repeat
            InPin(Players[0].Pin);
          until BankScreen or not (LoggedIn);
        end;
          if (invcount > 10) then
      begin

      QuickDeposit(SRL_DEPOSIT_ALL);
      WaitFunc(@InvEmpty, 50, 3000);
      end;

    also note: you have the option for a pin in DeclarePlayers, but don't utilize it in your banking function.
    Last edited by tehq; 02-01-2012 at 12:51 AM.

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

    Default

    Thank you.. any more help would be appreciated and also could you try running the script and see how it works... thank you so much
    p.s. i will credit you... lol i know its not much but i need this script done bad im a beginner at this and its getting on my nerves so i really want it done.. lol
    Last edited by oreokilla; 02-01-2012 at 12:58 AM.

  8. #8
    Join Date
    Nov 2011
    Location
    MA
    Posts
    545
    Mentioned
    3 Post(s)
    Quoted
    10 Post(s)

    Default

    Quote Originally Posted by oreokilla View Post
    Thank you.. any more help would be appreciated and also could you try running the script and see how it works... thank you so much
    p.s. i will credit you... lol i know its not much but i need this script done bad im a beginner at this and its getting on my nerves so i really want it done.. lol
    Check your inbox for some suggestions

  9. #9
    Join Date
    Dec 2011
    Posts
    1,162
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Looks good, i would create better sps paths though. Make the little things alot closer. It makes it way more accurate and will be better.Or at least does that in my script.
    Other than that looks good.

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
  •