diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index 4b505ab50bcd76074c76e772a25b76c9aec226f0..3807b540c996cfdc75bff917eec7d7de17ee471b 100644 (file)
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
a := abs(vx);
b := abs(vy);
- if a = 0 then
+ if a = 0 then
c := 0
- else
+ else
c := RadToDeg(ArcTan(b/a));
- if vy < 0 then
+ if vy < 0 then
c := -c;
- if vx > 0 then
+ if vx > 0 then
c := 180 - c;
c := c + 180;
begin
while (fmt[m] = ' ') and (m < Length(fmt)) do
Inc(m);
- if (m >= Length(fmt)) then
+ if (m >= Length(fmt)) then
Break;
if (fmt[m] = '%') then
else
Break;
end;
-
+
else {case}
Break;
end; {case}
o^ := p.Obj;
end;
-
+
UID_MONSTER:
begin
m := g_Monsters_Get(UID);