diff --git a/src/game/g_basic.pas b/src/game/g_basic.pas
index e1ce980bc548a2f5e0e7ed16a7f745daab755fe0..132e76ee156f3aeb2c56eab19b16582201a059c6 100644 (file)
--- a/src/game/g_basic.pas
+++ b/src/game/g_basic.pas
+(* Copyright (C) DooM 2D:Forever Developers
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 3 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program. If not, see <http://www.gnu.org/licenses/>.
+ *)
+{$MODE DELPHI}
unit g_basic;
interface
uses
- WADEDITOR, g_phys;
+ wadreader, g_phys;
const
GAME_VERSION = '0.667';
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;
var
a: Integer;
begin
+ Result := '';
for a := 1 to Length(Str) do
if (a = Length(Str)) or (Str[a+1] = ' ') then
begin
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
n := 1;
m := 1;
Result := 0;
+ s1 := '';
for i := 0 to High(Pointers) do
begin
else
Break;
end;
-
+
else {case}
Break;
end; {case}
o^ := p.Obj;
end;
-
+
UID_MONSTER:
begin
m := g_Monsters_Get(UID);