SCAR Code:
// I thank everyone at SRL Forums for making this script possible.
// I also thank Kaitnieks for making SCAR, one of the best color macros ever.
// Remember kids, follow the SRL rules.
program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/Skill/Fighting.scar}
{.include SRL/SRL/extended/xAntiRandoms.scar}
var MColor1,MColor2,MColor3: Integer;
const tolerance=5;
var MonsterName:string;
const fightmode=0;
procedure startup;
begin
SetupSRL;
end;
procedure AntBan;
begin
RotateEvery(5);
AntiBan;
FindMod;
BoredHuman;
RandomMovement;
end;
procedure MonsterColors;
begin
MonsterName:='Goblin';
MColor1:=000000;
MColor2:=000000;
MColor3:=000000;
end;
procedure Fighting;
begin
if InFight = False then;
begin
SetFightMode(FightMode);
FindMonster(MColor1, MColor2, MColor3,tolerance, MonsterName);
KAttackMonster(MColor1,MColor2,MColor3,tolerance,MonsterName);
end;
end;
begin
Startup;
AntBan;
MonsterColors;
Fighting;
// FindNormalRnadomsChoice(Talk,Misc,Lamp,Box,Demon,ScapeRune,Trade,GameTab,Pinball,Frog,Certer,Sandwich,Plant,Black,ClickContinue);
end.
Untested on the real game but tested all the way until it compiles successfully. I'm sure this will work as it should. If not then tell me.