m_medic.pas

delphi编的不错的贪吃蛇

{----------------------------------------------------------------------------}
{                                                                            }
{ File(s): m_medic.pas                                                       }
{                                                                            }
{ Initial conversion by : Skaljac Bojan ([e-mail])                  }
{ Initial conversion on : 19-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                              }
{----------------------------------------------------------------------------}

unit m_medic;

interface

uses
  g_local,
  q_shared;

procedure medic_idle(self:edict_p); cdecl;
procedure medic_search (self:edict_p); cdecl;
procedure medic_sight (self, other : edict_p); cdecl;
procedure medic_stand(self:edict_p); cdecl;
procedure medic_walk(self:edict_p); cdecl;
procedure medic_run(self:edict_p); cdecl;
procedure medic_pain(self, other:edict_p;kick:single;damage:Integer); cdecl;
procedure medic_fire_blaster(self:edict_p); cdecl;
procedure medic_dead (self:edict_p); cdecl;
procedure medic_die (self, inflictor, attacker:edict_p; damage:Integer; const point:vec3_t); cdecl;
procedure medic_duck_down (self:edict_p); cdecl;
procedure medic_duck_hold (self:edict_p); cdecl;
procedure medic_duck_up (self:edict_p); cdecl;
procedure medic_dodge (self , attacker : edict_p;eta : single); cdecl;
procedure medic_continue (self:edict_p); cdecl;
procedure medic_hook_launch (self:edict_p); cdecl;
procedure medic_cable_attack (self:edict_p); cdecl;
procedure medic_hook_retract (self:edict_p); cdecl;
procedure medic_attack(self:edict_p); cdecl;
function medic_checkattack (self:edict_p):qboolean; cdecl;

procedure SP_monster_medic(self:edict_p); cdecl;

//qboolean visible (edict_t *self, edict_t *other);
const MODEL_SCALE     = 1.200000;
var     sound_idle1,
        sound_pain1,
        sound_pain2,
        sound_die,
        sound_sight,
        sound_search,
        sound_hook_launch,
        sound_hook_hit,
        sound_hook_heal,
        sound_hook_retract: Integer;
{$I m_medic.inc}

implementation

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

function medic_FindDeadMonster(self:edict_p):edict_p;
var
  ent, best  : edict_p;
label __Continue;
begin
  ent  := nil;
  best := nil;

  ent := findradius(ent, self^.s.origin, 1024);
  while (ent <> nil) do
  begin
    if (ent = self) then
      goto __Continue;
    if (ent^.svflags and SVF_MONSTER) = 0 then
      goto __Continue;
    if (ent^.monsterinfo.aiflags and AI_GOOD_GUY) = 0 then
      goto __Continue;
    if (ent^.owner<>nil) then
      goto __Continue;
    if (ent^.health > 0) then
      goto __Continue;
    if (ent^.nextthink<>0.0) then
      goto __Continue;
    if (not visible(self, ent)) then
      goto __Continue;

    if (best = nil) then
    begin
      best := ent;
      goto __Continue;
    end;

    if (ent^.max_health <= best^.max_health) then
      goto __Continue;

    best := ent;

  __Continue:
    ent := findradius(ent, self^.s.origin, 1024);
  end;

  Result := best;
end;

procedure medic_idle(self:edict_p);
var
  ent: edict_p;
begin
  gi.sound (self, CHAN_VOICE, sound_idle1, 1, ATTN_IDLE, 0);

  ent := medic_FindDeadMonster(self);
  if (ent <> nil) then
  begin
    self^.enemy := ent;
    self^.enemy^.owner := self;
    self^.monsterinfo.aiflags := self^.monsterinfo.aiflags or AI_MEDIC;
    FoundTarget (self);
  end;
end;

procedure medic_search (self:edict_p);
var
  ent     : edict_p;
begin
  gi.sound (self, CHAN_VOICE, sound_search, 1, ATTN_IDLE, 0);

  if (self^.oldenemy = nil) then
  begin
    ent := medic_FindDeadMonster(self);
    if (ent <> nil) then
    begin
      self^.oldenemy := self^.enemy;
      self^.enemy := ent;
      self^.enemy^.owner := self;
      self^.monsterinfo.aiflags := self^.monsterinfo.aiflags or AI_MEDIC;
      FoundTarget (self);
    end;
  end;
end;

procedure medic_sight (self, other : edict_p);
begin
	gi.sound (self, CHAN_VOICE, sound_sight, 1, ATTN_NORM, 0);
end;

const
  medic_frames_stand : Array[0..89] of mframe_t =
    ((aifunc:ai_stand; dist:0; thinkfunc:medic_idle),
     (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),
     (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),
     (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),
     (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),
     (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),
     (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),
     (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),
     (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),
     (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));

  medic_move_stand : mmove_t =
    (firstframe:FRAME_wait1; lastframe:FRAME_wait90; frame:@medic_frames_stand; endfunc:nil);

procedure medic_stand(self:edict_p);
begin
	self^.monsterinfo.currentmove := @medic_move_stand;
end;

