SRL Archive - Other Scripts

Pie Dragon Fable
Script - 1
WARNING,WARNING,WARNING THIS SCRIPT IS WILL NO LONGER FIGHT BUT I WILL STILL KEEP IT HERE FOR A WHILE!
The Story: I Saw my Brother Playing Dragon Fable So I Decided To Make A Script For Him, So I Did, And I Posted The Script Here.
This Script Is Nothing Really, Just Clicks Coords, Has Good Report Procedure, Just Run It, And You Will See.
YOU CAN FIND THE GAME AT www.dragonfable.com/

This Script Will Kill The Monsters At The Light & Dark War At Falconreach, And After Each Fight It Will Heal The Charecter.
- You can run the script at any level.
- This script will get you party - friends if you want.
- Kills 20-30 monsters per hour. It depends on your level and weapon.
- This script will heal your charecter after every fight.
- Have Fun And Post Proggys.
- Credits To Yanix For Party Friend Idia.
- Also Credits To Him For Stun Idia.

program PieDragonFable2;
{.include SRL/SRL.scar}
////////////////////////////////////////////////////////////////////////////////
//This script will train your charecter at the Light & Dark War at
//Falconreach.
//You have the right to copy/take anything from this script, but please credit
//to me. You can'not claim this script as your own cause then you be noob.
////////////////////////////////////////////////////////////////////////////////
//Instructions & Features-------------------------------------------------------
//Start at Falconreach. Set home town to Falconreach.
//You can be any level when running this script.
//This script will heal your charecter after every fight.
//Fill out Const.
//This is my second Dragon Fable script, but its like same as my first one i
//just added lil. more stuff.
//Currently if charecter level ups script doesnt press ok.
//I will fix that later.
//Approx.Monsters Per Hour = 20. Depends On Your Level And Weapon.
//Level 24, Silver Axe = 20 Monsters Per Hour.
//This script will get Ash and Artix to be your party - friends, if you want.
////////////////////////////////////////////////////////////////////////////////

Const
Monsters = 100;//How many monsters you want to kill.
MyLevel = 24;//What is your level.
Speed = 5;//What speed of the mouse you want.
Attack = 11;//Times to click attack when fighting monster(s).20 Is recommended.
Ash = False;//True if you want Ash to be your party - friend.
Artix = False;//True if you want Artix to be your party - friend.
Stun = True;//True if you want to use stun on your enemy.


Var
Killed, Tries, Healed, Stopped: Integer;


Procedure Start;
begin
ClearDebug;
WriteLn('Pie Dragon Fable');
WriteLn('Starting To Run Script');
WriteLn('Soon The Light & Dark War Will Be No More So Run It Now!');
WriteLn('There Are Gonna Be More Scripts Like This Later');
WriteLn('Have Fun!');
end;


Procedure GetAsh;
begin
if (Ash = True)then
begin
Mouse(186,376,1,1,true);
Wait(3000);
Mouse(118,281,1,1,true);
Wait(2000);
Mouse(403,356,1,1,true);
Wait(5000);
Mouse(376,390,1,1,true);
Wait(1000);
Mouse(410,387,1,1,true);
Wait(2000);
end;
end;


Procedure NotGetAsh;
begin
if (Ash = False)then
begin
WriteLn('Ash Sucks So We Dont Want Him');
Wait(4000);
end;
end;


Procedure GetArtix;
begin
if (Artix = True) then
begin
Mouse(533,339,1,1,true);
Wait(2000);
Mouse(520,259,1,1,true);
Wait(1500);
Mouse(191,301,1,1,true);
Wait(1500);
Mouse(420,290,1,1,true);
Wait(2000);
Mouse(528,340,1,1,true);
Wait(1000);
Mouse(727,341,1,1,true);
Wait(3000);
Mouse(201,325,1,1,true);
Wait(2000);
Mouse(192,216,1,1,true);
Wait(1600);
Mouse(670,153,1,1,true);
Wait(10000);
Mouse(463,363,1,1,true);
Wait(1000);
Mouse(469,302,1,1,true);
Wait(2000);
Mouse(404,283,1,1,true);
Wait(1000);
Mouse(399,184,1,1,true);
Wait(5000);
Mouse(373,402,1,1,true);
Wait(4000);
Mouse(377,390,1,1,true);
Wait(2000);
Mouse(369,433,1,1,true);
Wait(5000);
Mouse(394,536,1,1,true);
Wait(2000);
Mouse(137,493,1,1,true);
Wait(10000);
WriteLn('We Got Artix With Us');
end;
end;


