Minotaur Exterminator

no mang, they're still there..


also VURRY NICE SCRIPT.
anything with 30 def can stay pretty much inevitably.

i did like 6 hours yesterday but the biggest prog was maybe 2hours most crashes are caused by scheduled antivirus scans lol.

very.very.nice.
i did get stuck behind a door once or twice though, but i was watching so i clicked out ~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 2 Hours, 16 Minutes and 26 Seconds.
Exp: 25068.
Brakes: 16.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Player is not Active...


theres one of the better ones ...

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 3 Hours, 49 Minutes and 10 Seconds.
Exp: 300668.
Brakes: 27.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

still running but it took my total exp as the exp gained lol :D

edit: stopped due to random >.<
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 6 Hours, 21 Minutes and 33 Seconds.
Exp: 0.
Brakes: 46.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Player is not Active...
NextPlayer(Active: False);

Quote:

---

Originally Posted by squnky

no mang, they're still there..


also VURRY NICE SCRIPT.
anything with 30 def can stay pretty much inevitably.

i did like 6 hours yesterday but the biggest prog was maybe 2hours most crashes are caused by scheduled antivirus scans lol.

very.very.nice.
i did get stuck behind a door once or twice though, but i was watching so i clicked out ~

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 2 Hours, 16 Minutes and 26 Seconds.
Exp: 25068.
Brakes: 16.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Player is not Active...


theres one of the better ones ...

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 3 Hours, 49 Minutes and 10 Seconds.
Exp: 300668.
Brakes: 27.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

still running but it took my total exp as the exp gained lol :D

edit: stopped due to random >.<
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 6 Hours, 21 Minutes and 33 Seconds.
Exp: 0.
Brakes: 46.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Player is not Active...
NextPlayer(Active: False);

---

Thanks for the feedback, and wow! 6hours! Good job!

Quote:

---

Originally Posted by Ultra

and wow! 6hours! Good job!

---

good job?

You are the one who did the good job, Ultra :rolleyes:
gz for a useful script!

I'll post my proggy from my rune pure in a few hours.

SCAR Code:

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 45 Minutes and 28 Seconds.
Exp: -55181.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Successfully executed

;)

Got about 2 ranging levels.(10k exp).

SCAR Code:

~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 1 Hours, 45 Minutes and 15 Seconds.
Exp: 8104.
Brakes: 10.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Successfully executed

Awesome, prolly the best pure trainer out there :D (for ranged)

yo dude can u help me add smart to this thing?

Quote:

---

Originally Posted by mohsin12331

yo dude can u help me add smart to this thing?

---

It's not hard to do, try learning it? It will only benefit you.

Quote:

---

Originally Posted by mohsin12331

yo dude can u help me add smart to this thing?

---

Find this line:

SCAR Code:

{.Include SRL/SRL.Scar}

and change it to this:

SCAR Code:

{.Include SRL/SRL/Misc/Smart.Scar}
{.Include SRL/SRL.Scar}

Then find this line:

SCAR Code:

SetUpSRL;

and change it to this:

SCAR Code:

SMARTSetupEx(133, False, True, False);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  repeat
    Wait(100);
  until (SmartGetColor(253, 233) <> 1118604);
  SetupSRL;

Edit: Here is a little progress report for you, worked perfectly.

Quote:

---

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 1 Hours, 9 Minutes and 25 Seconds.
Exp: 8024.
Brakes: 7.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

---

Stopped manually.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 2 Hours, 42 Minutes and 28 Seconds.
Exp: 15580.
Brakes: 6.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

stopped by random [freaky forester], maybe put better antirandoms? other than that, a very good script, the best i have ever used in this section [fighting] Thanks.

PS- Ill PM you if when I am done adding anti randoms to this script, I wont publish it though (learned my lesson from Pure1993) hehe

Works flawlessly expect after 10-12 mins of running, it click bottom right and stops there..........

http://f.imagehost.org/0477/prob.jpg


its does this every time, any idea why?

hay can u tell me how to put smart into this? :)

Quote:

---

Originally Posted by failpailirl

hay can u tell me how to put smart into this? :)

---

Quote:

---

Originally Posted by Dark Arcana

Find this line:

SCAR Code:

{.Include SRL/SRL.Scar}

and change it to this:

SCAR Code:

{.Include SRL/SRL/Misc/Smart.Scar}
{.Include SRL/SRL.Scar}

Then find this line:

SCAR Code:

SetUpSRL;

and change it to this:

