⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 m_infantry.pas

📁 delphi编的不错的贪吃蛇
💻 PAS
📖 第 1 页 / 共 3 页
字号:
{----------------------------------------------------------------------------}
{                                                                            }
{ File(s): m_infantry.h                                                      }
{                                                                            }
{ Initial conversion by : Ben Watt (ben@delphigamedev.com)                   }
{ Initial conversion on : 28-Jan-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 :                                                               }
{----------------------------------------------------------------------------}

unit m_infantry;

interface

uses
  g_local,
  q_shared;

const MODEL_SCALE     = 1.000000;

var
  sound_pain1,
  sound_pain2,
  sound_die1,
  sound_die2,

  sound_gunshot,
  sound_weapon_cock,
  sound_punch_swing,
  sound_punch_hit,
  sound_sight,
  sound_search,
  sound_idle          : Integer;

procedure infantry_stand(self : edict_p); cdecl;
procedure infantry_fidget(self : edict_p); cdecl;
procedure infantry_walk(self : edict_p); cdecl;
procedure infantry_run(self : edict_p); cdecl;
procedure infantry_pain(self, other : edict_p; kick : single; damage : Integer); cdecl;
procedure InfantryMachineGun(self : edict_p); cdecl;
procedure infantry_sight(self, other : edict_p); cdecl;
procedure infantry_dead(self : edict_p); cdecl;
procedure infantry_die(self, inflictor, attacker : edict_p; damage : Integer; const point: vec3_t); cdecl;
procedure infantry_duck_down(self : edict_p); cdecl;
procedure infantry_duck_hold(self : edict_p); cdecl;
procedure infantry_duck_up(self : edict_p); cdecl;
procedure infantry_dodge(self, attacker : edict_p; eta : single); cdecl;
procedure infantry_cock_gun(self : edict_p); cdecl;
procedure infantry_fire(self : edict_p); cdecl;
procedure infantry_swing(self : edict_p); cdecl;
procedure infantry_smack(self : edict_p); cdecl;
procedure infantry_attack(self : edict_p); cdecl;

procedure SP_monster_infantry(self : edict_p); cdecl;

implementation

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


// start of m_infantry.h

