m_parasite.pas

delphi编的不错的贪吃蛇

	(aifunc: ai_charge; dist : 0; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist : 0; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist : 0; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist :-2; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist :-2; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist :-3; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist :-2; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist : 0; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist :-1; thinkfunc:parasite_drain_attack),	// drain
	(aifunc: ai_charge; dist : 0; thinkfunc:parasite_reel_in),	// let go
	(aifunc: ai_charge; dist :-2; thinkfunc:nil),
	(aifunc: ai_charge; dist :-2; thinkfunc:nil),
	(aifunc: ai_charge; dist :-3; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil)
        );

  parasite_move_drain : mmove_t =
        (
        firstframe:FRAME_drain01;
        lastframe:FRAME_drain18;
        frame:@parasite_frames_drain;
        endfunc:parasite_start_run
        );

  parasite_frames_break : array[0..31] of mframe_t =
  (
  (aifunc: ai_charge; dist : 0; thinkfunc:nil),
	(aifunc: ai_charge; dist :-3; thinkfunc:nil),
	(aifunc: ai_charge; dist : 1; thinkfunc:nil),
	(aifunc: ai_charge; dist : 2; thinkfunc:nil),
	(aifunc: ai_charge; dist :-3; thinkfunc:nil),
	(aifunc: ai_charge; dist : 1; thinkfunc:nil),
	(aifunc: ai_charge; dist : 1; thinkfunc:nil),
	(aifunc: ai_charge; dist : 3; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),
	(aifunc: ai_charge; dist :-18; thinkfunc:nil),
	(aifunc: ai_charge; dist : 3; thinkfunc:nil),
	(aifunc: ai_charge; dist : 9; thinkfunc:nil),
	(aifunc: ai_charge; dist : 6; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),
	(aifunc: ai_charge; dist :-18; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),
	(aifunc: ai_charge; dist : 8; thinkfunc:nil),
	(aifunc: ai_charge; dist : 9; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),
	(aifunc: ai_charge; dist :-18; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),	// airborne
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),	// airborne
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),	// slides
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),	// slides
	(aifunc: ai_charge; dist : 0; thinkfunc:nil), // slides
	(aifunc: ai_charge; dist : 0; thinkfunc:nil),	// slides
	(aifunc: ai_charge; dist : 4; thinkfunc:nil),
	(aifunc: ai_charge; dist : 11; thinkfunc:nil),
	(aifunc: ai_charge; dist :-2; thinkfunc:nil),
	(aifunc: ai_charge; dist :-5; thinkfunc:nil),
	(aifunc: ai_charge; dist : 1; thinkfunc:nil)
        );

  parasite_move_break : mmove_t =
        (
        firstframe:FRAME_break01;
        lastframe:FRAME_break32;
        frame:@parasite_frames_break;
        endfunc:parasite_start_run
        );

  parasite_frames_death : array [0..6] 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)
        );

  parasite_move_death : mmove_t =
        (
        firstframe:FRAME_death101;
        lastframe:FRAME_death107;
        frame:@parasite_frames_death;
        endfunc:parasite_dead
        );



var

  sound_pain1,
  sound_pain2,
  sound_die,
  sound_launch,
  sound_impact,
  sound_suck,
  sound_reelin,
  sound_sight,
  sound_tap,
  sound_scratch,
  sound_search: integer;


procedure parasite_launch (self: edict_p);
begin
  gi.sound(self, CHAN_WEAPON, sound_launch, 1, ATTN_NORM, 0);
end;

Procedure parasite_reel_in (self: edict_p);
begin
  gi.sound (self, CHAN_WEAPON, sound_reelin, 1, ATTN_NORM, 0);
end;

Procedure parasite_sight (self, other: edict_p); cdecl;
begin
  gi.sound (self, CHAN_WEAPON, sound_sight, 1, ATTN_NORM, 0);
end;

Procedure parasite_tap (self: edict_p);
begin
  gi.sound (self, CHAN_WEAPON, sound_tap, 1, ATTN_IDLE, 0);
end;

Procedure parasite_scratch (self: edict_p);
begin
  gi.sound (self, CHAN_WEAPON, sound_scratch, 1, ATTN_IDLE, 0);
end;

Procedure parasite_search (self: edict_p);
begin
  gi.sound (self, CHAN_WEAPON, sound_search, 1, ATTN_IDLE, 0);
end;



Procedure parasite_end_fidget (self: edict_p);
begin
  self^.monsterinfo.currentmove := @parasite_move_end_fidget;
