g_turret.pas

delphi编的不错的贪吃蛇

      turret_breach_fire(self);
      self^.spawnflags := self^.spawnflags and (NOT 65536);
    end;
  end;
end;

procedure turret_breach_finish_init(self : edict_p);
begin
  // get and save info for muzzle location
  if (self^.target = nil) then
    gi.dprintf('%s at %s needs a target', self^.classname, vtos(self^.s.origin))
  else
  begin
    self^.target_ent := G_PickTarget(self^.target);
    VectorSubtract(self^.target_ent^.s.origin, self^.s.origin, self^.move_origin);
    G_FreeEdict(self^.target_ent);
  end;

  self^.teammaster^.dmg := self^.dmg;
  self^.think := turret_breach_think;
  self^.think(self);
end;

procedure SP_turret_breach(self : edict_p);
begin
  self^.solid := SOLID_BSP;
  self^.movetype := MOVETYPE_PUSH;
  gi.setmodel(self, self^.model);

  if (self^.speed = 0) then
    self^.speed := 50;
  if (self^.dmg = 0) then
    self^.dmg := 10;

  if (st.minpitch = 0) then
    st.minpitch := -30;
  if (st.maxpitch = 0) then
    st.maxpitch := 30;
  if (st.maxyaw = 0) then
    st.maxyaw := 360;

  self^.pos1[PITCH] := -1 * st.minpitch;
  self^.pos1[YAW]   := st.minyaw;
  self^.pos2[PITCH] := -1 * st.maxpitch;
  self^.pos2[YAW]   := st.maxyaw;

  self^.ideal_yaw := self^.s.angles[YAW];
  self^.move_angles[YAW] := self^.ideal_yaw;

  self^.blocked := turret_blocked;

  self^.think := turret_breach_finish_init;
  self^.nextthink := level.time + FRAMETIME;
  gi.linkentity(self);
end;


{QUAKED turret_base (0 0 0) ?
This portion of the turret changes yaw only.
MUST be teamed with a turret_breach.
}

procedure SP_turret_base(self : edict_p);
begin
  self^.solid := SOLID_BSP;
  self^.movetype := MOVETYPE_PUSH;
  gi.setmodel(self, self^.model);
  self^.blocked := turret_blocked;
  gi.linkentity(self);
end;


{QUAKED turret_driver (1 .5 0) (-16 -16 -24) (16 16 32)
Must NOT be on the team with the rest of the turret parts.
Instead it must target the turret_breach.
}

procedure turret_driver_die(self, inflictor, attacker : edict_p; damage : integer; const point : vec3_t);
var
  ent : edict_p;
begin

  // level the gun
  self^.target_ent^.move_angles[0] := 0;

  // remove the driver from the end of them team chain
  ent := self^.target_ent^.teammaster;
  while (ent^.teamchain <> self) do
  begin
    ent := ent^.teamchain;
  end;
  ent^.teamchain := nil;
  self^.teammaster := nil;
  self^.flags := self^.flags and (NOT FL_TEAMSLAVE);

  self^.target_ent^.owner := nil;
  self^.target_ent^.teammaster^.owner := nil;

  infantry_die(self, inflictor, attacker, damage, point);
end;

procedure turret_driver_think(self : edict_p); cdecl;
var
  target        : vec3_t;
  dir           : vec3_t;
  reaction_time : single;