const
  FRAME_gun02           	= 0;
  FRAME_stand01         	= 1;
  FRAME_stand02         	= 2;
  FRAME_stand03         	= 3;
  FRAME_stand04         	= 4;
  FRAME_stand05         	= 5;
  FRAME_stand06         	= 6;
  FRAME_stand07         	= 7;
  FRAME_stand08         	= 8;
  FRAME_stand09         	= 9;
  FRAME_stand10         	= 10;
  FRAME_stand11         	= 11;
  FRAME_stand12         	= 12;
  FRAME_stand13         	= 13;
  FRAME_stand14         	= 14;
  FRAME_stand15         	= 15;
  FRAME_stand16         	= 16;
  FRAME_stand17         	= 17;
  FRAME_stand18         	= 18;
  FRAME_stand19         	= 19;
  FRAME_stand20         	= 20;
  FRAME_stand21         	= 21;
  FRAME_stand22         	= 22;
  FRAME_stand23         	= 23;
  FRAME_stand24         	= 24;
  FRAME_stand25         	= 25;
  FRAME_stand26         	= 26;
  FRAME_stand27         	= 27;
  FRAME_stand28         	= 28;
  FRAME_stand29         	= 29;
  FRAME_stand30         	= 30;
  FRAME_stand31         	= 31;
  FRAME_stand32         	= 32;
  FRAME_stand33         	= 33;
  FRAME_stand34         	= 34;
  FRAME_stand35         	= 35;
  FRAME_stand36         	= 36;
  FRAME_stand37         	= 37;
  FRAME_stand38         	= 38;
  FRAME_stand39         	= 39;
  FRAME_stand40         	= 40;
  FRAME_stand41         	= 41;
  FRAME_stand42         	= 42;
  FRAME_stand43         	= 43;
  FRAME_stand44         	= 44;
  FRAME_stand45         	= 45;
  FRAME_stand46         	= 46;
  FRAME_stand47         	= 47;
  FRAME_stand48         	= 48;
  FRAME_stand49         	= 49;
  FRAME_stand50         	= 50;
  FRAME_stand51         	= 51;
  FRAME_stand52         	= 52;
  FRAME_stand53         	= 53;
  FRAME_stand54         	= 54;
  FRAME_stand55         	= 55;
  FRAME_stand56         	= 56;
  FRAME_stand57         	= 57;
  FRAME_stand58         	= 58;
  FRAME_stand59         	= 59;
  FRAME_stand60         	= 60;
  FRAME_stand61         	= 61;
  FRAME_stand62         	= 62;
  FRAME_stand63         	= 63;
  FRAME_stand64         	= 64;
  FRAME_stand65         	= 65;
  FRAME_stand66         	= 66;
  FRAME_stand67         	= 67;
  FRAME_stand68         	= 68;
  FRAME_stand69         	= 69;
  FRAME_stand70         	= 70;
  FRAME_stand71         	= 71;
  FRAME_walk01          	= 72;
  FRAME_walk02          	= 73;
  FRAME_walk03          	= 74;
  FRAME_walk04          	= 75;
  FRAME_walk05          	= 76;
  FRAME_walk06          	= 77;
  FRAME_walk07          	= 78;
  FRAME_walk08          	= 79;
  FRAME_walk09          	= 80;
  FRAME_walk10          	= 81;
  FRAME_walk11          	= 82;
  FRAME_walk12          	= 83;
  FRAME_walk13          	= 84;
  FRAME_walk14          	= 85;
  FRAME_walk15          	= 86;
  FRAME_walk16          	= 87;
  FRAME_walk17          	= 88;
  FRAME_walk18          	= 89;
  FRAME_walk19          	= 90;
  FRAME_walk20          	= 91;
  FRAME_run01           	= 92;
  FRAME_run02           	= 93;
  FRAME_run03           	= 94;
  FRAME_run04           	= 95;
  FRAME_run05           	= 96;
  FRAME_run06           	= 97;
  FRAME_run07           	= 98;
  FRAME_run08           	= 99;
  FRAME_pain101         	= 100;
  FRAME_pain102         	= 101;
  FRAME_pain103         	= 102;
  FRAME_pain104         	= 103;
  FRAME_pain105         	= 104;
  FRAME_pain106         	= 105;
  FRAME_pain107         	= 106;
  FRAME_pain108         	= 107;
  FRAME_pain109         	= 108;
  FRAME_pain110         	= 109;
  FRAME_pain201         	= 110;
  FRAME_pain202         	= 111;
  FRAME_pain203         	= 112;
  FRAME_pain204         	= 113;
  FRAME_pain205         	= 114;
  FRAME_pain206         	= 115;
  FRAME_pain207         	= 116;
  FRAME_pain208         	= 117;
  FRAME_pain209         	= 118;
  FRAME_pain210         	= 119;
  FRAME_duck01          	= 120;
  FRAME_duck02          	= 121;
  FRAME_duck03          	= 122;
  FRAME_duck04          	= 123;
  FRAME_duck05          	= 124;
  FRAME_death101        	= 125;
  FRAME_death102        	= 126;
  FRAME_death103        	= 127;
  FRAME_death104        	= 128;
  FRAME_death105        	= 129;
  FRAME_death106        	= 130;
  FRAME_death107        	= 131;
  FRAME_death108        	= 132;
  FRAME_death109        	= 133;
  FRAME_death110        	= 134;
  FRAME_death111        	= 135;
  FRAME_death112        	= 136;
  FRAME_death113        	= 137;
  FRAME_death114        	= 138;
  FRAME_death115        	= 139;
  FRAME_death116        	= 140;
  FRAME_death117        	= 141;
  FRAME_death118        	= 142;
  FRAME_death119        	= 143;
  FRAME_death120        	= 144;
  FRAME_death201        	= 145;
  FRAME_death202        	= 146;
  FRAME_death203        	= 147;
  FRAME_death204        	= 148;
  FRAME_death205        	= 149;
  FRAME_death206        	= 150;
  FRAME_death207        	= 151;
  FRAME_death208        	= 152;
  FRAME_death209        	= 153;
  FRAME_death210        	= 154;
  FRAME_death211        	= 155;
  FRAME_death212        	= 156;
  FRAME_death213        	= 157;
  FRAME_death214        	= 158;
  FRAME_death215        	= 159;
  FRAME_death216        	= 160;
  FRAME_death217        	= 161;
  FRAME_death218        	= 162;
  FRAME_death219        	= 163;
  FRAME_death220        	= 164;
  FRAME_death221        	= 165;
  FRAME_death222        	= 166;
  FRAME_death223        	= 167;
  FRAME_death224        	= 168;
  FRAME_death225        	= 169;
  FRAME_death301        	= 170;
  FRAME_death302        	= 171;
  FRAME_death303        	= 172;
  FRAME_death304        	= 173;
  FRAME_death305        	= 174;
  FRAME_death306        	= 175;
  FRAME_death307        	= 176;
  FRAME_death308        	= 177;
  FRAME_death309        	= 178;
  FRAME_block01         	= 179;
  FRAME_block02         	= 180;
  FRAME_block03         	= 181;
  FRAME_block04         	= 182;
  FRAME_block05         	= 183;
  FRAME_attak101        	= 184;
  FRAME_attak102        	= 185;
  FRAME_attak103        	= 186;
  FRAME_attak104        	= 187;
  FRAME_attak105        	= 188;
  FRAME_attak106        	= 189;
  FRAME_attak107        	= 190;
  FRAME_attak108        	= 191;
  FRAME_attak109        	= 192;
  FRAME_attak110        	= 193;
  FRAME_attak111        	= 194;
  FRAME_attak112        	= 195;
  FRAME_attak113        	= 196;
  FRAME_attak114        	= 197;
  FRAME_attak115        	= 198;
  FRAME_attak201        	= 199;
  FRAME_attak202        	= 200;
  FRAME_attak203        	= 201;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -