SRL Archive - OSR Help

Ok i have NO idea what this error is plz help. This is my first script and it is not finished

program Al_Kharid_Warrior_Killer;
  {$i srl/srl/misc/smart.simba}
  {$i SRL\SRL.simba}
  {$i srl/srl/skill/fighting.simba}

////Used DemiseScythe tutorial for all DTM's////

var
 x, y: Integer;
 Q: Array [0..1] of Integer;
 aFound: Extended;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Bankpin Here
  Players[0].BoxRewards := ['Xp'];
end;

procedure FromBank;
begin
  Q[0] := DTMFromString('mwQAAAHic42RgYJjExMBQBMSpQJwFxAlAHA7EdkBsAcSmQGwJVGcIxDJAnADEpkAcC8RKQJwFxPZAPL07BYx9is0Y3r9hArNbyyIYwrwMGNomzGRoztNk4AeqI4QZicBwAAB4iBJ0');
  Q[1] := DTMFromString('mlwAAAHicY2dgYNjAxMCQCsTOQOwIxDVAbAzEQUCcD5QPAOJGIDYGYgco3xuIp9QEM/z6zgTGfkUWDKZJEgwzu9LAmB8ojwsz4sFQAACVeQ9w');

end;

procedure FrDTM;
begin
  FreeDTM(Q[0]);
  FreeDTM(Q[1]);
end;

/////All credit for anti-ban goes to kevin33////
procedure StatsGuise(wat:String);
Begin
 Status(wat);
 Disguise(wat);
End;

procedure FightingAntiban;
begin
 Case Random(250) Of
  0: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('attack', False) GameTab(28) End;
  1: Begin StatsGuise('Antiban') SleepAndMoveMouse(7000 + Random(500)); End;
  2: Begin StatsGuise('Antiban') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
  3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
  4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
  5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
  6: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('strength', False); GameTab(28); End;
  7: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('defence', False); GameTab(28); End;
  8: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('ranged', False); GameTab(28); End;
  9: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('magic', False); GameTab(28); End;
  10: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('constitution', False); GameTab(28); End;
 end;

begin
  Smart_Server := 0;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
  SetupSRL;

  DeclarePlayers;
  LoginPlayer;
  MouseSpeed := 18;
  MakeCompass('n');
  SetAngle(SRL_ANGLE_HIGH);
  FromBank;
  FrDTM;
end;

Um maybe you forgot

{$DEFINE SRL5}
{$DEFINE SMART}

From: Adobe
Um maybe you forgot

{$DEFINE SRL5}
{$DEFINE SMART}

Nope i still get the line 0 error

[Error] (1:1): Unexpected end of file at line 0
Compiling failed.

Your last end should be end. not end;

you other function before that will then be missing an end;

fix:

program Al_Kharid_Warrior_Killer;
  {$i srl/srl/misc/smart.simba}
  {$i SRL\SRL.simba}
  {$i srl/srl/skill/fighting.simba}

////Used DemiseScythe tutorial for all DTM's////

var
 x, y: Integer;
 Q: Array [0..1] of Integer;
 aFound: Extended;

procedure DeclarePlayers;
begin
  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;

  Players[0].Name := ''; // Username
  Players[0].Pass := ''; // Password
  Players[0].Nick := ''; // 3-4 lowercase letters from username
  Players[0].Active := True; // Set to true if you want to use Player 0
  Players[0].Pin := ''; // Bankpin Here
  Players[0].BoxRewards := ['Xp'];
end;

procedure FromBank;
begin
  Q[0] := DTMFromString('mwQAAAHic42RgYJjExMBQBMSpQJwFxAlAHA7EdkBsAcSmQGwJVGcIxDJAnADEpkAcC8RKQJwFxPZAPL07BYx9is0Y3r9hArNbyyIYwrwMGNomzGRoztNk4AeqI4QZicBwAAB4iBJ0');
  Q[1] := DTMFromString('mlwAAAHicY2dgYNjAxMCQCsTOQOwIxDVAbAzEQUCcD5QPAOJGIDYGYgco3xuIp9QEM/z6zgTGfkUWDKZJEgwzu9LAmB8ojwsz4sFQAACVeQ9w');

end;

procedure FrDTM;
begin
  FreeDTM(Q[0]);
  FreeDTM(Q[1]);
end;

/////All credit for anti-ban goes to kevin33////
procedure StatsGuise(wat:String);
Begin
 Status(wat);
 Disguise(wat);
End;

procedure FightingAntiban;
begin
 Case Random(250) Of
  0: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('attack', False) GameTab(28) End;
  1: Begin StatsGuise('Antiban') SleepAndMoveMouse(7000 + Random(500)); End;
  2: Begin StatsGuise('Antiban') GameTab(tab_Inv) ExamineInv; GameTab(28); End;
  3: Begin StatsGuise('AntiBan') RandomAngle(1); End;
  4: Begin StatsGuise('AntiBan') GameTab(Tab_Stats); Wait(3000 + Random(500)); GameTab(28); End;
  5: Begin StatsGuise('AntiBan') GameTab(tab_Stats) HoverSkill('random', False); GameTab(28); End;
  6: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('strength', False); GameTab(28); End;
  7: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('defence', False); GameTab(28); End;
  8: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('ranged', False); GameTab(28); End;
  9: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('magic', False); GameTab(28); End;
  10: Begin StatsGuise('Antiban') GameTab(tab_Stats) HoverSkill('constitution', False); GameTab(28); End;
 end;
end;

begin
  Smart_Server := 0;
  Smart_Members := False;
  Smart_Signed := True;
  Smart_SuperDetail := False;
  ClearDebug;
  SetupSRL;

  DeclarePlayers;
  LoginPlayer;
  MouseSpeed := 18;
  MakeCompass('n');
  SetAngle(SRL_ANGLE_HIGH);
  FromBank;
  FrDTM;
end.

procedure FightingAntiban is missing an end; and the final end should have a . after it not a ;

Edit: Crap, ninjad again.

thank you guys for the help