m_boss32.inc

雷神之锤2(Quake2)Delphi源码

{----------------------------------------------------------------------------}
{                                                                            }
{ File(s): m_boss32.h                                                       }
{                                                                            }
{ Initial conversion by : Ben Watt ([e-mail])                   }
{ Initial conversion on : 11-Feb-2002                                        }
{                                                                            }
{ This File contains part of convertion of Quake2 source to ObjectPascal.    }
{ More information about this project can be found at:                       }
{ http://www.sulaco.co.za/quake2/                                            }
{                                                                            }
{ Copyright (C) 1997-2001 Id Software, Inc.                                  }
{                                                                            }
{ 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 2             }
{ 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.                       }
{                                                                            }
{----------------------------------------------------------------------------}
{ Updated on :                                                               }
{ Updated by :                                                               }
{                                                                            }
{----------------------------------------------------------------------------}
{ * Still dependent (to compile correctly) on:                               }
{ 1.) g_local.h and game.h                                                   }
{----------------------------------------------------------------------------}
{ * TODO:                                                                    }
{ 1.) test compilation with the above two units                              }
{----------------------------------------------------------------------------}
{
==============================================================================

Makron -- Final Boss

==============================================================================
}

unit m_boss32;

interface

const MODEL_SCALE     = 1.000000;

var
  sound_pain4,
  sound_pain5,
  sound_pain6,
  sound_death,
  sound_step_left,
  sound_step_right,
  sound_attack_bfg,
  sound_brainsplorch,
  sound_prerailgun,
  sound_popup,
  sound_taunt1,
  sound_taunt2,
  sound_taunt3,
  sound_hit           : Integer;

{$I g_local.inc}
{$I m_boss32.inc}

procedure makron_taunt(self : edict_t);
procedure makron_stand(self : edict_t);
procedure makron_hit(self : edict_t);
procedure makron_popup(self : edict_t);
procedure makron_step_left(self : edict_t);
procedure makron_step_right(self : edict_t);
procedure makron_brainsplorch(self : edict_t);
procedure makron_prerailgun(self : edict_t);
procedure makron_walk(self : edict_t);
procedure makron_run(self : edict_t);
procedure makronBFG(self : edict_t);
procedure MakronSaveloc(self : edict_t);
procedure MakronRailgun(self : edict_t);
procedure MakronHyperblaster(self : edict_t);
procedure makron_pain(self, other : edict_t; kick : single; damage : integer);
procedure makron_sight(self, other : edict_t);
procedure makron_attack(self : edict_t);
procedure makron_torso_think(self : edict_t);
procedure makron_torso(ent : edict_t);
procedure makron_dead(self : edict_t);
procedure makron_die(self, inflictor, attacker : edict_t; damage : integer; point : vec3_t);
function  Makron_CheckAttack(self : edict_t): qboolean;
procedure MakronPrecache;
procedure SP_monster_makron(self : edict_t);
procedure MakronSpawn(self : edict_t);
procedure MakronToss(self : edict_t);

procedure makron_taunt(self : edict_t);
var
  r : single;
begin
  r := random();
  if r <= 0.3 then
    gi.sound(self, CHAN_AUTO, sound_taunt1, 1, ATTN_NONE, 0)
  else
  if r <= 0.6 then
    gi.sound(self, CHAN_AUTO, sound_taunt2, 1, ATTN_NONE, 0)
  else
    gi.sound(self, CHAN_AUTO, sound_taunt3, 1, ATTN_NONE, 0);
end;

//
// stand
//

const
  makron_frames_stand : Array[0..59] of mframe_t =
    ((aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),		// 10
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),		// 20
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),		// 30
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),		// 40
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),		// 50
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil),
     (aifunc:ai_stand; dist:0; thinkfunc:nil));		// 60

  makron_move_stand : mmove_t =
    (firstframe:FRAME_stand201; lastframe:FRAME_stand260; frame:makron_frames_stand; endfunc:nil);

procedure makron_stand(self : edict_t);
begin
  self.monsterinfo.currentmove := makron_move_stand;
end;