SCAR Code:

SMARTSetupEx(133, False, True, False);
  Wait(5000);
  SetTargetDC(SmartGetDC);
  repeat
    Wait(100);
  until (SmartGetColor(253, 233) <> 1118604);
  SetupSRL;

Edit: Here is a little progress report for you, worked perfectly.


Stopped manually.

---

There

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 1 Hours, 38 Minutes and 51 Seconds.
Exp: 1.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

I picked arrows up but it doesn't show the amount. It was around 1k i think.
Works great! Stopped manually.

Update pls :D.

Yeah! Please do. We really need you.:)

Sorry guys, i cannot atm because my old computer broke and i am still waiting for my new one which i will receive somewhere in the beggining of august. I will resume as soon as i get it.

It worked for around 5-6 hours. Shut off manually. At one point it got stuck in one of those gates so I had to move it out of the gate and back into minotaur territory. The progress report did not record experience points gained for an unknown reason.

With this script, I have confidence that I can leave my computer for an extended period of time and come back to it still going strong.

There is one problem though. When I had the MINS setting set to 7, it would log me out after 7 minutes and 38 seconds and then it would not log me back in. I set this to 9999 and I haven't had a problem ever since.


Thank you very much for your time and dedication in making this script.

Sincerely,
Brandon

Quote:

---

Originally Posted by Brandon02852

It worked for around 5-6 hours. Shut off manually. At one point it got stuck in one of those gates so I had to move it out of the gate and back into minotaur territory. The progress report did not record experience points gained for an unknown reason.

With this script, I have confidence that I can leave my computer for an extended period of time and come back to it still going strong.

There is one problem though. When I had the MINS setting set to 7, it would log me out after 7 minutes and 38 seconds and then it would not log me back in. I set this to 9999 and I haven't had a problem ever since.


Thank you very much for your time and dedication in making this script.

Sincerely,
Brandon

---

The words smothered my soul :). Lol

For the gate thing, i recommend getting rid of leftclicking, but the logging in/out part, i think thats a problem in code, im gonna take a look at it.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 2 Hours, 18 Minutes and 52 Seconds.
Exp: 23148.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Does it support range?

Awesome Job Dude. =]

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 9 Hours, 41 Minutes and 46 Seconds.
Exp: 298082.
Brakes: 71.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

got me from 55 to 60 attack. really nice script, solved randoms, could of run longer but manually stopped ;]

Thanks, nice work. :]

Omg. As usual it doesnt work for me.

Line 30: [Error] (19975:13): Syntax error in script C:\Users\Adrian\AppData\Local\Temp\Minotaur_Exterm inator.scar

Try not to run it from your temp folder. Save it to somewhere else.

Guys I'm updating this script. It's kinda noob update since I'm new to scripting. For me, the food eating didn't work, and also the it would click on the door and get stuck. So I'm updating these two things and so far I have got proggy up to 5 hours. Will post later since i'm at skeeewwl.

OK guys, here it is. It works for me much better than original, especially food eating (dont remember where i got it from, one of the top scripts in fighting section). It now right clicks on Minotaur so it doesn't accidentally click on the door. It also now wields arrows in the 2nd slot. You can change that in wieldArrow function. I put it on my range and heres the proggy:

Code:

---

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~Minotaur_Exterminator~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Ran: 11 Hours, 40 Minutes and 22 Seconds.
Exp: -297324.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
The P/H values get messed up sometimes...
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Successfully executed

---

It was still running when i got home and i manually canceled it. Don't know how to fix the Exp.....someone update that plz.

Code:

---

program Minotaur_Exterminator;
{.include SRL/SRL/misc/SMART.scar}
{.Include SRL/SRL.Scar}
{.Include SRL/SRL/Skill/Fighting.Scar}

{Version 2.3}

{This script was made by Ultra}
(*Features*)                                                                  (*
- Anti-ban
- Anti-randoms
- Eating
- Script tries to find a non-attacked minotaur, if none found,
it will attack one that has already been attacked!
- Fast Minotaur finding!
- Failsafes
- Picks up all arrows!
- Brake taking to avoid random events
- Trains melee and range!
And more!
                                                                              *)
{S E T  U P  H E R E!}
const
//HPToEat = 80; // Percentage of HP you want to eat at.
FightWaitMin = 600;//Minimum miliseconds to wait in a fight.
FightWaitMax = 800;//Maximum miliseconds to wait in a fight.

