m_boss32.pas

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

uses
  g_local,
  q_shared;

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 m_boss32.inc}

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

implementation

uses g_ai, g_main, g_misc, game_add, g_utils, m_flash, g_monster,
  g_local_add, GameUnit;

procedure makron_taunt(self : edict_p);
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_p);
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_p);
begin
  gi.sound(self, CHAN_AUTO, sound_hit, 1, ATTN_NONE,0);
end;

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

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

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

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

procedure makron_prerailgun(self : edict_p);
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_p);
begin
  self.monsterinfo.currentmove := @makron_move_walk;
end;

procedure makron_run(self : edict_p);
begin
  if (self.monsterinfo.aiflags and AI_STAND_GROUND) <> 0 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),
     (aifunc:ai_move; dist:0;   thinkfunc:nil),
     (aifunc:ai_move; dist:0;   thinkfunc:nil),