SRL Archive - SRL Archives

this is a procedure that handles fights i was bored so i made this :p

[PHP]
procedure HandleFight;
begin
if (FindFight) then
Writeln('Fight Found Running Away);
SetRun('True')
RunTo(Dir, False);
Flag;
Writeln('Running Back');
RunBack;
[/PHP]

all you have to do is put "Dir" as a const and put a direction in there ex. N, E, S, W

hope this helps :D

procedure HandleFight;
begin
   if (FindFight) then
Writeln('Fight Found Running Away);
  SetRun('True')
RunTo(Dir, False);
  Flag;
Writeln('Running Back');
   RunBack;  

1) SetRun(run : boolean) not a string
2) Just add a param, for Dir.
3) You forgot an end;

Please filter what you post. Anyone could of done this, plus you did it wrong…

{.include SRL/SRL.Scar}

procedure HandleFight(Derec : String; FarOrNot : Boolean);
begin
  if(FindFight)then
    Writeln('Fight Found Running Away');
    SetRun(True)
    RunTo(Derec, FarOrNot);
    Flag;
    Writeln('Running Back');
    RunBack;
end;

next time ill check :p