index c55e143ed92fba001467dbe7a596109d97028ce9..c9b4ff7a3c9119d30a16411c8d7cfa9d3ad52144 100644 (file)
interface
+ procedure r_Monsters_Load;
+ procedure r_Monsters_Free;
procedure r_Monsters_Draw;
procedure r_Monsters_DrawHealth;
implementation
uses
- SysUtils, Classes, Math,
+ SysUtils, Classes, Math, e_log,
r_graphics, g_options, r_animations,
MAPDEF,
g_base, g_basic, g_game, g_phys,
g_monsters
;
+ type
+ TMonsterDirected = array [TDirection.D_LEFT..TDirection.D_RIGHT] of DWORD;
+ TMonsterAnims = array [ANIM_SLEEP..ANIM_PAIN] of TMonsterDirected;
+
+ var
+ VileFire: DWORD;
+ monFrames: array [MONSTER_DEMON..MONSTER_MAN] of TMonsterAnims;
+
+ procedure r_Monsters_Free;
+ begin
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARREL_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARREL_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARREL_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_MESS');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ZOMBY_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_MESS');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SERG_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MAN_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MAN_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MAN_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MAN_MESS');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MAN_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MAN_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_SLEEP_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_GO_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_MESS');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CGUN_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_IMP_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_IMP_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_IMP_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_IMP_MESS');
+ g_Frames_DeleteByName('FRAMES_MONSTER_IMP_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_IMP_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_DEMON_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_DEMON_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_DEMON_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_DEMON_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_DEMON_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SOUL_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SOUL_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SOUL_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SOUL_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SOUL_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_FISH_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_FISH_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_FISH_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_FISH_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_FISH_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SPIDER_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SPIDER_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SPIDER_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SPIDER_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SPIDER_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SPIDER_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BSP_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BSP_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BSP_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BSP_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BSP_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BSP_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CACO_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CACO_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CACO_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CACO_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CACO_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_PAIN_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_PAIN_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_PAIN_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_PAIN_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_PAIN_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_SLEEP_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_BARON_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_SLEEP_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_KNIGHT_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MANCUB_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MANCUB_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MANCUB_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MANCUB_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_MANCUB_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_SLEEP_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_ATTACK2');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_ATTACK2_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_SKEL_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_SLEEP_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_ATTACK2');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_ATTACK2_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_VILE_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ROBO_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ROBO_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ROBO_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ROBO_ATTACK2');
+ g_Frames_DeleteByName('FRAMES_MONSTER_ROBO_DIE');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_SLEEP');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_SLEEP_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_GO');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_GO_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_PAIN');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_PAIN_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_ATTACK');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_ATTACK_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_ATTACK2');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_ATTACK2_L');
+ g_Frames_DeleteByName('FRAMES_MONSTER_CYBER_DIE');
+ end;
+
+ procedure r_Monsters_Load;
+ var m, a: Integer; s, info: String; FramesID: DWORD;
+ begin
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARREL_SLEEP', GameWAD+':MTEXTURES\BARREL_SLEEP', 64, 64, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARREL_DIE', GameWAD+':MTEXTURES\BARREL_DIE', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARREL_PAIN', GameWAD+':MTEXTURES\BARREL_PAIN', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_SLEEP', GameWAD+':MTEXTURES\ZOMBY_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_GO', GameWAD+':MTEXTURES\ZOMBY_GO', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_DIE', GameWAD+':MTEXTURES\ZOMBY_DIE', 64, 64, 6);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_MESS', GameWAD+':MTEXTURES\ZOMBY_MESS', 64, 64, 9);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_ATTACK', GameWAD+':MTEXTURES\ZOMBY_ATTACK', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_ATTACK_L', GameWAD+':MTEXTURES\ZOMBY_ATTACK_L', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ZOMBY_PAIN', GameWAD+':MTEXTURES\ZOMBY_PAIN', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_SLEEP', GameWAD+':MTEXTURES\SERG_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_GO', GameWAD+':MTEXTURES\SERG_GO', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_DIE', GameWAD+':MTEXTURES\SERG_DIE', 64, 64, 5);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_MESS', GameWAD+':MTEXTURES\SERG_MESS', 64, 64, 9);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_ATTACK', GameWAD+':MTEXTURES\SERG_ATTACK', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_ATTACK_L', GameWAD+':MTEXTURES\SERG_ATTACK_L', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SERG_PAIN', GameWAD+':MTEXTURES\SERG_PAIN', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MAN_SLEEP', GameWAD+':MTEXTURES\MAN_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MAN_GO', GameWAD+':MTEXTURES\MAN_GO', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MAN_DIE', GameWAD+':MTEXTURES\MAN_DIE', 64, 64, 7);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MAN_MESS', GameWAD+':MTEXTURES\MAN_MESS', 64, 64, 9);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MAN_ATTACK', GameWAD+':MTEXTURES\MAN_ATTACK', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MAN_PAIN', GameWAD+':MTEXTURES\MAN_PAIN', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_SLEEP', GameWAD+':MTEXTURES\CGUN_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_SLEEP_L', GameWAD+':MTEXTURES\CGUN_SLEEP_L', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_GO', GameWAD+':MTEXTURES\CGUN_GO', 64, 64, 4);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_GO_L', GameWAD+':MTEXTURES\CGUN_GO_L', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_DIE', GameWAD+':MTEXTURES\CGUN_DIE', 64, 64, 7);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_MESS', GameWAD+':MTEXTURES\CGUN_MESS', 64, 64, 6);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_ATTACK', GameWAD+':MTEXTURES\CGUN_ATTACK', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_ATTACK_L', GameWAD+':MTEXTURES\CGUN_ATTACK_L', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_PAIN', GameWAD+':MTEXTURES\CGUN_PAIN', 64, 64, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CGUN_PAIN_L', GameWAD+':MTEXTURES\CGUN_PAIN_L', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_IMP_SLEEP', GameWAD+':MTEXTURES\IMP_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_IMP_GO', GameWAD+':MTEXTURES\IMP_GO', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_IMP_DIE', GameWAD+':MTEXTURES\IMP_DIE', 64, 64, 5);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_IMP_MESS', GameWAD+':MTEXTURES\IMP_MESS', 64, 64, 8);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_IMP_ATTACK', GameWAD+':MTEXTURES\IMP_ATTACK', 64, 64, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_IMP_PAIN', GameWAD+':MTEXTURES\IMP_PAIN', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_DEMON_SLEEP', GameWAD+':MTEXTURES\DEMON_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_DEMON_GO', GameWAD+':MTEXTURES\DEMON_GO', 64, 64, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_DEMON_DIE', GameWAD+':MTEXTURES\DEMON_DIE', 64, 64, 6);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_DEMON_ATTACK', GameWAD+':MTEXTURES\DEMON_ATTACK', 64, 64, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_DEMON_PAIN', GameWAD+':MTEXTURES\DEMON_PAIN', 64, 64, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SOUL_SLEEP', GameWAD+':MTEXTURES\SOUL_SLEEP', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SOUL_GO', GameWAD+':MTEXTURES\SOUL_GO', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SOUL_PAIN', GameWAD+':MTEXTURES\SOUL_PAIN', 64, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SOUL_ATTACK', GameWAD+':MTEXTURES\SOUL_ATTACK', 64, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SOUL_DIE', GameWAD+':MTEXTURES\SOUL_DIE', 128, 128, 7);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_FISH_SLEEP', GameWAD+':MTEXTURES\FISH_SLEEP', 32, 32, 2);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_FISH_GO', GameWAD+':MTEXTURES\FISH_GO', 32, 32, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_FISH_PAIN', GameWAD+':MTEXTURES\FISH_PAIN', 32, 32, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_FISH_ATTACK', GameWAD+':MTEXTURES\FISH_ATTACK', 32, 32, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_FISH_DIE', GameWAD+':MTEXTURES\FISH_DIE', 32, 32, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SPIDER_SLEEP', GameWAD+':MTEXTURES\SPIDER_SLEEP', 256, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SPIDER_GO', GameWAD+':MTEXTURES\SPIDER_GO', 256, 128, 6);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SPIDER_PAIN', GameWAD+':MTEXTURES\SPIDER_PAIN', 256, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SPIDER_PAIN_L', GameWAD+':MTEXTURES\SPIDER_PAIN_L', 256, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SPIDER_ATTACK', GameWAD+':MTEXTURES\SPIDER_ATTACK', 256, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SPIDER_DIE', GameWAD+':MTEXTURES\SPIDER_DIE', 256, 128, 10);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BSP_SLEEP', GameWAD+':MTEXTURES\BSP_SLEEP', 128, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BSP_GO', GameWAD+':MTEXTURES\BSP_GO', 128, 64, 6);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BSP_PAIN', GameWAD+':MTEXTURES\BSP_PAIN', 128, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BSP_PAIN_L', GameWAD+':MTEXTURES\BSP_PAIN_L', 128, 64, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BSP_ATTACK', GameWAD+':MTEXTURES\BSP_ATTACK', 128, 64, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BSP_DIE', GameWAD+':MTEXTURES\BSP_DIE', 128, 64, 7);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CACO_SLEEP', GameWAD+':MTEXTURES\CACO_SLEEP', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CACO_GO', GameWAD+':MTEXTURES\CACO_GO', 128, 128, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CACO_PAIN', GameWAD+':MTEXTURES\CACO_PAIN', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CACO_ATTACK', GameWAD+':MTEXTURES\CACO_ATTACK', 128, 128, 6);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CACO_DIE', GameWAD+':MTEXTURES\CACO_DIE', 128, 128, 7);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_PAIN_SLEEP', GameWAD+':MTEXTURES\PAIN_SLEEP', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_PAIN_GO', GameWAD+':MTEXTURES\PAIN_GO', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_PAIN_PAIN', GameWAD+':MTEXTURES\PAIN_PAIN', 128, 128, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_PAIN_ATTACK', GameWAD+':MTEXTURES\PAIN_ATTACK', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_PAIN_DIE', GameWAD+':MTEXTURES\PAIN_DIE', 128, 128, 7);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_SLEEP', GameWAD+':MTEXTURES\BARON_SLEEP', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_SLEEP_L', GameWAD+':MTEXTURES\BARON_SLEEP_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_GO', GameWAD+':MTEXTURES\BARON_GO', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_PAIN', GameWAD+':MTEXTURES\BARON_PAIN', 128, 128, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_PAIN_L', GameWAD+':MTEXTURES\BARON_PAIN_L', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_ATTACK', GameWAD+':MTEXTURES\BARON_ATTACK', 128, 128, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_ATTACK_L', GameWAD+':MTEXTURES\BARON_ATTACK_L', 128, 128, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_BARON_DIE', GameWAD+':MTEXTURES\BARON_DIE', 128, 128, 7);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_SLEEP', GameWAD+':MTEXTURES\KNIGHT_SLEEP', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_SLEEP_L', GameWAD+':MTEXTURES\KNIGHT_SLEEP_L', 128, 128, 2);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_GO', GameWAD+':MTEXTURES\KNIGHT_GO', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_PAIN', GameWAD+':MTEXTURES\KNIGHT_PAIN', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_PAIN_L', GameWAD+':MTEXTURES\KNIGHT_PAIN_L', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_ATTACK', GameWAD+':MTEXTURES\KNIGHT_ATTACK', 128, 128, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_ATTACK_L', GameWAD+':MTEXTURES\KNIGHT_ATTACK_L', 128, 128, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_KNIGHT_DIE', GameWAD+':MTEXTURES\KNIGHT_DIE', 128, 128, 7);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MANCUB_SLEEP', GameWAD+':MTEXTURES\MANCUB_SLEEP', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MANCUB_GO', GameWAD+':MTEXTURES\MANCUB_GO', 128, 128, 6);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MANCUB_PAIN', GameWAD+':MTEXTURES\MANCUB_PAIN', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MANCUB_ATTACK', GameWAD+':MTEXTURES\MANCUB_ATTACK', 128, 128, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_MANCUB_DIE', GameWAD+':MTEXTURES\MANCUB_DIE', 128, 128, 10);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_SLEEP', GameWAD+':MTEXTURES\SKEL_SLEEP', 128, 128, 2);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_SLEEP_L', GameWAD+':MTEXTURES\SKEL_SLEEP_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_GO', GameWAD+':MTEXTURES\SKEL_GO', 128, 128, 6);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_PAIN', GameWAD+':MTEXTURES\SKEL_PAIN', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_PAIN_L', GameWAD+':MTEXTURES\SKEL_PAIN_L', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_ATTACK', GameWAD+':MTEXTURES\SKEL_ATTACK', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_ATTACK_L', GameWAD+':MTEXTURES\SKEL_ATTACK_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_ATTACK2', GameWAD+':MTEXTURES\SKEL_ATTACK2', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_ATTACK2_L', GameWAD+':MTEXTURES\SKEL_ATTACK2_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_SKEL_DIE', GameWAD+':MTEXTURES\SKEL_DIE', 128, 128, 5);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_SLEEP', GameWAD+':MTEXTURES\VILE_SLEEP', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_SLEEP_L', GameWAD+':MTEXTURES\VILE_SLEEP_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_GO', GameWAD+':MTEXTURES\VILE_GO', 128, 128, 6);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_PAIN', GameWAD+':MTEXTURES\VILE_PAIN', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_PAIN_L', GameWAD+':MTEXTURES\VILE_PAIN_L', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_ATTACK', GameWAD+':MTEXTURES\VILE_ATTACK', 128, 128, 10);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_ATTACK_L', GameWAD+':MTEXTURES\VILE_ATTACK_L', 128, 128, 10);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_ATTACK2', GameWAD+':MTEXTURES\VILE_ATTACK2', 128, 128, 3);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_ATTACK2_L', GameWAD+':MTEXTURES\VILE_ATTACK2_L', 128, 128, 3);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_VILE_DIE', GameWAD+':MTEXTURES\VILE_DIE', 128, 128, 9);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ROBO_SLEEP', GameWAD+':MTEXTURES\ROBO_SLEEP', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ROBO_GO', GameWAD+':MTEXTURES\ROBO_GO', 128, 128, 12);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ROBO_ATTACK', GameWAD+':MTEXTURES\ROBO_ATTACK', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ROBO_ATTACK2', GameWAD+':MTEXTURES\ROBO_ATTACK2', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_ROBO_DIE', GameWAD+':MTEXTURES\ROBO_DIE', 128, 128, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_SLEEP', GameWAD+':MTEXTURES\CYBER_SLEEP', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_SLEEP_L', GameWAD+':MTEXTURES\CYBER_SLEEP_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_GO', GameWAD+':MTEXTURES\CYBER_GO', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_GO_L', GameWAD+':MTEXTURES\CYBER_GO_L', 128, 128, 4);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_PAIN', GameWAD+':MTEXTURES\CYBER_PAIN', 128, 128, 1);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_PAIN_L', GameWAD+':MTEXTURES\CYBER_PAIN_L', 128, 128, 1);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_ATTACK', GameWAD+':MTEXTURES\CYBER_ATTACK', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_ATTACK_L', GameWAD+':MTEXTURES\CYBER_ATTACK_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_ATTACK2', GameWAD+':MTEXTURES\CYBER_ATTACK2', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_ATTACK2_L', GameWAD+':MTEXTURES\CYBER_ATTACK2_L', 128, 128, 2);
+ g_Frames_CreateWAD(nil, 'FRAMES_MONSTER_CYBER_DIE', GameWAD+':MTEXTURES\CYBER_DIE', 128, 128, 9);
+
+ g_Frames_CreateWAD(nil, 'FRAMES_FIRE', GameWAD+':TEXTURES\FIRE', 64, 128, 8);
+
+ g_Frames_Get(vilefire, 'FRAMES_FIRE');
+ for m := MONSTER_DEMON to MONSTER_MAN do
+ begin
+ for a := ANIM_SLEEP to ANIM_PAIN do
+ begin
+ monFrames[m, a, TDirection.D_LEFT] := DWORD(-1);
+ monFrames[m, a, TDirection.D_RIGHT] := DWORD(-1);
+ if (ANIMTABLE[a].name <> '') and (MONSTER_ANIMTABLE[m].AnimSpeed[a] <> 0) then
+ begin
+ s := 'FRAMES_MONSTER_' + MONSTERTABLE[m].Name + '_' + ANIMTABLE[a].name;
+ if not (g_Frames_Exists(s) and g_Frames_Get(FramesID, s)) then
+ begin
+ // Заменяем только ANIM_MESS на ANIM_DIE:
+ if a <> ANIM_MESS then
+ Continue;
+ if g_Frames_Get(FramesID, 'FRAMES_MONSTER_' + MONSTERTABLE[m].Name + '_' + ANIMTABLE[ANIM_DIE].name) then
+ begin
+ monFrames[m, a, TDirection.D_RIGHT] := FramesID;
+ monFrames[m, a, TDirection.D_LEFT] := FramesID;
+ Continue;
+ end;
+ end;
+ monFrames[m, a, TDirection.D_RIGHT] := FramesID;
+ // Если есть отдельная левая анимация - загружаем:
+ if MONSTER_ANIMTABLE[m].LeftAnim then
+ begin
+ s := 'FRAMES_MONSTER_' + MONSTERTABLE[m].Name + '_' + ANIMTABLE[a].name + '_L';
+ if g_Frames_Exists(s) then
+ g_Frames_Get(FramesID, s);
+ end;
+ monFrames[m, a, TDirection.D_LEFT] := FramesID;
+ end
+ end
+ end
+ end;
+
procedure r_Monsters_Draw (constref monster: TMonster);
var m: TMirrorType; dx, dy, c, fX, fY: Integer; o: TObj;
begin
if MonsterType = MONSTER_VILE then
if MonsterState = MONSTATE_SHOOT then
if GetPos(MonsterTargetUID, @o) then
- r_Animation_Draw(VileFireAnim, o.X + o.Rect.X + (o.Rect.Width div 2) - 32, o.Y + o.Rect.Y + o.Rect.Height - 128, TMirrorType.None);
+ r_AnimationState_Draw(VileFire, VileFireAnim, o.X + o.Rect.X + (o.Rect.Width div 2) - 32, o.Y + o.Rect.Y + o.Rect.Height - 128, TMirrorType.None);
// Не в области рисования не ресуем:
//FIXME!
end;
// Есть что рисовать при текущем поведении:
- if DirAnim[MonsterAnim, GameDirection] <> nil then
+ if monFrames[MonsterType, MonsterAnim, GameDirection] <> DWORD(-1) then
begin
// Если нет левой анимации или она совпадает с правой => отражаем правую:
- if (GameDirection = TDirection.D_LEFT) and ((not MONSTER_ANIMTABLE[MonsterType].LeftAnim) or (DirAnim[MonsterAnim, TDirection.D_LEFT].FramesID = DirAnim[MonsterAnim, TDirection.D_RIGHT].FramesID)) and (MonsterType <> MONSTER_BARREL) then
+ if (GameDirection = TDirection.D_LEFT) and ((not MONSTER_ANIMTABLE[MonsterType].LeftAnim) or (monFrames[MonsterType, MonsterAnim, TDirection.D_LEFT] = monFrames[MonsterType, MonsterAnim, TDirection.D_RIGHT])) and (MonsterType <> MONSTER_BARREL) then
m := TMirrorType.Horizontal
else
m := TMirrorType.None;
// Расстояние от края текстуры до края визуального положения объекта на текстуре:
c := (MONSTERTABLE[MonsterType].Rect.X - dx) + MONSTERTABLE[MonsterType].Rect.Width;
// Расстояние от края хит бокса до края визуального положения объекта на текстуре:
- dx := DirAnim[MonsterAnim, GameDirection].Width - c - MONSTERTABLE[MonsterType].Rect.X;
+ //dx := DirAnim[MonsterAnim, GameDirection].Width - c - MONSTERTABLE[MonsterType].Rect.X;
+ dx := 64 - c - MONSTERTABLE[MonsterType].Rect.X; // !!! ^^^
// Т.к. двигать текстуру нужно будет в противоположном направлении:
dx := -dx;
// Это значит: dX := -frameWidth - animDeltaX + hitX + hitWidth + hitX
dy := MONSTER_ANIMTABLE[MonsterType].AnimDeltaRight[MonsterAnim].Y;
end;
- r_Animation_Draw(DirAnim[MonsterAnim, GameDirection], fX + dx, fY + dy, m);
+ r_AnimationState_Draw(monFrames[MonsterType, MonsterAnim, GameDirection], DirAnim[MonsterAnim, GameDirection], fX + dx, fY + dy, m);
end;
if g_debug_Frames then