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.



Reply With Quote




