Results 1 to 5 of 5

Thread: runebuyer v0.1

  1. #1
    Join Date
    Nov 2006
    Posts
    1,103
    Mentioned
    0 Post(s)
    Quoted
    6 Post(s)

    Default runebuyer v0.1

    SCAR Code:
    {.include srl/srl.scar}
    {.include srl/srl/misc/amount.scar}
    {.include srl/srl/skill/buysell.scar}

    /works only for aubury... for now:)\\

    const
    NumbahOfPlayer = 1;//amount of players
    Members = true;//like duh


    type Activeworld = record
    WorldNumber:integer;
    Active:boolean;
    Member:boolean;
    end;

    var
    MyWorlds:array[0..131] of ActiveWorld;

    Procedure DeclarePlayers;
    begin
         NumberOfPlayers(NumbahOfPlayer);

         Players[0].Name     :='';
         Players[0].Pass     :='';
         Players[0].Nick     :='';
         Players[0].Active   := true;

         CurrentPlayer := 0;

    end;


    ///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    procedure DeclareWorlds;

    begin
    MyWorlds[0].WorldNumber:=1;
    MyWorlds[0].Active:=true;
    MyWorlds[0].Member:=false;

    MyWorlds[1].WorldNumber:=2;
    MyWorlds[1].Active:=true;
    MyWorlds[1].Member:=true;

    MyWorlds[2].WorldNumber:=3;
    MyWorlds[2].Active:=true;
    MyWorlds[2].Member:=false;

    MyWorlds[3].WorldNumber:=4;
    MyWorlds[3].Active:=true;
    MyWorlds[3].Member:=false;

    MyWorlds[4].WorldNumber:=5;
    MyWorlds[4].Active:=true;
    MyWorlds[4].Member:=false;

    MyWorlds[5].WorldNumber:=6;
    MyWorlds[5].Active:=true;
    MyWorlds[5].Member:=true;

    MyWorlds[6].WorldNumber:=7;
    MyWorlds[6].Active:=true;
    MyWorlds[6].Member:=false;

    MyWorlds[7].WorldNumber:=8;
    MyWorlds[7].Active:=true;
    MyWorlds[7].Member:=false;

    MyWorlds[8].WorldNumber:=9;
    MyWorlds[8].Active:=true;
    MyWorlds[8].Member:=true;


    MyWorlds[9].WorldNumber:=10;
    MyWorlds[9].Active:=true;
    MyWorlds[9].Member:=false;

    MyWorlds[10].WorldNumber:=11;
    MyWorlds[10].Active:=true;
    MyWorlds[10].Member:=false;

    MyWorlds[11].WorldNumber:=12;
    MyWorlds[11].Active:=true;
    MyWorlds[11].Member:=true;

    MyWorlds[12].WorldNumber:=13;
    MyWorlds[12].Active:=true;
    MyWorlds[12].Member:=false;

    MyWorlds[13].WorldNumber:=14;
    MyWorlds[13].Active:=true;
    MyWorlds[13].Member:=true;

    MyWorlds[14].WorldNumber:=15;
    MyWorlds[14].Active:=true;
    MyWorlds[14].Member:=true;

    MyWorlds[15].WorldNumber:=16;
    MyWorlds[15].Active:=true;
    MyWorlds[15].Member:=true;

    MyWorlds[16].WorldNumber:=17;
    MyWorlds[16].Active:=true;
    MyWorlds[16].Member:=true;

    MyWorlds[17].WorldNumber:=18;
    MyWorlds[17].Active:=true;
    MyWorlds[17].Member:=true;

    MyWorlds[18].WorldNumber:=19;
    MyWorlds[18].Active:=true;
    MyWorlds[18].Member:=true;

    MyWorlds[19].WorldNumber:=20;
    MyWorlds[19].Active:=true;
    MyWorlds[19].Member:=true;

    MyWorlds[20].WorldNumber:=21;
    MyWorlds[20].Active:=true;
    MyWorlds[20].Member:=true;

    MyWorlds[21].WorldNumber:=22;
    MyWorlds[21].Active:=true;
    MyWorlds[21].Member:=true;

    MyWorlds[22].WorldNumber:=23;
    MyWorlds[22].Active:=true;
    MyWorlds[22].Member:=true;

    MyWorlds[23].WorldNumber:=24;
    MyWorlds[23].Active:=true;
    MyWorlds[23].Member:=true;

    MyWorlds[24].WorldNumber:=25;
    MyWorlds[24].Active:=true;
    MyWorlds[24].Member:=true;

    MyWorlds[25].WorldNumber:=26;
    MyWorlds[25].Active:=true;
    MyWorlds[25].Member:=true;

    MyWorlds[26].WorldNumber:=27;
    MyWorlds[26].Active:=true;
    MyWorlds[26].Member:=true;

    MyWorlds[27].WorldNumber:=28;
    MyWorlds[27].Active:=true;
    MyWorlds[27].Member:=true;

    MyWorlds[28].WorldNumber:=29;
    MyWorlds[28].Active:=true;
    MyWorlds[28].Member:=true;

    MyWorlds[29].WorldNumber:=30;
    MyWorlds[29].Active:=true;
    MyWorlds[29].Member:=true;

    MyWorlds[30].WorldNumber:=31;
    MyWorlds[30].Active:=true;
    MyWorlds[30].Member:=true;

    MyWorlds[31].WorldNumber:=32;
    MyWorlds[31].Active:=true;
    MyWorlds[31].Member:=true;

    MyWorlds[32].WorldNumber:=33;
    MyWorlds[32].Active:=true;
    MyWorlds[32].Member:=true;

    MyWorlds[33].WorldNumber:=34;
    MyWorlds[33].Active:=true;
    MyWorlds[33].Member:=true;

    MyWorlds[34].WorldNumber:=35;
    MyWorlds[34].Active:=true;
    MyWorlds[34].Member:=true;

    MyWorlds[35].WorldNumber:=36;
    MyWorlds[35].Active:=true;
    MyWorlds[35].Member:=true;

    MyWorlds[36].WorldNumber:=37;
    MyWorlds[36].Active:=true;
    MyWorlds[36].Member:=true;

    MyWorlds[37].WorldNumber:=38;
    MyWorlds[37].Active:=true;
    MyWorlds[37].Member:=true;

    MyWorlds[38].WorldNumber:=39;
    MyWorlds[38].Active:=true;
    MyWorlds[38].Member:=true;

    MyWorlds[39].WorldNumber:=40;
    MyWorlds[39].Active:=true;
    MyWorlds[39].Member:=true;

    MyWorlds[40].WorldNumber:=41;
    MyWorlds[40].Active:=true;
    MyWorlds[40].Member:=true;

    MyWorlds[41].WorldNumber:=42;
    MyWorlds[41].Active:=true;
    MyWorlds[41].Member:=true;

    MyWorlds[42].WorldNumber:=43;
    MyWorlds[42].Active:=true;
    MyWorlds[42].Member:=true;

    MyWorlds[43].WorldNumber:=44;
    MyWorlds[43].Active:=true;
    MyWorlds[43].Member:=true;

    MyWorlds[44].WorldNumber:=45;
    MyWorlds[44].Active:=true;
    MyWorlds[44].Member:=true;

    MyWorlds[45].WorldNumber:=46;
    MyWorlds[45].Active:=true;
    MyWorlds[45].Member:=true;

    MyWorlds[46].WorldNumber:=47;
    MyWorlds[46].Active:=true;
    MyWorlds[46].Member:=true;

    MyWorlds[47].WorldNumber:=48;
    MyWorlds[47].Active:=true;
    MyWorlds[47].Member:=true;

    MyWorlds[48].WorldNumber:=49;
    MyWorlds[48].Active:=true;
    MyWorlds[48].Member:=true;

    MyWorlds[49].WorldNumber:=50;
    MyWorlds[49].Active:=true;
    MyWorlds[49].Member:=true;

    MyWorlds[50].WorldNumber:=51;
    MyWorlds[50].Active:=true;
    MyWorlds[50].Member:=true;

    MyWorlds[51].WorldNumber:=52;
    MyWorlds[51].Active:=true;
    MyWorlds[51].Member:=true;

    MyWorlds[52].WorldNumber:=53;
    MyWorlds[52].Active:=true;
    MyWorlds[52].Member:=true;

    MyWorlds[53].WorldNumber:=54;
    MyWorlds[53].Active:=true;
    MyWorlds[53].Member:=true;

    MyWorlds[54].WorldNumber:=55;
    MyWorlds[54].Active:=true;
    MyWorlds[54].Member:=true;

    MyWorlds[55].WorldNumber:=56;
    MyWorlds[55].Active:=true;
    MyWorlds[55].Member:=true;

    MyWorlds[56].WorldNumber:=57;
    MyWorlds[56].Active:=true;
    MyWorlds[56].Member:=true;

    MyWorlds[57].WorldNumber:=58;
    MyWorlds[57].Active:=true;
    MyWorlds[57].Member:=true;

    MyWorlds[58].WorldNumber:=59;
    MyWorlds[58].Active:=true;
    MyWorlds[58].Member:=true;

    MyWorlds[59].WorldNumber:=60;
    MyWorlds[59].Active:=true;
    MyWorlds[59].Member:=true;

    MyWorlds[60].WorldNumber:=61;
    MyWorlds[60].Active:=true;
    MyWorlds[60].Member:=true;

    MyWorlds[61].WorldNumber:=62;
    MyWorlds[61].Active:=true;
    MyWorlds[61].Member:=true;


    MyWorlds[62].WorldNumber:=63;
    MyWorlds[62].Active:=true;
    MyWorlds[62].Member:=true;

    MyWorlds[63].WorldNumber:=64;
    MyWorlds[63].Active:=true;
    MyWorlds[63].Member:=true;

    MyWorlds[64].WorldNumber:=65;
    MyWorlds[64].Active:=true;
    MyWorlds[64].Member:=true;

    MyWorlds[65].WorldNumber:=66;
    MyWorlds[65].Active:=true;
    MyWorlds[65].Member:=true;

    MyWorlds[66].WorldNumber:=67;
    MyWorlds[66].Active:=true;
    MyWorlds[66].Member:=true;

    MyWorlds[67].WorldNumber:=68;
    MyWorlds[67].Active:=true;
    MyWorlds[67].Member:=true;

    MyWorlds[68].WorldNumber:=69;
    MyWorlds[68].Active:=true;
    MyWorlds[68].Member:=true;

    MyWorlds[69].WorldNumber:=70;
    MyWorlds[69].Active:=true;
    MyWorlds[69].Member:=true;

    MyWorlds[70].WorldNumber:=71;
    MyWorlds[70].Active:=true;
    MyWorlds[70].Member:=true;

    MyWorlds[71].WorldNumber:=72;
    MyWorlds[71].Active:=true;
    MyWorlds[71].Member:=true;

    MyWorlds[72].WorldNumber:=73;
    MyWorlds[72].Active:=true;
    MyWorlds[72].Member:=true;

    MyWorlds[73].WorldNumber:=74;
    MyWorlds[73].Active:=true;
    MyWorlds[73].Member:=true;

    MyWorlds[74].WorldNumber:=75;
    MyWorlds[74].Active:=true;
    MyWorlds[74].Member:=true;

    MyWorlds[75].WorldNumber:=76;
    MyWorlds[75].Active:=true;
    MyWorlds[75].Member:=true;

    MyWorlds[76].WorldNumber:=77;
    MyWorlds[76].Active:=true;
    MyWorlds[76].Member:=true;

    MyWorlds[77].WorldNumber:=78;
    MyWorlds[77].Active:=true;
    MyWorlds[77].Member:=true;

    MyWorlds[78].WorldNumber:=79;
    MyWorlds[78].Active:=true;
    MyWorlds[78].Member:=true;

    MyWorlds[79].WorldNumber:=80;
    MyWorlds[79].Active:=true;
    MyWorlds[79].Member:=true;

    MyWorlds[80].WorldNumber:=81;
    MyWorlds[80].Active:=true;
    MyWorlds[80].Member:=true;

    MyWorlds[81].WorldNumber:=82;
    MyWorlds[81].Active:=true;
    MyWorlds[81].Member:=true;

    MyWorlds[82].WorldNumber:=83;
    MyWorlds[82].Active:=true;
    MyWorlds[82].Member:=true;

    MyWorlds[83].WorldNumber:=84;
    MyWorlds[83].Active:=true;
    MyWorlds[83].Member:=true;

    MyWorlds[84].WorldNumber:=85;
    MyWorlds[84].Active:=true;
    MyWorlds[84].Member:=true;

    MyWorlds[85].WorldNumber:=86;
    MyWorlds[85].Active:=true;
    MyWorlds[85].Member:=true;

    MyWorlds[86].WorldNumber:=87;
    MyWorlds[86].Active:=true;
    MyWorlds[86].Member:=true;

    MyWorlds[87].WorldNumber:=88;
    MyWorlds[87].Active:=true;
    MyWorlds[87].Member:=true;

    MyWorlds[88].WorldNumber:=89;
    MyWorlds[88].Active:=true;
    MyWorlds[88].Member:=true;

    MyWorlds[89].WorldNumber:=90;
    MyWorlds[89].Active:=true;
    MyWorlds[89].Member:=true;

    MyWorlds[90].WorldNumber:=91;
    MyWorlds[90].Active:=true;
    MyWorlds[90].Member:=true;

    MyWorlds[91].WorldNumber:=92;
    MyWorlds[91].Active:=true;
    MyWorlds[91].Member:=true;

    MyWorlds[92].WorldNumber:=93;
    MyWorlds[92].Active:=true;
    MyWorlds[92].Member:=true;

    MyWorlds[93].WorldNumber:=94;
    MyWorlds[93].Active:=true;
    MyWorlds[93].Member:=true;

    MyWorlds[94].WorldNumber:=95;
    MyWorlds[94].Active:=true;
    MyWorlds[94].Member:=true;

    MyWorlds[95].WorldNumber:=96;
    MyWorlds[95].Active:=true;
    MyWorlds[95].Member:=true;


    MyWorlds[96].WorldNumber:=97;
    MyWorlds[96].Active:=true;
    MyWorlds[96].Member:=true;

    MyWorlds[97].WorldNumber:=98;
    MyWorlds[97].Active:=true;
    MyWorlds[97].Member:=true;

    MyWorlds[98].WorldNumber:=99;
    MyWorlds[98].Active:=true;
    MyWorlds[98].Member:=true;

    MyWorlds[99].WorldNumber:=100;
    MyWorlds[99].Active:=true;
    MyWorlds[99].Member:=true;

    MyWorlds[100].WorldNumber:=101;
    MyWorlds[100].Active:=true;
    MyWorlds[100].Member:=true;

    MyWorlds[101].WorldNumber:=102;
    MyWorlds[101].Active:=true;
    MyWorlds[101].Member:=true;

    MyWorlds[102].WorldNumber:=103;
    MyWorlds[102].Active:=true;
    MyWorlds[102].Member:=true;

    MyWorlds[103].WorldNumber:=104;
    MyWorlds[103].Active:=true;
    MyWorlds[103].Member:=true;

    MyWorlds[104].WorldNumber:=105;
    MyWorlds[104].Active:=true;
    MyWorlds[104].Member:=true;

    MyWorlds[105].WorldNumber:=106;
    MyWorlds[105].Active:=true;
    MyWorlds[105].Member:=true;

    MyWorlds[106].WorldNumber:=107;
    MyWorlds[106].Active:=true;
    MyWorlds[106].Member:=true;

    MyWorlds[107].WorldNumber:=108;
    MyWorlds[107].Active:=true;
    MyWorlds[107].Member:=true;

    MyWorlds[108].WorldNumber:=109;
    MyWorlds[108].Active:=true;
    MyWorlds[108].Member:=true;

    MyWorlds[109].WorldNumber:=110;
    MyWorlds[109].Active:=true;
    MyWorlds[109].Member:=true;

    MyWorlds[110].WorldNumber:=111;
    MyWorlds[110].Active:=true;
    MyWorlds[110].Member:=true;

    MyWorlds[111].WorldNumber:=112;
    MyWorlds[111].Active:=true;
    MyWorlds[111].Member:=true;

    MyWorlds[112].WorldNumber:=113;
    MyWorlds[112].Active:=true;
    MyWorlds[112].Member:=true;

    MyWorlds[113].WorldNumber:=114;
    MyWorlds[113].Active:=true;
    MyWorlds[113].Member:=true;

    MyWorlds[114].WorldNumber:=115;
    MyWorlds[114].Active:=true;
    MyWorlds[114].Member:=true;

    MyWorlds[115].WorldNumber:=116;
    MyWorlds[115].Active:=true;
    MyWorlds[115].Member:=true;

    MyWorlds[116].WorldNumber:=117;
    MyWorlds[116].Active:=true;
    MyWorlds[116].Member:=true;

    MyWorlds[117].WorldNumber:=118;
    MyWorlds[117].Active:=true;
    MyWorlds[117].Member:=true;

    MyWorlds[118].WorldNumber:=119;
    MyWorlds[118].Active:=true;
    MyWorlds[118].Member:=true;

    MyWorlds[119].WorldNumber:=120;
    MyWorlds[119].Active:=true;
    MyWorlds[119].Member:=true;

    MyWorlds[120].WorldNumber:=121;
    MyWorlds[120].Active:=true;
    MyWorlds[120].Member:=true;

    MyWorlds[121].WorldNumber:=122;
    MyWorlds[121].Active:=true;
    MyWorlds[121].Member:=true;

    MyWorlds[122].WorldNumber:=123;
    MyWorlds[122].Active:=true;
    MyWorlds[122].Member:=true;

    MyWorlds[123].WorldNumber:=124;
    MyWorlds[123].Active:=true;
    MyWorlds[123].Member:=true;

    MyWorlds[124].WorldNumber:=125;
    MyWorlds[124].Active:=true;
    MyWorlds[124].Member:=true;

    MyWorlds[125].WorldNumber:=126;
    MyWorlds[125].Active:=true;
    MyWorlds[125].Member:=true;

    MyWorlds[126].WorldNumber:=127;
    MyWorlds[126].Active:=true;
    MyWorlds[126].Member:=true;

    MyWorlds[127].WorldNumber:=128;
    MyWorlds[127].Active:=true;
    MyWorlds[127].Member:=true;

    MyWorlds[128].WorldNumber:=129;
    MyWorlds[128].Active:=true;
    MyWorlds[128].Member:=true;

    MyWorlds[129].WorldNumber:=130;
    MyWorlds[129].Active:=true;
    MyWorlds[129].Member:=true;

    MyWorlds[130].WorldNumber:=131;
    MyWorlds[130].Active:=true;
    MyWorlds[130].Member:=true;

    MyWorlds[131].WorldNumber:=132;
    MyWorlds[131].Active:=true;
    MyWorlds[131].Member:=true;
    end;

    ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    procedure WorldSwitch;
    var
    WhichWorld:integer;
    begin
     if(Members=true)then
      begin
       repeat
        WhichWorld:=random(131);
       until(MyWorlds[WhichWorld].Active);
       SCSSLoadWorld(MyWorlds[WhichWorld].WorldNumber,true)
       MyWorlds[WhichWorld].Active:=false;
     end else
      begin
       repeat
        WhichWorld:=random(131);
       until((MyWorlds[WhichWorld].Active = true)and(MyWorlds[WhichWorld].Member = false));
       SCSSLoadWorld(MyWorlds[WhichWorld].WorldNumber,true)
       MyWorlds[WhichWorld].Active:=false;
      end;
     wait(30000);
     end;

    ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

    function Trade : boolean;
    var x,y,z:integer;
     begin
      z:=0;
      repeat
       if(FindObj(x,y,'trade',1741527,3))then
        begin
         Mouse(x,y,2,2,false);
         ClickOption('trade',1 );
        end else z:= z + 1;
       Wait(200);
      until((ShopScreen = true) or (z = 5));
      if z = 5 then
       begin
        Logout;
       end else Result:= true;
     end;





    function EnoughChaos: Boolean;
    begin
    if(RuneAmount('shop', 'chaos') > 10) then
     Result := true else
     Result := false;
    end;

    function EnoughDeath: Boolean;
    begin
    if(RuneAmount('shop', 'death') > 10) then
     Result := true else
     Result := false;
    end;

    function CheckCash : Boolean;
     begin
      if(CoinAmount('inventory') < 3000) then
       begin
        Result := false;
        if(ShopScreen = true) then
         Mouse(486, 41, 6, 6, true);
        Logout;
        WorldSwitch;
        NextPlayer(false);
       end else
        result := true;
     end;

    procedure BuyRunes;
     begin
      repeat
       if(LoggedIn = false) then
        begin
         Players[CurrentPlayer].Active := false;
         Break;
        end;
       FindNormalRandoms;
       if(CheckCash = false) then Break;
       if(Trade = false) then Break;
       if(EnoughChaos = true) then
        begin
         repeat
          Buy(7, 10);
          if(CheckCash = false) then Break;
         until(EnoughChaos = true);
        end;
       if(EnoughDeath = true) then
        begin
         repeat
          Buy(8, 10);
          if(CheckCash = false) then Break;
         until(EnoughDeath = true);
        end;
       Mouse(486, 41, 6, 6, true);
       if(CheckCash = false) then Break;
       Logout;
       WorldSwitch
       NextPlayer(true);
      until(false);
    end;



    procedure ProgressReport;
    begin

    end;

    begin
    SetupSRL;
    declareplayers;
    OpenSCSS;
    DeclareWorlds;
    WorldSwitch;
    wait(30000);
    NextPlayer(true);
    repeat
    BuyRunes;
    NextPlayer(true);  //yes it works in this script;)
    until(Players[CurrentPlayer].Active = false);
    end.

    well... it doesnt quite work yet... it wont find aubury somehow, but the rest works(i think lol) please try it and give some advice...

    credits to boreas for the worldswitching... ow and the member worlds arent set yet...
    Infractions, reputation, reflection, the dark side of scripting, they are.

  2. #2
    Join Date
    Dec 2006
    Posts
    908
    Mentioned
    1 Post(s)
    Quoted
    17 Post(s)

    Default

    ill reprot back to see if it works! i wanted one of these babys

  3. #3
    Join Date
    Feb 2006
    Location
    L.A, USA
    Posts
    1,632
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    SCAR Code:
    function Trade : boolean;
    var
      x, y, z :integer;
    begin
      z:= 0;
      repeat
        if(FindObj(x, y, 'bury', 1741527, 3))then
        begin
          Mouse(x,y,2,2,false);
          ClickOption('trade', 1);
        end else
        begin
          z:= z + 1;
          Wait(200);
        end;
      until((ShopScreen = true) or (z = 5));
      if z = 5 then
      begin
        Logout;
      end else
        Result:= true;
     end;

    I believe this is your Aubury finding function right? I think it was because the UpText was wrong, here it's edited. Script looks pretty good, the big world array list looks cool and all but a bit needless. ;\ Awesome though, keep it up.

  4. #4
    Join Date
    Oct 2006
    Posts
    702
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    looks good. pretty nice job =)

  5. #5
    Join Date
    Oct 2006
    Posts
    20
    Mentioned
    0 Post(s)
    Quoted
    0 Post(s)

    Default

    nice job , im gonna try it

Thread Information

Users Browsing this Thread

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

Similar Threads

  1. Ultimate RuneBuyer
    By alach11 in forum RS3 Outdated / Broken Scripts
    Replies: 49
    Last Post: 08-04-2007, 05:48 PM

Posting Permissions

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