Ranging = True;//Are you using ranged?
TrainingSkill = 2;//1 = Attack/Accurate Range, 2 = Strength/Rapid Range, 3 = Defence/Longrange Range.
CheckEvery = 60;//Check current exp every how many seconds? Random 2 will be added.

{FoodColor = 269827;//Pick the color of your food, then put it here.
FoodNick = 'una';//Nickname of food if your food is "Tuna" then FoodNick is 'una'}

PickUpArrows = True;//Would you like the script to pickup any arrows that are
                    //found on the floor?

TheMouseSpeed = 17;//14-18 is human like, 19-23 is fast but much less human like.
RandomMouseSpeed = 2;//A random amount to add to the mouse speed, 1-3 is good.

HaveBreak = False;//Do you want the script to take little brakes? Reduces randoms.
//Dont touch these unless you know what they are.
MINS = 7;
MAXS = 9;
MINT = 1;
MAXT = 20;
//Dont touch these unless you know what they are.

procedure DeclarePlayers;
begin

  HowManyPlayers := 1;//How many players are going to auto in total?
  NumberOfPlayers(HowManyPlayers);//No Touching.
  CurrentPlayer := 0;//Which player will auto first?

  Players[0].Name :='mameluke 004';//Username.
  Players[0].Pass :='s199801672m0607j004';//Password.
  Players[0].Nick :='ame';//Nickname. If you are not sure what this is, press Alt+F4.
  Players[0].Active := True;//Is this player going to auto?

end;

var
X, Y, F, SleepMark, RandomSleepTime, WasXP, NowXP, CH, TheCH, Brakes : Integer;
O, Sleeping : Boolean;
SL : Boolean;

procedure AntiBan;
begin
 case RandomRange(1, 200) of

 1..80: Wait(RandomRange(800, 1400));
 81..87: begin MMouse(MSX1, MSY1, MSX2, MSY2); Wait(RandomRange(300, 1000)); end;
 88..90: begin GameTab(1+Random(13)); Wait(700+Random(700)); GameTab(4); end;
 91..94: begin MMouse(MMX1, MMY1, MMX2, MMY2); Wait(RandomRange(300, 1000)); end;
 95..97: begin MMouse(MIX1, MIY1, MIX2, MIY2); Wait(RandomRange(300, 1000)); end;
 98..100: begin Mouse(MSX1, MSY1, MSX2, MSY2, False); Wait(RandomRange(300, 1000)); end;
 101..180: Wait(RandomRange(800, 1400));
 181..184: RandomMovement;
 185..190: BoredHuman;
 191..200: RandomRClick;

 end;
end;

function MyEatFood:boolean;
var
  i,x,y:integer;
begin
  gametab(4);
  for i := 1 to 28 do
  if ExistsItem(i) then
  begin
    MMouseItem(i);
    GetMousePos(x, y);
    wait(150+random(50));
    if (pos('Eat', rs_GetUpText) > 0) then
    begin
      Mouse(x,y,0,0,false);
      wait(50+random(50));
      if ChooseOption('Eat') then
      begin
        wait(350+random(150));
        Result := true;
        Exit;
      end;
    end;
  end;
end;

procedure HpCheck;
var
  c:Integer;
  RunDir: String;
begin
  if (HPPercent < 50) then
  begin
      if not InvEmpty then
        for c := 0 to 2 do
        begin
          if MyEatFood then
            Inc(ReportVars[2]);
        end;
    end;
end;


function FindNonAttackedMinotaur : Boolean;
var
 TX, TY, I : Integer;
 Points : TPointArray;
 Minotaur2D : T2DPointArray;
 MinotaurPoint : TPoint;
begin
 MouseSpeed := TheMouseSpeed+Random(RandomMouseSpeed);
 X := MSCX;
 Y := MSCY;
 FindColorsSpiralTolerance(X, Y, Points, 10529964, MSX1, MSY1, MSX2, MSY2, 5);
 if Length(Points)=0 then begin Result:=False; Exit; end;
 Minotaur2D := TPAToATPAEx(Points, 10, 10);
 for I := 0 to Length(Minotaur2D)-1 do
 begin
  if not LoggedIn then begin Result:=True; Exit; end;
  MinotaurPoint := MiddleTPA(Minotaur2D[I]);
  TX := MinotaurPoint.X;
  TY := MinotaurPoint.Y;
  if not FindColorTolerance(X, Y, 65280, MinotaurPoint.X-50, MinotaurPoint.Y-50, MinotaurPoint.X+50, MinotaurPoint.Y+50, 7) then
  if not FindColorTolerance(X, Y, 255, MinotaurPoint.X-50, MinotaurPoint.Y-50, MinotaurPoint.X+50, MinotaurPoint.Y+50, 7) then
  begin
  MMouse(TX, TY, 0, 0);
  Wait(100+random(50));
  if IsUpText('inot') then
    begin
    GetMousePos(X, Y);
    case RandomRange(1, 3) of

    1:
    begin
    Wait(250+random(75));
    if IsUpText('inot') then
    begin
    Mouse(X, Y, 0, 0, False);
    Wait(100+random(50));
    if ChooseOption('ttac') then
    begin
    Result:=True;
    F := 0;
    Exit;
    end;
    end;
    end;

    2..3:
    begin
    Wait(250+random(75));
    if IsUpText('inot') then
    begin
    WriteLn('case 2 or 3 of FindNonAttackedMinotaur');
    Mouse(X, Y, 0, 0, False);
    Wait(150+Random(75));
    if ChooseOption ('ttac') then
    begin
    Result:=True;
    F := 0;
    Exit;
    end;
    end;
    end;

 end;
end;
end;
end;
Result:=False;
end;

function FindAttackedMinotaur : Boolean;
var
 TX, TY, I : Integer;
 Points : TPointArray;
 Minotaur2D : T2DPointArray;
 MinotaurPoint : TPoint;
begin
 MouseSpeed := TheMouseSpeed+Random(RandomMouseSpeed);
 X := MSCX;
 Y := MSCY;
 FindColorsSpiralTolerance(X, Y, Points, 10529964, MSX1, MSY1, MSX2, MSY2, 5);
 if Length(Points)=0 then begin Result:=False; Exit; end;
 Minotaur2D := TPAToATPAEx(Points, 10, 10);
 for I := 0 to Length(Minotaur2D)-1 do
 begin
 if not LoggedIn then begin Result:=True; Exit; end;
  MinotaurPoint := MiddleTPA(Minotaur2D[I]);
  TX := MinotaurPoint.X;
  TY := MinotaurPoint.Y;
  begin
  MMouse(TX, TY, 0, 0);
  Wait(100+random(50));
  if IsUpText('inot') then
    begin
    GetMousePos(X, Y);
    case RandomRange(1, 3) of

    1:
    begin
    Wait(250+random(75));
    if IsUpText('inot') then
    begin
    Mouse(X, Y, 0, 0, False);
    Wait(100+random(50));
    if ChooseOption('ttac') then
    begin
    Result:=True;
    F := 0;
    Exit;
    end;
    end;
    end;

    2..3:
    begin
    Wait(250+random(75));
    if IsUpText('inot') then
    begin
    Mouse(X, Y, 0, 0, True);
    Wait(200+Random(100));
    Result:=True;
    F := 0;
    Exit;
    end;
    end;

 end;
end;
end;
end;
Result:=False;
end;

procedure wieldArrows;
begin
MouseItem( 2, true);
Wait(300+Random(276));
end;

function FindArrows : Boolean;
var
 TPA : TPointArray;
 P : TPoint;
 I, M, FA : Integer;
 begin
 FA := 0;
 if PickUpArrows then
 begin
 Disguise('Looking for arrows...');
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 734551, MSX1, MSY1, MSX2, MSY2, 5);
 if Length(TPA)=0 then Exit;
  for I := 0 to High(TPA) do
  begin
  P := TPA[I];
  {MMouse(P.X, P.Y, 0, 0);
  Wait(200+random(100));
  if IsUpText('rrow') then
    begin}
    Mouse(P.X, P.Y, 0, 0, False);
    Wait(150+Random(76));
    if ChooseOption('rrow') then
    begin
    Wait(2000+Random(500))
    Result:=True;
    wieldArrows;
    Exit;
    end else
    begin
    FA := FA + 1;
    if FA>3 then begin KeyDown(VK_Right); Wait(RandomRange(400, 700)); KeyUp(VK_Right); Exit; end;
    Wait(1000+random(1000));
 FindColorsSpiralTolerance(MSCX, MSCY, TPA, 734551, MSX1, MSY1, MSX2, MSY2, 5);
 if Length(TPA)=0 then Exit;
    end;
  if I>5 then begin KeyDown(VK_Right); Wait(RandomRange(400, 700)); KeyUp(VK_Right); Exit; end else Wait(1000+Random(1000));
  end;
 Result:=False;
