i dont know if anyone knows this, but there was an update today and this script doesnt work anymore! plz help
i dont know if anyone knows this, but there was an update today and this script doesnt work anymore! plz help
End;
FightCaveLoop;
Clicktocontinue;
End;
End.
This works. Although it takes a while to click continue, and the npc's don't spawn until you do.
So it's a bit slower but not that much of a difference.
Last edited by Nashua; 05-09-2013 at 11:00 PM.
has anyone gotten trouble when entering cave and staying right in the entrance?
In regards to the continue just add as many others have posted
Simba Code:ClicktoContinue;
or
all work.Simba Code:if clicktocontinue then
clicktocontinue;
So it would look like...
Simba Code:program FightCaveTrainer;
{$DEFINE SMART}
{$i SRL-OSR/Srl.simba}
Const
caveTol = 2;
version = '0.6';
Var
counter, caveEntrances: Integer;
caveEntranceWhite: TIntegerArray;
Procedure DeclarePlayers;
Begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
Players[0].Name := '';
Players[0].Pass := '';
Players[0].Nick := '';
Players[0].Active := True;
End;
Function FightCaveSleep(sleepx, sleepy: Integer; retaliate: Boolean): Boolean;
Var
x , y, sleepTime: Integer;
loop : Boolean;
Begin
loop := true;
counter := 0;
sleepTime := RandomRange(sleepx, sleepy);
While loop Do
Begin
If FindObjCustom(x, y, [' '], caveEntranceWhite, caveTol) Then
Begin
Result := false;
loop := false;
WriteLn('We see cave entrance!');
End Else If (not (InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150))) and (retaliate) Then
Begin
Result := false;
loop := false;
End Else If (sleepTime - counter > 0) and loop = true Then
Begin
wait(10);
counter := (counter + 10);
End Else
Begin
Result := True;
loop := False;
End;
End;
End;
Procedure FightCaveLoop;
Var
x, y : Integer;
Begin
If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
Begin
WriteLn('Found correct cave!');
ClickMouse2(True);
While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
Begin
ClickMouse2(true);
Wait(RandomRange(500, 1000));
End;
If RandomRange(1, 10) > 8 Then
Begin
SetRun(true);
GameTab(tab_Stats);
End;
caveEntrances := (caveEntrances + 1);
WriteLn('Entered cave.');
ClearDebug;
WriteLn('-* FightCaveTrainer v'+version);
WriteLn('-* ');
WriteLn('-* Entered: ' + intToStr(caveEntrances));
WriteLn('-* Runtime: ' + TimeRunning);
Wait(RandomRange(4000, 5000));
Clicktocontinue;
SetAngle(0);
End Else
If (Not FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol)) and (CountDots('yellow') > 0) Then
Begin
FightCaveSleep(200,500,False);
If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
Begin
If (FightCaveSleep(3000,5000,True)) Then
Begin
If InRange(Length(GetFightBarTPA(IntToBox(MSX1, MSY1, MSX2, MSY2))), 30, 150) Then
Begin
Retaliate(False);
Wait(RandomRange(500,700));
Retaliate(True);
GameTab(tab_Stats);
Clicktocontinue;
FightCaveSleep(3000,5000,False);
End;
End;
End;
End Else MakeCompass(185);
End;
Begin
SetupSRL;
DeclarePlayers;
SetRun(True);
GameTab(tab_Stats);
caveEntranceWhite := [7763583, 8553356];
MouseSpeed := 15;
While(True) Do
Begin
If not LoggedIn Then
Begin
LogInPlayer;
SetRun(True);
GameTab(tab_Stats);
MakeCompass(185);
SetAngle(0);
End;
FightCaveLoop;
Clicktocontinue;
End;
End.
This will click the message every-time it enters the cave, this is the original script if you've made your own modifications then you have to edit them in (I.E comment out setrun/gametab stats etc..)
Last edited by samerdl; 05-09-2013 at 11:57 PM.
It's possible to get stuck at start of the cave when entering and it doesn't walk you up.
Hmm, wonder what causes this.
Its a bug when servers crashed on RS, it works for me now.
It will sometimes like double or triple click on the cave.
Sometimes this click is just after you entered cave already. So it will walk like 2sqs infront of entrance instead of auto walking to middle.
Don't wear any white items,
Also just to be safe you can change around...
Simba Code:Procedure FightCaveLoop;
Var
x, y : Integer;
Begin
If FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Then
Begin
WriteLn('Found correct cave!');
ClickMouse2(True);
While FindObjCustom(x, y, ['nter'], caveEntranceWhite, caveTol) Do
Begin
ClickMouse2(true);
Wait(RandomRange(500, 1000));
Change the later to
Give it more wait time after it clicks, so it wont find the entrance again.Simba Code:Wait(randomrange(5000,7000));
Last edited by samerdl; 05-12-2013 at 11:47 AM.
Would it be possible to add a ''walk-to-middle'' feature? Because sometimes, if you kill a ranger, in the next wave a monster get stuck and character will go idle for hours and hours :/
Thanks! For the rest, great script, fluently!
This script is designed to not get to rangers. If you're getting to rangers, take some armor off so you die quicker.
is this working right now?
for what level is this script made????
Levels 3-60, anything higher and with good gear (not 1 def pure) will probably end up getting stuck at the corners once you reach the rangers (level 90s).
Its possible to use this while being 100~ combat, but you'd have to do it without armor.
Are you guys still getting the Bug at the entrance? Maybe you could try to change the color settings/tolerance for the cave detection. Try to use AutoColorAid for that.
its not clicking "click to continue"
Hi their can someone just impliment a quick exp counter? that would be greatthanks
Current Rank Supreme Master First Class
it walks in the middle of the cave but then no monsters are comming...
Can somebody help me :s
There are currently 1 users browsing this thread. (0 members and 1 guests)