Code:
{ ty to FrÕzÑ_§ÕµL for his auto responder ticky for her anti bans and all at srl for answering my questions
setup
1 fill in delcare palyers
2 strat in the varrock east mine and hit play
post proggies or else i wont be adding any more mines to this project of mine}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
g, x, y, mines,loads,ores,i: Integer;
const
whichore= varrock_iron;//which ore
minetime=3000;//average time it takes to mine ore
pin=0000;//bank pin number
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure DeclarePlayers;//add more if needed
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := 'killingnubs3';
Players[0].Pass := 'panic';
Players[0].Nick := 'nubs';
Players[0].Active := True; // Use this account?
Players[0].Integers[1]:= 1000; // How many Loads
Players[0].Booleans[0] := false;//pick weilded????
Players[0].strings[0] := 'veb'//which bank???
{vwb = varrock west bank
veb = varrock east bank
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True; // Use this account?
Players[1].Integers[1] := 1000; // How many Loads
Players[0].strings[0] :=' '}
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure DontBanMeBro;
begin
If(not LoggedIn)then Exit;
Case Random(12) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: HoverSkill('random',false);
2: PickupMouse;
3: GameTab(1+Random(12));
4: SleepAndMoveMouse(400+Random(1500));
5: if Random(2) = 1 then MMouse(1, 338, 515, 165);
6: if Random(2) = 1 then MMouse(515, 1, 250, 503);
7: RandomMovement;
8..11:
begin
case Random(3) of
0: begin
KeyDown(VK_RIGHT);
Wait(500+Random(2000));
KeyUp(VK_RIGHT);
end;
1: begin
KeyDown(VK_Left);
Wait(500+Random(2000));
KeyUp(VK_Left);
end;
2: begin
case Random(2) of
0: begin
KeyDown(VK_RIGHT);
Wait(500+Random(1400));
KeyUp(VK_RIGHT);
end;
1: begin
KeyDown(VK_Left);
Wait(500+Random(1400));
KeyUp(VK_Left);
end;
end;
end;
end;
end;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Function PosArray(SubStr : Array of String; S : String) : Boolean;//originally FrÕzÑ_§ÕµL for autoresponder
Begin
for i := 0 to GetArrayLength(SubStr) - 1 do
Begin
Result := Pos(SubStr[i], Lowercase(S)) > 0;
if Result then
Exit;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
Procedure AutoRespond;//originally FrÕzÑ_§ÕµL updated to my needs
var OldMessage, TextFound,Name: String;
Begin
GetLastChatText(TextFound);
if OldMessage = TextFound then exit;
OldMessage := TextFound;
if Not(PosArray([ 'ning le', 'mining lv', 'lol', 'haha','hehe','lmao','rofl','hi ','hello',' hey',' yo ','bot ','macro ','auto ', 'u noob','u nub ','u loser',Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), 'woot','woop', ' yay'], TextFound)) then exit;
LastChatter(Name);
if PosArray(['swing your pick', 'you managed'], Name) then exit;
if Lowercase(Trim(Name)) = Lowercase(Players[CurrentPlayer].Name) then exit;
FTWait(RandomRange(2, 6));
if PosArray(['ning le', 'mining lv'], TextFound) then
Begin
While Players[CurrentPlayer].Integers[2] <= 0 do
Players[CurrentPlayer].Integers[2] := GetSkillInfo('mining', False);
Case Random(7) of
0: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]));
1: TypeSend('me ' + IntToStr(Players[CurrentPlayer].integers[2]) + ' u?');
2: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + ' =p');
3: TypeSend('I' + chr(39) + 'm ' + IntToStr(Players[CurrentPlayer].integers[2]));
4: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + '...');
5: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + ' =]');
6: TypeSend(IntToStr(Players[CurrentPlayer].integers[2]) + 'X D');
end;
exit;
end;
if PosArray(['lol','haha','hehe','lmao','rofl'], TextFound) then
Begin
Case Random(10) of
0: TypeSend('lol');
1: TypeSend('lmao');
2: TypeSend('rofl');
3: TypeSend('?');
4: TypeSend('...');
5: TypeSend('haha');
6: TypeSend('hehe');
7: TypeSend('=]');
8, 9: Exit;
end;
Exit;
end;
if PosArray(['hi ','hello',' hey','sup ',' yo '], TextFound) then
Begin
Case Random(11) of
0: TypeSend('hi');
1: TypeSend('hello');
2: TypeSend('hey');
3: TypeSend('yo');
4: TypeSend('sup');
5: TypeSend('wasup');
6: TypeSend('g' + chr(39) + 'day');
7: TypeSend('good mornin!');
8: TypeSend('good aftanoon!');
9: TypeSend('good evenin!');
end;
Exit;
end;
if PosArray(['bot ', 'macro ', 'auto '], TextFound) then
Begin
Case Random(13) of
0: TypeSend('Wat r they?');
1: TypeSend('wots the point in gettin sumthin else 2 play 4 u?');
2: TypeSend('bots r stupid');
3: TypeSend('i h8 bots');
4: TypeSend('yay jagex killed al da botz!');
5: TypeSend('?');
6: TypeSend('grrr i h8 bots now we cant trade gud');
7: TypeSend('stupid macros will destroy our economy');
8: TypeSend('bots r so obvious');
9: TypeSend('man it rox how theres no macros =]');
10: TypeSend('maybe *you* r a bot?!');
11: TypeSend('maybe *you* ar a macro?!');
12: TypeSend('maybe *you* are a auto?!');
end;
Exit;
end;
if PosArray(['u noob','u nub ','u loser'], TextFound) then
Begin
Case Random(11) of
0: TypeSend('shut the hell up');
1: TypeSend('look in da mirror');
2: TypeSend('lmao u r');
3: TypeSend('...');
4: TypeSend('omg...');
5: TypeSend('get a life');
6: TypeSend('gotta start sumwhea');
7: TypeSend('shut up');
8: TypeSend('hmph');
9: TypeSend('=[');
10: TypeSend('so wot');
end;
Exit;
end;
if PosArray([Lowercase(Capitalize(Players[CurrentPlayer].Name)), Left(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4), Right(Lowercase(Capitalize(Players[CurrentPlayer].Name)), 4)], TextFound) then
Begin
Case Random(9) of
0: TypeSend('me?');
1: TypeSend('wot u want');
2: TypeSend('...');
3: TypeSend('leave me alone!');
4: TypeSend('I' + chr(39) + 'm not in the mood =[');
5: TypeSend('ye?');
6: TypeSend('yo?');
7: TypeSend('uh?');
8: TypeSend('shudup');
end;
Exit;
end;
if PosArray(['woot','woop', ' yay'], TextFound) then
Begin
Case Random(9) of
0: TypeSend('gratz');
1: TypeSend('grats');
2: TypeSend('...');
3: TypeSend('what?');
4: TypeSend('huh?');
5: TypeSend('wat?');
6: TypeSend('wot?');
7: TypeSend('uh whatd i miss?');
8: Exit;
end;
talks:=talks + 1;
Exit;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure Minethestuff;
var minebmp :integer;
begin
minebmp:= BitmapFromString(54, 68, 'beNrN2kFvG0UUB/DmxIkDggOo' +
'aRCqIlshKg0hRK2CUSqoghw1aW3Vli1SKkVwQKgSisSBAwe4cOQ7c' +
'OLId8gXyEfIEUU5IXFreNu//c/ze2/Gs7YPtf6KlrLe+e3M7OzseJ' +
'+sX15ePrz7ns6wtybpHzaZ7n6DOfxyNUx3r8HIV4adNaTX2WAGvU3' +
'maLDFPB9shzn++t7V1VXv6UaInEd4Nf5oqsQLWWLIo1AyRahKryXU' +
'vN7hBjPobJoSvdMIfTWGwgnV7nVME88mFMM///5XKCyqQCUMK9M0s' +
'RaGvKPeZId8WoVCwS9cCCTyTfPWb59/KPHCy1cf4Wnhzz/9iGSEn7' +
'371sknt+WY8nceoRzn8Z13cCjE1J4UDR6F5GWEckw5awplOyXEPhk' +
'heFpokJWws4VIs2oehP1OU2KE4PHIRBqhrmeA2ZoS2d+cKZ2h0PPy' +
'QiJZovyLFrJ0xLemPgi2/QWiK9DzMkIpDgd/+eqDEvdbtyXgaZvAw' +
'qbs7zd5HNlheLAWCp89WZ8qNDwBoEJejj8XFxdSEISIrx/dlKhtEQ' +
'KJiNAjIURSQuktqcuEvLOzM9YhwsohSWvRJyFEwFuUkHVy48bS+fn' +
'56empbEiJWtjevol6xp66NSdGoXH6e01kIUJcpERKDu4vS0QlgZA2' +
'dELZZmumhDwjPeZI0cP22gxCjiRyTPAoREw/xF/ZJ+RBGF5NEEpCH' +
'oTSpUMhkJJQqK931Ay+yx0OW9c8PSqGvLpC3d/I00KOSAi/qE+hEo' +
'6jK5zVziaeKszwTKVNTUqoO7au8NdKyD6j67xQaGaGixKiY2hheEM' +
'pEZpvsddhWJCyliY/5cKJeUVrkULOAUD686+/dTJOLfTzt1DY/6Ip' +
'SfG+7X4UCsmj6tff//j+h5Phdy+0MyMMJ28pXl0hzp289uOhpHd0L' +
'DxEtkOk5uGG7idvKeHwYWkrc+AyFSjRTvnPUOhnRBopG/MLUYrve5' +
'KT9p3jBytw7ux+5asRfc/MiDINLWNId7eBFArRA3UTM7/0Pq54q29' +
'80NwQ5PbWjq5GGHhp6BkRb9nyf7utFf8ESmEKSaEcByOMaWLNQ3NL' +
'BWohhxR9a8OMCLUKGxI+JlMYIiE0pWih8B61bu0sL4En/yJCbsue5' +
'lGFtzYzdCNeqHkpoR64UASF0vcMj0L2QzOq4L5WyKvmUa1VXDIjpB' +
'u9RWjGLlyPQErjGh6vbl+BHFL8vY93wIyQF7WpTy9En2c1ep4etP1' +
'3ZaOW0A87zLNH6ykhBq5wzDH3FP2owr+h0Ez+awl1KWbgKrwv44LF' +
'Rjh/ME/6BskxxwslrEM+EMlfc4TyuU04f5i6buMHRh3dymymkqlgo' +
'TB82JeB0fRJMyoaYTg/X5QQIy2f9NkhjVB4gkwJw2eifDInonl6Ji' +
'ann19IFHNGWJ6py5VeyNPPd8jUwFhXmCrFrCew46Wm3KmlzjmFqQd' +
'zI9ePJxwewzWKkoGxljD1YK6XOvW2qUZzSfqb9UJamaXoNVU9pOTv' +
'1OyT4XSCE1o6JXWFvPBx+wjl5XMJM2PUN5dCIX4kKmebZU+O0u3Nm' +
'yahkMgSoezJMxWkT7569eS/qkMnRLr3ViS+6JSQJM0Ll+YkpPofBP' +
'VcYjRC1hEaJFaWdEKeF+qEyIlhPCvMI7F+mFo4ZfJCIPMLUHWFRBY' +
'Kw4TIWsKDT5eRlBDj4cxCRK/mZZAZXkqIMbxaad9vTPw+OysPl1h5' +
'HdYQ7jWmplCYeer0XXfBwvDdhkiIoSBsayvMntFihA6Mq376dV1Ti' +
'N9GR5l8Z2AGISLIcOHaL0fn9wmFYeoKgZzzeQeTsUJhEfv1E+oXmc' +
'Krfh5kf6+JXwr4JgYzp9B02pmRGeEonYnMLJwNiV+iawnDFAolhbB' +
'qqjD+oXwhQrwE6F8FDK/0Eh5+6Waw2inCwWDTZE5h2BNSbS0q2KrX' +
'h1QF8tc0L3z/wZuSuwdv9webyIhdX6i7QfgogV56/YJTgRA8CIkcR' +
'EFnKKxAE+5QNeX4HRImIySPQiAHWWTYh8uR1RuADomM3iH5H067rC' +
'M=');
disguise('mining')
repeat
if not (FindSymbol(x, y, 'mining site')) or FindBitmap(mineBmp,x,y) or Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
if FindObjRock(x, y, WhichOre)then
begin
Case (Random(3)) of
0,2 : begin
Mouse(x, y, 2, 2, False);
Wait(Random(100));
ChooseOption('Mine');//otherwise it may Examine
end;
1 : Mouse(x, y, 2, 2, True);
end;
wait(minetime + random(300));
Inc(mines);
DontBanMeBro;
autorespond;
end;
until(invfull)or(mines = 30)
end;
procedure ToBank;
var
x, y: Integer;
begin
SetRun(True)
disguise('to the bank')
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
if Players[currentplayer].strings[0] = 'veb' then
begin
FindVarrockRoadColor;
RadialRoadWalk(FindVarrockRoadColor, 25, 50, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
RadialRoadWalk(FindVarrockRoadColor, 10, 0, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
repeat
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
RadialRoadWalk(FindVarrockRoadColor, 240, 380, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'bank')) or FindSymbol(x,y, 'training dummy');
end;
if Players[currentplayer].strings[0] = 'vwb' then
begin
RadialWalk(4416347,350, 280, 100, 1, 1);
fflag(10);
repeat
wait(1000 + random(400));
RadialWalk(4284501, 270, 360, 100, 1, 1);
fflag(10);
wait(1000 + random(400));
RadialWalk(4284507, 270, 350, 100, 1, 1);
fflag(10);
wait(1000 + random(400));
until (FindSymbol(x, y, 'quest')) or FindSymbol(x,y, 'cook');
FindVarrockRoadColor;
repeat
RadialRoadWalk(FindVarrockRoadColor, 0, 90, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'bank'))
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure ToMine;
var
x, y: Integer;
begin
SetRun(True)
disguise('to the mine')
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
FindVarrockRoadColor;
RadialRoadWalk(FindVarrockRoadColor, 0, 90, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
RadialRoadWalk(FindVarrockRoadColor, 70, 90, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
repeat
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
RadialRoadWalk(FindVarrockRoadColor, 90, 190, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'mining site'))
end;
procedure intomine;
var minebmp:integer;
begin
minebmp:= BitmapFromString(54, 68, 'beNrN2kFvG0UUB/DmxIkDggOo' +
'aRCqIlshKg0hRK2CUSqoghw1aW3Vli1SKkVwQKgSisSBAwe4cOQ7c' +
'OLId8gXyEfIEUU5IXFreNu//c/ze2/Gs7YPtf6KlrLe+e3M7OzseJ' +
'+sX15ePrz7ns6wtybpHzaZ7n6DOfxyNUx3r8HIV4adNaTX2WAGvU3' +
'maLDFPB9shzn++t7V1VXv6UaInEd4Nf5oqsQLWWLIo1AyRahKryXU' +
'vN7hBjPobJoSvdMIfTWGwgnV7nVME88mFMM///5XKCyqQCUMK9M0s' +
'RaGvKPeZId8WoVCwS9cCCTyTfPWb59/KPHCy1cf4Wnhzz/9iGSEn7' +
'371sknt+WY8nceoRzn8Z13cCjE1J4UDR6F5GWEckw5awplOyXEPhk' +
'heFpokJWws4VIs2oehP1OU2KE4PHIRBqhrmeA2ZoS2d+cKZ2h0PPy' +
'QiJZovyLFrJ0xLemPgi2/QWiK9DzMkIpDgd/+eqDEvdbtyXgaZvAw' +
'qbs7zd5HNlheLAWCp89WZ8qNDwBoEJejj8XFxdSEISIrx/dlKhtEQ' +
'KJiNAjIURSQuktqcuEvLOzM9YhwsohSWvRJyFEwFuUkHVy48bS+fn' +
'56empbEiJWtjevol6xp66NSdGoXH6e01kIUJcpERKDu4vS0QlgZA2' +
'dELZZmumhDwjPeZI0cP22gxCjiRyTPAoREw/xF/ZJ+RBGF5NEEpCH' +
'oTSpUMhkJJQqK931Ay+yx0OW9c8PSqGvLpC3d/I00KOSAi/qE+hEo' +
'6jK5zVziaeKszwTKVNTUqoO7au8NdKyD6j67xQaGaGixKiY2hheEM' +
'pEZpvsddhWJCyliY/5cKJeUVrkULOAUD686+/dTJOLfTzt1DY/6Ip' +
'SfG+7X4UCsmj6tff//j+h5Phdy+0MyMMJ28pXl0hzp289uOhpHd0L' +
'DxEtkOk5uGG7idvKeHwYWkrc+AyFSjRTvnPUOhnRBopG/MLUYrve5' +
'KT9p3jBytw7ux+5asRfc/MiDINLWNId7eBFArRA3UTM7/0Pq54q29' +
'80NwQ5PbWjq5GGHhp6BkRb9nyf7utFf8ESmEKSaEcByOMaWLNQ3NL' +
'BWohhxR9a8OMCLUKGxI+JlMYIiE0pWih8B61bu0sL4En/yJCbsue5' +
'lGFtzYzdCNeqHkpoR64UASF0vcMj0L2QzOq4L5WyKvmUa1VXDIjpB' +
'u9RWjGLlyPQErjGh6vbl+BHFL8vY93wIyQF7WpTy9En2c1ep4etP1' +
'3ZaOW0A87zLNH6ykhBq5wzDH3FP2owr+h0Ez+awl1KWbgKrwv44LF' +
'Rjh/ME/6BskxxwslrEM+EMlfc4TyuU04f5i6buMHRh3dymymkqlgo' +
'TB82JeB0fRJMyoaYTg/X5QQIy2f9NkhjVB4gkwJw2eifDInonl6Ji' +
'ann19IFHNGWJ6py5VeyNPPd8jUwFhXmCrFrCew46Wm3KmlzjmFqQd' +
'zI9ePJxwewzWKkoGxljD1YK6XOvW2qUZzSfqb9UJamaXoNVU9pOTv' +
'1OyT4XSCE1o6JXWFvPBx+wjl5XMJM2PUN5dCIX4kKmebZU+O0u3Nm' +
'yahkMgSoezJMxWkT7569eS/qkMnRLr3ViS+6JSQJM0Ll+YkpPofBP' +
'VcYjRC1hEaJFaWdEKeF+qEyIlhPCvMI7F+mFo4ZfJCIPMLUHWFRBY' +
'Kw4TIWsKDT5eRlBDj4cxCRK/mZZAZXkqIMbxaad9vTPw+OysPl1h5' +
'HdYQ7jWmplCYeer0XXfBwvDdhkiIoSBsayvMntFihA6Mq376dV1Ti' +
'N9GR5l8Z2AGISLIcOHaL0fn9wmFYeoKgZzzeQeTsUJhEfv1E+oXmc' +
'Krfh5kf6+JXwr4JgYzp9B02pmRGeEonYnMLJwNiV+iawnDFAolhbB' +
'qqjD+oXwhQrwE6F8FDK/0Eh5+6Waw2inCwWDTZE5h2BNSbS0q2KrX' +
'h1QF8tc0L3z/wZuSuwdv9webyIhdX6i7QfgogV56/YJTgRA8CIkcR' +
'EFnKKxAE+5QNeX4HRImIySPQiAHWWTYh8uR1RuADomM3iH5H067rC' +
'M=');
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
disguise('get in to mine')
makecompass('n');
if (FindSymbol(x, y, 'mining site')) then
begin
Mouse(x, y, 5, 5, True);
Writeln('Found the mining symbol');
fflag(10)
end else
if not (FindSymbol(x, y, 'mining site')) then
FindBitmap(mineBmp,x,y);
Mouse(x,y,5,5,true);
if not FindBitmap(mineBmp,x,y)then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure Setup;
begin
disguise('set up')
ClearDebug;
SetupSRL
SetupMining;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure getinbank;
var Bankers,x,y: Integer;
begin
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
disguise('in to the bank')
Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A69' +
'76119508811CA67AC06AA7187F098A1627FFE3031483220A96901CAB' +
'81150D3039471C1AF060092960C0C');
if DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
Mouse(X-2,Y+5, 0, 0, True);
Flag;
if not DTMRotated(Bankers, x, y, MMX1, MMY1, MMX2, MMY2) then
radialRoadWalk(FindVarrockRoadColor, 180, 360, 50, 1, 1);
end;
procedure gembanking;
var gemdtm: integer;
begin
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
repeat;
GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500E0' +
'3461F603199E869B83127C17F3324F3616BFBB026DB97656BAB46' +
'4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF71579862918F38' +
'6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C304D' +
'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58D13B' +
'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629308E' +
'375FE5310F20');
if not findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then Exit;
if findDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,False);
wait(random(200));
ChooseOption('Drop');
wait(500 + random(100))
end;
Until not FindDTM(GemDTM,x,y,MIX1,MIY1,MIX2,MIY2);
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
function Banking: Boolean;
begin
If Not LoggedIn then
begin
if howmanyplayers = 1 then TerminateScript;
if howmanyplayers > 1 then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
end;
MakeCompass('N')
Wait (300 + random(160));
OpenBankQuiet('veb');
if (PinScreen) then
InPin('Pin');
If Players[currentplayer].Booleans[0] = true Then
begin
Deposit(1, 28, True)
end;
If Players[currentplayer].Booleans[0] = false Then
begin
Deposit(2, 28, True);
Mouse(RandomRange(483, 495), RandomRange(29, 41), 0, 0, True);
End;
Gembanking;
CloseBank;
Wait(150 + random (278));
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure proggy;
var mininglvl,exp:integer;
begin
cleardebug
mininglvl:= getskillinfo('mining',false);
exp:= XPtillnextlevel('mining');
WriteLn(' _____ ______')
WriteLn(' | || \')
WriteLn(' | || |')
WriteLn(' | || ___/')
WriteLn(' /_____/ |__| ')
writeLn('____________________________________________')
writeln('Script has been running for ' +TimeRunning);
WriteLn('Player '+ Players[CurrentPlayer].Nick);
WriteLn('current mining lvl ' + IntToStr(mininglvl));
WriteLn('Exp To Next Lvl ' + inttostr(exp));
WriteLn('loads done '+ IntToStr(loads));
WriteLn('amount of ores ' + IntToStr(ores));
writeLn('plz post the proggie here http://www.villavu.com/forum/showthr...565#post542565');
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
begin
ores:=0
loads:=0
setup;
activateclient;
DeclarePlayers;
GraphicsSet := true;
LoginPlayer;
disguise('logging in')
repeat
repeat
gettimerunning;
proggy
minethestuff;
makecompass('n');
tobank;
getinbank;
banking;
inc(loads)
if Players[CurrentPlayer].Booleans[0] = false then
ores:= ores + 27;
if Players[CurrentPlayer].Booleans[0] = true then
ores:= ores + 28;
tomine;
intomine;
Inc(g);
until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
until(AllPlayersInactive);
end.