SRL Archive - OSR Outdated / Broken Scripts

Ok so I got bored of training magic manually, so I made this script in a few hours. I used lots of little bits from other scripts and some bits of my own.

It's not perfect:
-You have to stand right by the cage
-Doesn't support randoms (I added loads of anti-randoms to the script but they never seem to work)
-If you take damage by a random, it doesn't support food (if your afk). So I would HIGHLY recommend using a ring of life to save you and your runes/arrows ;P

Otherwise it does the job!

Feel free to upgrade and re-post the script ;D

—————————————

A quick guide to all my awesome co-runescape-addicts for 99 magic:

Wind Strike to level 13 ==> 245 minds (15gp ea) ==> 3675 gp
Fire Strike to level 55 ==> 8452 minds (15gp ea) + 16904 airs (15gp ea) + fire staff ==> 126780 gp + 253560 gp = 380,340 gp

High Alch to level 99 (assuming 70 fletching for Yew Longs):
197,967 casts ==> 197,967 yew logs (420gp ea) + 197,967 bow strings (120gp ea) + 197,967 natures (280ea) + fire staff ==> 83,146,140gp + 23,756,040gp + 55,430,760gp = 162,332,940gp
High Alch Money ==> 197,967*768 = 152,038,656gp ; Loss = 10,294,284gp

Total = 3675+380,340+10,294,284 = 10,678,299 gp

OR

High Alch to level 99 (assuming 85 fletching for Magic Longs) :
197,967 casts ==> 197,967 magic logs (1150gp ea) + 197,967 bow strings (120gp ea) + 197,967 natures (280ea) + fire staff ==> 227,662,050gp + 23,756,040gp + 55,430,760gp = 306,848,850gp
High Alch Money ==> 197,967*1,536 = 304,077,312gp ; Loss = 2,771,538gp

Total= 3675+380,340+2,771,538 = 3,155,553 gp

====== 99 Magic!


;P

Please do donate even a small amount if any of this helped (need to pay uni fees :[ ==> paypal = [email]yousafjml@hotmail.co.uk[/email] )



[ATTACH]20420[/ATTACH]

Oh whoops uploaded an old version without the 'working' anti randoms. I'll quote the whole script below, as I can't seem to find the 'Add attachment' button.

program DemonSlayer;
{$DEFINE SMART8}
{$i srl/srl.simba}
{$i P07Include.simba}
Var
camera2,camera1,Fighting,X,Y:Integer;

const
MONSTERCOLOR = 593482; //Monster Color 1
MONSTERCOLOR2 = 2635633; //Monster Color 2


Procedure P07_DeclarePlayer;
begin
P07_PlayerName:='';
P07_PlayerPass:='';
end;

Procedure WaitHumanClick;
begin
case random(600) of
1..450: Wait(RandomRange(0, 100));
451..570: Wait(RandomRange(0, 200));
571..590: Wait(RandomRange(0, 600));
591..600: Wait(RandomRange(400, 1100));
end;
end;

procedure ClickGenie;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['enie'],[5704020, 4786501, 9376393, 8719998, 4390976],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['enie'],[1650385],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['enie'],[1650385],10))
end;
end;

procedure ClickMan;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['ious','alk'],[5849352],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ious','alk'],[5849352],10))
end;
end;

procedure RunSwarm;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
wait(8000+random(500))
If P07_FindObjCustom(x,y,['alk','ere'],[255],10) Then
begin
If P07_FindObjCustom(x,y,['alk','ere'],[3179891],10) Then
begin
ClickMouse2(mouse_left);
wait(3000+random(1000))
end;
end;
end;
end;

procedure ClickJekyll;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['yll'],[594262],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ekyll'],[594262],10))
end;
end;

procedure ClickFruit;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
begin
wait(5000+random(1000))
ClickMouse2(mouse_left);
If P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['ick','ruit'],[12479637],10))
end;
end;

procedure ClickDwarf;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
begin
ClickMouse2(mouse_left);
wait(2000+random(1000))
P07_ClickToContinue;
wait(500+random(100))
If P07_FindObjCustom(x,y,['warf'],[1844602],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['warf'],[1844602],10))
end;
end;

procedure ClickHand;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['and'],[3549040],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['and'],[3549040],10))
end;
end;

procedure ClickRick;
var
x, y:integer;
begin
If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
begin
ClickMouse2(mouse_left);
wait(1500+random(100))
P07_ClickToContinue;
wait(1000+random(100))
If P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10) Then
repeat
wait(random(1000));
until not(P07_FindObjCustom(x,y,['tine','ick'],[7748225,7354492],10))
end;
end;
procedure RotateCamera;
begin
P07_MakeCompassdegree(randomrange(0, 360));
end;
procedure CameraRotate;
begin
camera1 := 2;
camera2 := (random(5));
if camera2 = camera1 then
RotateCamera;
end;
procedure AmIFighting;
begin
Fighting := 0;
begin
if (FindColor(X,Y,65280,220,110,330,220)) Then
begin
Fighting := 1
wait(2700+random(250));
end;
end;
end;
procedure AttackMonster;
begin
if P07_FindObjCustom(x,y, ['alk here', 'walk here'], [MONSTERCOLOR, MONSTERCOLOR2], 5) then
begin
P07_MouseBox(X, Y, X, Y, mouse_right);
wait(300+random(60));
P07_ChooseOptionMulti(['ttack']);
sleep(2000+random(250));
end;
end;

begin
P07_DeclarePlayer;
SetupSRL;
SetupP07Include;
ActivateClient;
ClearDebug;
if (not P07_LoggedIn) then
P07_LogInPlayer;
P07_MakeCameraAngleHigh;
if (P07_LoggedIn) then
begin
repeat
AmIFighting;
AttackMonster;
sleep(2500+random(100));
CameraRotate;
until(false);
end;

end.

has anybody tested this?

Nice calculations, I wouldn't buy the stuff to alch I'd more than likely get everything myself but it was still clever to include it. Also I don't know if you can ask for donations can't be completely sure. Might want to ask a mod

You need to call procedures in your main loop for them to do anything. Like this:

begin
P07_DeclarePlayer;
SetupSRL;
SetupP07Include;
ActivateClient;
ClearDebug;
if (not P07_LoggedIn) then
P07_LogInPlayer;
P07_MakeCameraAngleHigh;
if (P07_LoggedIn) then
begin
repeat
AmIFighting;
AttackMonster;
ClickRick;
ClickDwarf;
ClickFruit;
ClickHand;
sleep(2500+random(100));
CameraRotate;
until(false);
end;
end.

Hope this helps, Grats on first script :D

I need to train Mage, so I'll give this a go.

Does this still work?

P07Include is outdated. Please use official OSR version and pm me when/if this is updated.