-
my auto fighter
hey this is my first ever script i have ever created so it might not be any good but i gave it my best shot. please tell me any way i can make it better i would be extremly greatfull thanks and enjoy:)
Code:
{scarscaper4life auto fighter please email me feed back at
nerdalert1066@hotmail.com thanks}
{thanks to whiteshadow he helped me fix some of the errors
and showed me how to set fightmode}
program monsterkiller;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
var
fightmode,i,mtk,FoodColor,hp,Tol, MonsterColor1, MonsterColor2, MonsterColor3 : Integer;
MonsterName : String;
eat : Boolean;
procedure Setup;
begin
MonsterColor1:=1056410;//monster color
MonsterColor2:=1056403;//monster color
MonsterColor3:=858498;//monster color
tol:=1;//tolarence for finding monster
MonsterName:='Guard';
eat := false;//do you want to eat
hp :=65;//when do you want to eat
FoodColor :=1534666;//color of your food if eating
mtk :=1;//monsters to kill got idea of noobfighter thanks
fightmode :=1;//fightmode you wish to use
end;
//====================progress report==========================================//
Procedure ProgressReport;//borrowed off noobfighter thanks
begin
Cleardebug;
Writeln('Progress report...');
Writeln(' ');
Writeln('Time since script started: ' + TimeRunning);
Writeln('The current time is: ' + TheTime);
Writeln('Killed ' + inttostr(i) + ' monsters');
end;
//=================================================================//
procedure FindRandoms;
begin
FindNormalRandoms;
end;
procedure OwnMonster;
begin
wait(2000)random(200)
KAttackMonster(monsterColor1, MonsterColor2, MonsterColor3, Tol, MonsterName);
end;
procedure fightstyle;
begin
SetFightMode(fightmode);
end;
procedure eating;
begin
if (eat = true) then
begin
wait(200)random(100)
RealEatIfNeeded(FoodColor,hp,eat);
end;
end;
begin
setupsrl;
Findrandoms
repeat
ownMonster;
setup;
eating;
ProgressReport;
until (i = mtk)
ProgressReport;
end.
-
Good job. Funny how my comment is still next to KAttackMonster. Lol, anyways use SetFightMode(oFightMode : Integer); ............[1 - 4] top to bottom.
-
o lol it is to thanks i will add it in now
-
Nice little script!
still trying to figure out how to get myself to eat but for the rest its handy :)
thanks!
greetz
-
[Runtime Error] : Exception:rogram Canvas does not allow drawing in line 104 in script C:\P Files\SCAR 2.03\includes\srl\srl\core\GameTab.scar... can someone help please?