PDA

View Full Version : Ye Olde magic/ranged DEMONSLAYER script - Working + No Antileech ! (:



yousafjml
04-01-2013, 02:46 AM
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 = yousafjml@hotmail.co.uk )



20420

yousafjml
04-01-2013, 02:51 AM
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.

vigilante123
04-09-2013, 01:24 PM
has anybody tested this?

MaetNameno
04-10-2013, 05:49 AM
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

Huntdafuzzma
04-12-2013, 02:33 AM
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

Carnaflex
04-13-2013, 08:43 AM
I need to train Mage, so I'll give this a go.

shakiru
05-04-2013, 10:45 AM
Does this still work?

Ashaman88
11-29-2013, 05:37 PM
P07Include is outdated. Please use official OSR version and pm me when/if this is updated.