begin
  self^.nextthink := level.time + FRAMETIME;

  if (self^.enemy <> nil) and ((not self^.enemy^.inuse) or (self^.enemy^.health <= 0)) then
    self^.enemy := nil;

  if (self^.enemy = nil) then
  begin
    if not(FindTarget(self)) then
      Exit;
    self^.monsterinfo.trail_time := level.time;
    self^.monsterinfo.aiflags := self^.monsterinfo.aiflags and (NOT AI_LOST_SIGHT);
  end
  else
  begin
    if visible(self, self^.enemy) then
    begin
      if (self^.monsterinfo.aiflags and AI_LOST_SIGHT) <> 0 then
      begin
        self^.monsterinfo.trail_time := level.time;
        self^.monsterinfo.aiflags := self^.monsterinfo.aiflags and (NOT AI_LOST_SIGHT);
      end;
    end
    else
    begin
      self^.monsterinfo.aiflags := self^.monsterinfo.aiflags or AI_LOST_SIGHT;
      Exit;
    end;
  end;

  // let the turret know where we want it to aim
  VectorCopy(self^.enemy^.s.origin, target);
  target[2] := target[2] + self^.enemy^.viewheight;
  VectorSubtract(target, self^.target_ent^.s.origin, dir);
  vectoangles(dir, self^.target_ent^.move_angles);

  // decide if we should shoot
  if level.time < self^.monsterinfo.attack_finished then
    Exit;

  reaction_time := (3 - skill^.value) * 1.0;
  if (level.time - self^.monsterinfo.trail_time) < reaction_time then
    Exit;

  self^.monsterinfo.attack_finished := level.time + reaction_time + 1.0;
  //FIXME how do we really want to pass this along?
  self^.target_ent^.spawnflags := self^.target_ent^.spawnflags or 65536;
end;

procedure turret_driver_link(self : edict_p);
var
  vec : vec3_t;
  ent : edict_p;
begin
  self^.think := turret_driver_think;
  self^.nextthink := level.time + FRAMETIME;

  self^.target_ent := G_PickTarget(self^.target);
  self^.target_ent^.owner := self;
  self^.target_ent^.teammaster^.owner := self;
  VectorCopy(self^.target_ent^.s.angles, self^.s.angles);

  vec[0] := self^.target_ent^.s.origin[0] - self^.s.origin[0];
  vec[1] := self^.target_ent^.s.origin[1] - self^.s.origin[1];
  vec[2] := 0;
  self^.move_origin[0] := VectorLength(vec);

  VectorSubtract(self^.s.origin, self^.target_ent^.s.origin, vec);
  vectoangles(vec, vec);
  AnglesNormalize(vec);
  self^.move_origin[1] := vec[1];

  self^.move_origin[2] := self^.s.origin[2] - self^.target_ent^.s.origin[2];

  // add the driver to the end of them team chain
  ent := self^.target_ent^.teammaster;
  while (ent^.teamchain <> nil) do
    ent := ent^.teamchain;

  ent^.teamchain := self;
  self^.teammaster := self^.target_ent^.teammaster;
  self^.flags := self^.flags or FL_TEAMSLAVE;
end;

procedure SP_turret_driver(self : edict_p);
begin
  if deathmatch^.value <> 0 then
  begin
    G_FreeEdict(self);
    Exit;
  end;

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

  self^.health := 100;
  self^.gib_health := 0;
  self^.mass := 200;
  self^.viewheight := 24;

  self^.die := turret_driver_die;
  self^.monsterinfo.stand := infantry_stand;

  self^.flags := self^.flags or FL_NO_KNOCKBACK;

  level.total_monsters := level.total_monsters + 1;

  self^.svflags := self^.svflags or SVF_MONSTER;
  self^.s.renderfx := self^.s.renderfx or RF_FRAMELERP;
  self^.takedamage := DAMAGE_AIM;
  self^.use := monster_use;
  self^.clipmask := MASK_MONSTERSOLID;
  VectorCopy(self^.s.origin, self^.s.old_origin);
  self^.monsterinfo.aiflags := self^.monsterinfo.aiflags or (AI_STAND_GROUND or AI_DUCKED);

  if st.item <> nil then
  begin
    self^.item := FindItemByClassname(st.item);
    if (self^.item = nil) then
      gi.dprintf('%s at %s has bad item: %s'#10, self^.classname, vtos(self^.s.origin), st.item);
  end;

  self^.think := turret_driver_link;
  self^.nextthink := level.time + FRAMETIME;

  gi.linkentity(self);
end;

end.