end;
end;

procedure DoSleep;
var
SleepIn : String;
S : Integer;
begin
if HaveBreak then
begin
S :=(RandomSleepTime-TimeFromMark(SleepMark))/1000;
SleepIn := 'Break in:'+IntToStr(S)+'sec';
Disguise(SleepIn);
  if (TimeFromMark(SleepMark)>RandomSleepTime) and HaveBreak then
  begin
    Sleeping := True;
  repeat
    LogOut;
  until(not(LoggedIn));
    Disguise('Break waiting...');
    Wait(RandomRange(MINT*1000, MAXT*1000));
    LogInPlayer;
    Sleeping :=False;
    MarkTime(SleepMark);
    Brakes := Brakes + 1;
  end;
end;
end;

procedure Report;
var
PH, PHExp, PHBrakes : Integer;
begin
 ClearDebug;
 PH := 3600000 div (GetTimeRunning);
 PHExp := (PH*(NowXP-WasXP));
 PHBrakes := (PH*Brakes);
 WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 WriteLn('~Minotaur_Exterminator~');
 WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 WriteLn('Ran: ' + TimeRunning + '.');
 WriteLn('Exp: ' + IntToStr(NowXP-WasXP) + '.');
 if HaveBreak then WriteLn('Brakes: ' + IntToStr(Brakes) + '.');
 WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
 if PHExp>1 then
 begin
 WriteLn('Exp P/H: ' + IntToStr(PHExp) + '.');
 if HaveBreak then WriteLn('Brakes P/H: ' + IntToStr(PHBrakes) + '.');
 end else WriteLn('The P/H values get messed up sometimes...');
 WriteLn('~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~');