end;

Procedure parasite_do_fidget (self: edict_p);
begin
  self^.monsterinfo.currentmove := @parasite_move_fidget;
end;

Procedure parasite_refidget (self: edict_p);
begin
  if (_random() <= 0.8) then
    self^.monsterinfo.currentmove := @parasite_move_fidget
  else
    self^.monsterinfo.currentmove := @parasite_move_end_fidget;
end;

Procedure parasite_idle (self: edict_p); cdecl;
begin
  self^.monsterinfo.currentmove := @parasite_move_start_fidget;
end;



Procedure parasite_stand (self: edict_p);
begin
  self^.monsterinfo.currentmove := @parasite_move_stand;
end;



Procedure parasite_start_run (self: edict_p);
begin
  if (self^.monsterinfo.aiflags and AI_STAND_GROUND) <> 0 then
  	self^.monsterinfo.currentmove := @parasite_move_stand
  else
  	self^.monsterinfo.currentmove := @parasite_move_start_run;
end;

Procedure parasite_run (self: edict_p);
begin
  if (self^.monsterinfo.aiflags and AI_STAND_GROUND) <> 0 then
    self^.monsterinfo.currentmove := @parasite_move_stand
  else
    self^.monsterinfo.currentmove := @parasite_move_run;
end;



Procedure parasite_start_walk (self: edict_p);
begin
  self^.monsterinfo.currentmove := @parasite_move_start_walk;
end;

Procedure parasite_walk (self: edict_p);
begin
  self^.monsterinfo.currentmove := @parasite_move_walk;
end;



Procedure parasite_pain (self, other: edict_p; kick: Single; damage: integer); cdecl;
begin
  if self^.health < (self^.max_health / 2) then
    self^.s.skinnum := 1;
  if level.time >= self^.pain_debounce_time then
  begin
    self^.pain_debounce_time := level.time + 3;
    if skill^.value <> 3 then
    begin
      if (_random() < 0.5) then
        gi.sound (self, CHAN_VOICE, sound_pain1, 1, ATTN_NORM, 0)
      else
        gi.sound (self, CHAN_VOICE, sound_pain2, 1, ATTN_NORM, 0);
      self^.monsterinfo.currentmove := @parasite_move_pain1;
    end;
  end;
end;


Function parasite_drain_attack_ok (const start, _end: vec3_t): boolean;
var
  dir, angles: vec3_t;

begin
        // check for max distance
  VectorSubtract(start, _end, dir);
  if VectorLength(dir) > 256 then
    result:= false
  else
  begin
        // check for min/max pitch
    vectoangles (dir, angles);
    if angles[0] < -180 then
      angles[0] := angles[0] + 360;
    if abs(angles[0]) > 30 then
      result:= false
    else
      result:= true;
  end;
end;


Procedure parasite_drain_attack (self: edict_p);
var
  offset, start, f, r, _end, dir: vec3_t;
  tr: trace_t;
  damage: integer;

begin

  AngleVectors (self^.s.angles, @f, @r, nil);
  VectorSet (offset, 24, 0, 6);
  G_ProjectSource (self^.s.origin, offset, f, r, start);
  VectorCopy (self^.enemy^.s.origin, _end);
  if not parasite_drain_attack_ok(start, _end) then
  begin
    _end[2] := self^.enemy^.s.origin[2] + self^.enemy^.maxs[2] - 8;
    if (not parasite_drain_attack_ok(start, _end)) then
    begin
      _end[2] := self^.enemy^.s.origin[2] + self^.enemy^.mins[2] + 8;
      if not parasite_drain_attack_ok(start, _end) then
      	exit;
    end;
  end;
  VectorCopy (self^.enemy^.s.origin, _end);
  tr := gi.trace (@start, nil, nil, @_end, self, MASK_SHOT);
  if tr.ent <> self^.enemy then
    exit;
  if self^.s.frame = FRAME_drain03 then
  begin
    damage := 5;
    gi.sound (self^.enemy, CHAN_AUTO, sound_impact, 1, ATTN_NORM, 0);
  end
  else
  begin
    if self^.s.frame = FRAME_drain04 then
      gi.sound (self, CHAN_WEAPON, sound_suck, 1, ATTN_NORM, 0);
    damage := 2;
  end;

  gi.WriteByte (svc_temp_entity);
  gi.WriteByte (Ord(TE_PARASITE_ATTACK));
  gi.WriteShort ((Cardinal(Self)-Cardinal(g_edicts)) div SizeOf(edict_t));
  gi.WritePosition (start);
  gi.WritePosition (_end);
  gi.multicast (@self^.s.origin, MULTICAST_PVS);

  VectorSubtract (start, _end, dir);
  T_Damage (self^.enemy, self, self, dir, self^.enemy^.s.origin, vec3_origin, damage, 0, DAMAGE_NO_KNOCKBACK, MOD_UNKNOWN);