const
  makron_frames_run : Array[0..9] of mframe_t =
    ((aifunc:ai_run; dist:3;  thinkfunc:makron_step_left),
     (aifunc:ai_run; dist:12; thinkfunc:nil),
     (aifunc:ai_run; dist:8;  thinkfunc:nil),
     (aifunc:ai_run; dist:8;  thinkfunc:nil),
     (aifunc:ai_run; dist:8;  thinkfunc:makron_step_right),
     (aifunc:ai_run; dist:6;  thinkfunc:nil),
     (aifunc:ai_run; dist:12; thinkfunc:nil),
     (aifunc:ai_run; dist:9;  thinkfunc:nil),
     (aifunc:ai_run; dist:6;  thinkfunc:nil),
     (aifunc:ai_run; dist:12; thinkfunc:nil));

  makron_move_run : mmove_t =
    (firstframe:FRAME_stand204; lastframe:FRAME_stand213; frame:makron_frames_run; endfunc:nil);

procedure makron_hit(self : edict_t);
begin
  gi.sound(self, CHAN_AUTO, sound_hit, 1, ATTN_NONE,0);
end;

procedure makron_popup(self : edict_t);
begin
  gi.sound(self, CHAN_BODY, sound_popup, 1, ATTN_NONE,0);
end;

procedure makron_step_left(self : edict_t);
begin
  gi.sound(self, CHAN_BODY, sound_step_left, 1, ATTN_NORM,0);
end;

procedure makron_step_right(self : edict_t);
begin
  gi.sound(self, CHAN_BODY, sound_step_right, 1, ATTN_NORM,0);
end;

procedure makron_brainsplorch(self : edict_t);
begin
  gi.sound(self, CHAN_VOICE, sound_brainsplorch, 1, ATTN_NORM,0);
end;

procedure makron_prerailgun(self : edict_t);
begin
  gi.sound(self, CHAN_WEAPON, sound_prerailgun, 1, ATTN_NORM,0);
end;

const
  makron_frames_walk : Array[0..9] of mframe_t =
    ((aifunc:ai_walk; dist:3;  thinkfunc:makron_step_left),
     (aifunc:ai_walk; dist:12; thinkfunc:nil),
     (aifunc:ai_walk; dist:8;  thinkfunc:nil),
     (aifunc:ai_walk; dist:8;  thinkfunc:nil),
     (aifunc:ai_walk; dist:8;  thinkfunc:makron_step_right),
     (aifunc:ai_walk; dist:6;  thinkfunc:nil),
     (aifunc:ai_walk; dist:12; thinkfunc:nil),
     (aifunc:ai_walk; dist:9;  thinkfunc:nil),
     (aifunc:ai_walk; dist:6;  thinkfunc:nil),
     (aifunc:ai_walk; dist:12; thinkfunc:nil));

  makron_move_walk : mmove_t =
    (firstframe:FRAME_walk204; lastframe:FRAME_walk213; frame:makron_frames_run; endfunc:nil);

procedure makron_walk(self : edict_t);
begin
  self.monsterinfo.currentmove := makron_move_walk;
end;

procedure makron_run(self : edict_t);
begin
  if (self.monsterinfo.aiflags and AI_STAND_GROUND) then
    self.monsterinfo.currentmove := makron_move_stand
  else
    self.monsterinfo.currentmove := makron_move_run;
end;

const
  makron_frames_pain6 : Array[0..26] of mframe_t =
    ((aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),		// 10
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:makron_popup),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),		// 20
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:makron_taunt),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil));

  makron_move_pain6 : mmove_t =
    (firstframe:FRAME_pain601; lastframe:FRAME_pain627; frame:makron_frames_pain6; endfunc:makron_run);

  makron_frames_pain5 : Array[0..3] of mframe_t =
    ((aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil));

  makron_move_pain5 : mmove_t =
    (firstframe:FRAME_pain501; lastframe:FRAME_pain504; frame:makron_frames_pain5; endfunc:makron_run);

  makron_frames_pain4 : Array[0..3] of mframe_t =
    ((aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil),
     (aifunc:ai_move; dist:0; thinkfunc:nil));

  makron_move_pain4 : mmove_t =
    (firstframe:FRAME_pain401; lastframe:FRAME_pain404; frame:makron_frames_pain4; endfunc:makron_run);

  makron_frames_death2 : Array[0..94] of mframe_t =
    ((aifunc:ai_move; dist:-15; thinkfunc:nil),
     (aifunc:ai_move; dist:3;   thinkfunc:nil),
     (aifunc:ai_move; dist:-12; thinkfunc:nil),
     (aifunc:ai_move; dist:0;   thinkfunc:makron_step_left),
     (aifunc:ai_move; dist:0;   thinkfunc:nil),
     (aifunc:ai_move; dist:0;   thinkfunc:nil),
     (aifunc:ai_move; dist:0;   thinkfunc:nil),