const
  medic_frames_walk : Array[0..11] of mframe_t =
    ((aifunc:ai_walk; dist:6.2; thinkfunc:nil),
     (aifunc:ai_walk; dist:18.1; thinkfunc:nil),
     (aifunc:ai_walk; dist:1; thinkfunc:nil),
     (aifunc:ai_walk; dist:9; thinkfunc:nil),
     (aifunc:ai_walk; dist:10; thinkfunc:nil),
     (aifunc:ai_walk; dist:9; thinkfunc:nil),
     (aifunc:ai_walk; dist:11; thinkfunc:nil),
     (aifunc:ai_walk; dist:11.6; thinkfunc:nil),
     (aifunc:ai_walk; dist:2; thinkfunc:nil),
     (aifunc:ai_walk; dist:9.9; thinkfunc:nil),
     (aifunc:ai_walk; dist:14; thinkfunc:nil),
     (aifunc:ai_walk; dist:9.3; thinkfunc:nil));

  medic_move_walk : mmove_t =
    (firstframe:FRAME_walk1; lastframe:FRAME_walk12; frame:@medic_frames_walk; endfunc:nil);


procedure medic_walk(self:edict_p);
begin
	self^.monsterinfo.currentmove := @medic_move_walk;
end;

const
  medic_frames_run : Array[0..5] of mframe_t =
    ((aifunc:ai_run; dist:18; thinkfunc:nil),
     (aifunc:ai_run; dist:22.5; thinkfunc:nil),
     (aifunc:ai_run; dist:25.4; thinkfunc:nil),
     (aifunc:ai_run; dist:23.4; thinkfunc:nil),
     (aifunc:ai_run; dist:24; thinkfunc:nil),
     (aifunc:ai_run; dist:35.6; thinkfunc:nil));
  medic_move_run : mmove_t =
    (firstframe:FRAME_run1; lastframe:FRAME_run2; frame:@medic_frames_run; endfunc:nil);

procedure medic_run(self:edict_p);
var     ent     : edict_p;
begin
	if (self^.monsterinfo.aiflags and AI_MEDIC) = 0 then
	begin
		ent := medic_FindDeadMonster(self);
		if (ent<>nil) then
		begin
			self^.oldenemy := self^.enemy;
			self^.enemy := ent;
			self^.enemy^.owner := self;
			self^.monsterinfo.aiflags :=self^.monsterinfo.aiflags and AI_MEDIC;
			FoundTarget (self);
			exit;
		end;
	end;

	if (self^.monsterinfo.aiflags and AI_STAND_GROUND) <> 0 then
		self^.monsterinfo.currentmove := @medic_move_stand
	else
		self^.monsterinfo.currentmove := @medic_move_run;
end;

const
  medic_frames_pain1 : Array[0..7] 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));
  medic_move_pain1 : mmove_t =
    (firstframe:FRAME_paina1; lastframe:FRAME_paina8; frame:@medic_frames_pain1; endfunc:medic_run);

  medic_frames_pain2 : Array[0..14] 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),
     (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));
  medic_move_pain2 : mmove_t =
    (firstframe:FRAME_painb1; lastframe:FRAME_painb15; frame:@medic_frames_pain2; endfunc:medic_run);

procedure medic_pain(self, other:edict_p;kick:single;damage:Integer);
begin
	if (self^.health < (self^.max_health / 2)) then
		self^.s.skinnum := 1;

	if (level.time < self^.pain_debounce_time) then
		exit;

	self^.pain_debounce_time := level.time + 3;

	if (skill^.value = 3) then
		exit;		// no pain anims in nightmare

	if (_random() < 0.5) then
	begin
		self^.monsterinfo.currentmove := @medic_move_pain1;
		gi.sound (self, CHAN_VOICE, sound_pain1, 1, ATTN_NORM, 0);
	end
	else
	begin
		self^.monsterinfo.currentmove := @medic_move_pain2;
		gi.sound (self, CHAN_VOICE, sound_pain2, 1, ATTN_NORM, 0);
	end;
end;

procedure medic_fire_blaster(self:edict_p);
var     start, _forward, right, _end, dir : vec3_t;
        effect  : Integer;
begin
	if ((self^.s.frame = FRAME_attack9) or (self^.s.frame = FRAME_attack12)) then
		effect := EF_BLASTER
	else if ((self^.s.frame = FRAME_attack19) or (self^.s.frame = FRAME_attack22) or (self^.s.frame = FRAME_attack25) or (self^.s.frame = FRAME_attack28)) then
		effect := EF_HYPERBLASTER
	else
		effect := 0;

	AngleVectors (self^.s.angles, @_forward, @right, nil);
	G_ProjectSource (self^.s.origin, monster_flash_offset[MZ2_MEDIC_BLASTER_1], _forward, right, start);

	VectorCopy (self^.enemy^.s.origin, _end);
	_end[2] :=_end[2] + self^.enemy^.viewheight;
	VectorSubtract (_end, start, dir);

	monster_fire_blaster (self, start, dir, 2, 1000, MZ2_MEDIC_BLASTER_1, effect);