Code:
{.include srl/srl.scar}
{.include jpspowerskills.scar}
{.include srl/srl/misc/smart.scar}
var loads:integer;
procedure DeclarePlayers;
begin
HowManyPlayers := 1; // If you add more players , make sure you set this correct, ;)
NumberOfPlayers(HowManyPlayers);
Players[0].Name := ''; //Your username
Players[0].Pass := ''; //Your password
Players[0].Nick := 'nubs'; //Nickname from you username
Players[0].Active := True; //Active->True or False.
Players[0].Integers[0] := 40; //Loads to do. Random 3 will be added.
Players[0].Strings[1] := 'mining'; //what skill do u want to do mining or wcing
Players[0].Strings[2] := 'rimmington';//where r u mining
Players[0].strings[3] := 'iron' //what tree or ore do u want to power skill
{ woodcutting
tree = normal oak =oak willow= willow yew = yew
mining
all the normal ore name must be spelled perfectly}
end;
procedure antibanz;
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;
procedure woodcutting;
var
i , m: integer;
treecolors: array [0..3] of integer;
treeNames: array [0..2] of String;
begin
Players[CurrentPlayer].Loc := 'trees';
repeat
if Players[CurrentPlayer].strings[2] = 'willow' then
chopwillows;
if Players[CurrentPlayer].strings[2] = 'tree' then
choptrees;
if Players[CurrentPlayer].strings[2] = 'oak' then
chopoaks;
AntiBanz;
FindRandoms;
if not (LoggedIn) then
begin
NextPlayer(False);
LoginPlayer;
end;
until invfull or inchat('full to')
inc(loads)
end;
procedure logdropping;
var
logdtm:integer;
begin
repeat
logDTM := DTMFromString('78DA63CC66626078C28002EA12AD181E02694' +
'620FE0F048C1940357718D000231209A48B806A6E1250530654F3' +
'88809A6AA09A6704D45400D5BC21A0A618A8E62D0135E940351F0' +
'9A84924C29C58A09AA7B8D570C0CCB94F404D32FE7006A90100DC' +
'FE160C');
If FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,False);
wait(random(200));
ChooseOption('Drop');
wait(500 + random(100))
findrandoms;
end;
Until not FindDTM(logDTM,x,y,MIX1,MIY1,MIX2,MIY2);
end;
procedure mineores;
begin
disguise('mining')
repeat
if Players[CurrentPlayer].strings[2] = 'rimmington' then
begin
if Players[CurrentPlayer].strings[2] = 'tin' then
rminetin;
if Players[CurrentPlayer].strings[2] = 'copper' then
rminecopper;
if Players[CurrentPlayer].strings[2] = 'iron' then
rmineiron;
if Players[CurrentPlayer].strings[2] = 'gold' then
rminegold;
end;
if Players[CurrentPlayer].strings[2] = 'varrock' then
begin
if Players[CurrentPlayer].strings[2] = 'tin' then
vminetin;
if Players[CurrentPlayer].strings[2] = 'copper' then
vminecopper;
if Players[CurrentPlayer].strings[2] = 'iron' then
vmineiron;
if Players[CurrentPlayer].strings[2] = 'silver' then
vminesilver;
end;
AntiBanz;
FindRandoms;
if not (LoggedIn) then
begin
NextPlayer(False);
LoginPlayer;
end;
until invfull or inchat('full to')
end;
procedure OreDropping;
var OreDTM:integer;
begin
OreDTM := DTMFromString('78DA637463626078C28002FC0C54181E02694' +
'620FE0F048CEE40353718D000231209A403816AEE1350E30D54F3' +
'86801A7BA09A4F04D49800D53C26C29CEBF8D5000045B70DB0');
repeat
Disguise('dropping ores');
If FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2) then
Begin
Mouse(x,y,2,2,False);
wait(random(200));
ChooseOption('Drop');
wait(500 + random(100))
findrandoms;
end;
Until not FindDTM(OreDTM,x,y,MIX1,MIY1,MIX2,MIY2);
inc(loads);
end;
procedure proggy;
begin
cleardebug;
WriteLn(inttostr(loads));
end;
begin
SmartSetupEx(1, false, Signed, false);
while not SmartActive do wait(100);
SetTargetDC(SmartGetDC);
setupsrl;
setupmining;
LoadRockRecords
activateclient;
GraphicsSet := true;
declareplayers;
loginplayer;
loads:=0;
repeat
proggy
if Players[CurrentPlayer].strings[1] = 'woodcutting' then
woodcutting;
if Players[CurrentPlayer].strings[1] = 'woodcutting' then
logdropping;
if Players[CurrentPlayer].strings[1] = 'mining' then
mineores;
if Players[CurrentPlayer].strings[1] = 'mining' then
oredropping;
until(loads = 40)
end.
when i run it it goes to the smart script and says