PDA

View Full Version : runebuyer v0.1



Killerdou
01-06-2007, 03:55 PM
{.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...

Claymore
01-06-2007, 07:14 PM
ill reprot back to see if it works! i wanted one of these babys

WhiteShadow
01-06-2007, 09:20 PM
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. :)

oliver1205
01-07-2007, 10:04 PM
looks good. pretty nice job =)

itachi98
01-08-2007, 10:52 AM
nice job , im gonna try it