end;

begin
SMARTSetUpEX(55, False, True, False);
SetTargetDC(SMARTGetDC);
SetUpSRL;
 MouseSpeed := TheMouseSpeed+Random(RandomMouseSpeed);
Wait(500+random(200));
DeclarePlayers;
if not LoggedIn then LogInPlayer;
if not Ranging then
 case TrainingSkill of
 1: WasXP := GetXp('attack');
 2: WasXP := GetXp('strength');
 3: WasXP := GetXp('defence');
 end;
if Ranging then WasXP := GetXp('ranged');
repeat
MarkTime(SleepMark);
 RandomSleepTime := RandomRange(MINS*1000*60, MAXS*1000*60);
 SetFightMode(TrainingSkill);
 MarkTime(CH);
repeat
if not LoggedIn then Exit;
if not FindColorTolerance(X, Y, 3427156, 733, 105, 734, 106, 8) then SetRun(True);
if FindNonAttackedMinotaur then
begin
 Wait(RandomRange(FightWaitMin, FightWaitMax));
end else
if FindNonAttackedMinotaur then
 begin
 Wait(RandomRange(FightWaitMin, FightWaitMax));
 end else
if not FindAttackedMinotaur then
 begin
 F := F + 1;
 if F>10 then
 begin
 F := 0;
 LogOut;
 O := True;
 end else F := 0;
  KeyDown(VK_Right);
  Wait(500+Random(270));
  KeyUp(VK_Right);
  Wait(400+random(300));
 end else
  Wait(RandomRange(FightWaitMin, FightWaitMax));
 TheCH :=(CheckEvery+Random(2))*1000;
 if(TimeFromMark(CH)>TheCH)then
 begin
 MarkTime(CH);
 if not LoggedIn then Exit;
if not Ranging then
 case TrainingSkill of
 1: NowXP := GetXp('attack');
 2: NowXP := GetXP('strength');
 3: NowXP := GetXP('defence');
 end;
if Ranging then WasXP := GetXp('ranged');
 end;
 {if not Heal then
 if not Heal then begin LogOut; Exit; end;}
 FindArrows;
 Disguise('Fighting...');
 HpCheck;
 AntiBan;
 FindNormalRandoms;
 DoSleep;
 Report;
 SRLRandomsReport;
 until(not(LoggedIn))or(Sleeping);
 if not O then
  begin
  LogInPlayer;
  O := False;
 end else
  begin
  NextPlayer(False);
 case TrainingSkill of
 1: WasXP := GetXp('attack');
 2: WasXP := GetXP('strength');
 3: WasXP := GetXP('defence');
 end;
 end;
  O := False;
until(False);
end.

---

Thanks for that.

it works 100%
very nice script

This script does work,
Although it is a bit slow with the monster finding

Running overnight Ill post proggy later

It only eat food when I use tuna lol xD