SRL Archive - Outdated / Broken

Here is my Ram Killer.
Post comments and bugs and stuff like that.

program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
var
  MKills: Integer;
const
  Username='Neonknight77';
  Password='Neonknight77';
  NickName='Neon';
  FightMode=1;//What you want to train
  MonsterColor1=0;//Head color
  MonsterColor2=0;//Horn color
  Kills=5;//How many times to kill

procedure FightMonster(MColor1,MColor2: Integer; Name: String);
begin
  if (FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5)) and
  FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5) then
  MMouse(X,Y,1,1);
  if (IsUpText('Attack '+Name)) then
  begin
    Sleep(100+Random(200));
    Mouse(X,Y,1,1,True);
    Flag;
    repeat
      InFight;
      FindTalk;
   until not (InFight) or (GetHP<=7);
  end;
  if (GetHP<=7) then
  begin
    SetRun(True);
    RunAwayDirection('S');
    Logout;
    Writeln('Lost too much HP');
    TerminateScript;
    MKills:=MKills+1;
  end;
end;

procedure ProgressReport;
begin
  Writeln(' ');
  Writeln('Progress Report');
  Writeln('Ram Killer - Neonknight77');
  Writeln('Killed '+IntToStr(MKills)+ 'so far');
  Writeln('We need to kill '+IntToStr(Kills-MKills)+ ' more RAMS');
  Writeln('Weve been running for ' +ScriptTime2(2));
  Writeln('Printed at: '+TheTime);
end;

begin
  SetupSRL;
  NickNameBMP:=CreateBitmapMaskFromText(NickName,UpChars);
  MKills:=0;
  SetChat('off',1);
  SetChat('off',2);
  SetChat('off',3);
  FixChat;
  SetChat('off',1);
  GameTab(1);
  SetFightMode(FightMode);
  repeat
    FightMonster(MonsterColor1,MonsterColor2,'Ram');
    If(MKills=10)Then
    begin
      FindNormalRandoms;
      ProgressReport;
    end;
  until Kills=MKills;
end.

program New;
{.include SRL/SRL.scar}
{.include SRL/SRL/skill/Fighting.scar}
var
  MKills: Integer;
const
  Username='Neonknight77';
  Password='Neonknight77';
  NickName='Neon';
  FightMode=1;//What you want to train
  MonsterColor1=0;//Head color
  MonsterColor2=0;//Horn color
  Kills=5;//How many times to kill

procedure FightMonster(MColor1,MColor2: Integer; Name: String);
begin
  if (FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5)) and
  FindColorSpiralTolerance(X,Y,MColor1,MSX1,MSY1,MSX2,MSY2,5) then
  MMouse(X,Y,1,1);
  if (IsUpText('Attack '+Name)) then
  begin
    Sleep(100+Random(200));
    Mouse(X,Y,1,1,True);
    Flag;
    repeat
      InFight;
      FindTalk;
   until not (InFight) or (GetHP<=7);
  end;
  if (GetHP<=7) then
  begin
    SetRun(True);
    RunAwayDirection('S');
    Logout;
    Writeln('Lost too much HP');
    TerminateScript;
    MKills:=MKills+1;
  end;
end;

procedure ProgressReport;
begin
  Writeln(' ');
  Writeln('Progress Report');
  Writeln('Ram Killer - Neonknight77');
  Writeln('Killed '+IntToStr(MKills)+ 'so far');
  Writeln('We need to kill '+IntToStr(Kills-MKills)+ ' more RAMS');
  Writeln('Weve been running for ' +ScriptTime2(2));
  Writeln('Printed at: '+TheTime);
end;

begin
  SetupSRL;
  NickNameBMP:=CreateBitmapMaskFromText(NickName,UpChars);
  MKills:=0;
  SetChat('off',1);
  SetChat('off',2);
  SetChat('off',3);
  FixChat;
  SetChat('off',1);
  GameTab(1);
  SetFightMode(FightMode);
  repeat
    FightMonster(MonsterColor1,MonsterColor2,'Ram');
    if (MKills=10) then
    begin
      FindNormalRandoms;
      ProgressReport;
    end;
  until Kills=MKills;
end.

you missed a few standards :)

good job

i helped:p

its a good script though! runs nicely with SRL version 1

thought it hasnt been tested in lumby

lol nice what a quick action on your part =p

p.s left apss in there

P.S: It's not a real account :P
Just used for showing

MKills:=0;

Just in case you don't know. But all variables are 0 to start off with no matter what.

Short script, but good. Nice Job

~WhiteShad0w

You don't need the NickNameBmp mask at the start, SRL already creates that.

From: XxKanexX
You don't need the NickNameBmp mask at the start, SRL already creates that.

Can you show me where please?

Simple but it workds