JPHamlett
05-08-2009, 05:56 AM
ok so i have srl downloaded and everything but every time i close scar and open a new one
i get errors on the same script that were ok with the ons on the other script
like
heres a script i use
{ ty to FrÕzÑ_§ÕµL for his auto responder
setup
1 fill in delcare palyers
2 drag crosshairs over runescape window
3 start in the varrock east mine hit play
post proggies or else i wont be adding any more mines to this project of mine}
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
g, x, y, mines,loads,ores,i,talks: Integer;
const
minetime =5000;//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 := '';
Players[0].Pass := '';
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].BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal'];
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True; // Use this account?
Players[1].Integers[1] := 1000; // How many Loads}
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure DontBanMeBro;
begin
If(not LoggedIn)then Exit;
Case Random(9) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: PickupMouse;
2: SleepAndMoveMouse(400+Random(1500));
3: if Random(2) = 1 then MMouse(1, 338, 515, 165);
4: if Random(2) = 1 then MMouse(515, 1, 250, 503);
5: RandomMovement;
6..9:
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;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure findrandoms;
begin
LampSkill := 'mining';
FindNormalRandoms;
solvesrlrandoms:=true;
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(['mining', 'ning le', 'mining lv', 'mine', 'minin', '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;
if PosArray(['mining', 'ning le', 'mining lv', 'mine', 'minin'], 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 inv,m,items,invset:integer;
begin
if Players[currentplayer].Booleans[0] = false then
items:=1
else;
items:=0;
disguise('mining')
repeat
mines:=0;
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
findrandoms;
if FindObjRock(x, y, Varrock_iron)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;
if not FindObjRock(x, y, varrock_iron)then
begin
KeyDown(VK_RIGHT);
Wait(500+Random(1400));
KeyUp(VK_RIGHT);
end;
Marktime(m);
invset:=invcount;
repeat
inv:=invcount;
wait (10);
findrandoms;
until ((invset < Inv) or (TimeFromMark(m) > 15000));
// wait(minetime);
Inc(mines);
DontBanMeBro;
autorespond;
end;
until(invfull)or(mines = 30)
end;
procedure ToBank;
var
x, y,roadcolor: Integer;
begin
SetRun(True)
disguise('to the bank')
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
roadcolor:=FindVarrockRoadColor;
RadialRoadWalk(roadcolor, 25, 50, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
RadialRoadWalk(roadcolor, 45, 15, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
RadialRoadWalk(roadcolor, 45, 10, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
repeat
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
RadialRoadWalk(roadcolor,180, 380, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'bank')) or FindSymbol(x,y, 'training dummy');
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure ToMine;
var
x, y,roadcolor: Integer;
begin
roadcolor:=FindVarrockRoadColor;
makecompass('n')
SetRun(True)
disguise('to the mine')
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
FindVarrockRoadColor;
RadialRoadWalk(roadcolor, 0, 90, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
RadialRoadWalk(roadcolor, 90,360, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
repeat
If Not LoggedIn then
begin
Exit;
end;
RadialRoadWalk(roadcolor, 90, 360, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'mining site'))
end;
procedure intomine;
var minebmp:integer;
begin
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
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
begin
disguise('couldnt find the mining symbol trying bitmap')
mineBmp := BitmapFromString(23, 17, 'beNqVk90KgkAUhJ8h6KKoriSS' +
'gjAIgiCjC0NI0CBI6KaH6BF68EYmx+P6E8Eg1p7zndnZNRhn0 bzQy' +
'SiqdIsXUp751NOfvY8r6J5toHPwH+QwGlzXw9fWIwQCwYFwtQ dCgo' +
'WQIwimcBVPMmUbAgQE/KMaoQRRAdW0jVUV8J0b0XZsO3pbPedJEQg' +
'rUfBIlxaShF5zivWMnxgECDkUIJYDiEaoywKZDyEUCQ7kspsw BLZb' +
'27WjL5XHPmUhamcgeJftLoiGMjHYcDLhM91PWwmEOOEDAj92C zo+L' +
'FFZWBHsbXHurfxrmyJ8IaWsbZm3x23VBeHdbtr+F0KO4/wnBCEXOR' +
'tIf28XpPZ5hnXIB46QCkg=');
FindBitmap(mineBmp,x,y);
Mouse(x,y,5,5,true);
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure Setup;
begin
disguise('set up')
ClearDebug;
SMARTSetupEx(2, False, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
SetupSRL
SetupMining;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure getinbank;
var Bankers,x,y,roadcolor: Integer;
begin
roadcolor:=findvarrockroadcolor;
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
disguise('in to the bank')
Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A 69' +
'76119508811CA67AC06AA7187F098A1627FFE3031483220A9 6901CAB' +
'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
begin
radialRoadWalk(roadcolor, 170, 360, 50, 1, 1);
end;
end;
procedure gembanking;
var gemdtm: integer;
begin
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
repeat;
GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500 E0' +
'3461F603199E869B83127C17F3324F3616BFBB026DB97656B AB46' +
'4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF7157986291 8F38' +
'6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C 304D' +
'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58 D13B' +
'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629 308E' +
'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
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
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;
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('responds made ' + inttostr(talks));
writeLn('plz post the proggie here http://www.villavu.com/forum/showthread.php?p=549684#post549684');
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
begin
ores:=0
loads:=0
setup;
activateclient;
DeclarePlayers;
GraphicsSet := true;
LoginPlayer;
disguise('logging in')
repeat
repeat
gettimerunning;
proggy
minethestuff;
findrandoms;
makecompass('n');
tobank;
findrandoms;
getinbank;
findrandoms
banking;
findrandoms;
tomine;
intomine;
inc(loads)
if Players[CurrentPlayer].Booleans[0] = false then
ores:= ores + 27;
if Players[CurrentPlayer].Booleans[0] = true then
ores:= ores + 28;
Inc(g);
until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
until(AllPlayersInactive);
end.
srl is downloaded and everything but i get this error
Line 268: [Error] (17378:4): Unknown identifier 'FindObjRock' in script
i get errors on the same script that were ok with the ons on the other script
like
heres a script i use
{ ty to FrÕzÑ_§ÕµL for his auto responder
setup
1 fill in delcare palyers
2 drag crosshairs over runescape window
3 start in the varrock east mine hit play
post proggies or else i wont be adding any more mines to this project of mine}
{.include srl/srl/misc/smart.scar}
{.include srl/srl.scar}
{.include srl/srl/skill/mining.scar}
var
g, x, y, mines,loads,ores,i,talks: Integer;
const
minetime =5000;//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 := '';
Players[0].Pass := '';
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].BoxRewards := ['XP', 'ostume', 'mote', 'Gem', 'ithril', 'oal'];
{Players[1].Name := '';
Players[1].Pass := '';
Players[1].Nick := '';
Players[1].Active := True; // Use this account?
Players[1].Integers[1] := 1000; // How many Loads}
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure DontBanMeBro;
begin
If(not LoggedIn)then Exit;
Case Random(9) of
0: MMouse(Random(MSX2),Random(MSY2),0,0);
1: PickupMouse;
2: SleepAndMoveMouse(400+Random(1500));
3: if Random(2) = 1 then MMouse(1, 338, 515, 165);
4: if Random(2) = 1 then MMouse(515, 1, 250, 503);
5: RandomMovement;
6..9:
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;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure findrandoms;
begin
LampSkill := 'mining';
FindNormalRandoms;
solvesrlrandoms:=true;
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(['mining', 'ning le', 'mining lv', 'mine', 'minin', '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;
if PosArray(['mining', 'ning le', 'mining lv', 'mine', 'minin'], 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 inv,m,items,invset:integer;
begin
if Players[currentplayer].Booleans[0] = false then
items:=1
else;
items:=0;
disguise('mining')
repeat
mines:=0;
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
findrandoms;
if FindObjRock(x, y, Varrock_iron)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;
if not FindObjRock(x, y, varrock_iron)then
begin
KeyDown(VK_RIGHT);
Wait(500+Random(1400));
KeyUp(VK_RIGHT);
end;
Marktime(m);
invset:=invcount;
repeat
inv:=invcount;
wait (10);
findrandoms;
until ((invset < Inv) or (TimeFromMark(m) > 15000));
// wait(minetime);
Inc(mines);
DontBanMeBro;
autorespond;
end;
until(invfull)or(mines = 30)
end;
procedure ToBank;
var
x, y,roadcolor: Integer;
begin
SetRun(True)
disguise('to the bank')
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
roadcolor:=FindVarrockRoadColor;
RadialRoadWalk(roadcolor, 25, 50, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
RadialRoadWalk(roadcolor, 45, 15, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
RadialRoadWalk(roadcolor, 45, 10, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
repeat
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
RadialRoadWalk(roadcolor,180, 380, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'bank')) or FindSymbol(x,y, 'training dummy');
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure ToMine;
var
x, y,roadcolor: Integer;
begin
roadcolor:=FindVarrockRoadColor;
makecompass('n')
SetRun(True)
disguise('to the mine')
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
FindVarrockRoadColor;
RadialRoadWalk(roadcolor, 0, 90, 70, 1, 1);
FFlag(10);
wait(2000 + random(300));
RadialRoadWalk(roadcolor, 90,360, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
repeat
If Not LoggedIn then
begin
Exit;
end;
RadialRoadWalk(roadcolor, 90, 360, 65, 1, 1);
fflag(10);
wait(2000 + random(300));
until (FindSymbol(x, y, 'mining site'))
end;
procedure intomine;
var minebmp:integer;
begin
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
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
begin
disguise('couldnt find the mining symbol trying bitmap')
mineBmp := BitmapFromString(23, 17, 'beNqVk90KgkAUhJ8h6KKoriSS' +
'gjAIgiCjC0NI0CBI6KaH6BF68EYmx+P6E8Eg1p7zndnZNRhn0 bzQy' +
'SiqdIsXUp751NOfvY8r6J5toHPwH+QwGlzXw9fWIwQCwYFwtQ dCgo' +
'WQIwimcBVPMmUbAgQE/KMaoQRRAdW0jVUV8J0b0XZsO3pbPedJEQg' +
'rUfBIlxaShF5zivWMnxgECDkUIJYDiEaoywKZDyEUCQ7kspsw BLZb' +
'27WjL5XHPmUhamcgeJftLoiGMjHYcDLhM91PWwmEOOEDAj92C zo+L' +
'FFZWBHsbXHurfxrmyJ8IaWsbZm3x23VBeHdbtr+F0KO4/wnBCEXOR' +
'tIf28XpPZ5hnXIB46QCkg=');
FindBitmap(mineBmp,x,y);
Mouse(x,y,5,5,true);
end;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure Setup;
begin
disguise('set up')
ClearDebug;
SMARTSetupEx(2, False, True, False);
Wait(5000);
SetTargetDC(SmartGetDC);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
SetupSRL
SetupMining;
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
procedure getinbank;
var Bankers,x,y,roadcolor: Integer;
begin
roadcolor:=findvarrockroadcolor;
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
disguise('in to the bank')
Bankers := DTMFromString('78DA636C666660B065640001560608D8B0A 69' +
'76119508811CA67AC06AA7187F098A1627FFE3031483220A9 6901CAB' +
'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
begin
radialRoadWalk(roadcolor, 170, 360, 50, 1, 1);
end;
end;
procedure gembanking;
var gemdtm: integer;
begin
If Not LoggedIn then
begin
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
end;
repeat;
GemDTM := DTMFromString('78DA8DD2510E82300C06E06E814C144C500 E0' +
'3461F603199E869B83127C17F3324F3616BFBB026DB97656B AB46' +
'4D6414C5715E2EB422FBDD0DA15E30EADFFC4EF7157986291 8F38' +
'6A904C630E603734A9BC2670BD3A54DE9F324307DFE5FC10C 304D' +
'DA1CF67B8E02A31933E47B11CC4347D54A182B30BE3E1BE58 D13B' +
'C87998D60EE3057C6DC605A410D6BC68CF9BE7782F909E629 308E' +
'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
NextPlayer(Players[CurrentPlayer].Active);
minethestuff;
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;
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('responds made ' + inttostr(talks));
writeLn('plz post the proggie here http://www.villavu.com/forum/showthread.php?p=549684#post549684');
end;
{//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//}
{------------------------------------------------------------------------------}
{\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\//\\}
begin
ores:=0
loads:=0
setup;
activateclient;
DeclarePlayers;
GraphicsSet := true;
LoginPlayer;
disguise('logging in')
repeat
repeat
gettimerunning;
proggy
minethestuff;
findrandoms;
makecompass('n');
tobank;
findrandoms;
getinbank;
findrandoms
banking;
findrandoms;
tomine;
intomine;
inc(loads)
if Players[CurrentPlayer].Booleans[0] = false then
ores:= ores + 27;
if Players[CurrentPlayer].Booleans[0] = true then
ores:= ores + 28;
Inc(g);
until (g= (Players[CurrentPlayer].Integers[1])) or (not LoggedIn);
NextPlayer(Players[CurrentPlayer].Active);
until(AllPlayersInactive);
end.
srl is downloaded and everything but i get this error
Line 268: [Error] (17378:4): Unknown identifier 'FindObjRock' in script