Procedure NotGetArtix;
begin
if (Artix = False) then
begin
ClearDebug;
WriteLn('Artix Is A Noob So We Dont Want Him');
end;
end;


Procedure Party;
begin
GetAsh;
NotGetAsh;
GetArtix;
NotGetArtix;
end;


Procedure War;
begin
MouseSpeed:=Speed;
Mouse(638,139,1,1,true);
Wait(8000+random(100));
Mouse(398,372,1,1,true);
WriteLn('We Are At War Place With Monsters');
Wait(6000+random(500));
end;


Procedure ClickM;
begin
MouseSpeed:=Speed;
Mouse(43,305,1,1,true);
Wait(5000+random(500));
end;


Procedure OmgStop;
begin
if (Stun = True) then
begin
Mouse(232,407,1,1,true);
Wait(4500);
Stopped:=Stopped+1;
end;
end;


Procedure Fight;
begin
MouseSpeed:=Speed;
repeat
Mouse(380,408,2,2,true);
Wait(6000+random(200));
Tries:=Tries+1;
WriteLn('Tries ' + IntToStr(Tries) + '');
until(Tries=Attack);
If(Tries=Attack)Then
Mouse(385,334,1,1,true);
Killed:=Killed+1;
Wait(5000+random(1000));
end;


Procedure BToCity;
begin
MouseSpeed:=Speed;
Mouse(734,360,1,1,true);
Wait(3000+random(2000));
Mouse(326,281,1,1,true);
WriteLn('We Are At City');
Wait(8000);
end;


Procedure Heal;
begin
MouseSpeed:=Speed;
Mouse(272,274,1,1,true);
Wait(5000+random(500));
Mouse(422,193,1,1,true);
Wait(3200);
Mouse(253,419,1,1,true);
Wait(1000);
Mouse(693,119,1,1,true);
Wait(2000);
WriteLn('Healed');
Healed:=Healed+1;
Tries:=0;
end;


Procedure Report;
begin
ClearDebug;
WriteLn('Pie-Dragon-Fable-RePoRt');
WriteLn('---------------------------------------------------------------------');
WriteLn('Running Time ' + (TimeRunning) + '');
WriteLn('Approx.Killed ' + IntToStr(Killed) + ' Monster(s)');
WriteLn('Your Level Was ' + IntToStr(MyLevel) + ' When The Script Started To Run');
WriteLn('Healed ' + IntToStr(Healed) + ' Time(s)');
WriteLn('Used Stun ' + IntToStr(Stopped) + ' Time(s)');
WriteLn('---------------------------------------------------------------------');
WriteLn('EnD-oF-rEpOrT');
end;


begin
SetupSRL;
Start;
Party;
begin
repeat
War;
ClickM;
OmgStop;
Fight;
BToCity;
Heal;
Report;
until(Killed = Monsters);
if(Killed = Monsters)then
Report;
TerminateScript;
end;
end.

What>?

What you mean by "What>?" lol…

In your script why does each Mouse function have

Mouse(x,y,1,1,True)

What does '1,1' do? :confused: :confused: :confused:

Mouse(x,y,1,1,true)
What that does is clicks the coords x,y and adds random cords from 0,0 to 1,1.

If Its Mouse(100,100,2,2,true) it will click 100,100 or 101,101,or 102,102 well u get it it the numbers after x,y are random numbers added to the coords, so it will randomly click on the cords.

Is 20-30 monsters per hour a lot?

From: lordsaturn
Is 20-30 monsters per hour a lot?

Yes:google: