does this works with rev #7?? I don't think so..
Unknown identifier 'uptext'
you have this 7x in your script..
It has to be "Isuptext" or just simply rs_GetUpText ;)
Here's the working version:
program EssMiner;
{.include SMART.scar}
{.include srl/srl.scar}
{.include ph.scar}
const audbury1=1279410; //Don't change these unless it doesn't find Audbury they are shoulder colours
audbury2=2940155;
procedure DoPlayers;
begin
SRLID:= ''; //Your SRL Stats ID
SRLPASSWORD:= ''; //your SRL Stats Password
NumberOfPlayers(1); //The number of players you will be using
Players[0].Name:= 'User'
Players[0].Pass:= 'Pass'
Players[0].Nick:= 'Nick' //3-4 characters, no capitals
Players[0].Skill:= 'Mining' //Mining
Players[0].Active:= True
end;
function ActiveUsers: Integer;
var Repeats, players1: integer;
begin
result:= 0
repeats:= 0
Players1:= GetArrayLength(Players);
repeat
if Players[Repeats].Active then result:= result + 1
wait(50);
repeats:= repeats + 1
until(repeats = Players1)
end;
var xx, yy, banked: integer;
procedure InitialLogin;
begin
Status('Logging in');
LoginPlayer;
MakeCompass('N');
HighestAngle;
CheckUserNicks;
end;
procedure NextAccount;
begin
if not(ActiveUsers = 1) then
begin
status('Switching accounts');
writeln('You were logged out, next user');
nextplayer(false);
loginplayer;
wait(2000 + random(1000));
makecompass('N');
HighestAngle;
fixchat;
end else logout;
end;
var lvltouse, ess: integer;
procedure DTM;
begin
lvltouse := DTMFromString('78DA63CC626060E0664001DB5674816946289' +
'FD1054830A3AA59BBB003530D1F01733A30D5EC5EDD8DAAA61D48' +
'7010509386A90606E06AF281042F013520BBB808A87105129CF8D' +
'500005A2A0D97');
Ess := DTMFromString('78DA6314656060006124101F19C9F01F48330' +
'2F17F2060E40632B819D000231209A405810407AA0A0F3B535435' +
'3240829380398A40829F08353204D480FCA482AAC2404101550DC' +
'84F0A04CC61071242F8D50000C02F08B8');
end;
procedure reports;
var mins, seconds, hours: integer;
begin
SendSRLReport;
srlrandomsreport;
addtoreport('[----Ess Miner Created By:-----]');
addtoreport('[--------TheGuyWhoGotOn--------]');
addtoreport('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]');
converttime(gettimerunning, hours, mins, seconds);
addtoreport('[Ran for: ' + inttostr(hours) + ':' + inttostr(mins) + ':' + inttostr(seconds) + ' ]');
addtoreport('[Ess Banked: ' + inttostr(banked) + ' ]');
addtoreport('[~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~]');
end;
procedure AntiBan;
var perform: integer;
begin
perform:= random(500)
if perform = 1 then HoverSkill(players[currentplayer].skill, false);
if perform = 1 - 125 then PickUpMouse;
if perform = 3 then AlmostLogout;
if perform = 4 then
begin
Wait2(4000 + random(1000), true);
wait(1000 + random(500));
makecompass('N');
end;
if perform = 5 then BoredHuman;
end;
procedure fixrandoms;
begin
findnormalrandoms;
SolveChatRandom;
if finddtm(lvltouse, xx, yy, 9, 442, 495, 458) then
begin
writeln('You lost all your pickaxes, logging out...');
reportvars[3]:= 1;
reports;
NextAccount;
end;
end;
function WaitEvents: boolean;
var repeats: integer;
begin
repeats:= 0
repeat
result:= false
status('Waiting for all walking');
wait(500 + random(500));
if events then result:= true
status('Checking/fixing randoms');
fixrandoms;
if LoggedIn = false then
begin
Nextaccount;
result:= false
end;
repeats:= repeats + 1
until(result = false)or(repeats = 20)
end;
procedure Teleport;
begin
Status('Going to Audbury');
if FindSymbol(xx, yy, 'magic shop') then mouse(xx, yy, 2, 2, true)
else begin
mouse(636, 153, 2, 2, true);
wait(5000 + random(1000));
waitevents;
if FindSymbol(xx, yy, 'magic shop') then mouse(xx, yy, 2, 2, true)
else begin
findcolortolerance(xx, yy, 1055723, 542, 8, 736, 163, 5);
wait(500 + random(500));
mouse(xx, yy, 3, 3, true);
end;
waitevents;
end;
WaitEvents;
wait(1000 + random(1000));
AntiBan;
repeat
if (not(FindSomethingEx(audbury1, audbury2, 10, true, false, 'Talk-to Aub', true, true, true)))and(FindSymbol(xx, yy, 'magic shop')) then
begin
writeln('Couldn`t find Audbury next account');
logout;
nextplayer(false);
end;
wait(750 + random(500));
until(chooseoption('eleport'))or(not(FindSymbol(xx, yy, 'magic shop')));
waitevents;
wait(10000 + random(2000));
end;
Procedure MineRock1;
var found: boolean;
begin
status('Going To Rock');
repeat
if FindSymbol(xx, yy, 'magic shop') then Teleport;
until(not(FindSymbol(xx, yy, 'magic shop')));
wait(500 + random(250));
mmouse(370, 74, 5, 5);
wait(750 + random(750));
if Isuptext('Mine') then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
if not(found) then mmouse(139, 95, 3, 3);
wait(750 + random(750));
if (Isuptext('Mine'))and(not(found)) then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
if not(found) then mmouse(222, 85, 4, 4);
wait(750 + random(750));
if (Isuptext('Mine'))and(not(found)) then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
If (not(findsomethingex(10461099, 2039842, 2, true, true, 'Mine', true, true, true))and(not(found))) then
begin
mouse(614, 123, 2, 2, true);
WaitEvents;
if not(findsomethingex(10461099, 2039842, 3, true, true, 'Mine', true, true, true)) then mouse(614, 123, 2, 2, true);
found:= findsomethingex(10461099, 2039842, 3, true, true, 'Mine', true, true, true);
wait(500 + random(250));
mmouse(370, 74, 5, 5);
wait(750 + random(750));
if Isuptext('Mine') then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
if not(found) then mmouse(139, 95, 3, 3);
wait(750 + random(750));
if (Isuptext('Mine'))and(not(found)) then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
if not(found) then mmouse(222, 85, 4, 4);
wait(750 + random(750));
if (Isuptext('Mine'))and(not(found)) then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
if not(found) then mmouse(165, 195, 5, 5);
wait(750 + random(750));
if (Isuptext('Mine'))and(not(found)) then
begin
getmousepos(xx, yy);
mouse(xx, yy, 2, 2, true);
found:= true;
end;
end;
end;
procedure FinishMining;
begin
status('Mining');
wait(500 + random(500));
AntiBan;
wait(1000 + random(500));
repeat
status('Mining');
if InvFull = false then
begin
WaitEvents;
wait(5000 + random(3000));
if not(invfull) then findsomethingex(10461099, 2039842, 3, true, true, 'Mine', true, true, true);
end;
until(InvFull)
end;
procedure TeleBack;
var found: boolean;
begin
repeat
status('Leaving Ess Area');
if findsymbol(xx, yy, 'arrow') then mouse(xx, yy, 3, 3, true)
else begin
writeln('Couldn`t find the way back...Terminating');
terminatescript;
end;
WaitEvents;
wait(3000 + random(1000));
AntiBan;
found:= findsomethingex(10136755, 10070962, 2, true, true, 'Use Po', false, false, true);
WaitEvents;
wait(5000 + random(2000));
until(found);
end;
procedure BankEss;
var amountbefore: integer;
begin
if not(FindSymbol(xx, yy, 'magic shop')) then wait(1500 + random(2000));
status('Banking Ess');
mouse(649, 14, 3, 3, true);
wait(7000 + random(1500));
WaitEvents;
amountbefore:= invcount;
if not(FastOpenBank('veb', 2)) then
begin
findsymbol(xx, yy, 'bank');
wait(500 + random(500));
mouse(xx, yy, 3, 3, true);
waitevents;
wait(750 + random(750));
FastOpenBank('veb', 2);
end;
waitevents;
wait(1500 + random(750));
FindDTM(Ess, xx, yy, 550, 204, 726, 466);
mouse(xx, yy, 5, 5, false);
chooseoption('e All');
wait(750 + random(750));
closebank;
AntiBan;
wait(750 + random(750));
banked:= banked + (amountbefore - invcount);
reportvars[4]:= amountbefore - invcount;
reports;
end;
begin
SetupSRL;
Scriptid:= '297'
DTM;
DoPlayers;
InitialLogin;
repeat
Teleport;
AntiBan;
WaitEvents;
MineRock1;
FinishMining;
TeleBack;
BankEss;
until(activeusers = 0)
reports;
end.
-Tsn.