Page 6 of 9 FirstFirst ... 45678 ... LastLast
Results 126 to 150 of 218

Thread: DannyRS - Taking P2P Requests

  1. #126
    Join Date
    May 2011
    Location
    FL
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    I really want to do some agility scripts but all my accounts dont have high agility
    Pyramid Plunder is thieving :P
    Soup

  2. #127
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Uzu View Post
    Pyramid Plunder is thieving :P
    Oh lol, I'll google whats required, maybe if i have the requirements


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  3. #128
    Join Date
    Apr 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    I'd love a simple script for crafting Urns. Possibly in East Varrock(has closable door at pottery place) or Ardougne(walking across the log shortcut), closer is probably Varrock. The idea for it is this: start at bank, take out full inventory of soft clay(need 2 clay per urn), walk to potter's wheel, craft 14 unfired urns, use pottery oven to fire the urns, go back to bank, repeat. I'd like to make the best urns (Decorated Cooking urn). Both beforementioned places have potter's wheel and oven.

  4. #129
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Mr Magic View Post
    I'd love a simple script for crafting Urns. Possibly in East Varrock(has closable door at pottery place) or Ardougne(walking across the log shortcut), closer is probably Varrock. The idea for it is this: start at bank, take out full inventory of soft clay(need 2 clay per urn), walk to potter's wheel, craft 14 unfired urns, use pottery oven to fire the urns, go back to bank, repeat. I'd like to make the best urns (Decorated Cooking urn). Both beforementioned places have potter's wheel and oven.
    made this a long while ago maybe you can add to it, put soft clay top right bank, and make one inv of urns before using

    Never added door opening

    (i think thats the setup)

    Simba Code:
    Program UrnMaker;

      {$Define SMART8}
      {$I SRL/SRL.Simba}
      {$I SRL/SRL/Misc/Debug.Simba}
      {$I Sps/Sps.Simba}
      {$i SRL/SRL/misc/reports.simba}

      {$IFDEF SMART8}
        {$I SRL/SRL/Misc/SmartGraphics.Simba}
      {$ENDIF}


    //Setup Variables

    Const

      Debug = True;

      WorldToUse = 31;                    //What World To Log Into (Recommend Low-Lag)

      DMP = True;                        // *** If the SPS Map is Not found found,
                                         //Download them and save them automatically,
                                         //you should leave this as true ***


      ScriptVersion = '1.0';             //Current ScriptVersion For Debug and Paint


    Procedure DeclarePlayers;
    Begin
      HowManyPlayers := 1;
      NumberOfPlayers(HowManyPlayers);
      CurrentPlayer := 0;
      Players[0].Name :='';
      Players[0].Pass :='';
      Players[0].Pin := '';
      Players[0].Nick :='';
      Players[0].Active:=True;
    End;



    ///////////////////////////////////////////////////////////////////////////////////////////
    //                                                                                       //
    //                            End of user setup                                          //
    //           Don't touch below this line unless you know what you're doing!!             //
    //                                                                                       //
    //           Thanks To Ashaman For this message, yes i am that lazy!                     //
    //                                                                                       //
    ///////////////////////////////////////////////////////////////////////////////////////////


    Var

      RunsMade: Integer;
      StartingExperience,ExperienceEarned: Integer;
      SpinTicketDTM: Integer;
      ToUrn,ToBank: TPointArray;

      //Import painting
      Prog: Integer;
      PaintArray: TStringArray;

    {*******************************-CREDITS-**************************************


    All of these mouse movements and typing are credited To benland100 and flight.

    Ashaman88 For his edits To benland100's and flight's already great functions

    Thanks also To Ashaman88 For his awesome scripts, i used one of
    his as a template when i was learning To make my first script


    *******************************************************************************}



    //By Bandland100, modified by Ashaman88 To shift mouse speeds after every step
    //
    Procedure SuperWindMouse(xs, ys, xe, ye, gravity, wind, minWait, maxWait, maxStep, targetArea: Extended);
    Var
      veloX,veloY,windX,windY,veloMag,dist,randomDist,lastDist,step: Extended;
      lastX,lastY,MSP,W: Integer;
      sqrt2,sqrt3,sqrt5: Extended;
    Begin
      MSP  := MouseSpeed;
      sqrt2:= sqrt(2);
      sqrt3:= sqrt(3);
      sqrt5:= sqrt(5);
      While hypot(xs - xe, ys - ye) > 1 Do
      Begin
        dist:= hypot(xs - xe, ys - ye);
        wind:= minE(wind, dist);
        If dist >= targetArea Then
        Begin
          windX:= windX / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
          windY:= windY / sqrt3 + (random(round(wind) * 2 + 1) - wind) / sqrt5;
        End Else
        Begin
          windX:= windX / sqrt2;
          windY:= windY / sqrt2;
          If (maxStep < 3) Then
          Begin
            maxStep:= random(3) + 3.0;
          End Else
          Begin
            maxStep:= maxStep / sqrt5;
          End;
        End;
        veloX:= veloX + windX;
        veloY:= veloY + windY;
        veloX:= veloX + gravity * (xe - xs) / dist;
        veloY:= veloY + gravity * (ye - ys) / dist;
        If hypot(veloX, veloY) > maxStep Then
        Begin
          randomDist:= maxStep / 2.0 + random(round(maxStep) div 2);
          veloMag:= sqrt(veloX * veloX + veloY * veloY);
          veloX:= (veloX / veloMag) * randomDist;
          veloY:= (veloY / veloMag) * randomDist;
        End;
        lastX:= Round(xs);
        lastY:= Round(ys);
        xs:= xs + veloX;
        ys:= ys + veloY;

        case Random(50) of
          1..25: W := (MSP + (Random((MSP/4))));
          26..50: W := (MSP - (RandomRange((MSP/2), MSP-1)));
        End;
        If (W < 1) Then
          W := 1;

        If (lastX <> Round(xs)) Or (lastY <> Round(ys)) Then
          MoveMouse(Round(xs), Round(ys));

        step:= hypot(xs - lastX, ys - lastY);
        //W := round((maxWait - minWait) * (step / maxStep) + minWait);
        wait(W);
        lastdist:= dist;
      End;

      If (Round(xe) <> Round(xs)) Or (Round(ye) <> Round(ys)) Then
        MoveMouse(Round(xe), Round(ye));

      MouseSpeed := MSP;
    End;

    Procedure HumanMMouse(eX, eY, ranX, ranY: Integer);
    Var
      randSpeed: Extended;
      X,Y,X2,Y2,j,Dist,MP: Integer;
    Begin
      j := MouseSpeed;
      GetMousePos(X, Y);
      Dist := Distance(X, Y, eX, eY);
      MP := Round(Dist/150);
      If MP < 0 Then
        MP := 1;

      randSpeed := (random(MouseSpeed) / 2.0 + MouseSpeed) / 10.0;
      X2 := RandomRange(eX-(j*MP), eX+(j*MP));
      Y2 := RandomRange(eY-(j*MP), eY+(j*MP));
      SuperWindMouse(X, Y, X2, Y2, 11, 8, 10.0 / randSpeed, 12.0 / randSpeed, 10.0 * randSpeed, 10.0 * randSpeed);
      GetMousePos(X, Y);
      MMouse(eX, eY, ranX, ranY);
      MouseSpeed := j;
    End;

    Procedure HumanMouseBox(X1, Y1, X2, Y2: Integer);
    Var
      FX, FY: Integer;
    Begin
      GaussBox(FX,FY,X1,Y1,X2,Y2);
      HumanMMouse(FX,FY,0,0)
    End;

    {*******************************************************************************
    Procedure FastClick(button: Integer);
    By: Flight
    Description: Quickly click the mouse.
    *******************************************************************************}


    Procedure FastClick(button: variant);
    Var
      x, y: Integer;
      ibutton: Integer;
    Begin
      If VariantIsBoolean(button) Then
      Begin
        If (button) Then
          iButton := mouse_left
        Else
          iButton := mouse_right;
      End Else
        iButton := button;

      If (iButton = mouse_move) Then Exit;
      GetMousePos(x, y);
      HoldMouse(x, y, iButton);

      Wait(RandomRange(60, 150));

      GetMousePos(x, y);
      ReleaseMouse(x, y, iButton);
    End;

    Procedure OffMM(RedTu, LeWait, rWait: Integer);
    Var
      W,H,RX,RY,T,RT: Integer;
    Begin
      GetClientDimensions(W,H);
      H:=H+50;
      RX := RandomRange(0, W);
      RY := RandomRange(0, H);
      Case (RedTu) Of
        0..1: HumanMMouse(W/2, RandomRange(-110,-60), RX, 0);
        2: HumanMMouse(RandomRange(-50,-10), H/2, 0, RY);
        3: HumanMMouse(W/2, h+RandomRange(10,50), RX, 0);
        4: HumanMMouse(W+RandomRange(10,50), H/2, 0, RY);
      End;
      RT:=(Random(rWait));
      MarkTime(T);
      Repeat
        Wait(Random(100));
      Until TimeFromMark(T)>(LeWait+RT);
    End;

    Procedure TypeFast(Text: String);
    Var
      I: Integer;
    Begin
      For I:=1 To Length(Text) Do
        SendKeys(Text[I],RandomRange(90,140),RandomRange(90,140));
        Wait(RandomRange(10,50));
    End;

    //
    {*******************************************************************************
    //
    //                               DannyRS's Part
    //
    *******************************************************************************}

    //

    Procedure LeftClickSpot(X1, Y1, X2, Y2: Integer);
    Var Y1NOBanner, Y2NOBanner: Integer;
    Begin
      Y1NOBanner:=Y1 - 50; Y2NOBanner:=Y2 - 50;
      HumanMMouse(RandomRange(X1,X2),RandomRange(Y1NOBanner,Y2NOBanner),0,0);
      Wait(9+Random(37));
      FastClick(true);
      Wait(124+Random(193));
    End;

    Procedure RightClickSpot(X1, Y1, X2, Y2: Integer);
    Var Y1NOBanner, Y2NOBanner: Integer;
    Begin
      Y1NOBanner:=Y1 - 50; Y2NOBanner:=Y2 - 50;
      HumanMMouse(RandomRange(X1,X2),RandomRange(Y1NOBanner,Y2NOBanner),0,0);
      Wait(9+Random(37));
      FastClick(false);
      Wait(124+Random(193));
    End;

    Procedure ClickCurrent(ToDo: Boolean);
    Var Y1NOBanner, Y2NOBanner: Integer;
    Begin
      Wait(9+Random(37));

      If ToDo = True Then
        Begin FastClick(True); End
      Else If ToDo = False Then
        Begin FastClick(False); End;

      Wait(224+Random(193));
    End;

    Procedure LoginHandler;
    Var Y1NOBanner, Y2NOBanner,x, y: Integer;
    Begin

      If (Not LoggedIn) Or (LobbyScreen) Then
        Begin
          If Not LoggedIn Then
            LoginPlayerToLob;
          If LobbyScreen Then
            Begin
              SelectWorld(WorldToUse);
            If LobbyScreen Then
              Begin
                Repeat
                  LeftClickSpot(259, 495, 504, 525);
                  Wait(2500);
                Until (FindColorSpiralTolerance(x, y, 143319, 703, 27, 708, 31, 40)) Or LoggedIn
              End;
            Wait(1224+Random(193));
            End;
        End;
    End;

    Procedure FindCustomObj(HM, SM, TOL, COL, XV, YV, S1, S2: Variant);
    Var
      tmpCTS, i, l, r, counter:integer;
      CustomObjTPA:TPointArray;
      CustomObjATPA:T2DPointArray;
      x,y:integer;
    Begin
      tmpCTS := GetToleranceSpeed;

      SetColorToleranceSpeed(2);
      SetToleranceSpeed2Modifiers(HM, SM);
      FindColorsTolerance(CustomObjTPA, COL, MSX1, MSY1, MSX2, MSY2, TOL);
      CustomObjATPA := SplitTPAEx(CustomObjTPA, XV, YV);
      SortATPASize(CustomObjATPA,True);

      SetColorToleranceSpeed(tmpCTS);
      SetToleranceSpeed2Modifiers(0.02, 0.02);

      L := High(CustomObjATPA)
      marktime(counter);
      for i := 0 to L do
        begin
          MiddleTPAEx(CustomObjATPA[i], x, y);
          r := random(L);
          HumanMMouse(x, y, 3, 5);
          if(Debug)then begin Writeln('We Saw The Object'); end;
          ClickCurrent(False);
          If (ChooseOptionMulti([S1,S2])) then
            Break;
          wait(randomrange(30, 160));

          if (TimeFromMark(counter) > 1500) then
            begin
              if(Debug)then begin Writeln('We Failed to See The Object'); end;
              Break;
            end;
        end;
    End;

    Function ClickCraftAll: Boolean;
    Var
      xpos, ypos: Integer;
      x, y: Integer;
      attempts: Integer;
      done: Boolean;
      temprand: Integer;
    Begin
      done:= false;
      temprand:= Random(20);
      HumanMMouse(RandomRange(259,483),RandomRange(303,324),0,0);
      repeat
      If (Not LoggedIn)Then
          Exit;
      begin
          if(FindColorSpiralTolerance(x, y, 8279557, 417, 280, 421, 284, 20))then
          begin
            if(temprand < 18)then
            begin
              //click craft
              if(Debug)then begin Writeln('Trying to Click Craft...'); end;
              Wait(5+Random(17));
              FastClick(true);
              Wait(1224+Random(293));
              if(Debug)then begin Writeln('Moving Cursor Somewhere While Crafting'); end;
              HumanMMouse(RandomRange(20,700),RandomRange(40,503),0,0);
              done:= true;
            end
            else
            begin
              //Rclick craft
              if(Debug)then begin Writeln('Trying to RClick Craft...'); end;
              xpos:= RandomRange(259,483);
              ypos := RandomRange(303,324);
              HumanMMouse(xpos,ypos,0,0);
              Wait(5+Random(17));
              FastClick(false);
              Wait(427+Random(193));


              xpos:= RandomRange(xpos-67,xpos+67);
              ypos := RandomRange((ypos+22),(ypos+35));
              HumanMMouse(xpos,ypos,0,0);
              Wait(15+Random(17));
              FastClick(true);
              Wait(1227+Random(193));
              if(Debug)then begin Writeln('Moving Cursor Somewhere While Crafting'); end;
              HumanMMouse(RandomRange(20,700),RandomRange(40,503),0,0);
              done:= true;
            end;
          end
          else
          begin
            if(Debug)then begin Writeln('Failed to See CraftAll'); end;
            attempts:= attempts+1;
            Wait(383+Random(193));
          end;
      end;
      until (attempts > 10) or (done);
      if(attempts > 10)then
      begin
        if(Debug)then begin
        Writeln('Failed to See CraftAll Within 10 Tries'); end; Result:=False; Exit;
      end
      else
      begin
        attempts:= 0;
        Result:=True;
      end;
    End;

    Procedure WaitCrafting;
    Var
      xpos, ypos: Integer;
      x, y: Integer;
      attempts: Integer;
      temprand: Integer;
      done: Boolean;
    Begin
      repeat
          begin
            if(Debug)then begin Writeln('Crafting...'); end;
            Wait(336+Random(197));
            Case Random(20) Of
             7: begin
                   if(Debug)then begin Writeln('Moving Cursor Somewhere While Crafting'); end;
                   HumanMMouse(RandomRange(20,700),RandomRange(40,503),0,0);
                end;
            end;
          end;
        until not (FindColorSpiralTolerance(x, y, 263402, 298, 177, 302, 181, 70))

        repeat begin
          if(Debug)then begin Writeln('waiting for EoC crafting UI to close'); end;
          Wait(724+Random(393));
        end; until not (FindColorSpiralTolerance(x, y, 2929149, 418, 58, 422, 62, 15))
    End;

    Procedure LogOutGame;
    Var
      xpos, ypos: Integer;
      x, y: Integer;
      attempts: Integer;
      done: Boolean;
    Begin
      done:= false;
      Repeat
      If (Not LoggedIn)Then
          Exit;
      Begin
        If(FindColorSpiralTolerance(x, y, 143319, 703, 28, 705, 30, 10)) And LoggedIn Then
        Begin
          //click x
          xpos:= RandomRange(746,759);
          ypos := RandomRange(3,15);
          HumanMMouse(xpos,ypos,0,0);
          Wait(5+Random(17));
          FastClick(true);
          Wait(1427+Random(193));

          //click logout
          xpos:= RandomRange(572,710);
          ypos := RandomRange((351),(372));
          HumanMMouse(xpos,ypos,0,0);
          Wait(15+Random(17));
          FastClick(true);
          Wait(1527+Random(193));
          done:= true;
        End Else
        Begin
          attempts:= attempts+1;
          Wait(263+Random(193));
        End;
      End;
      Until (attempts > 10) Or (done);
      If(attempts > 10)Then
      Begin
          If(Debug)Then Begin Writeln('Failed To Logout'); End; Exit;
      End Else
      Begin
          attempts:= 0;
      End;
    End;

    Procedure CloseBankUp;
    Var
      x,y: Integer;
    Begin
      if(FindColorSpiralTolerance(x, y, 4512575, 356, 312, 362, 318, 25))then
        begin
          //Close Bank
          if(Debug)then begin Writeln('Closing Bank'); end;
          HumanMMouse(RandomRange(482,494),RandomRange(28,41),0,0);
          Wait(9+Random(37));
          FastClick(true);
          Wait(327+Random(283));
        end;
    End;

    Procedure BankAllButton;
    Var
      xpos, ypos: Integer;
      x, y: Integer;
      attempts: Integer;
      temprand: Integer;
      done: Boolean;
    Begin
      done:= false;
      temprand:= Random(20);
      repeat
      begin

      IF (PinScreen) Then InPin(Players[0].Pin);

      if(temprand < 18)then
        begin
          if(FindColorSpiralTolerance(x, y, 4512575, 358, 313, 360, 316, 20))then
          begin
            //Bank All
            if(Debug)then begin Writeln('Banking All'); end;
            HumanMMouse(RandomRange(355,382),RandomRange(299,315),0,0);
            Wait(15+Random(17));
            FastClick(true);
            Wait(627+Random(183));
            done:= true;
          end
          else
          begin
            if(Debug)then begin Writeln('failed to see bank All button'); end;
            attempts:= attempts+1;
            Wait(83+Random(193));
          end;
        end
        else
        begin
        if(FindColorSpiralTolerance(x, y, 4512575, 358, 313, 360, 316, 20))then
          begin
            if(Debug)then begin Writeln('Banking All via RClick'); end;
            xpos:= RandomRange(355,382);
            ypos := RandomRange(299,315);
            HumanMMouse(xpos,ypos,0,0);
            Wait(5+Random(17));
            FastClick(false);
            Wait(427+Random(193));


            xpos:= RandomRange(xpos-74,xpos+74);
            ypos := RandomRange((ypos+22),(ypos+36));
            HumanMMouse(xpos,ypos,0,0);
            Wait(15+Random(17));
            FastClick(true);
            Wait(627+Random(193));
            done:= true;
          end
          else
          begin
            if(Debug)then begin Writeln('Failed to See BankAllButton'); end;
            attempts:= attempts+1;
            Wait(83+Random(193));
          end;
        end;
      end;
      until (attempts > 20) or (done);
      if(attempts > 20)then
      begin
        if(Debug)then begin Writeln('Failed to See BankAllButton after 20'); end;
        SPS_WalkPath(ToBank);
        Wait(1585+Random(257));
        Exit;;
      end
      else
      begin
          attempts:= 0;
      end;
    End;

    Function CheckSpinTicket: Boolean;
    Var
      xpos, ypos: Integer;
      x, y: Integer;
      attempts: Integer;
      temprand: Integer;
      done: Boolean;
    Begin
      if (FindDTM(SpinTicketDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
        begin
          CloseBankUp;
          if(Debug)then begin Writeln('We See a SpinTicket using'); end;
          HumanMMouse(RandomRange(x-4,x+4),RandomRange(y-4,y+4),0,0);
          ClickCurrent(True);
          ClickCurrent(True);
          Result:=True;
        end else
        begin
          Result:=False;
        end;
    End;

    Procedure MainLoop;
      Var xpos, ypos: Integer;
      Var x, y: Integer;
      Var Done,UsedExit: Boolean;
      Var dead: Boolean;
      Var CheckIdle: Integer;

    Begin
    Writeln('Welcome To UrnMaker by DannyRS');
    //Pause Before Start Script
    Writeln('Starting in 3...');
    Wait(1000);
    Writeln('Starting in 2...');
    Wait(1000);
    Writeln('Starting in 1...');
    Wait(1000);

      Repeat
        If Not(Debug)Then Begin ClearDebug; End;
        Done := False;

        If (Not LoggedIn) Or LobbyScreen Then
          LoginHandler;

        SPS_WalkPath(ToBank);

        if (FindDTM(SpinTicketDTM, x, y, MIX1, MIY1, MIX2, MIY2)) then
        begin
          CloseBankUp;
          if(Debug)then begin Writeln('We See a SpinTicket using'); end;
          HumanMMouse(RandomRange(x-4,x+4),RandomRange(y-4,y+4),0,0);
          ClickCurrent(True);
          HumanMMouse(RandomRange(x-4,x+4),RandomRange(y-4,y+4),0,0);
          ClickCurrent(True);
        end;

        CloseBankUp;
        FindCustomObj(0.17, 0.82, 12, 4007982, 5, 5, 'Bank B', 'ank B');
        BankAllButton;
        RightClickSpot(438, 146, 458, 160);
        if (ChooseOptionMulti(['Withdraw-All','ithdraw-All'])) then
          Wait(185+Random(257))
        else
          Continue;

        SPS_WalkPath(ToUrn);
        Wait(1885+Random(257));

        FindCustomObj(1.20, 0.10, 2, 10066336, 5, 5, 'Form', 'Orm');
        Wait(1585+Random(257));

        ClickCraftAll;
        WaitCrafting;

        SPS_WalkPath(ToBank);
        Wait(1585+Random(257));

        If(Debug)Then Begin Writeln('Reached End of Main Loop'); End;

        //Done:=True; //debuging only
      Until Done;
    End;

    {*******************************-CREDIT-***************************************

    All Credit To Ashaman and where ever he learned it, For the map grabbing !!

    *******************************************************************************}


    Procedure DownloadSPSImage(ImageName: String; Location: String);
    Var
      Image, Path: string;
      FP: Integer;
    Begin
      If(Debug)Then Begin Writeln('Downloading SPS Map Image'); End;
      Image:= GetPage(Location);
      Path:= IncludePath + 'SPS\img\runescape_other\' + ImageName + '.png';
      Path:= Trim(Path);
      FP:= CreateFile(Path);
      WriteFileString(FP, Image);
      CloseFile(FP);
    End;

    Function GrabSPSMaps: Boolean;
    Var
      SWMap,SWName: String;
    Begin
      SWName:= 'URNSPS';

      SWMap:= 'http://i.imgur.com/KSeSL.png';

      If DMP Then
      Begin
        If (Not FileExists(IncludePath + 'SPS\img\runescape_other\URNSPS.png')) Then
          DownloadSPSImage(SWName, SWMap);
      End;
      Result:= (FileExists(IncludePath + 'SPS\img\runescape_other\URNSPS.png'));
    End;

    Procedure RequirementsCheck;
    Begin
      If (Not GrabSPSMaps) Then
        RaiseException(erCustomError, 'SPS Maps Do Not Exist OR They Are Named Incorrectly!');
    End;

    Procedure FreeGlobals;
    Begin
      FreeDTM(SpinTicketDTM);
    End;

    Procedure SetMyGlobals;
    Begin

      SpinTicketDTM := DTMFromString('mggAAAHicY2NgYMhlYmBIhuIyKC4GYjFGBgYhIJYBYn4oDRKbaqzL0J9ih4JXL1/MwAU0CxtmxIEhAABpRQsg');

      ToUrn:= [Point(197, 133), Point(197, 146), Point(196, 152), Point(196, 159), Point(197, 163), Point(198, 171), Point(198, 176), Point(197, 184), Point(196, 189), Point(191, 193), Point(189, 199), Point(188, 203), Point(186, 211), Point(185, 215), Point(183, 220), Point(182, 226), Point(182, 233), Point(184, 239), Point(185, 245)]
      ToBank:= [Point(184, 244), Point(184, 235), Point(184, 227), Point(185, 218), Point(186, 211), Point(187, 205), Point(190, 199), Point(193, 192), Point(195, 185), Point(195, 176), Point(196, 167), Point(196, 159), Point(197, 149), Point(194, 143), Point(191, 137), Point(185, 132), Point(176, 131), Point(170, 130), Point(166, 130), Point(163, 138), Point(163, 144), Point(163, 151), Point(163, 163)]

    End;

    Procedure Setup;

    Var x,y: Integer;

    Begin
      {$IFDEF SIMBAMAJOR980}
        SMART_SERVER := 10;
        SMART_MEMBERS := TRUE;
        SMART_SIGNED := TRUE;
        SMART_SUPERDETAIL := FALSE;
      {$ELSE}
        SRL_SIXHOURFIX := TRUE;
        SMART_FIXSPEED := TRUE;
      {$ENDIF}

      SetupSRL;

      ClearDebug;
      RequirementsCheck;

      DeclarePlayers;

      SPS_Setup(RUNESCAPE_OTHER, ['URNSPS']);

      SetMyGlobals;

      AddOnTerminate('FreeGlobals');

      LoginHandler;

      ClickNorth(SRL_ANGLE_HIGH);

      SmartSetRefresh(90);
    End;

    Begin
      Setup;
      ActivateClient;
      ClearDebug;
      MainLoop;
      LogOutGame;
    End.


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  5. #130
    Join Date
    Sep 2012
    Location
    Legolan, Ireland
    Posts
    542
    Mentioned
    0 Post(s)
    Quoted
    50 Post(s)

    Default

    Why not do low level agility for barbarian assault?
    Have you felt the whale lately?
    .__________.
    Whale so hard.

  6. #131
    Join Date
    Apr 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    made this a long while ago maybe you can add to it, put soft clay top right bank, and make one inv of urns before using

    Never added door opening

    (i think thats the setup)
    I keep coming with a lot of Hints that quite a few variables are never used and an error that Runescape_other is unknown identifier.. Well, I guess I'll try to fix it for myself when I have more time, like in a month or so... Thanks anyway

  7. #132
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Mr Magic View Post
    I keep coming with a lot of Hints that quite a few variables are never used and an error that Runescape_other is unknown identifier.. Well, I guess I'll try to fix it for myself when I have more time, like in a month or so... Thanks anyway
    do you have simba extensions setup and up to date?


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  8. #133
    Join Date
    Apr 2012
    Posts
    17
    Mentioned
    0 Post(s)
    Quoted
    8 Post(s)

    Default

    Yes. I managed to somewhat fix it. It had something to do with SPS.dll. Now it just gives the hints that some variables are never used. But I think I'll fix it another time when I have more time, got to go now. Thanks for the script.

  9. #134
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Mr Magic View Post
    Yes. I managed to somewhat fix it. It had something to do with SPS.dll. Now it just gives the hints that some variables are never used. But I think I'll fix it another time when I have more time, got to go now. Thanks for the script.
    hints wont stop it working btw


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  10. #135
    Join Date
    May 2011
    Location
    FL
    Posts
    30
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    Oh lol, I'll google whats required, maybe if i have the requirements
    I think anybody can do it, but there are quests to get you there faster I believe.
    Soup

  11. #136
    Join Date
    Aug 2010
    Posts
    213
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    hmmm... how about a kyatt summoning script, like makes pouches, or makes scrolls from pouches.

  12. #137
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by fiery oblivion View Post
    hmmm... how about a kyatt summoning script, like makes pouches, or makes scrolls from pouches.
    Really busy atm, I dont know what it would have to do, and i dont have the summoning, but if you learned Very basic simba scripting you could do it , if its just inventory clicking or something list what it is and i can probably write it


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  13. #138
    Join Date
    Aug 2010
    Posts
    213
    Mentioned
    0 Post(s)
    Quoted
    34 Post(s)

    Default

    hehe. i might give it a shot, tzhaar banking might be a bit hard, afaik they're all black and orange all over lol
    <--Previously known as fiery oblivion-->

  14. #139
    Join Date
    May 2012
    Location
    Somewhere in, PA
    Posts
    1,810
    Mentioned
    9 Post(s)
    Quoted
    226 Post(s)

    Default

    Quote Originally Posted by chongc View Post
    hehe. i might give it a shot, tzhaar banking might be a bit hard, afaik they're all black and orange all over lol
    Ashaman has a tzhaar banking function in his Altar script, if you want to check that out.
    My First Build!, Selling Downloadable Games
    -------------------------------------

  15. #140
    Join Date
    Dec 2011
    Location
    Hyrule
    Posts
    8,662
    Mentioned
    179 Post(s)
    Quoted
    1870 Post(s)

    Default

    Quote Originally Posted by Austin View Post
    Ashaman has a tzhaar banking function in his Altar script, if you want to check that out.
    Yesh it is possible to do. Other players are the real annoying part

  16. #141
    Join Date
    Jan 2012
    Location
    Calgary, AB, Canada
    Posts
    1,819
    Mentioned
    5 Post(s)
    Quoted
    120 Post(s)

    Default

    I might do the kyatt summoner but not totally sure about it
    Current Project: Retired

  17. #142
    Join Date
    Apr 2012
    Location
    Vancouver, BC
    Posts
    291
    Mentioned
    1 Post(s)
    Quoted
    84 Post(s)

    Default

    Hey Danny,

    I have been following your scripts for a while and am a big fan. I saw a few ideas that I am glad you cant work on since I am trying my hand at one of them for my membership application . I am not a programmer by nature so what takes you about 1 hour to complete will probably take me a week but I suppose thats how we learn. I also saw you got member status! Congrats!

    One script I thought about working on, but it would only be ideal for high levels, is a cannonball maker. It would be for Port Phasmatys and for it to be really effective would require completion of the Morytania Hard tasks which reward the Morytania legs 3. These 1/2 the time it takes to smith cannonballs - http://runescape.wikia.com/wiki/Morytania_legs_3

    Essentially you could/would need a ghost speak amulet and steel bars. I see the only hard part is the walking and door opening. Other than that its a simple bank, withdraw bars, walk to furnace, smelt bars, walk to bank, and repeat.

    Just an idea though ...

    Cheers,

    DN

  18. #143
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by digitalninja View Post
    Hey Danny,

    I have been following your scripts for a while and am a big fan. I saw a few ideas that I am glad you cant work on since I am trying my hand at one of them for my membership application . I am not a programmer by nature so what takes you about 1 hour to complete will probably take me a week but I suppose thats how we learn. I also saw you got member status! Congrats!

    One script I thought about working on, but it would only be ideal for high levels, is a cannonball maker. It would be for Port Phasmatys and for it to be really effective would require completion of the Morytania Hard tasks which reward the Morytania legs 3. These 1/2 the time it takes to smith cannonballs - http://runescape.wikia.com/wiki/Morytania_legs_3

    Essentially you could/would need a ghost speak amulet and steel bars. I see the only hard part is the walking and door opening. Other than that its a simple bank, withdraw bars, walk to furnace, smelt bars, walk to bank, and repeat.

    Just an idea though ...

    Cheers,

    DN
    Thanks still can't actually believe i got in to members

    It would be quite easy to do a cannonball maker, but unfortunately i can't get to PP on any acc


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  19. #144
    Join Date
    Dec 2012
    Posts
    2
    Mentioned
    0 Post(s)
    Quoted
    1 Post(s)

    Default

    Not sure if this would be at all possible. But a task completion script? Something that completes the task sets .
    Just a thought

  20. #145
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Magic_monkey View Post
    Not sure if this would be at all possible. But a task completion script? Something that completes the task sets .
    Just a thought
    Would take too long for the gain sorry


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  21. #146
    Join Date
    Nov 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    a script that charges air orbs and banks thems

  22. #147
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by aqwyami View Post
    a script that charges air orbs and banks thems
    I've never done the orb thing, so it banks somewhere for unpowered orbs then runs to that place above edge and uses them then teleports out somehow?

    If you can explain more maybe I can make something happen


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  23. #148
    Join Date
    Jan 2012
    Posts
    1,104
    Mentioned
    18 Post(s)
    Quoted
    211 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    I've never done the orb thing, so it banks somewhere for unpowered orbs then runs to that place above edge and uses them then teleports out somehow?

    If you can explain more maybe I can make something happen
    You withdraw uncharged orbs, go to that obelisk, use Charge X Orb spell (it used to be one click and wait till all orbs charged) and bank.

  24. #149
    Join Date
    Nov 2012
    Posts
    2,351
    Mentioned
    55 Post(s)
    Quoted
    603 Post(s)

    Default

    Quote Originally Posted by Shatterhand View Post
    You withdraw uncharged orbs, go to that obelisk, use Charge X Orb spell (it used to be one click and wait till all orbs charged) and bank.
    Seems easy enough, but I dont know how to get there what bank to use what teleport to use, etc, etc, no point making something if its not done right and efficiently


    Programming is like trying keep a wall of shifting sand up, you fix one thing but somewhere else starts crumbling

  25. #150
    Join Date
    Nov 2012
    Posts
    7
    Mentioned
    0 Post(s)
    Quoted
    5 Post(s)

    Default

    Quote Originally Posted by DannyRS View Post
    Seems easy enough, but I dont know how to get there what bank to use what teleport to use, etc, etc, no point making something if its not done right and efficiently
    http://www.youtube.com/watch?v=UjJ-V5mx7QA

    This explains it, you use amulet of glory to go back to edge

Page 6 of 9 FirstFirst ... 45678 ... LastLast

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
  •