Overtime
10-07-2006, 10:02 PM
this is solemn wishes essMiner script and i need help with it....i get this error when i try to run it:
Line 157: [Error] (15812:1): Unknown identifier 'RunAwayDirection' in script C:\Program Files\SCAR 2.03\Scripts\SRL ess miner even bette.scar
program StrangeEssMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
{.include SRL\SRL\Extended\xMapwalk.scar}
(* ######## ### ### #############
######## ### ### ### #############
######## ### ### ### ###
### ### ### ### ###
### ### ### ### ###
######## ### ### ### ############# ---->
######## ### ### ### ###
### ### ### ### ###
### ### ### ### ###
######## ### ### ############# #############
######## ### ############# #############
#### #### ##### ###
##### ##### ### ## ###
### ## ## ### ### ## ###
### #### ### ### ## ###
### ## ### ### ## ###
### ### ### ## ###
### ### ### #####
### ### ### ####
-------------------------------------------------------------------------
================================================== =======================
-------------------------------------------------------------------------
##
## ## ## ## ####### ## ## ###### #######
## #### ## ## ## ## ## ## ##
## ## ## ## ## ####### ####### ###### #######
#### #### ## ## ## ## ## ##
## ## ## ####### ## ## ###### #######
-------------------------------------------------------------------------
================================================== =======================
// Varrok essence miner version : 3.1.2 Srl updated //
// ------------------------------ //
// by Solemn Wishes //
// contact: Rune-nation@hotmail.co.uk //
// //
// //
//----------------------------------------------------------------------//
// //
// Start in varrok bank (recomended near middle banker) hit run and //
// let the script do the rest, no color setup needed //
// //
//----------------------------------------------------------------------//
// Instructions. //
//----------------------------------------------------------------------//
// //
// 1. USE Runescape with LOW Detail, Very Bright. //
// 2. Set your Screen to 32 bit TRUE color. //
// 3. Set Playernames, Passwords ect ect.... //
// 4. Start at Varrok east bank, middle booth if possible //
// 5. Be sure to have a pickaxe somewhere (inventory/equipted) //
//----------------------------------------------------------------------//*)
var
arrow,clickhere,timestalked,play :integer;
tripstodo, trips, teleportbackup,teleport: Integer;
magicthingy,randomfight,mined,exp,report, report2:integer;
(*-------------------------------------------------------------------------*)
// //
// Essence miner start, only edit the player array bellow. //
(*-------------------------------------------------------------------------*)
Const StartPlayer = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers:=10;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='sque';
Players[0].Loc :='varrok';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='varrok';
Players[1].Active:=false;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='varrok';
Players[2].Active:=false;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='varrok';
Players[3].Active:=false;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='varrok';
Players[4].Active:=false;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='varrok';
Players[5].Active:=false;
Players[6].Name :='';
Players[6].Pass :='';
Players[6].Nick :='';
Players[6].Loc :='varrok';
Players[6].Active:=false;
Players[7].Name :='';
Players[7].Pass :='';
Players[7].Nick :='';
Players[7].Loc :='varrok';
Players[7].Active:=false;
Players[8].Name :='';
Players[8].Pass :='';
Players[8].Nick :='';
Players[8].Loc :='varrok';
Players[8].Active:=false;
Players[9].Name :='';
Players[9].Pass :='';
Players[9].Nick :='';
Players[9].Loc :='varrok';
Players[9].Active:=false;
end;
//-------------------------------------------------------------------------//
procedure solemnrandoms;
begin
if(not(loggedin)) then LoginPlayer;
FindNormalRandoms;
if(FindFight)then
begin
writeln('we are being attacked, running away')
RunAwayDirection('S')
RunBack;
randomfight:= randomfight+1
end;
end;
//-------------------------------------------------------------------------//
procedure walkingrandoms;
var i : integer;
begin
if(not(loggedin)) then LoginPlayer;
FindLamp('mining');
findnewbox;
i:= random(3)+1
if(i=1)then
begin;
FindNormalRandoms;
antiban;
end;
end;
//-------------------------------------------------------------------------//
procedure checkbankcolor;
var c : integer;
begin
if(not(bankcolor>0))then
repeat
BankColor:= GetSymbolColor(x,y, 'bank');
c:= c+1;
until(bankcolor>0)or(c>10)
if(c>10)then
begin
writeln('unable to find the bank symbol color, please set manually');
Terminatescript;
end;
end;
//-------------------------------------------------------------------------//
function magicshopfloorsetup:boolean;
var c, door : integer;
tx, ty : integer;
begin
door := BitmapFromString(2, 4, 'z78DA33300001574B0338C0CF06' +
'00E7CC0979');
magicthingy:= GetSymbolColor(x,y,'magic shop');
if(magicthingy>0)then
begin
result:= true;
end;
if not result then
begin
repeat
If FindBitMapspiralTolerance(door,TX,TY,600,100,642,1 40,c) then
begin
magicthingy :=GetColor(TX,TY);
Result:=true;
break;
end;
if not result then
c:=c+1;
wait(50)
until(result)or(c=50)
if magicthingy=0 then writeln('Magic shop NOT Found');
FreeBitMap(door);
end;
end;
//-------------------------------------------------------------------------//
function walktoaubury:boolean;
var c : integer;
begin
if(findsymbol(x,y, 'bank'))then
checkbankcolor;
begin
mouse(665,130,4,3,true)
wait(6000+random(2000))
while(WaitTillFlag)do
walkingrandoms;
flag;
end;
begin
magicshopfloorsetup;
repeat
ClickMMColor(magicthingy)
if(flag)then;
begin
result:= true;
flag;
end;
if not result then
c:= c+1;
until(result)or(c>15)
end;
end;
//-------------------------------------------------------------------------//
function findandtalk:boolean;
var i : integer;
begin
i:= random(3)+1;
repeat
if(i=2)then
begin
walkingrandoms;
solemnrandoms;
result:= true;
end;
if(not(i=2))and not(result)then
i:= random(3)+1;
if (FindObj(x, y, 'ubury', 2186884, 5))then
mouse(x,y,1,1,false)
if(ClickOption('elepor', 1))then
begin
flag;
wait(4000+random(2000))
end;
until(findcolorspiraltolerance(x,y,10855856,561,4, 719,167,14))
end;
//-------------------------------------------------------------------------//
function detectroom2:boolean;
var tol : integer;
begin
tol:= 10;
repeat
if(findcolorspiraltolerance(x,y,10855856,561,4,719 ,167,tol))then
begin
mouse(x,y,4,3,true);
WaitTillFlag;
flag;
result:= true;
end;
if not result then
tol:= tol+1;
until(result)
writeln('We have been teleported to the middle-room')
end;
//-------------------------------------------------------------------------//
function detectrooms:boolean;
begin
walkingrandoms;
if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
begin
result:=true;
end;
if not result then
detectroom2;
end;
//-------------------------------------------------------------------------//
function backtoshop:boolean;
var tol : integer;
begin
repeat
if(findbitmaptolerancein(arrow,x,y,543,3,760,165,t ol))then
begin
mouse(x,y,5,5,true)
flag;
result:= true;
end;
if not result then
tol:= tol+1;
wait(25)
until(result)
begin
repeat
if (FindObj(x, y, 'ortal', 10072760, 25))then
begin
Mouse(x,y,3,2,true)
flag;
result:= true;
end;
until(result)
repeat
wait(1500+random(500))
until(not(findcolorspiral(x , y, 0 ,185, 125, 385, 230)and
not(findcolorspiral(x , y, 16777215 ,185, 125, 385, 230))))
end;
end;
//-------------------------------------------------------------------------//
procedure backtobank;
var i : integer;
begin
i:= random(3)+1;
if(i=3)then
begin
walkingrandoms;
solemnrandoms;
end;
mouse(677,56,1,2,true)
flag;
begin
checkbankcolor;
clickMMcolor(bankcolor);
flag;
repeat
if (not(Loggedin)) then break;
openbank3;
until(BankScreen or (TimeFromMark(Mark)>60000));
end;
if(BankScreen)then
begin
Wait(Random(2000)+200);
FixBank;
Deposit(2,28,2);
end;
mined:= mined+27
timestalked:= timestalked+1
exp:= exp+135
end;
//-------------------------------------------------------------------------//
Procedure progressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln('');
writeln('');
writeln(' WORKED FOR '+(TIME));
writeln(' <This essence miner was created by solemn wishes >');
writeln(' TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
writeln(' MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
writeln(' GAINED AROUND '+inttostr(exp)+' EXP SO FAR')
writeln('');
writeln('');
Report2:=GetSystemTime;
end;
end;
end;
//-------------------------------------------------------------------------//
procedure PlayerStats;
var Active: string;
var i: Integer;
begin
WriteLn(' ');
WriteLn(' ');
WriteLn(' ');
writeln('***************************************** *****');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Number : '+inttostr(CurrentPlayer));
writeln('Mining Level : '+ inttostr(Players[CurrentPlayer].level[15]));
writeln('Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active : '+ Active);
writeln('Location : '+ Players[CurrentPlayer].loc);
writeln('***************************************** *****');
for i := 0 to HowManyPlayers-1 do
begin
if Players[i].Active=True then Active:='True' else Active:='False';
writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+Active+
'.- Lvl : '+inttostr(Players[i].level[15])+
'.- B :'+inttostr(Players[i].Banked)+' Times.'+
'.- A: '+IntToStr(Players[i].Worked)+' mins.'+
'.- Loc: '+Players[i].loc);
end
writeln('***************************************** *****');
end;
//-------------------------------------------------------------------------//
procedure loadbitmaps;
begin
teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
'5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');
teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
'60700137208091A3AE1D58D722AB27462FF1EA8951499E69B 4162' +
'7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA76 78B8' +
'76A80000F0D74AB7');
play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
'57C5AAB2746EF60763F2DE28B780000AAE17B79');
clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000 A02B' +
'B79D');
arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
'6225E26225E26225E26225');
end;
//-------------------------------------------------------------------------//
function minethatess:boolean;
var c, i : integer;
begin
repeat
repeat
if(FindObj(x,y, 'ine',8553104,15))then
begin
getmousepos(x,y)
Mouse(x,y,2,3,true)
flag;
result:= true;
end;
until(result)
if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
Repeat
Wait(2000+random(750));
solemnrandoms;
findpick;
c:= c+1;
Until(not((GetColor(109,429)=0)and(GetColor(84,428 )=0)))or(c=20)
i:= i+1
until(i=15)or(inventoryfull= true)
end;
//-------------------------------------------------------------------------//
begin;
setupsrl;
setupsrlmining;
DeclarePlayers;
CurrentPlayer:= StartPlayer;
activateclient;
if(not(LoggedIn))then
LoginPlayer;
if(LoggedIn)then
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
loadbitmaps;
FindPickHeadColor;
repeat
repeat
tripstodo:= random(5)+3;
walktoaubury;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
PlayerStats
trips:= trips+1;
until(trips=tripstodo)
begin
repeat
Wait(1000);
FindnormalRandoms;
until(not(LoggedIn));
NextPlayer(True);
end;
if (not(Loggedin)) then NextPlayer(False);
FindPickHeadColor;
until(false)
end.
i heard somewhere that runaway direction was no longer in srl. i believe im correct or wrong but i think thats wat i read somewhere. can someone tell me wat i need to do to fix this problem. thankyou
EDIT: Added {.include SRL\SRL\Extended\xMapwalk.scar}
to the scipt. so dont tell me to add that
Line 157: [Error] (15812:1): Unknown identifier 'RunAwayDirection' in script C:\Program Files\SCAR 2.03\Scripts\SRL ess miner even bette.scar
program StrangeEssMiner;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Mining.scar}
{.include SRL\SRL\Extended\xMapwalk.scar}
(* ######## ### ### #############
######## ### ### ### #############
######## ### ### ### ###
### ### ### ### ###
### ### ### ### ###
######## ### ### ### ############# ---->
######## ### ### ### ###
### ### ### ### ###
### ### ### ### ###
######## ### ### ############# #############
######## ### ############# #############
#### #### ##### ###
##### ##### ### ## ###
### ## ## ### ### ## ###
### #### ### ### ## ###
### ## ### ### ## ###
### ### ### ## ###
### ### ### #####
### ### ### ####
-------------------------------------------------------------------------
================================================== =======================
-------------------------------------------------------------------------
##
## ## ## ## ####### ## ## ###### #######
## #### ## ## ## ## ## ## ##
## ## ## ## ## ####### ####### ###### #######
#### #### ## ## ## ## ## ##
## ## ## ####### ## ## ###### #######
-------------------------------------------------------------------------
================================================== =======================
// Varrok essence miner version : 3.1.2 Srl updated //
// ------------------------------ //
// by Solemn Wishes //
// contact: Rune-nation@hotmail.co.uk //
// //
// //
//----------------------------------------------------------------------//
// //
// Start in varrok bank (recomended near middle banker) hit run and //
// let the script do the rest, no color setup needed //
// //
//----------------------------------------------------------------------//
// Instructions. //
//----------------------------------------------------------------------//
// //
// 1. USE Runescape with LOW Detail, Very Bright. //
// 2. Set your Screen to 32 bit TRUE color. //
// 3. Set Playernames, Passwords ect ect.... //
// 4. Start at Varrok east bank, middle booth if possible //
// 5. Be sure to have a pickaxe somewhere (inventory/equipted) //
//----------------------------------------------------------------------//*)
var
arrow,clickhere,timestalked,play :integer;
tripstodo, trips, teleportbackup,teleport: Integer;
magicthingy,randomfight,mined,exp,report, report2:integer;
(*-------------------------------------------------------------------------*)
// //
// Essence miner start, only edit the player array bellow. //
(*-------------------------------------------------------------------------*)
Const StartPlayer = 0;
Procedure DeclarePlayers;
begin
HowManyPlayers:=10;
NumberOfPlayers(HowManyPlayers);
Players[0].Name :='';
Players[0].Pass :='';
Players[0].Nick :='sque';
Players[0].Loc :='varrok';
Players[0].Active:=True;
Players[1].Name :='';
Players[1].Pass :='';
Players[1].Nick :='';
Players[1].Loc :='varrok';
Players[1].Active:=false;
Players[2].Name :='';
Players[2].Pass :='';
Players[2].Nick :='';
Players[2].Loc :='varrok';
Players[2].Active:=false;
Players[3].Name :='';
Players[3].Pass :='';
Players[3].Nick :='';
Players[3].Loc :='varrok';
Players[3].Active:=false;
Players[4].Name :='';
Players[4].Pass :='';
Players[4].Nick :='';
Players[4].Loc :='varrok';
Players[4].Active:=false;
Players[5].Name :='';
Players[5].Pass :='';
Players[5].Nick :='';
Players[5].Loc :='varrok';
Players[5].Active:=false;
Players[6].Name :='';
Players[6].Pass :='';
Players[6].Nick :='';
Players[6].Loc :='varrok';
Players[6].Active:=false;
Players[7].Name :='';
Players[7].Pass :='';
Players[7].Nick :='';
Players[7].Loc :='varrok';
Players[7].Active:=false;
Players[8].Name :='';
Players[8].Pass :='';
Players[8].Nick :='';
Players[8].Loc :='varrok';
Players[8].Active:=false;
Players[9].Name :='';
Players[9].Pass :='';
Players[9].Nick :='';
Players[9].Loc :='varrok';
Players[9].Active:=false;
end;
//-------------------------------------------------------------------------//
procedure solemnrandoms;
begin
if(not(loggedin)) then LoginPlayer;
FindNormalRandoms;
if(FindFight)then
begin
writeln('we are being attacked, running away')
RunAwayDirection('S')
RunBack;
randomfight:= randomfight+1
end;
end;
//-------------------------------------------------------------------------//
procedure walkingrandoms;
var i : integer;
begin
if(not(loggedin)) then LoginPlayer;
FindLamp('mining');
findnewbox;
i:= random(3)+1
if(i=1)then
begin;
FindNormalRandoms;
antiban;
end;
end;
//-------------------------------------------------------------------------//
procedure checkbankcolor;
var c : integer;
begin
if(not(bankcolor>0))then
repeat
BankColor:= GetSymbolColor(x,y, 'bank');
c:= c+1;
until(bankcolor>0)or(c>10)
if(c>10)then
begin
writeln('unable to find the bank symbol color, please set manually');
Terminatescript;
end;
end;
//-------------------------------------------------------------------------//
function magicshopfloorsetup:boolean;
var c, door : integer;
tx, ty : integer;
begin
door := BitmapFromString(2, 4, 'z78DA33300001574B0338C0CF06' +
'00E7CC0979');
magicthingy:= GetSymbolColor(x,y,'magic shop');
if(magicthingy>0)then
begin
result:= true;
end;
if not result then
begin
repeat
If FindBitMapspiralTolerance(door,TX,TY,600,100,642,1 40,c) then
begin
magicthingy :=GetColor(TX,TY);
Result:=true;
break;
end;
if not result then
c:=c+1;
wait(50)
until(result)or(c=50)
if magicthingy=0 then writeln('Magic shop NOT Found');
FreeBitMap(door);
end;
end;
//-------------------------------------------------------------------------//
function walktoaubury:boolean;
var c : integer;
begin
if(findsymbol(x,y, 'bank'))then
checkbankcolor;
begin
mouse(665,130,4,3,true)
wait(6000+random(2000))
while(WaitTillFlag)do
walkingrandoms;
flag;
end;
begin
magicshopfloorsetup;
repeat
ClickMMColor(magicthingy)
if(flag)then;
begin
result:= true;
flag;
end;
if not result then
c:= c+1;
until(result)or(c>15)
end;
end;
//-------------------------------------------------------------------------//
function findandtalk:boolean;
var i : integer;
begin
i:= random(3)+1;
repeat
if(i=2)then
begin
walkingrandoms;
solemnrandoms;
result:= true;
end;
if(not(i=2))and not(result)then
i:= random(3)+1;
if (FindObj(x, y, 'ubury', 2186884, 5))then
mouse(x,y,1,1,false)
if(ClickOption('elepor', 1))then
begin
flag;
wait(4000+random(2000))
end;
until(findcolorspiraltolerance(x,y,10855856,561,4, 719,167,14))
end;
//-------------------------------------------------------------------------//
function detectroom2:boolean;
var tol : integer;
begin
tol:= 10;
repeat
if(findcolorspiraltolerance(x,y,10855856,561,4,719 ,167,tol))then
begin
mouse(x,y,4,3,true);
WaitTillFlag;
flag;
result:= true;
end;
if not result then
tol:= tol+1;
until(result)
writeln('We have been teleported to the middle-room')
end;
//-------------------------------------------------------------------------//
function detectrooms:boolean;
begin
walkingrandoms;
if(findbitmaptolerancein(arrow, x, y, 543, 3, 760, 165, 50))then
begin
result:=true;
end;
if not result then
detectroom2;
end;
//-------------------------------------------------------------------------//
function backtoshop:boolean;
var tol : integer;
begin
repeat
if(findbitmaptolerancein(arrow,x,y,543,3,760,165,t ol))then
begin
mouse(x,y,5,5,true)
flag;
result:= true;
end;
if not result then
tol:= tol+1;
wait(25)
until(result)
begin
repeat
if (FindObj(x, y, 'ortal', 10072760, 25))then
begin
Mouse(x,y,3,2,true)
flag;
result:= true;
end;
until(result)
repeat
wait(1500+random(500))
until(not(findcolorspiral(x , y, 0 ,185, 125, 385, 230)and
not(findcolorspiral(x , y, 16777215 ,185, 125, 385, 230))))
end;
end;
//-------------------------------------------------------------------------//
procedure backtobank;
var i : integer;
begin
i:= random(3)+1;
if(i=3)then
begin
walkingrandoms;
solemnrandoms;
end;
mouse(677,56,1,2,true)
flag;
begin
checkbankcolor;
clickMMcolor(bankcolor);
flag;
repeat
if (not(Loggedin)) then break;
openbank3;
until(BankScreen or (TimeFromMark(Mark)>60000));
end;
if(BankScreen)then
begin
Wait(Random(2000)+200);
FixBank;
Deposit(2,28,2);
end;
mined:= mined+27
timestalked:= timestalked+1
exp:= exp+135
end;
//-------------------------------------------------------------------------//
Procedure progressReport;
var
RHours,Minutes,Seconds,RMinutes,RSeconds:LongInt;
Time:String;
begin
if(GetSystemTime-report2 > report*60000)then
begin
Seconds:=(GetSystemTime) div 1000;
Minutes:=Seconds div 60;
RHours:=Minutes div 60;
Time:=inttostr(Seconds)+' Seconds';
if Minutes<>0 then
begin
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(Minutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
if RHours<>0 then
begin
RMinutes:=Minutes Mod (RHours*60);
RSeconds:=Seconds Mod (Minutes*60);
Time:=inttostr(RHours)+' Hours, '+inttostr(RMinutes)+' Minutes and '+inttostr(RSeconds)+' Seconds';
end;
begin
writeln('');
writeln('');
writeln(' WORKED FOR '+(TIME));
writeln(' <This essence miner was created by solemn wishes >');
writeln(' TALKED TO THE AUBURY '+inttostr(timestalked)+' TIMES SO FAR');
writeln(' MINED '+inttostr(mined)+ ' ESSENCE ROCKS SO FAR');
writeln(' GAINED AROUND '+inttostr(exp)+' EXP SO FAR')
writeln('');
writeln('');
Report2:=GetSystemTime;
end;
end;
end;
//-------------------------------------------------------------------------//
procedure PlayerStats;
var Active: string;
var i: Integer;
begin
WriteLn(' ');
WriteLn(' ');
WriteLn(' ');
writeln('***************************************** *****');
writeln('Name : '+ Players[CurrentPlayer].Name);
writeln('Number : '+inttostr(CurrentPlayer));
writeln('Mining Level : '+ inttostr(Players[CurrentPlayer].level[15]));
writeln('Worked for : '+IntToStr(Players[CurrentPlayer].Worked)+' minutes.');
if Players[CurrentPlayer].Active=True then Active:='True' else Active:='False';
writeln('Active : '+ Active);
writeln('Location : '+ Players[CurrentPlayer].loc);
writeln('***************************************** *****');
for i := 0 to HowManyPlayers-1 do
begin
if Players[i].Active=True then Active:='True' else Active:='False';
writeln( (inttostr(i))+' : '+Players[i].name+ ' = '+Active+
'.- Lvl : '+inttostr(Players[i].level[15])+
'.- B :'+inttostr(Players[i].Banked)+' Times.'+
'.- A: '+IntToStr(Players[i].Worked)+' mins.'+
'.- Loc: '+Players[i].loc);
end
writeln('***************************************** *****');
end;
//-------------------------------------------------------------------------//
procedure loadbitmaps;
begin
teleport := BitmapFromString(10, 15, 'z78DA3330182CC00D0720' +
'5E1731E2C3492FB5C28AD4D8192A7A870A00000D1EB9C5');
teleportbackup := BitmapFromString(29, 17, 'z78DA33301805A3' +
'60700137208091A3AE1D58D722AB27462FF1EA8951499E69B 4162' +
'7D50D03EB5ACA53C2A86BE9E35A5AE732525D325A328FBA76 78B8' +
'76A80000F0D74AB7');
play := BitmapFromString(8, 12, 'z78DA33302007B8110170A927D' +
'57C5AAB2746EF60763F2DE28B780000AAE17B79');
clickhere := BitmapFromString(10, 16, 'z78DA3330185EC0CD8D1' +
'CF5A4EAA2C4C6C1A31793A4C45E624C187E7A2989056A0000 A02B' +
'B79D');
arrow := BitmapFromString(4, 2, 'C5BAC9C5BAC9C5BAC9C5BAC9E2' +
'6225E26225E26225E26225');
end;
//-------------------------------------------------------------------------//
function minethatess:boolean;
var c, i : integer;
begin
repeat
repeat
if(FindObj(x,y, 'ine',8553104,15))then
begin
getmousepos(x,y)
Mouse(x,y,2,3,true)
flag;
result:= true;
end;
until(result)
if(GetColor(109,429)=0)and(GetColor(84,428)=0)then
Repeat
Wait(2000+random(750));
solemnrandoms;
findpick;
c:= c+1;
Until(not((GetColor(109,429)=0)and(GetColor(84,428 )=0)))or(c=20)
i:= i+1
until(i=15)or(inventoryfull= true)
end;
//-------------------------------------------------------------------------//
begin;
setupsrl;
setupsrlmining;
DeclarePlayers;
CurrentPlayer:= StartPlayer;
activateclient;
if(not(LoggedIn))then
LoginPlayer;
if(LoggedIn)then
NickNameBMP := CreateBitmapMaskFromText(Players[CurrentPlayer].Nick, UpChars);
loadbitmaps;
FindPickHeadColor;
repeat
repeat
tripstodo:= random(5)+3;
walktoaubury;
findandtalk;
detectrooms;
minethatess;
backtoshop;
backtobank;
progressReport;
PlayerStats
trips:= trips+1;
until(trips=tripstodo)
begin
repeat
Wait(1000);
FindnormalRandoms;
until(not(LoggedIn));
NextPlayer(True);
end;
if (not(Loggedin)) then NextPlayer(False);
FindPickHeadColor;
until(false)
end.
i heard somewhere that runaway direction was no longer in srl. i believe im correct or wrong but i think thats wat i read somewhere. can someone tell me wat i need to do to fix this problem. thankyou
EDIT: Added {.include SRL\SRL\Extended\xMapwalk.scar}
to the scipt. so dont tell me to add that