^^then just repick colors, you using a common color then that is everywhere on the mainscreen so it cant pick it...also...
the best way to pick colors is just use the color pick on the runescape client...
Printable View
^^then just repick colors, you using a common color then that is everywhere on the mainscreen so it cant pick it...also...
the best way to pick colors is just use the color pick on the runescape client...
Na... you need to do that it automatically finds the monsters, not the colors, because instead of clicking and atacking dark wizard, it clicks an dude with black full...:eek:
?? your post makes no sense, but it doesnt click the dude with full black, cuz the uptext of the monstername isnt there...make sure you have caps correctly on the monstername...and dont pick common colors such as black and gray...wont work effeciantly...Quote:
Originally Posted by dritar
having a little trouble....wont switch users. Never tries to. Never attempt to logs out. I have it set for 12 mins.....fought for 30+ then set it to 3 min and fought for 10+ min and both never logged out. How do I properly set it up to log out and switch users. THANKS
still having problems with this script :( i really want to use it The error said something like invalid something smart send keys line 77...
like i have said before the timing is messed up in this version i have to fix it in the next version...Quote:
Originally Posted by ChrisGA
its not my script...its YOUR SRL you need rev #4 for it to work...but if you know scar at all you can fix that problem yourself...Quote:
Originally Posted by master98
ok lol this is not big problam but still. script works perfectly but i cant find progress report on my scar :D can u help with that ?
sry found it :D
-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-
-= AutoFighter v0.10 -Progress Report- By : HyperSecret =-
-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-
Worked for 19 Minutes and 40 Seconds
Killed Total of 57 Guards.
-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-
Player Name : lol it would be so stupid if i would leave my nick here :D
Player Number : 0
Active : In Use
-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-
V0.10?!?! wow that is an old version...dl the most recent one...Quote:
Originally Posted by altec
PS: HIT THE 1 MONTH IN SRL STATS!!!
I'm new to all this stuff, I can't get this to work. Just keeps logging out and tryings logging in without typing anything. I only have 1 character and I'm trying to fight some Dwarves with my lvl 59. Can someone please show me what I'm doing wrong? Also, I have no interest in eating food at this time so I set that to no hoping that is not the problem because I am carrying cakes. :stirthepot:
Code:const Color1 = 5537201;//1st color of monster
const Color2 = 10069414;//2nd color of monster
const Color3 = 3750207;//3rd color of monster
const MonsterName = 'Dwarf';//name of the monster (case sensative)
const KillMonsterFor = 10;//time in minutes you want each player to run b4 logging out
const eatfood = 'no';//yes or no, for if you want to eat food
const eathp = 25;//Hp you want your guy to eat at
const runhp = 15;//HP you want your guy to run at
const RunDirection = 'w';//n,s,e,w which way you want to run when hp get to runhp
const MySRLID = 'Zeke1901';// Stats ID.
const MySRLPassword = 'Mypass';//<-Your SRL Password here if you want to have yout stats logged
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure DeclarePlayers;
begin
HowManyPlayers := 0; //Confused on this value
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
Players[0].Name :='MyRunescapeName'; //Character name
Players[0].Pass :='MyRunescapePass'; //Character PAss
Players[0].Nick :='3 Letter Abbreviation'; //Nickname 3 Letter of char name
Players[0].Active:=True; //True if you want this player to be ran in the script, false if not
Players[0].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[0].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[0].Integers[0] := 0;
Players[0].Integers[1] := 0;
Players[1].Name :=''; //Character name
Players[1].Pass :=''; //Character PAss
Players[1].Nick :=''; //Nickname 3 Letter of char name
Players[1].Active:=False; //True if you want this player to be ran in the script, false if not
Players[1].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[1].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[1].Integers[0] := 0;
Players[1].Integers[1] := 0;
Players[2].Name :=''; //Character name
Players[2].Pass :=''; //Character PAss
Players[2].Nick :=''; //Nickname 3 Letter of char name
Players[2].Active:=False; //True if you want this player to be ran in the script, false if not
Players[2].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[2].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[2].Integers[0] := 0;
Players[2].Integers[1] := 0;
Players[3].Name :=''; //Character name
Players[3].Pass :=''; //Character PAss
Players[3].Nick :=''; //Nickname 3 Letter of char name
Players[3].Active:=False; //True if you want this player to be ran in the script, false if not
Players[3].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[3].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[3].Integers[0] := 0;
Players[3].Integers[1] := 0;
Players[4].Name :=''; //Character name
Players[4].Pass :=''; //Character PAss
Players[4].Nick :=''; //Nickname 3 Letter of char name
Players[4].Active:=False; //True if you want this player to be ran in the script, false if not
Players[4].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[4].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[4].Integers[0] := 0;
Players[4].Integers[1] := 0;
WriteLn('Using '+ IntToStr(HowManyPlayers) +' Players');
end;
Quote:
Originally Posted by Zeke1901
first off your howmanyplayers = 0...that means you are using 0 players...do it like this for just 1 player...
SCAR Code:const Color1 = 5537201;//1st color of monster
const Color2 = 10069414;//2nd color of monster
const Color3 = 3750207;//3rd color of monster
const MonsterName = 'Dwarf';//name of the monster (case sensative)
const KillMonsterFor = 10;//time in minutes you want each player to run b4 logging out
const eatfood = 'no';//yes or no, for if you want to eat food
const eathp = 25;//Hp you want your guy to eat at
const runhp = 15;//HP you want your guy to run at
const RunDirection = 'w';//n,s,e,w which way you want to run when hp get to runhp
const MySRLID = 'Zeke1901';// Stats ID.
const MySRLPassword = 'Mypass';//<-Your SRL Password here if you want to have yout stats logged
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1; //Confused on this value
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
Players[0].Name :='MyRunescapeName'; //Character name
Players[0].Pass :='MyRunescapePass'; //Character PAss
Players[0].Nick :='3 Letter Abbreviation'; //Nickname 3 Letter of char name
Players[0].Active:=True; //True if you want this player to be ran in the script, false if not
Players[0].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[0].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[0].Integers[0] := 0;
Players[0].Integers[1] := 0;
WriteLn('Using '+ IntToStr(HowManyPlayers) +' Players');
end;
and search loss of focus if it wont type the username and password in...
and also just so you kinow your SRLID isnt your forum username its SRL stats ID so if you dont have one, get one or leave it blank... just the ''
Ok, thanks a lot. One problem still, it logs out and I fixed login.scar so it types everything in now. When it logs back in it checks to see that all my chats are off and then it turns run on and logs out and loops.
Mine done that back when I first started with this script. Make sure you have atleast 12 fish in your bank. For some reason mine wouldnt pick up if I had 4 or 8 ???? Make sure the spelling of the fish is 100% correct. Now im not saying this will fix it but mine done something similar. Good luckQuote:
Originally Posted by Zeke1901
well try to first repick the colors, sometimes the colors are just not found, and if it doesnt find the color it logs out i believe (with this version), so try thatQuote:
Originally Posted by Zeke1901
You guys will have TONS of better results with the next version...
Sounds great, can't wait for the next version.:spot:
Testing 
{Thanks to Smartzkid for all the help and looking over of my script}
{.Script Info:
-=ScriptName=- = SecretFighter
-=Author=- = HyperSecret
-=Description=- = Kills Any Monster
-=Version=- = 0.50
-=Comments=- = SRL 4+
(C) 2007 Rip-It Productions
/Script Info}
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
// *
// * NAME : SecretFighter
// * WRITER : HyperSecret
// * CATEGORY : Fighting
// * DESCRIPTION : Kills Any Monster
//
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
// Took script info setup from Fawaki\\
program HSAutoFighter;
{.include srl/srl.scar}
{.include srl/srl/skill/fighting.scar}
var
Killed, Killed2: integer;
CharacterStartTime: integer;
Anchovie, Herring, Lobster, Pike, Salmon, Sardine, Shrimp, SwordFish, Trout, Tuna: Integer;
FoodToEat: integer;
var
x, y: integer;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
const Color1 = 4087173;//1st color of monster
const Color2 = 2241081;//2nd color of monster
const Color3 = 2109508;//3rd color of monster
const MonsterName = 'cow';//name of the monster (case sensative)
const KillMonsterFor = 60;//time in minutes you want each player to run b4 logging out
const eatfood = 'no';//yes or no, for if you want to eat food
const eathp = 70;//Hp you want your guy to eat at
const runhp = 2;//HP you want your guy to run at
const RunDirection = 'e';//n,s,e,w which way you want to run when hp get to runhp
const MySRLID = '';// Stats ID.
const MySRLPassword = '';//<-Your SRL Password here if you want to have yout stats logged
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
Players[0].Name :=''; //Character name
Players[0].Pass :=''; //Character PAss
Players[0].Nick :=''; //Nickname 3 Letter of char name
Players[0].Active:=True; //True if you want this player to be ran in the script, false if not
Players[0].Skill := 'attack'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[0].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[0].Integers[0] := 0;
Players[0].Integers[1] := 0;
WriteLn('Using '+ IntToStr(HowManyPlayers) +' Players');
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure HyperSecretTAG;
begin
ClearDebug;
Writeln(' _ _ _____ _ ');
Writeln('| | | | / ___| | | ');
Writeln('| |_| |_ _ _ __ ___ _ __\ `--. ___ ___ _ __ ___| |_');
Writeln('| _ | | | | ''_ \ / _ \ ''__|`--. \/ _ \/ __| ''__/ _ \ __|');
Writeln('| | | | |_| | |_) | __/ | /\__/ / __/ (__| | | __/ |_ ');
Writeln('\_| |_/\__, | .__/ \___|_| \____/ \___|\___|_| \___|\__|');
Writeln(' __/ | | ');
Writeln(' |___/|_| ');
Writeln('HyperSecret''s AutoFighter!');
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
Function FindFastRandoms: Boolean;
var
i: Integer;
begin
for i:=0 to 7 do
begin
case I of
0: if SolveChatRandom then
Result := True;
1: If FindDead then
Result := True;
2: If FindMod then
Result := True;
3: If FindMime then
Result := True;
4: If FindMaze then
Result := True;
5: If FindQuiz then
Result := True;
6: begin
if NoGameTab then
begin
Result := True;
Players[CurrentPlayer].loc := 'No GameTab';
Logout;
Exit;
end;
end;
7: RC;
end;
wait(1);
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure HSAntiBAN;
begin
if(not(LoggedIn))then
Exit;
case Random(20) of
0: PickUpMouse;
1: PickUpMouse;
5: PickUpMouse;
6: case Random(4) of
0: TypeSend('Combat Lvl?');
1: TypeSend('Str Lvl?');
2: TypeSend('Att Level?');
3: TypeSend('D Level?');
end;
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
function HSFindRandoms: boolean;
begin
if FindFastRandoms or
FindNormalRandoms then
begin
result := true;
end else
begin
result := false;
end;
FindTalk
HSAntiBan;
SRLRandomsReport;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure LoadFoodDTM;
begin
Anchovie := DTMFromString('78DA6314646060106540018A2A560CFF813 42' +
'310FF07024625204388010D302291409A1548081050C30D24 E408' +
'A89102123244A8E1C2AD86058801723A0682'); {anchovie}
Herring := DTMFromString('78DA6314606060106740019D79990CFF813 42' +
'310FF07024679208393010D302291405A0948881050C30724 E408' +
'A8610312D204D4F0020921FC6A002366075E'); {herring}
Lobster := DTMFromString('78DA631465606000612470268D81E13F906 60' +
'4E2FF40C0A80C647032A001462412484B020936026AA48184 0201' +
'350240429A801A76202145400D379010C0AF06000AEF0759' ); {lobster}
Pike := DTMFromString('78DA63146660601065400131B5E10CFF813 42' +
'310FF0702463920839D010D302291405A1148F0115003B247 9680' +
'1A5E20214F400D2B909023A006E41621026A407EE7C6AF060 0156' +
'B077E'); {pike}
Salmon := DTMFromString('78DA631464606010674001678C1918FE036 94' +
'620FE0F048CF2400607031A60442281B41290E027A0461448 C813' +
'50C307241408A86123C21C905B8409A81101123CF8D50000E AB20' +
'75B'); {salmon}
Sardine := DTMFromString('78DA6314646060106340019D79990CFF813 42' +
'310FF070246903C0F031A60442281B42C901024A046084848 1250' +
'C30D24A408A8E10712C2F8D500001BEE0756'); {sardine}
Shrimp := DTMFromString('78DA63146660601061400133D31818FE036 94' +
'620FE0F048CD2400617031A60442281B412901026A0460248 C813' +
'50C34B841A564C3763A801B9971BBF1A00DE490721'); {shrimp}
SwordFish := DTMFromString('78DA63146160601060400133D36632FC07D 28' +
'C40FC1F081859800C450634C0884402693E20C147408D3090 6023' +
'A0461A48F01050A304244408A89101125204D408010951FC6 A006' +
'8A107E3'); {swordfish}
Trout := DTMFromString('78DA63146260601067400179F1D10CFF813 42' +
'310FF07024679208383010D302291405A0948F01350230A24 E409' +
'A86123428D0890E0C1AF0600FB85072F'); {trout}
Tuna := DTMFromString('78DA6314616060906240019D79990CFF813 42' +
'310FF0702467920838B010D302291405A1948881350230A24 1408' +
'A8610312F204D48810E11E4E2021865F0D0041A40798'); {tuna}
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure AutoRetaliate(Retaliate:Boolean); //thx to fawaki for autoretaliate
begin
GameTab(1);
if Retaliate then
begin
If not FindColor(x, y, 1777020, 624, 385, 719, 396) then
begin
Mouse(666, 381, 8, 8, True);
end;
end;
if not Retaliate then
begin
If FindColor(x, y, 1777020, 624, 385, 719, 396) then
begin
Mouse(666, 381, 8, 8, True);
end;
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure ChooseSkill(skill:string); //pure idea from tara
begin
Writeln('Choosing Skill To Train...');
case skill of
'pure': begin
if Players[CurrentPlayer].level[2]<15 then skill:='strength' else
if Players[CurrentPlayer].level[1]<30 then skill:='attack' else
if Players[CurrentPlayer].level[2]<25 then skill:='strength' else
if Players[CurrentPlayer].level[1]<40 then skill:='attack' else
skill:='strength';
end;
'even': begin
if Players[CurrentPlayer].level[1]>Players[CurrentPlayer].level[2] then
begin
if Players[CurrentPlayer].level[2]>Players[CurrentPlayer].level[3] then
skill:='defense' else skill:='strength';
end else
begin
if Players[CurrentPlayer].level[1]>Players[CurrentPlayer].level[3] then
skill:='defense' else skill:='attack';
end;
end;
end;
case skill of
'attack': SetFightMode(1);
'strength': SetFightMode(2);
'defense': SetFightMode(4);
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure HSChooseSkill;
begin
if (not(LoggedIn)) then Exit;
GameTab(1);
begin
ChooseSkill(lowercase(Players[CurrentPlayer].Skill));
end;
if (HSFindRandoms = true) then
begin
nextplayer(true);
end;
AutoRetaliate(True);
SetChat('off', 1);
SetChat('off', 2);
SetChat('off', 3);
SetChat('off', 4);
SetRun(True);
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure HSHighestAngle;
begin
KeyDown(38);
Wait(3000 + random(100));
KeyUp(38);
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure StatsDePlayer;
var Active: string;
var i: Integer;
begin
if Players[CurrentPlayer].Active=True then
Active:='In Use'
else
Active:='Not In Use';
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
AddToReport(' Player Name : '+ Players[CurrentPlayer].Name);
AddToReport(' Player Number : '+inttostr(CurrentPlayer));
AddToReport(' Active : '+ Active);
if ( Players[CurrentPlayer].Worked > 0 ) then
AddToReport(' Worked : '+ inttostr(Players[CurrentPlayer].Worked) +' min.');
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
GetAllLevels;
for i := 0 to HowManyPlayers - 1 do
begin
if Players[i].Active = True then Active:='T' else Active:='F';
AddToReport( ' ' + Inttostr (I) + ' : Nick : ' + Players[i].Nick + ' = ' + Active
+'. - Lvl : '
+' '+inttostr(Players[i].level[1])+
+' '+inttostr(Players[i].level[2])+
+' '+inttostr(Players[i].level[3])+
+' '+inttostr(Players[i].level[8])+'. '
+'W : '+IntToStr(Players[i].Worked)+' min. '
+'K : '+ IntToStr(Players[i].integers[0]) +' '+ MonsterName +'s. '
+'Ate : '+ IntToStr(Players[i].integers[1]) +' '+ Players[i].strings[0] +'. ');
end
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
Procedure ReportDeProgress;
begin
ClearReport;
SRLRandomsReport;
AddToReport(' ');
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
AddToReport(' -= AutoFighter v0.10 -Progress Report- By : HyperSecret =-');
AddToReport('-=[]-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-[]=-');
AddToReport(' Worked for '+ TimeRunning);
AddToReport(' Killed Total of '+inttostr(Killed2)+' '+ MonsterName +'s.');
StatsDePlayer;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure WhereIsTheMonster;
var
i: Integer;
dir: string;
begin
if (not(InFight)) then
begin
case Random(4) + 1 of
1: dir := 'nswe';
2: dir := 'wens';
3: dir := 'sewn';
4: dir := 'ewns';
end;
for i := 1 to 4 do
MakeCompass(StrGet(dir, i));
Writeln('Rotating Compass, Looking For Monster...');
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure FoodEating;
begin
case lowercase(Players[CurrentPlayer].Strings[0]) of
'anchovie': FoodToEat := Anchovie;
'herring': FoodToEat := Herring;
'lobster': FoodToEat := Lobster;
'pike': FoodToEat := Pike;
'salmon': FoodToEat := Salmon;
'sardine': FoodToEat := Sardine;
'shrimp': FoodToEat := Shrimp;
'swordfish': FoodToEat := SwordFish;
'trout': FoodToEat := Trout;
'tuna': FoodToEat := Tuna;
end;
if (not(LoggedIn)) then Exit;
if (FindDTM(FoodToEat, x, y, 548, 205, 734, 461)) then
begin
MMouse(x, y, 0, 0);
GetMousePos(x, y);
if FindColorTolerance(x, y, 3703002, 42, 8, 120, 21, 70) then
begin
GetMousePos(x, y);
Mouse(x, y, 0, 0, False);
ChooseOption('at');
end else
Exit;
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure HSHpCheck;
var
TimeToEat: integer;
begin
MarkTime(TimeToEat);
begin
if (eatfood = 'yes') then
begin
gethp;
if (gethp <= eathp) then
GameTab(4);
begin
FoodEating;
begin
Players[CurrentPlayer].Integers[1] := Players[CurrentPlayer].Integers[1] + 1;
end;
begin
if (gethp < runhp) then
begin
Status('Running Because Low HP');
RunAwayDirection(RunDirection);
begin
nextplayer(false);
end;
end;
HSFindRandoms;
end;
end;
end;
end;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
function HSFighting(Name: string; color, maxtol, maxtime: integer): boolean;
var
box: TBoxArray;
tolerance, time: integer;
begin
result := false;
MarkTime(time);
if(FindColorSkipBoxArrayTolerance(x, y, color, msx1, msy1, msx2, msy2, tolerance, box)) then
begin
MMouse(x, y, 0, 0);
wait(50 + random(250));
if(IsUpText(Name))then
begin
result := true;
GetMousePos(x, y);
case Random(2) of
0: begin
Mouse(x, y, 0, 0, false);
ChooseOption('ttack');
Exit;
end;
1: begin
Mouse(x, y, 0, 0, true);
Exit;
end;
end;
end else
begin
SetLength(box, Length(box) + 1);
box[Length(box) - 1].X1 := x - 5;
box[Length(box) - 1].Y1 := y - 5;
box[Length(box) - 1].X2 := x + 5;
box[Length(box) - 1].Y2 := y + 5;
Exit;
end;
end else
tolerance := tolerance + 1;
wait(50);
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure HSAttack;
var
MonsterColors: array[0..2] of integer;
i: Integer;
TimeToKill: Integer;
begin
if (not (LoggedIn)) then
Exit;
MonsterColors[0] := color1;
MonsterColors[1] := color2;
MonsterColors[2] := color3;
MarkTime(TimeToKill);
Killed := 0;
repeat
if (InFight) then
Exit;
for i := 0 to 2 do
begin
if(HSFighting(MonsterName, MonsterColors[i], 5, 2000))then
begin
Wait(1000 + random(500));
OutFight;
Killed := Killed + 1;
Killed2 := Killed2 + 1;
ReportVars[0] := ReportVars[0] + 1;
Players[CurrentPlayer].Integers[0] := Players[CurrentPlayer].Integers[0] + 1;
end;
end;
wait(10);
if (HSFindRandoms = true) then
begin
nextplayer(true);
end;
if (eatfood = 'yes') then
begin
HSHpCheck;
end;
until (((Getsystemtime-CharacterStartTime)/1000)>(KillMonsterFor * 60));
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure SetUp;
begin
SetupSRL;
ScriptID := '269';
HyperSecretTAG;
Wait(100);
LoadFoodDTM;
DeclarePlayers;
if(not(loggedin))then LoginPlayer;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure SetUp2;
begin
HSChooseSkill;
HSHighestAngle;
end;
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
begin
SetUp;
Killed2 := 0;
repeat
CharacterStartTime:=GetSystemTime;
if(not(loggedin))then LoginPlayer;
SetUp2;
HSAttack;
WhereIsTheMonster;
If (((Getsystemtime-CharacterStartTime)/1000)>(KillMonsterFor * 60)) then
begin
Wait(5000 + random(1000));
nextplayer(true);
end;
ReportDeProgress;
until(false);
end.
ok i have entered my acc pw and srl id(im using friends id) and all it does is logs me in then stops can someone pplz help look at script
delete the whole script please...dont be such a nooob...and 2nd. it wont work b/c look at 'cow' monstername...its CASE SENSATIVE you noob so it would be 'Cow'
I set mine up then it keeps clicking on inventoy and the stats and keeps typing on Rs windows questions like attack lvl? d lvl? strenght lvl? combat lvl? can someone help
Going to Try this out and see how it runs
must be pretty nice if it ran overnight with 5 users, but still over night
ill run 2night and post a proggy
Question for HyperSecret - Can I add another line below Color 3 saying Color 4. I want to do this because it might get a little more accurate.
Can u help me with my question please Hypersecret page 25...
Works well, acts weird sometimes. But well for the most part. Can you add Cake, 2/3 cake and slice of cake to list of foods? I can get this kind of food easier.
repick your colors this has been asked serveral time and that usually fixes the problem. also make sure you have the RS window selected with the crosshairs...Quote:
Originally Posted by 2pac
sounds good but the only proggy youll get is the SRL randoms report...Quote:
Originally Posted by shadowkawn
well you can but you need to edit more of the script then to do that...you cant just add color 4 and wala its there...you have to edit the Attacking part of the script also...so if you dont know how to do that then dont do it...so the answer is NO you cant do that....Quote:
Originally Posted by JuvenileHall
cakes...maybe hopefully i will be able to add more food types in the next version...Quote:
Originally Posted by Zeke1901
when im atataacking cows its the colors nvr like work,..
is there a spot were i should get thre colors from?
Every time im entering username and pass its clicking cancel. No offnece but this is most noob script i saw EVER
you dont have the monstername set correctly then. it must find the color but then the uptext of the monstername isnt there...its CaSe SeNsAtIvEQuote:
Originally Posted by pugolot
add me on msn and see if i can help fix it...the script isnt noob, your just to noob to know how to run it...Quote:
Originally Posted by dritar
ya i found that out about the proggy report, was going to run it over night last night, but shortly after i fell asleep my net went down =\
I found it helpful to zoom out and pick the colors, and turn up your brightness high on your graphics card. I noticed the program zooms out so I picked the colors from there. Also I noticed that it likes to run away sometimes at something different than I put.
Just downloaded ill try it out
hey thanks for all the help hypersecret, dritar is just a noob because this is one of the only scripts on this site that works for me so just ignore him. awesome job
^^ :D
guys i just figured out why some of the eating features arent working...duh...if you put a even number that ends in 0 (30,40,50, ect..) you need the fixed zero here...
http://www.sp0rk-eh.com/48.bmp
replace it in your fonts/statchars folder....
Whenever I run the script it logs me in then runs for about 7 seconds then logs me out. It says switching player. Then it logs in again but this time turns off all chats and turns on run but then it just logs out, then says switching player. The trouble is I only have one player. I have tried changing the colour like suggested but that does not work. I found when i change the two instances of(HSFindRandoms = true) to false it will attack but with no progress report and it still logs out sometimes. Any suggestions? Using SRL4 and scar 3.12C
My SetupCode:const Color1 = 1680070;//1st color of monster
const Color2 = 945542;//2nd color of monster
const Color3 = 3289655;//3rd color of monster
const MonsterName = 'Guard';//name of the monster (case sensative)
const KillMonsterFor = 10;//time in minutes you want each player to run b4 logging out
const eatfood = 'no';//yes or no, for if you want to eat food
const eathp = 20;//Hp you want your guy to eat at
const runhp = 10;//HP you want your guy to run at
const RunDirection = 'e';//n,s,e,w which way you want to run when hp get to runhp
const MySRLID = '';// Stats ID.
const MySRLPassword = '';//<-Your SRL Password here if you want to have yout stats logged
//-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=\\
procedure DeclarePlayers;
begin
HowManyPlayers := 1;
NumberOfPlayers(HowManyPlayers);
CurrentPlayer := 0;
SRLID := MySRLID;
SRLPassword := MySRLPassword;
Players[0].Name :='myusername'; //Character name
Players[0].Pass :='mypass'; //Character PAss
Players[0].Nick :='nic'; //Nickname 3 Letter of char name
Players[0].Active:=True; //True if you want this player to be ran in the script, false if not
Players[0].Skill := 'strength'; //the skill you want to train, strength, attack, defense, pure, or even to train skills evenly
Players[0].Strings[0] := 'Lobster'//name of food player is eating/ONLY WORKS FOR F2P FISH!!!
Players[0].Integers[0] := 0;
Players[0].Integers[1] := 0;
ProggieCode:HyperSecret's AutoFighter!
Using 1 Players
myusername
Choosing Skill To Train...
NextPlayer
myusername
NextPlayer
myusername
NextPlayer
wat do i need to modify to add colors?
hmm weird...ive never heard of that...i would suggest just fighting lower lvl things, and then just wait until my next version release...try for guards colors the gold on the shield, and also the color of their helmets works for me :DQuote:
Originally Posted by computer_genius
3 colors is enough for now...just leave it...Quote:
Originally Posted by pugolot
Invalid Script ID (wat does this mean)
can i know how to set monster color >>> color1,color2,color3
Okay, first i think that your script is nob, but it isnt, its just that on these forums arent working scripts.Quote:
Originally Posted by HyperSecret
whenever i run it it will log me in an then just sit there
says sumtin bout and runtime error and access violation
redownload the script...Quote:
Originally Posted by astoria1112000
use the color pick or hit ctrl + p and have your rs screen visible...and pick the color of the monster....Quote:
Originally Posted by astoria1112000
if the scripts on this forum arent working then you have something wrong with your scar and/or your computer....Quote:
Originally Posted by dritar
repick the colors...it cant find them on the game...Quote:
Originally Posted by s1thslay3r0
ok