[QUOTE=Santa_Clause;277761]I love you too TSN :p[/QUOTE]
[CENTER][URL="http://www.stats.srl-forums.com/sigs"][IMG]http://www.stats.srl-forums.com/sigs/1324.png[/IMG][/URL][/CENTER]
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 23 Rounds! |
| Ran For 3 Hours, 38 Minutes and 22 Seconds
| This player did 5 rounds! |
| Entered the cave 23 times! |
| We gained 1992 tokkul in total! |
| Only 1 rounds left until we switch players!|
| Slept 3 times! |
| Gained 1 levels! |
| Got 0 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
Ended up getting lost outside the cave, first time ever that happened. Turns out when I checked to see where my character was...it was right in front of the fight cave entrance![]()
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 25 Rounds! |
| Ran For 35 Hours, 46 Minutes and 55 Seconds
| This player did 3 rounds! |
| Entered the cave 26 times! |
| We gained 2468 tokkul in total! |
| Only 1997 rounds left until we switch players!|
| Slept 0 times! |
| Gained 1 levels! |
| Got 1 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
I don't know how the hell this happened - I turned the computer into sleep mode, and then my dad shut off the power while we went out of town yesterday and today
when I came back and turned on the computer a little bit ago, turning the computer's power source on as well, I found that scar was still running, but it had not done any work since I left, but my character was still logged in
I let it run 3 more rounds inside the cave until I leveled up, and then manually stopped it to post this odd proggy
Going to do an over night run tonight. Will post proggy tomorrow! :-)
It is very easy. Once you deleted the Spec attack from the script you also need to delete a particular part of the procedure the calls the spec attack
SCAR Code:program FightCaveOwner;
{.include SRL/SRL/Misc/Smart.Scar}
{.include SRL\SRL.scar}
{.include srl/srl/skill/prayer.scar}
{Special thanks to ZephyrsFury for lending an account and testing:D}
{=========================================================================]
[ Fightcaver ]
[ ]
[ NAME : Eduard & PvH FightCaver ]
[ WRITER : Eduard & PvH ]
[ CATEGORY : Fighter ]
[ DESCRIPTION : Fights in the fightcaver and gets tokkul ]
[ AUTOCOLOR : Yes ]
[ CONTACT : PM one of us on SRL-forums! ]
[=========================================================================}
/////////////////////////////////////////////////////////////////////
// HOW TO USE //
// 1.Setup your players in right in front of the cave entrance //
// With good equips //
// 2. Fill in DeclarePlayers //
// 3. Fill in SRLStatsID and PW! //
// 4.Start the script logged out and see your levels rising //
// 5.Post errors,bugs and proggies on our tread! //
/////////////////////////////////////////////////////////////////////
{ Questions and Answers:
Question: Include file C:\Program Files\SCAR 3.**\includes\SRL\SRL.scar does not exist."
Where do I get SRL.scar?
Answer: Download srl and revision, there are tutorials about it on srl-forums.com
Question: SCAR always asks me to connect even after I hit 'Always Allow. How do I fix this?
Answer: Go to Tools -> Options -> Firewall settings, and on both of those tabs choose "Always Allow".
Question: What is a "Nick" ?
Answer: Part of your name, 3 letters, non caps!
Zezima would be ezi for example;)
Question: Can I use some procedures/functions from you in my own scripts?
Answer: Yes as long as you credit
Question: What / where are the fight caves?
Answer: It is under karamja
Question: "Line 48: [Error] (1:1): Unable to register function function FindGapsTPA(TPA : TPointArray; MinPixels: Integer): T2DPointArray; in script ..."
Answer: Reinstall SRL and/or SCAR.
Question: Where is the thread to post proggies at?
Answer: [url]http://www.srl-forums.com/forum/showthread.php?t=19628[/url]
Question: I love your script! How can I donate to you? ;D
Anser: Send us a message on MSN, or a PM on SRL-Forums. Thanks ;)!
Question: I found a common error not listed here; How do I add it to the list?
Answer: Post it on our thread}
var
Tokkul, StartTokkul, TotalGainedTokkul, TotalTokkul, GainedTokkul, Rounds, Roundz, RoundzLeft :integer;
SleepTime, slepttimes, CaveEntered, Lvlups, InCaveTime, StuckSolves:integer;
PrayerActivated2:boolean;
const
SRLStatsID = '3682'; // Your SRL Stats ID
SRLStatsPW = 'ewgeg'; // Your SRL Stats Password
SMARTWorld = 'world110'; // Which world? I suggest 142
Signed = False; //False = signed
//True = unsigned
procedure Mainloop;forward;
procedure Proggy;forward;
procedure DeclarePlayers;
begin
HowManyPlayers:= 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer:= 0;
Players[0].Name := ''; //UserName
Players[0].Pass := ''; //Password
Players[0].Nick := ''; //Nickname
Players[0].Active := True; //Active
Players[0].Booleans[1]:= True; // Sleep = true , Not sleep = false
Players[0].integers[0]:= 20; // Rounds to do
Players[0].integers[1]:= 3; // Minutes to sleep
Players[0].Strings[0]:= 'strength' // attack,defence,strength,all
Cleardebug;
Writeln('You are using '+IntToStr(HowManyPlayers)+' Players');
end;
{<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| SetUpSmart - Sets up smart ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure SetUpSmart;
begin
Status('Setting up SMART!');
Disguise('Setting up SMART!');
SmartSetup(SMARTWorld, True, True, False); // Thanks Smartzkid for SmartSetup
SetTargetDC(SmartGetDC);
end;
{<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| GetNews - Downloads the news and writes it down in the debug ||
|| By: PvH , Idea and ways of using from Narcle, credits to him! ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure GetNews;
var
news , newsinfo: string;
i, lines : integer;
begin
Status('Downloading news!');
ClearDebug;
news := '';
try
news := GetPage('http://pvh.freehostia.com/fightcavernews.txt');
if news = '' then
begin
writeln('We had an error while getting news :s');
exit;
end;
lines := strtoint(Between('*lin*','*es*', news));
for i := 0 to (lines-9) do
writeln(Between('*'+inttostr(i)+'*','*'+inttostr(i+1)+'*', news) );
wait(5000);
for i := (lines-8) to lines do
writeln(Between('*'+inttostr(i)+'*','*'+inttostr(i+1)+'*', news) );
wait(10000);
except
writeln('Failed to get the news!');
exit;
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| VersionCheck - Checks for a new version ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure VersionCheck;
var
Version, VersionNow: string;
begin
VersionNow:= '5'; // Do NOT change this!
Version := GetPage('http://pvh.freehostia.com/versioncheck3.txt');
if Version = VersionNow then
begin
WriteLn('You have the latest version!');
Wait(2000);
end else
begin
ClearDebug;
WriteLn('The latest version is ' + Version);
writeLn('And you got version ' + VersionNow);
writeLn('Please download version '+ Version);
OpenWebPage('http://www.villavu.com/forum/showthread.php?t=32434?t=35158');
TerminateScript;
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| GetPrayerLevel - Gets the prayer level of the player ||
|| By: Eduard ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure GetPrayerlevel;
begin
if not LoggedIn then Exit;
Players[CurrentPlayer].Integers[2] := GetSkillInfo('Prayer', False);
Writeln('Your prayer level is '+IntToStr(Players[CurrentPlayer].Integers[2]));
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| AreWeLevelUp - Checks for lvlup and clicks ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
function AreWeLevelUp: boolean;
begin
if not LoggedIn then Exit;
if ClickContinue(False,False) then
begin
if FindNPCChatText('lations', Nothing) then
begin
writeln('Yay, we got a new level!');
Lvlups:=Lvlups+1;
ReportVars[1] := ReportVars[1] + 1;
ClickContinue(True,True);
Result := True;
Exit;
end;
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| HandeRandoms - Solves solvable randoms ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure HandleRandoms;
begin
if not LoggedIn then Exit;
FindNormalRandoms;
end;
procedure LoadTokkulDTM;
begin
Tokkul := DTMFromString('78DA8D91390E80300C04ED12D110711F09977' +
'8470AFEFF26D87440C17AA58C538C9CC8D646447A79E58C5102AA' +
'E25C88E6B80CF2893E889A011D71529FCAE038E2EC404B9C03F0C' +
'4D980401C6F7026C35B69C63371D22E16E294863ECEF0E702180D' +
'33647B5F81FADFB9012B37085D');
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| RotateCompass - Randomly changes the compass ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure RotateCompass;
begin
if not LoggedIn then Exit;
case random(9) of
0: MakeCompass(IntToStr(Random(360)));
1: MakeCompass(IntToStr(Random(180)));
2: MakeCompass(IntToStr(90+random(270)));
3: MakeCompass('N');
4: MakeCompass('S');
5: MakeCompass('E');
6: MakeCompass('W');
7: Setangle(true);
8: Setangle(false);
end;
MakeCompass('N');
Setangle(false);
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| SetStyle - Sets the attacking style to the wanted style ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
function SetStyle:boolean;
var
Style:string;
xxx,yyy:integer;
begin
if not LoggedIn then Exit;
Gametab(1);
Style := Players[currentplayer].strings[0];
case lowercase(Style) of
'attack':
begin
if not FindColorTolerance(xxx, yyy, 1908609, 575, 257, 625, 290, 18) then
begin
MouseBox(573, 257, 625, 290, 1);
wait(1000+random(1500));
end;
end;
'strength':
begin
if not FindColorTolerance(xxx, yyy, 1908609, 660, 257, 710, 290, 18) then
begin
MouseBox(660, 257, 711, 290, 1);
wait(1000+random(1500));
end;
end;
'defence':
begin
if not FindColorTolerance(xxx, yyy, 1908609, 660, 308, 710, 342, 18) then
begin
MouseBox(660, 308, 711, 342, 1);
wait(1000+random(1500));
end;
end;
'all':
begin
if not FindColorTolerance(xxx, yyy, 1908609, 575, 308, 625, 342, 18) then
begin
MouseBox(575, 308, 625, 342, 1);
wait(1000+random(1500));
end;
end;
else writeln('That is not a valid attack style!');
end;
Gametab(4);
Result:=True;
end;
function SetRetaliateOn:boolean;
var
xxx,yyy:integer;
begin
if not LoggedIn then Exit;
Gametab(1);
if not FindColorTolerance(xxx, yyy, 1974408, 575, 362, 710, 398, 18) then
begin
MouseBox(575, 362, 710, 398, 1);
wait(1000+random(1500));
end;
Gametab(4);
Result:=True;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| CountBeginningTokkul - Counts the starting ammount of tokkul ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure CountBeginningTokkul;
begin
if not LoggedIn then Exit;
LoadTokkulDTM;
StartTokkul := ItemAmount('inv', 'dtm', Tokkul, []);
writeln('We had ' + IntToStr(StartTokkul) + ' tokkul on the begin');
freedtm(Tokkul);
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| TokkulGained - Calculates how many tokkel you have gained ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure TokkulGained;
begin
LoadTokkulDTM;
TotalTokkul := ItemAmount('inv', 'dtm', Tokkul, []);
GainedTokkul := TotalTokkul - StartTokkul;
TotalGainedTokkul := TotalGainedTokkul + GainedTokkul;
StartTokkul := TotalTokkul;
freedtm(Tokkul);
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| WereDead - Finds if we died ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
Function WereDead:boolean;
var
x, y: integer;
begin
if not LoggedIn then Exit;
SymbolAccuracy := 0.7;
Result := FindSymbol(x, y, 'bank');
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| EnterCave - Enters the fightcave ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
function EnterCave:boolean;
var
CaveTPA: T2DPointArray;
CavePoint: TPointArray;
Tries, I, cts ,x ,y, CaveTime: integer;
begin
if not LoggedIn then exit;
wait(500+random(500));
MakeCompass('S');
HandleRandoms;
setangle(false);
Setrun(false);
wait(600+random(700));
repeat
repeat
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(CavePoint, 9276824, msx1, msy1, msx2, msy2, 10);
CaveTPA := TPAtoATPAEx(CavePoint, 15, 15);
SortATPAFromFirstPoint(CaveTPA, Point(MSCX, MSCY));
For I:= 0 to High(CaveTPA) do
begin
MiddleTPAEx(CaveTPA[i], x, y);
MMouse(x, y, 3, 3);
Wait(150 + Random(70));
Tries:=Tries+1;
if isuptext('ntrance')then
begin
Tries:=Tries-Tries;
GetMousePos(x,y);
mouse(x,y,0,0,true);
fflag(0);
HandleRandoms;
wait(700+random(1000));
marktime(CaveTime);
wait(200+random(300));
Status('Finding cave took:' +inttostr(timefrommark(CaveTime))+ ' ms!');
result := true;
break;
exit;
end else
begin
if isuptext('aar')then
begin
GetMousePos(x,y);
mouse(x,y,0,0,false);
wait(300+random(500));
ChooseOption('nter');
HandleRandoms;
fflag(0);
marktime(CaveTime);
Status('Finding cave took:' +inttostr(timefrommark(CaveTime))+ ' ms!');
result := true;
break;
end else
begin
mmouse(392, 268, 30, 30);
Status('Failed to find the cave');
end;
end;
end;
until (result or (tries >10));
until not (WereDead)
if not result then
begin
writeln('We couldn''t find the cave.. logging out!');
nextplayer(false);
RoundzLeft:= RoundzLeft - RoundzLeft;
Roundz:=Roundz-Roundz;
PrayerActivated2:=false;
SetGraphics(4, 'current', 'always', 'off', 'low', 'few', 'off', 'few', 'off');
CountBeginningTokkul;
GetPrayerlevel;
SetRetaliateOn;
SetStyle;
Mainloop;
exit;
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| AreWeFighting - Checks if we are fighting ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
function AreWeFighting : boolean; // Looked at hy71194's function, credits to him!
var xx,yy: integer;
begin
if not LoggedIn then Exit;
if WereDead then exit;
if ClickContinue(True,True) then exit;
Result := FindColor(xx, yy, 65280, MSX1, MSY1, MSX2, MSY2) or FindColor(xx,yy,255,MSX1,MSY1,MSX2,MSY2);
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| AreWeStuck - Checks if we are stuck and solves it ||
|| By: PvH ||
|| Credits to Hy71194! ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
function AreWeStuck:boolean;
begin
if not LoggedIn then Exit;
if ClickContinue(True,True) then exit;
if not WereDead then
begin
if not AreWeFighting then
begin
if not WereDead then
begin
if not ClickContinue(True,True) then
begin
wait(5000+random(2000));
if not AreWeFighting then
begin
if not ClickContinue(True,True) then
begin
if not WereDead then
begin
wait(5000+random(2000));
if not WereDead then
begin
if not AreWeFighting then
begin
if not ClickContinue(True,True) then
begin
wait(5000+random(2000));
if not WereDead then
begin
if not AreWeFighting then
begin
if not ClickContinue(True,True) then
begin
wait(5000+random(2000));
if not WereDead then
begin
if not AreWeFighting then
begin
if not ClickContinue(True,True) then
begin
wait(5000+random(2000));
if not WereDead then
begin
if not AreWeFighting then
begin
if not ClickContinue(True,True) then
begin
if GetColor(558,82) = 65536 then
begin
writeln('We are stuck ,fixing!');
MouseBox(670,109,690,134,1);
fflag(0);
StuckSolves:=StuckSolves+1;
ReportVars[3] := ReportVars[3] + 1;
wait(1000+random(900));
end else
begin
if GetColor(557,79) = 65536 then
begin
if GetColor(625,162) = 65536 then
begin
writeln('We are stuck ,fixing!');
MouseBox(670,36,707,90,1);
fflag(0);
StuckSolves:=StuckSolves+1;
ReportVars[3] := ReportVars[3] + 1;
wait(1000+random(900));
end else
begin
writeln('What the ****, we are lost in the cave, logging out!');
nextplayer(false);
RoundzLeft:= RoundzLeft - RoundzLeft;
Roundz:=Roundz-Roundz;
PrayerActivated2:=false;
SetGraphics(4, 'current', 'always', 'off', 'low', 'few', 'off', 'few', 'off');
CountBeginningTokkul;
GetPrayerlevel;
SetRetaliateOn;
SetStyle;
Mainloop;
exit;
end;
Result:=True;
end else
begin
writeln('What the ****, we are lost in the cave, logging out!');
nextplayer(false);
RoundzLeft:= RoundzLeft - RoundzLeft;
Roundz:=Roundz-Roundz;
PrayerActivated2:=false;
SetGraphics(4, 'current', 'always', 'off', 'low', 'few', 'off', 'few', 'off');
CountBeginningTokkul;
GetPrayerlevel;
SetRetaliateOn;
SetStyle;
Mainloop;
exit;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| Protect - Checks if it is time to set prayer on and does prayer ||
|| By: Eduard ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
Function Protect:boolean;
begin
if not LoggedIn then Exit;
if (timefrommark(InCaveTime) > (148000 + Random(40000))) and ((Players[CurrentPlayer].Integers[2]) > 39) and (not PrayerActivated2) then
begin
writeln('Now the strong monsters are coming, setting protect from missiles on!');
AllPrayersOff;
ClickPrayer('19',true);
PrayerActivated2:=True;
Result:=True;
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| DontGetbanned - Does Antiban and prevents logging out ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure DontGetBanned;
var
Dx, Dy, j, x, y:integer;
begin
if not LoggedIn then Exit;
Status('Performing Antiban');
case Random(450) of
0:
begin
HoverSkill('strength', False);
Gametab(4);
end;
2:
begin
HoverSkill('attack', false);
Gametab(4);
end;
3:
begin
GameTab(1 + Random(12));
wait(800 + random(500));
GameTab(4)
end;
4: BoredHuman;
6: RotateCompass;
7:
begin
MMouse(Random(x), Random(y), 0, 0);
Wait(200 + random(100));
if (IsUpText('opti')) then
begin
GetMousePos(Dx, Dy);
Mouse(Dx, Dy, 0, 0, false);
Wait(200 + random(100));
ChooseOption('xamine');
end;
end;
8:
begin
HoverSkill('random', false);
GameTab(4);
end;
9:
begin
if (InvCount < 1) then Exit;
j := Random(27) + 1;
if (ExistsItem(j)) then
begin
MouseItem(j, false);
Wait(200 + random(100));
ChooseOption('xamine');
Wait(1000+random(300));
Wait(1000 + Random(500));
end;
end;
10:
begin
PickUpMouse;
Wait(500 + Random(500));
end;
12: SleepAndMoveMouse(5000 + Random(1000));
13: RandomRClick;
15: IdleTime(1000 + Random(1000), 500, 0.5);
end;
MakeCompass('n');
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| Mainloop - Does the uber 1337 shit ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure Mainloop;
begin
repeat
If (Not (LoggedIn)) then
Begin
writeln('Not logged in, next player!');
Disguise('Switching players!');
NextPlayer(True);
RoundzLeft:= RoundzLeft - RoundzLeft;
Roundz:=Roundz-Roundz;
PrayerActivated2:=false;
SetGraphics(4, 'current', 'always', 'off', 'low', 'few', 'off', 'few', 'off');
CountBeginningTokkul;
GetPrayerlevel;
SetRetaliateOn;
SetStyle;
Mainloop;
end;
if Roundz >= players[currentplayer].integers[0] then
begin
writeln('We did our rounds, switching players!');
if (players[currentplayer].Booleans[1]=true) then
begin
SleepTime:=players[currentplayer].integers[1]*60000;
logout;
writeln('Sleeping now!');
Status('Sleeping!');
Disguise('Sleeping for '+intTostr(players[currentplayer].integers[1])+' minutes!');
ReportVars[5] := ReportVars[5] + 1;
sleep(SleepTime+random(300000));
Slepttimes:= Slepttimes+1;
mainloop;
end else
begin
writeln('We did our rounds, switching players!');
NextPlayer(True);
RoundzLeft:= RoundzLeft - RoundzLeft;
Roundz:=Roundz-Roundz;
PrayerActivated2:=false;
SetGraphics(4, 'current', 'always', 'off', 'low', 'few', 'off', 'few', 'off');
CountBeginningTokkul;
GetPrayerlevel;
SetRetaliateOn;
SetStyle;
Mainloop;
end;
end;
EnterCave;
ReportVars[2] := ReportVars[2] + 1;
CaveEntered:=CaveEntered+1;
setrun(true);
MakeCompass('N');
wait(10000+random(7000));
MarkTime(InCaveTime);
repeat
Disguise('Fighting');
DontGetBanned;
AreWeLevelUp;
Protect;
AreWeStuck;
until(WereDead)
wait(600+random(300));
ReportVars[0] := ReportVars[0] + 1;
ClickContinue(True,True);
Rounds:=Rounds+1;
InCaveTime:= InCaveTime - InCaveTime;
Roundz:=Roundz+1;
RoundzLeft:= players[currentplayer].integers[0] - Roundz;
PrayerActivated2:=false;
HandleRandoms;
TokkulGained;
HandleRandoms;
Proggy;
until(false);
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| Proggy - Writes down the progress report ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure Proggy;
begin
srlrandomsreport;
cleardebug;
Status('Writing proggie');
WriteLn(' |+++++++++++++++++++++++++++++++++++++++++++++|');
WriteLn(' | Fightcaver by PvH and Eduard |');
WriteLn(' |+++++++++++++++++++++++++++++++++++++++++++++|')
WriteLn(' | Did in total '+IntToStr(Rounds)+' Rounds! |')
WriteLn(' | Ran For ' +TimeRunning);
WriteLn(' | This player did '+IntToStr(Roundz)+' rounds! |')
WriteLn(' | Entered the cave '+IntToStr(CaveEntered)+ ' times! |')
WriteLn(' | We gained '+IntToStr(TotalGainedTokkul)+' tokkul in total! |')
WriteLn(' | Only '+IntToStr(RoundzLeft)+' rounds left until we switch players!|')
WriteLn(' | Slept '+IntToStr(Slepttimes)+' times! |')
WriteLn(' | Gained '+IntToStr(Lvlups)+' levels! |')
WriteLn(' | Got '+IntToStr(StuckSolves)+' times unstuck! |')
WriteLn(' |+++++++++++++++++++++++++++++++++++++++++++++|')
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| SRLstats - Does srl stat things ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure SRLstats;
begin
SetupSRL;
ScriptID := '918';
if ((SRLStatsID = '') or (SRLStatsPW = ''))then
begin
SRLID:='5774';
SRLPassword:='leechme';
writeln('Please get a SRLStatsID');
end else
begin
SRLID := SRLStatsID;
SRLPassword := SRLStatsPW;
writeln('Good to see you are not a leecher=)');
end;
end;
{<++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
|| Siggy - Writes down our signature ||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure Siggy;
begin
Cleardebug;
writeln(' _____ _ _ ');
writeln(' | ____| __| | _ _ __ _ _ __ __| | ');
writeln(' | _| / _` || | | | / _` || ''__|/ _` | ');
writeln(' | |___| (_| || |_| || (_| || | | (_| | ');
writeln(' |_____|\__,_| \__,_| \__,_||_| \__,_| ');
wait(1000);
cleardebug;
writeln(' _ ');
writeln(' __ _ _ __ __| | ');
writeln(' / _` || ''_ \ / _` | ');
writeln(' | (_| || | | || (_| | ');
writeln(' \__,_||_| |_| \__,_| ');
wait(1000);
cleardebug;
writeln(' ____ _ _ ');
writeln(' | _ \__ _| | | | ');
writeln(' | |_) \ \ / / |_| | ');
writeln(' | __/ \ V /| _ | ');
writeln(' |_| \_/ |_| |_| ');
wait(1000);
cleardebug;
writeln(' ---\ ');
writeln(' | | ');
writeln(' |--/ ');
writeln(' | roudly present: ');
wait(1000);
cleardebug;
writeln(' _____ _ _ _ ');
writeln(' | ___(_) __ _| |__ | |_ ___ __ ___ _____ _ __ ');
writeln(' | |_ | |/ _` | ''_ \| __/ __/ _` \ \ / / _ \ ''__| ');
writeln(' | _| | | (_| | | | | || (_| (_| |\ V / __/ | ');
writeln(' |_| |_|\__, |_| |_|\__\___\__,_| \_/ \___|_| ');
writeln(' |___/ © ');
wait(1000);
cleardebug;
end;
{<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>
||ScriptTerminate - Does some things when the script is terminated||
|| By: PvH ||
<+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++>}
procedure ScriptTerminate;
Begin
Disguise('Script finished!');
Proggy;
SRLRandomsReport;
Writeln('We hope you liked our script!');
writeln('Please post this proggy on our tread:)');
OpenWebPage('http://www.villavu.com/forum/showthread.php?t=32434?t=35158');
End;
begin
SetUpSmart;
SRLstats;
GetNews;
VersionCheck;
Siggy;
ActivateClient;
wait(1000);
DeclarePlayers;
loginplayer;
wait(1000+random(700));
SetGraphics(4, 'current', 'always', 'off', 'low', 'few', 'off', 'few', 'off');
SetRetaliateOn;
SetStyle;
CountBeginningTokkul;
GetPrayerlevel;
Mainloop;
end.
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 128 Rounds! |
| Ran For 12 Hours, 13 Minutes and 11 Seconds
| This player did 5 rounds! |
| Entered the cave 133 times! |
| We gained 9920 tokkul in total! |
| Only 10 rounds left until we switch players!|
| Slept 6 times! |
| Gained 1 levels! |
| Got 0 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 37 Rounds! |
| Ran For 6 Hours, 30 Minutes and 1 Seconds
| This player did 1 rounds! |
| Entered the cave 37 times! |
| We gained 3016 tokkul in total! |
| Only 5 rounds left until we switch players!|
| Slept 6 times! |
| Gained 0 levels! |
| Got 0 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
Lost outside the cave entrance again. Other than that it was running smoothly. Nice work on such an amazingly beneficial script!
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 81 Rounds! |
| Ran For 12 Hours, 3 Minutes and 36 Seconds |
| This player did 5 rounds! |
| Entered the cave 84 times! |
| We gained 5144 tokkul in total! |
| Only 8 rounds left until we switch players! |
| Slept 5 times! |
| Gained 1 levels! |
| Got 0 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
Worked like a charm![]()
i ran it overnight and its perfect |+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 101 Rounds! |
| Ran For 10 Hours, 6 Minutes and 34 Seconds
| This player did 41 rounds! |
| Entered the cave 103 times! |
| We gained 9090 tokkul in total! |
| Only 29999958 rounds left until we switch players!|
| Slept 0 times! |
| Gained 2 levels! |
| Got 5 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
We hope you liked our script!
Please post this proggy on our tread
Successfully executed
Does this happen to anybody else:
Runescape fully loads, it does a few runs,
When you come back to check up on SMART, you find it logged out, the red dot (mouse) is hovering over the "login" part of the page,
But to my surprise, it can't click on Login.
When i unabled SCAR, i tried clicking on the login button aswell, it was like it was just an image.
Regularly when your mouse hovers over the Login button, it changes white.
This did not happen.
If anybody could provide any feedback or explain to me what's happening,
That would be great.
I hope you can understand what i'm trying to say.
Sean[714] @rscheata.net
| Did in total 26 Rounds! |
| Ran For 1 Hours, 45 Minutes and 17 Seconds
| This player did 26 rounds! |
| Entered the cave 26 times! |
| Ran For 1 Hours, 24 Minutes and 10 Seconds
| This player did 1 rounds! |
| Entered the cave 22 times! |
| We gained -6370 tokkul in total! |
| Only 998 rounds left until we switch players!|
| Slept 0 times! |
| Did in total 27 Rounds! |
| Ran For 2 Hours, 0 Minutes and 39 Seconds
| This player did 4 rounds! |
| Entered the cave 32 times! |
| We gained 1974 tokkul in total! |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 28 Rounds! |
| Ran For 2 Hours, 7 Minutes and 4 Seconds
| This player did 2 rounds! |
| Entered the cave 31 times! |
| We gained 1068 tokkul in total! |
| Did in total 21 Rounds! |
| Ran For 2 Hours, 2 Minutes and 21 Seconds
| This player did 5 rounds! |
| Entered the cave 31 times! |
| We gained 1428 tokkul in total! |
All I wanna do is (BANG BANG BANG BANG!)
And (KKKAAAA CHING!)
And take your money
Sean[714] @rscheata.net
What settings do you guys use?
Players[0].Booleans[1]:= True; // Sleep = true , Not sleep = false
Players[0].integers[0]:= 10; // Rounds to do
Players[0].integers[1]:= 15; // Minutes to sleep
Players[0].Strings[0]:= 'strength' // attack,defence,strength,all
I use that![]()
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 15 Rounds! |
| Ran For 2 Hours, 26 Minutes and 38 Seconds
| This player did 3 rounds! |
| Entered the cave 16 times! |
| We gained 3376 tokkul in total! |
| Only 9 rounds left until we switch players!|
| Slept 1 times! |
| Gained 0 levels! |
| Got 5 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
We hope you liked our script!
Please post this proggy on our tread
Successfully executed
Billy, you should set sleep to less, 15 isn't really needed. unless u want to be extremely safe....
Players[9].integers[0]:= 12; // Rounds to do
Players[9].integers[1]:= 9; // Minutes to sleep
Players[9].Strings[0]:= 'defence' // attack,defence,strength,all
Btw: Typo In defence which really screwed me up today.. "defence" is spelled "Defense" i typed in Defense and rushed out and fucked up the script =[
Darn i had a really good proggy going on, and my brother made the computer turn off!
It was 5 HOURS!
So sick lol.
Anyone can answer my question ^ there?
Sean[714] @rscheata.net
hello guys, i'm back from a 4-5 month reprieve of no Runescape and no scripting...
my favorite program before i left was hy's fight caver...and now that i'm back i guess i'll give this one a try
I see a lot has changed since I left, so I had a lot of catching up to do. I got the newest version of SCAR and of course updated the SRL to revision #20 (and I also installed the subversion repository).
At first I was getting the error of "invalid number of parameters", but I fixed that problem by reinstalling SRL...and I think I went down to SRL #19 instead of #20...can't quite remember, but it's in the forums somewhere
Now my problem is, however, that the script runs but doesn't do anything. When I say it doesn't do anything, I mean that once I click play it immediately posts a proggy saying:
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 0 Rounds! |
| Ran For 0 Seconds
| This player did 0 rounds! |
| Entered the cave 0 times! |
| We gained 0 tokkul in total! |
| Only 0 rounds left until we switch players!|
| Slept 0 times! |
| Gained 0 levels! |
| Got 0 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
We hope you liked our script!
Please post this proggy on our tread
Successfully executed
And then it opens up a tab in Firefox directing me to the forum page about the autofighter.
Obviously I'm doing something wrong, the thing is...i'm not sure what. Judging by the new log on page for RS, I think it has something to do with this.
Any help is appreciated! And please don't try to flame me...I've been gone awhile and I see things have changed. If you know the problem, just point me in the right direction or to another post. It's ok, i'm not a noob![]()
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 41 Rounds! |
| Ran For 17 Hours, 9 Minutes and 14 Seconds
| This player did 5 rounds! |
| Entered the cave 41 times! |
| We gained -4400 tokkul in total! |
| Only 7 rounds left until we switch players!|
| Slept 3 times! |
| Gained 0 levels! |
| Got 11 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
Don't know why the tokkuls screwed up!
Update you're worlds.ini above poster[/B]
Dos somebody know why do i have this error? i haven't used Scar long time xD
Line 114: [Hint] (15855:1): Variable 'NEWSINFO' never used in script C:\Documents and Settings\XxxXX\Desktop\fightcaver5(2).scar
Ah, thank you for that! Once I opened up the worlds.ini I immediately knew the problem and promptly updated it. The script now works flawlessly!
It's not actually an error, it's just a reminder to the scripter that the variable in question was never used. It doesn't hurt the script![]()
Well i've finally got this script working.
Have to be the only user logged on XP, close EVERY program and put scar.exe on HIGH in task manager processes.
It gives me occasional problems, but i started the script at 8 am, it's still running and it's 4 pm. 200k xp a day woo.
Thanks PvH.
Sean[714] @rscheata.net
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 32 Rounds! |
| Ran For 3 Hours, 20 Minutes and 26 Seconds
| This player did 32 rounds! |
| Entered the cave 33 times! |
| We gained 3350 tokkul in total! |
| Only 21 rounds left until we switch players!|
| Slept 0 times! |
| Gained 0 levels! |
| Got 0 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
It got stuck a few times entering the cave, but I fixed it by entering:
SCAR Code:begin
if not LoggedIn then exit;
wait(500+random(500));
HandleRandoms;
setangle(false);
Setrun(false);
MakeCompass('S');
wait(600+random(700));
repeat
repeat
MakeCompass('S');
setangle(false);
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(CavePoint, 9276824, msx1, msy1, msx2, msy2, 10);
CaveTPA := TPAtoATPAEx(CavePoint, 15, 15);
SortATPAFromFirstPoint(CaveTPA, Point(MSCX, MSCY));
For I:= 0 to High(CaveTPA) do
begin
Instead of:
SCAR Code:begin
if not LoggedIn then exit;
wait(500+random(500));
MakeCompass('S');
HandleRandoms;
setangle(false);
Setrun(false);
wait(600+random(700));
repeat
repeat
cts := GetColorToleranceSpeed;
ColorToleranceSpeed(2);
FindColorsTolerance(CavePoint, 9276824, msx1, msy1, msx2, msy2, 10);
CaveTPA := TPAtoATPAEx(CavePoint, 15, 15);
SortATPAFromFirstPoint(CaveTPA, Point(MSCX, MSCY));
For I:= 0 to High(CaveTPA) do
begin
Now it runs smoothly![]()
Thanks for the script PVH
-Metalanca
|+++++++++++++++++++++++++++++++++++++++++++++|
| Fightcaver by PvH and Eduard |
|+++++++++++++++++++++++++++++++++++++++++++++|
| Did in total 44 Rounds! |
| Ran For 8 Hours, 4 Minutes and 29 Seconds
| This player did 2 rounds! |
| Entered the cave 44 times! |
| We gained 4058 tokkul in total! |
| Only 4 rounds left until we switch players!|
| Slept 7 times! |
| Gained 0 levels! |
| Got 2 times unstuck! |
|+++++++++++++++++++++++++++++++++++++++++++++|
Working great still!
There are currently 1 users browsing this thread. (0 members and 1 guests)