end;


{
=:=
Break Stuff Ends
=:=
}

Procedure parasite_attack (self: edict_p); cdecl;
begin
//	if (_random() <= 0.2)
//		self^.monsterinfo.currentmove := @parasite_move_break;
//	else
  self^.monsterinfo.currentmove := @parasite_move_drain;
end;



{
=:=
Death Stuff Starts
=:=
}

Procedure parasite_dead (self: edict_p);
begin
  VectorSet (self^.mins, -16, -16, -24);
  VectorSet (self^.maxs, 16, 16, -8);
  self^.movetype := MOVETYPE_TOSS;
  self^.svflags := self^.svflags or SVF_DEADMONSTER;
  self^.nextthink := 0;
  gi.linkentity (self);
end;


Procedure parasite_die (self, inflictor, attacker: edict_p; damage: Integer; const point: vec3_t); cdecl;
var
  i: integer;
begin

// check for gib
  if self^.health <= self^.gib_health then
  begin
    gi.sound (self, CHAN_VOICE, gi.soundindex ('misc/udeath.wav'), 1, ATTN_NORM, 0);
    for  i := 0 to 1 do
      ThrowGib (self, 'models/objects/gibs/bone/tris.md2', damage, GIB_ORGANIC);
    for i := 0 to 3 do
      ThrowGib (self, 'models/objects/gibs/sm_meat/tris.md2', damage, GIB_ORGANIC);
    ThrowHead (self, 'models/objects/gibs/head2/tris.md2', damage, GIB_ORGANIC);
    self^.deadflag := DEAD_DEAD;
  end
  else
  if self^.deadflag <> DEAD_DEAD then
  begin
// regular death
    gi.sound (self, CHAN_VOICE, sound_die, 1, ATTN_NORM, 0);
    self^.deadflag := DEAD_DEAD;
    self^.takedamage := DAMAGE_YES;
    self^.monsterinfo.currentmove := @parasite_move_death;
  end;
end;

{
=:=
End Death Stuff
=:=
}

{QUAKED monster_parasite (1 .5 0) (-16 -16 -24) (16 16 32) Ambush Trigger_Spawn Sight
}
Procedure SP_monster_parasite (self: edict_p);
begin
  if deathmatch^.value <> 0 then
    G_FreeEdict (self)
  else
  begin
    sound_pain1 := gi.soundindex ('parasite/parpain1.wav');
    sound_pain2 := gi.soundindex ('parasite/parpain2.wav');
    sound_die := gi.soundindex ('parasite/pardeth1.wav');
    sound_launch := gi.soundindex('parasite/paratck1.wav');
    sound_impact := gi.soundindex('parasite/paratck2.wav');
    sound_suck := gi.soundindex('parasite/paratck3.wav');
    sound_reelin := gi.soundindex('parasite/paratck4.wav');
    sound_sight := gi.soundindex('parasite/parsght1.wav');
    sound_tap := gi.soundindex('parasite/paridle1.wav');
    sound_scratch := gi.soundindex('parasite/paridle2.wav');
    sound_search := gi.soundindex('parasite/parsrch1.wav');

    self^.s.modelindex := gi.modelindex ('models/monsters/parasite/tris.md2');
    VectorSet (self^.mins, -16, -16, -24);
    VectorSet (self^.maxs, 16, 16, 24);
    self^.movetype := MOVETYPE_STEP;
    self^.solid := SOLID_BBOX;

    self^.health := 175;
    self^.gib_health := -50;
    self^.mass := 250;

    self^.pain := parasite_pain;
    self^.die := parasite_die;

    self^.monsterinfo.stand := parasite_stand;
    self^.monsterinfo.walk := parasite_start_walk;
    self^.monsterinfo.run := parasite_start_run;
    self^.monsterinfo.attack := parasite_attack;
    self^.monsterinfo.sight := parasite_sight;
    self^.monsterinfo.idle := parasite_idle;

    gi.linkentity (self);

    self^.monsterinfo.currentmove := @parasite_move_stand;
    self^.monsterinfo.scale := MODEL_SCALE;

    walkmonster_start (self);
  end;
end;

end.