SRL Archive - OSR Help

   program rocktailfisher;
{$i srl/srl/misc/smart.scar}
{$i srl/srl.scar}
{$i SRL/SRL/misc/paintsmart.scar}



 var
  X, Y, FishSpot, Bank, rod, Rocktail, A, B: Integer;


procedure DeclarePlayers;
begin

  HowManyPlayers := 1;
  NumberOfPlayers(HowManyPlayers);
  CurrentPlayer := 0;
  Players[0].Name := '';
  Players[0].Pass := '';
  Players[0].Nick := '';
  Players[0].Active := True;
  Players[0].Pin := '';
  Players[0].BoxRewards := ['Xp', 'emote', 'costume', 'coins', 'saphire', 'essence'];
end;

procedure SmartSet;
begin
  Smart_Server := 60;
  Smart_Members := True;
  Smart_Signed := True;
  Smart_SuperDetail := False;
end;

procedure AntiRandoms;
begin
  FindNormalRandoms;
  LampSkill := 'fishing';
  LevelUp;
end;
procedure SetDTM;
begin
  FishSpot := DTMFromString('mWAAAAHicY2FgYEhlZGBoAOIwIC4F4h9AsQdA/B2I7wJxfe8ahob+tQwT5mxgqOxYwoAOGNEwCAAAo5AMXg==');
  Bank := DTMFromString('mbQAAAHicY2VgYDgPxPuA+BYQHwTiy0AsxsjAwA7E6kAsDcSCQJwR7cYQG2TP4OlswRDu78yQEuHMgA0wYsFgAACshgke');
  Rocktail := DTMFromString('mbQAAAHicY2VgYAhjZGBIAGJ/II4BYl8g1gViRSA2A2JDINYB0ZoyDOZ68gz+0f4MvpG+DNJiIgzYACMWDAYAnnEFzw==');
  A 
  B 

procedure FrDTM;
begin
  FreeDTM(FishSpot);
  FreeDTM(Bank);
  FreeDTM(Rocktail);
  FreeDTM(A);
  FreeDTM(B);
end;
             

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

Your forgot to end the SetDTM procedure.

E: Also, you are missing code at the end.

begin
end.

You need to add your main loop

begin
end.//notice the . instead of ;

Place it at the bottom of your script I suggest you learn some more basics.

http://villavu.com/forum/showthread.php?t=49089