Jimmy5410
02-07-2009, 06:12 PM
I get an error on line 38 which is odd because it is virtually the same thing that I did a few lines above it. Here's my script.
program PowerMiner;
{.include SRL\SRL\MISC\SMART.SCAR}
{.include SRL\SRL.SCAR}
{.include SRL\SRL\SKILL\MINING.SCAR}
var
x,y,i,color,tolerence,WaitTime,InvsDone,InvstoDo,t rytimes,timestried,tt : Integer;
PickEquip, rock, place : String;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //your runescape account.
Players[0].Pass := ''; // your runescape password of your account.
Players[0].Nick := ''; // 2-4 letters to use for antirandoms.
Players[0].Active := True; // use this character?
end;
Procedure Setup;
begin
SetupMining;
timestried := 0; //Don't change!
PickEquip := 'true'; //Equip the Pick?
tolerence := 20; //Tolerence for Mining
trytimes := 25; //times to try to find a rock before exiting
place := 'rimmington'; //rimmington, varrock, falador, lumbridge or old
rock := 'copper'; //clay, tin, copper, iron, gold, coal, mithril or adamant.
case (rock) of 'clay': begin
case (Place) of
'varrock': color := varrock_Clay;
'falador': color := falador_Clay;
'rimmington': color := rimmington_Clay;
else Writeln('Error: There is no '+(rock)+' in '+(place));
end;
end;
case (rock) of 'tin': begin
case (Place) of
'old': color := old_Tin;
'falador': color := falador_Tin;
'rimmington': color := rimmington_Tin;
'varrock': color := varrock_Tin;
'lumbridge': color := lumbridge_Tin;
else Writeln('Error!:'+(rock)+'does not exist in '+(place));
end;
end;
case (rock) of 'copper': begin
case (Place) of
'old': color := old_Copper;
'rimmington': color := rimmington_Copper;
'falador': color := falador_Copper;
'varrock': color := varrock_Copper;
'lumbridge': color := lumbridge_Copper;
else Writeln('Error!: '+(rock)+' does not exist in '+(place));
end;
end;
case (rock) of
'iron': begin
case (Place) of
'old': color := old_Iron;
'rimmington': color := rimmington_Iron;
'falador': color := falador_Iron;
'varrock': color := varrock_Iron;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of
'gold': begin
case (Place) of
'rimmington': color := rimmington_Gold;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of 'coal': begin
case (Place) of
'old': color := old_Coal;
'falador': color := falador_Coal;;
'lumbridge': color := lumbridge_Coal;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of 'mithril': begin
case (Place) of
'old': color := old_Mithril;
'falador': color := falador_Mithril;
'lumbridge': color := lumbridge_Mithril;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of 'adamant': begin
case (Place) of
'old': color := old_Adamant;
'falador': color := falador_Adamant;
'lumbridge': color := lumbridge_Adamant;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
end;
Procedure Login;
begin
LoginPlayer;
end;
Procedure AntiBan;
begin
tt := timestried;
if(not(LoggedIn))then Exit;
case Random(25) of
0: begin
HoverSkill('mining', false);
wait(2500+Random(500));
end;
1: begin
pickupmouse;
end;
2: begin
MakeCompass('N');
MakeCompass(IntToStr(Random(360)));
wait(500+random(500));
end;
3: begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
end;
4: begin
BoredHuman;
end;
5: begin
case Random(3) of
0: Typesend('Lagg');
end;
end;
6: begin
WriteLn('Doing MMouse AntiBan');
MMouse(Random(750), Random(750), Random(100), Random(100));
end;
7: begin
case Random(5) of
0: begin If(LoggedIn)then Logout;
WaitTime := 120000+(random(60000));
WriteLn('Taking a break for: '+inttostr(WaitTime));
Wait(WaitTime);
end;
1: begin If(LoggedIn)then Logout;
WaitTime := 600000+(random(120000));
WriteLn('Taking a break for: '+inttostr(WaitTime));
Wait(WaitTime);
end;
end;
end;
8: begin
WriteLn('Taking short 5-10 second break');
wait(5000+random(5000));
end;
end;
end;
Procedure AntiRandom;
Begin
FindNormalRandoms;
FindTalk;
If(FindFight) then
begin
RunAway('N', True,1,15000);
Wait(5000+random(5000));
end;
FindLamp('mining');
end;
Procedure getOre;
begin
if(timestried>=trytimes) then exit;
if not(findPick) then
begin
WriteLn('Pick not found, exiting...');
Exit;
end;
if (findPick) then
begin
if(InvFull) then
begin
case [PickEquip] of
True: For I := 2 To 28 Do DropItem(I);
False: DropAll;
end;
end;
if not(InvFull) then
begin
if(FindColorTolerance(x,y,color,MSX1,MSY1,MSX2,MSY 2,tolerence)) then
if(FindGas(x,y)=True) then
begin
WriteLn('Gas is found, waiting...');
Wait(10000+Random(5000));
end;
if not(FindGas(x,y)=True) then
begin
timestried := 0;
MMouse(x,y,1,1);
Wait(100+Random(100));
If IsUpText(rock) then Mouse(x,y,1,1,true);
Wait(5000+Random(1000));
end;
if not(FindColorTolerance(x,y,color,MSX1,MSY1,MSX2,MS Y2,tolerence)) then
begin
timestried := timestried+1;
WriteLn('Rock Color not found, trying '+inttostr(trytimes-timestried)+
'more times before exiting');
end;
end;
end;
end;
begin
Disguise('iTunes');
DeclarePlayers;
SetupSRL;
Smartsetupex(35, false, true, false);
Settargetdc(smartgetdc);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
ActivateClient;
Login;
if(LoggedIn)then Repeat
AntiBan;
AntiRandom;
getOre;
Until not(LoggedIn) or (InvsDone>InvstoDo);
end.
program PowerMiner;
{.include SRL\SRL\MISC\SMART.SCAR}
{.include SRL\SRL.SCAR}
{.include SRL\SRL\SKILL\MINING.SCAR}
var
x,y,i,color,tolerence,WaitTime,InvsDone,InvstoDo,t rytimes,timestried,tt : Integer;
PickEquip, rock, place : String;
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := ''; //your runescape account.
Players[0].Pass := ''; // your runescape password of your account.
Players[0].Nick := ''; // 2-4 letters to use for antirandoms.
Players[0].Active := True; // use this character?
end;
Procedure Setup;
begin
SetupMining;
timestried := 0; //Don't change!
PickEquip := 'true'; //Equip the Pick?
tolerence := 20; //Tolerence for Mining
trytimes := 25; //times to try to find a rock before exiting
place := 'rimmington'; //rimmington, varrock, falador, lumbridge or old
rock := 'copper'; //clay, tin, copper, iron, gold, coal, mithril or adamant.
case (rock) of 'clay': begin
case (Place) of
'varrock': color := varrock_Clay;
'falador': color := falador_Clay;
'rimmington': color := rimmington_Clay;
else Writeln('Error: There is no '+(rock)+' in '+(place));
end;
end;
case (rock) of 'tin': begin
case (Place) of
'old': color := old_Tin;
'falador': color := falador_Tin;
'rimmington': color := rimmington_Tin;
'varrock': color := varrock_Tin;
'lumbridge': color := lumbridge_Tin;
else Writeln('Error!:'+(rock)+'does not exist in '+(place));
end;
end;
case (rock) of 'copper': begin
case (Place) of
'old': color := old_Copper;
'rimmington': color := rimmington_Copper;
'falador': color := falador_Copper;
'varrock': color := varrock_Copper;
'lumbridge': color := lumbridge_Copper;
else Writeln('Error!: '+(rock)+' does not exist in '+(place));
end;
end;
case (rock) of
'iron': begin
case (Place) of
'old': color := old_Iron;
'rimmington': color := rimmington_Iron;
'falador': color := falador_Iron;
'varrock': color := varrock_Iron;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of
'gold': begin
case (Place) of
'rimmington': color := rimmington_Gold;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of 'coal': begin
case (Place) of
'old': color := old_Coal;
'falador': color := falador_Coal;;
'lumbridge': color := lumbridge_Coal;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of 'mithril': begin
case (Place) of
'old': color := old_Mithril;
'falador': color := falador_Mithril;
'lumbridge': color := lumbridge_Mithril;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
case (rock) of 'adamant': begin
case (Place) of
'old': color := old_Adamant;
'falador': color := falador_Adamant;
'lumbridge': color := lumbridge_Adamant;
else Writeln('Error!: '+(rock)+' does not exist in '+ (place));
end;
end;
end;
Procedure Login;
begin
LoginPlayer;
end;
Procedure AntiBan;
begin
tt := timestried;
if(not(LoggedIn))then Exit;
case Random(25) of
0: begin
HoverSkill('mining', false);
wait(2500+Random(500));
end;
1: begin
pickupmouse;
end;
2: begin
MakeCompass('N');
MakeCompass(IntToStr(Random(360)));
wait(500+random(500));
end;
3: begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4);
end;
4: begin
BoredHuman;
end;
5: begin
case Random(3) of
0: Typesend('Lagg');
end;
end;
6: begin
WriteLn('Doing MMouse AntiBan');
MMouse(Random(750), Random(750), Random(100), Random(100));
end;
7: begin
case Random(5) of
0: begin If(LoggedIn)then Logout;
WaitTime := 120000+(random(60000));
WriteLn('Taking a break for: '+inttostr(WaitTime));
Wait(WaitTime);
end;
1: begin If(LoggedIn)then Logout;
WaitTime := 600000+(random(120000));
WriteLn('Taking a break for: '+inttostr(WaitTime));
Wait(WaitTime);
end;
end;
end;
8: begin
WriteLn('Taking short 5-10 second break');
wait(5000+random(5000));
end;
end;
end;
Procedure AntiRandom;
Begin
FindNormalRandoms;
FindTalk;
If(FindFight) then
begin
RunAway('N', True,1,15000);
Wait(5000+random(5000));
end;
FindLamp('mining');
end;
Procedure getOre;
begin
if(timestried>=trytimes) then exit;
if not(findPick) then
begin
WriteLn('Pick not found, exiting...');
Exit;
end;
if (findPick) then
begin
if(InvFull) then
begin
case [PickEquip] of
True: For I := 2 To 28 Do DropItem(I);
False: DropAll;
end;
end;
if not(InvFull) then
begin
if(FindColorTolerance(x,y,color,MSX1,MSY1,MSX2,MSY 2,tolerence)) then
if(FindGas(x,y)=True) then
begin
WriteLn('Gas is found, waiting...');
Wait(10000+Random(5000));
end;
if not(FindGas(x,y)=True) then
begin
timestried := 0;
MMouse(x,y,1,1);
Wait(100+Random(100));
If IsUpText(rock) then Mouse(x,y,1,1,true);
Wait(5000+Random(1000));
end;
if not(FindColorTolerance(x,y,color,MSX1,MSY1,MSX2,MS Y2,tolerence)) then
begin
timestried := timestried+1;
WriteLn('Rock Color not found, trying '+inttostr(trytimes-timestried)+
'more times before exiting');
end;
end;
end;
end;
begin
Disguise('iTunes');
DeclarePlayers;
SetupSRL;
Smartsetupex(35, false, true, false);
Settargetdc(smartgetdc);
repeat
wait(100);
until(SmartGetColor(253, 233)<>1118604);
ActivateClient;
Login;
if(LoggedIn)then Repeat
AntiBan;
AntiRandom;
getOre;
Until not(LoggedIn) or (InvsDone>InvstoDo);
end.