DEADSOFTWARE

GIT / REPO / FRED-BOY
Projects / d2df-sdl.git / blob


c5361819ea9ef8d81e414330cd72fff31fe1a0b5
[d2df-sdl.git] / src / game / g_items.pas
1 unit g_items;
2
3 interface
4
5 uses
6 g_textures, g_phys, g_saveload, BinEditor;
7
8 Type
9 TItem = record
10 ItemType: Byte;
11 Respawnable: Boolean;
12 InitX, InitY: Integer;
13 RespawnTime: Word;
14 Live: Boolean;
15 Fall: Boolean;
16 QuietRespawn: Boolean;
17 SpawnTrigger: Integer;
18 Obj: TObj;
19 Animation: TAnimation;
20 end;
21
22 procedure g_Items_LoadData();
23 procedure g_Items_FreeData();
24 procedure g_Items_Init();
25 procedure g_Items_Free();
26 function g_Items_Create(X, Y: Integer; ItemType: Byte;
27 Fall, Respawnable: Boolean; AdjCoord: Boolean = False; ForcedID: Integer = -1): DWORD;
28 procedure g_Items_Update();
29 procedure g_Items_Draw();
30 procedure g_Items_Pick(ID: DWORD);
31 procedure g_Items_Remove(ID: DWORD);
32 procedure g_Items_SaveState(var Mem: TBinMemoryWriter);
33 procedure g_Items_LoadState(var Mem: TBinMemoryReader);
34
35 var
36 gItems: Array of TItem = nil;
37 gItemsTexturesID: Array [1..35] of DWORD;
38 gMaxDist: Integer = 1;
39 ITEM_RESPAWNTIME: Integer = 60 * 36;
40
41 implementation
42
43 uses
44 g_basic, e_graphics, g_sound, g_main, g_gfx, g_map,
45 Math, g_game, g_triggers, g_console, SysUtils, g_player, g_net, g_netmsg,
46 MAPDEF, e_log;
47
48 const
49 ITEM_SIGNATURE = $4D455449; // 'ITEM'
50
51 ITEMSIZE: Array [ITEM_MEDKIT_SMALL..ITEM_MAX] of Array [0..1] of Byte =
52 (((14), (15)), // MEDKIT_SMALL
53 ((28), (19)), // MEDKIT_LARGE
54 ((28), (19)), // MEDKIT_BLACK
55 ((31), (16)), // ARMOR_GREEN
56 ((31), (16)), // ARMOR_BLUE
57 ((25), (25)), // SPHERE_BLUE
58 ((25), (25)), // SPHERE_WHITE
59 ((24), (47)), // SUIT
60 ((14), (27)), // OXYGEN
61 ((25), (25)), // INVUL
62 ((62), (24)), // WEAPON_SAW
63 ((63), (12)), // WEAPON_SHOTGUN1
64 ((54), (13)), // WEAPON_SHOTGUN2
65 ((54), (16)), // WEAPON_CHAINGUN
66 ((62), (16)), // WEAPON_ROCKETLAUNCHER
67 ((54), (16)), // WEAPON_PLASMA
68 ((61), (36)), // WEAPON_BFG
69 ((54), (16)), // WEAPON_SUPERPULEMET
70 (( 9), (11)), // AMMO_BULLETS
71 ((28), (16)), // AMMO_BULLETS_BOX
72 ((15), ( 7)), // AMMO_SHELLS
73 ((32), (12)), // AMMO_SHELLS_BOX
74 ((12), (27)), // AMMO_ROCKET
75 ((54), (21)), // AMMO_ROCKET_BOX
76 ((15), (12)), // AMMO_CELL
77 ((32), (21)), // AMMO_CELL_BIG
78 ((22), (29)), // AMMO_BACKPACK
79 ((16), (16)), // KEY_RED
80 ((16), (16)), // KEY_GREEN
81 ((16), (16)), // KEY_BLUE
82 (( 1), ( 1)), // WEAPON_KASTET
83 ((43), (16)), // WEAPON_PISTOL
84 ((14), (18)), // BOTTLE
85 ((16), (15)), // HELMET
86 ((32), (24)), // JETPACK
87 ((25), (25))); // INVIS
88
89 procedure InitTextures();
90 begin
91 g_Texture_Get('ITEM_MEDKIT_SMALL', gItemsTexturesID[ITEM_MEDKIT_SMALL]);
92 g_Texture_Get('ITEM_MEDKIT_LARGE', gItemsTexturesID[ITEM_MEDKIT_LARGE]);
93 g_Texture_Get('ITEM_MEDKIT_BLACK', gItemsTexturesID[ITEM_MEDKIT_BLACK]);
94 g_Texture_Get('ITEM_SUIT', gItemsTexturesID[ITEM_SUIT]);
95 g_Texture_Get('ITEM_OXYGEN', gItemsTexturesID[ITEM_OXYGEN]);
96 g_Texture_Get('ITEM_WEAPON_SAW', gItemsTexturesID[ITEM_WEAPON_SAW]);
97 g_Texture_Get('ITEM_WEAPON_SHOTGUN1', gItemsTexturesID[ITEM_WEAPON_SHOTGUN1]);
98 g_Texture_Get('ITEM_WEAPON_SHOTGUN2', gItemsTexturesID[ITEM_WEAPON_SHOTGUN2]);
99 g_Texture_Get('ITEM_WEAPON_CHAINGUN', gItemsTexturesID[ITEM_WEAPON_CHAINGUN]);
100 g_Texture_Get('ITEM_WEAPON_ROCKETLAUNCHER', gItemsTexturesID[ITEM_WEAPON_ROCKETLAUNCHER]);
101 g_Texture_Get('ITEM_WEAPON_PLASMA', gItemsTexturesID[ITEM_WEAPON_PLASMA]);
102 g_Texture_Get('ITEM_WEAPON_BFG', gItemsTexturesID[ITEM_WEAPON_BFG]);
103 g_Texture_Get('ITEM_WEAPON_SUPERPULEMET', gItemsTexturesID[ITEM_WEAPON_SUPERPULEMET]);
104 g_Texture_Get('ITEM_AMMO_BULLETS', gItemsTexturesID[ITEM_AMMO_BULLETS]);
105 g_Texture_Get('ITEM_AMMO_BULLETS_BOX', gItemsTexturesID[ITEM_AMMO_BULLETS_BOX]);
106 g_Texture_Get('ITEM_AMMO_SHELLS', gItemsTexturesID[ITEM_AMMO_SHELLS]);
107 g_Texture_Get('ITEM_AMMO_SHELLS_BOX', gItemsTexturesID[ITEM_AMMO_SHELLS_BOX]);
108 g_Texture_Get('ITEM_AMMO_ROCKET', gItemsTexturesID[ITEM_AMMO_ROCKET]);
109 g_Texture_Get('ITEM_AMMO_ROCKET_BOX', gItemsTexturesID[ITEM_AMMO_ROCKET_BOX]);
110 g_Texture_Get('ITEM_AMMO_CELL', gItemsTexturesID[ITEM_AMMO_CELL]);
111 g_Texture_Get('ITEM_AMMO_CELL_BIG', gItemsTexturesID[ITEM_AMMO_CELL_BIG]);
112 g_Texture_Get('ITEM_AMMO_BACKPACK', gItemsTexturesID[ITEM_AMMO_BACKPACK]);
113 g_Texture_Get('ITEM_KEY_RED', gItemsTexturesID[ITEM_KEY_RED]);
114 g_Texture_Get('ITEM_KEY_GREEN', gItemsTexturesID[ITEM_KEY_GREEN]);
115 g_Texture_Get('ITEM_KEY_BLUE', gItemsTexturesID[ITEM_KEY_BLUE]);
116 g_Texture_Get('ITEM_WEAPON_KASTET', gItemsTexturesID[ITEM_WEAPON_KASTET]);
117 g_Texture_Get('ITEM_WEAPON_PISTOL', gItemsTexturesID[ITEM_WEAPON_PISTOL]);
118 g_Texture_Get('ITEM_JETPACK', gItemsTexturesID[ITEM_JETPACK]);
119 end;
120
121 procedure g_Items_LoadData();
122 begin
123 e_WriteLog('Loading items data...', MSG_NOTIFY);
124
125 g_Sound_CreateWADEx('SOUND_ITEM_RESPAWNITEM', GameWAD+':SOUNDS\RESPAWNITEM');
126 g_Sound_CreateWADEx('SOUND_ITEM_GETRULEZ', GameWAD+':SOUNDS\GETRULEZ');
127 g_Sound_CreateWADEx('SOUND_ITEM_GETWEAPON', GameWAD+':SOUNDS\GETWEAPON');
128 g_Sound_CreateWADEx('SOUND_ITEM_GETITEM', GameWAD+':SOUNDS\GETITEM');
129
130 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_BLUESPHERE', GameWAD+':TEXTURES\SBLUE', 32, 32, 4, True);
131 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_WHITESPHERE', GameWAD+':TEXTURES\SWHITE', 32, 32, 4, True);
132 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_ARMORGREEN', GameWAD+':TEXTURES\ARMORGREEN', 32, 16, 3, True);
133 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_ARMORBLUE', GameWAD+':TEXTURES\ARMORBLUE', 32, 16, 3, True);
134 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_INVUL', GameWAD+':TEXTURES\INVUL', 32, 32, 4, True);
135 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_INVIS', GameWAD+':TEXTURES\INVIS', 32, 32, 4, True);
136 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_RESPAWN', GameWAD+':TEXTURES\ITEMRESPAWN', 32, 32, 5, True);
137 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_BOTTLE', GameWAD+':TEXTURES\BOTTLE', 16, 32, 4, True);
138 g_Frames_CreateWAD(nil, 'FRAMES_ITEM_HELMET', GameWAD+':TEXTURES\HELMET', 16, 16, 4, True);
139 g_Frames_CreateWAD(nil, 'FRAMES_FLAG_RED', GameWAD+':TEXTURES\FLAGRED', 64, 64, 5, False);
140 g_Frames_CreateWAD(nil, 'FRAMES_FLAG_BLUE', GameWAD+':TEXTURES\FLAGBLUE', 64, 64, 5, False);
141 g_Frames_CreateWAD(nil, 'FRAMES_FLAG_DOM', GameWAD+':TEXTURES\FLAGDOM', 64, 64, 5, False);
142 g_Texture_CreateWADEx('ITEM_MEDKIT_SMALL', GameWAD+':TEXTURES\MED1');
143 g_Texture_CreateWADEx('ITEM_MEDKIT_LARGE', GameWAD+':TEXTURES\MED2');
144 g_Texture_CreateWADEx('ITEM_WEAPON_SAW', GameWAD+':TEXTURES\SAW');
145 g_Texture_CreateWADEx('ITEM_WEAPON_PISTOL', GameWAD+':TEXTURES\PISTOL');
146 g_Texture_CreateWADEx('ITEM_WEAPON_KASTET', GameWAD+':TEXTURES\KASTET');
147 g_Texture_CreateWADEx('ITEM_WEAPON_SHOTGUN1', GameWAD+':TEXTURES\SHOTGUN1');
148 g_Texture_CreateWADEx('ITEM_WEAPON_SHOTGUN2', GameWAD+':TEXTURES\SHOTGUN2');
149 g_Texture_CreateWADEx('ITEM_WEAPON_CHAINGUN', GameWAD+':TEXTURES\MGUN');
150 g_Texture_CreateWADEx('ITEM_WEAPON_ROCKETLAUNCHER', GameWAD+':TEXTURES\RLAUNCHER');
151 g_Texture_CreateWADEx('ITEM_WEAPON_PLASMA', GameWAD+':TEXTURES\PGUN');
152 g_Texture_CreateWADEx('ITEM_WEAPON_BFG', GameWAD+':TEXTURES\BFG');
153 g_Texture_CreateWADEx('ITEM_WEAPON_SUPERPULEMET', GameWAD+':TEXTURES\SPULEMET');
154 g_Texture_CreateWADEx('ITEM_AMMO_BULLETS', GameWAD+':TEXTURES\CLIP');
155 g_Texture_CreateWADEx('ITEM_AMMO_BULLETS_BOX', GameWAD+':TEXTURES\AMMO');
156 g_Texture_CreateWADEx('ITEM_AMMO_SHELLS', GameWAD+':TEXTURES\SHELL1');
157 g_Texture_CreateWADEx('ITEM_AMMO_SHELLS_BOX', GameWAD+':TEXTURES\SHELL2');
158 g_Texture_CreateWADEx('ITEM_AMMO_ROCKET', GameWAD+':TEXTURES\ROCKET');
159 g_Texture_CreateWADEx('ITEM_AMMO_ROCKET_BOX', GameWAD+':TEXTURES\ROCKETS');
160 g_Texture_CreateWADEx('ITEM_AMMO_CELL', GameWAD+':TEXTURES\CELL');
161 g_Texture_CreateWADEx('ITEM_AMMO_CELL_BIG', GameWAD+':TEXTURES\CELL2');
162 g_Texture_CreateWADEx('ITEM_AMMO_BACKPACK', GameWAD+':TEXTURES\BPACK');
163 g_Texture_CreateWADEx('ITEM_KEY_RED', GameWAD+':TEXTURES\KEYR');
164 g_Texture_CreateWADEx('ITEM_KEY_GREEN', GameWAD+':TEXTURES\KEYG');
165 g_Texture_CreateWADEx('ITEM_KEY_BLUE', GameWAD+':TEXTURES\KEYB');
166 g_Texture_CreateWADEx('ITEM_OXYGEN', GameWAD+':TEXTURES\OXYGEN');
167 g_Texture_CreateWADEx('ITEM_SUIT', GameWAD+':TEXTURES\SUIT');
168 g_Texture_CreateWADEx('ITEM_WEAPON_KASTET', GameWAD+':TEXTURES\KASTET');
169 g_Texture_CreateWADEx('ITEM_MEDKIT_BLACK', GameWAD+':TEXTURES\BMED');
170 g_Texture_CreateWADEx('ITEM_JETPACK', GameWAD+':TEXTURES\JETPACK');
171
172 InitTextures();
173 end;
174
175 procedure g_Items_FreeData();
176 begin
177 e_WriteLog('Releasing items data...', MSG_NOTIFY);
178
179 g_Sound_Delete('SOUND_ITEM_RESPAWNITEM');
180 g_Sound_Delete('SOUND_ITEM_GETRULEZ');
181 g_Sound_Delete('SOUND_ITEM_GETWEAPON');
182 g_Sound_Delete('SOUND_ITEM_GETITEM');
183
184 g_Frames_DeleteByName('FRAMES_ITEM_BLUESPHERE');
185 g_Frames_DeleteByName('FRAMES_ITEM_WHITESPHERE');
186 g_Frames_DeleteByName('FRAMES_ITEM_ARMORGREEN');
187 g_Frames_DeleteByName('FRAMES_ITEM_ARMORBLUE');
188 g_Frames_DeleteByName('FRAMES_ITEM_INVUL');
189 g_Frames_DeleteByName('FRAMES_ITEM_INVIS');
190 g_Frames_DeleteByName('FRAMES_ITEM_RESPAWN');
191 g_Frames_DeleteByName('FRAMES_ITEM_BOTTLE');
192 g_Frames_DeleteByName('FRAMES_ITEM_HELMET');
193 g_Frames_DeleteByName('FRAMES_FLAG_RED');
194 g_Frames_DeleteByName('FRAMES_FLAG_BLUE');
195 g_Frames_DeleteByName('FRAMES_FLAG_DOM');
196 g_Texture_Delete('ITEM_MEDKIT_SMALL');
197 g_Texture_Delete('ITEM_MEDKIT_LARGE');
198 g_Texture_Delete('ITEM_WEAPON_SAW');
199 g_Texture_Delete('ITEM_WEAPON_PISTOL');
200 g_Texture_Delete('ITEM_WEAPON_KASTET');
201 g_Texture_Delete('ITEM_WEAPON_SHOTGUN1');
202 g_Texture_Delete('ITEM_WEAPON_SHOTGUN2');
203 g_Texture_Delete('ITEM_WEAPON_CHAINGUN');
204 g_Texture_Delete('ITEM_WEAPON_ROCKETLAUNCHER');
205 g_Texture_Delete('ITEM_WEAPON_PLASMA');
206 g_Texture_Delete('ITEM_WEAPON_BFG');
207 g_Texture_Delete('ITEM_WEAPON_SUPERPULEMET');
208 g_Texture_Delete('ITEM_AMMO_BULLETS');
209 g_Texture_Delete('ITEM_AMMO_BULLETS_BOX');
210 g_Texture_Delete('ITEM_AMMO_SHELLS');
211 g_Texture_Delete('ITEM_AMMO_SHELLS_BOX');
212 g_Texture_Delete('ITEM_AMMO_ROCKET');
213 g_Texture_Delete('ITEM_AMMO_ROCKET_BOX');
214 g_Texture_Delete('ITEM_AMMO_CELL');
215 g_Texture_Delete('ITEM_AMMO_CELL_BIG');
216 g_Texture_Delete('ITEM_AMMO_BACKPACK');
217 g_Texture_Delete('ITEM_KEY_RED');
218 g_Texture_Delete('ITEM_KEY_GREEN');
219 g_Texture_Delete('ITEM_KEY_BLUE');
220 g_Texture_Delete('ITEM_OXYGEN');
221 g_Texture_Delete('ITEM_SUIT');
222 g_Texture_Delete('ITEM_WEAPON_KASTET');
223 g_Texture_Delete('ITEM_MEDKIT_BLACK');
224 g_Texture_Delete('ITEM_JETPACK');
225 end;
226
227 function FindItem(): DWORD;
228 var
229 i: Integer;
230 begin
231 if gItems <> nil then
232 for i := 0 to High(gItems) do
233 if gItems[i].ItemType = ITEM_NONE then
234 begin
235 Result := i;
236 Exit;
237 end;
238
239 if gItems = nil then
240 begin
241 SetLength(gItems, 32);
242 Result := 0;
243 end
244 else
245 begin
246 Result := High(gItems) + 1;
247 SetLength(gItems, Length(gItems) + 32);
248 end;
249 end;
250
251 procedure g_Items_Init();
252 var
253 a, b: Integer;
254 begin
255 if gMapInfo.Height > gPlayerScreenSize.Y then
256 a := gMapInfo.Height - gPlayerScreenSize.Y
257 else
258 a := gMapInfo.Height;
259
260 if gMapInfo.Width > gPlayerScreenSize.X then
261 b := gMapInfo.Width - gPlayerScreenSize.X
262 else
263 b := gMapInfo.Width;
264
265 gMaxDist := Trunc(Hypot(a, b));
266 end;
267
268 procedure g_Items_Free();
269 var
270 i: Integer;
271 begin
272 if gItems <> nil then
273 begin
274 for i := 0 to High(gItems) do
275 gItems[i].Animation.Free();
276 gItems := nil;
277 end;
278 end;
279
280 function g_Items_Create(X, Y: Integer; ItemType: Byte;
281 Fall, Respawnable: Boolean; AdjCoord: Boolean = False; ForcedID: Integer = -1): DWORD;
282 var
283 find_id: DWORD;
284 ID: DWORD;
285 begin
286 if ForcedID < 0 then
287 find_id := FindItem()
288 else
289 begin
290 find_id := ForcedID;
291 if Integer(find_id) > High(gItems) then
292 SetLength(gItems, find_id + 32);
293 end;
294
295 gItems[find_id].ItemType := ItemType;
296 gItems[find_id].Respawnable := Respawnable;
297 if g_Game_IsServer and (ITEM_RESPAWNTIME = 0) then
298 gItems[find_id].Respawnable := False;
299 gItems[find_id].InitX := X;
300 gItems[find_id].InitY := Y;
301 gItems[find_id].RespawnTime := 0;
302 gItems[find_id].Fall := Fall;
303 gItems[find_id].Live := True;
304 gItems[find_id].QuietRespawn := False;
305
306 g_Obj_Init(@gItems[find_id].Obj);
307 gItems[find_id].Obj.X := X;
308 gItems[find_id].Obj.Y := Y;
309 gItems[find_id].Obj.Rect.Width := ITEMSIZE[ItemType][0];
310 gItems[find_id].Obj.Rect.Height := ITEMSIZE[ItemType][1];
311
312 gItems[find_id].Animation := nil;
313 gItems[find_id].SpawnTrigger := -1;
314
315 // Êîîðäèíàòû îòíîñèòåëüíî öåíòðà íèæíåãî ðåáðà:
316 if AdjCoord then
317 with gItems[find_id] do
318 begin
319 Obj.X := X - (Obj.Rect.Width div 2);
320 Obj.Y := Y - Obj.Rect.Height;
321 InitX := Obj.X;
322 InitY := Obj.Y;
323 end;
324
325 // Óñòàíîâêà àíèìàöèè:
326 with gItems[find_id] do
327 begin
328 case ItemType of
329 ITEM_ARMOR_GREEN:
330 if g_Frames_Get(ID, 'FRAMES_ITEM_ARMORGREEN') then
331 Animation := TAnimation.Create(ID, True, 20);
332 ITEM_ARMOR_BLUE:
333 if g_Frames_Get(ID, 'FRAMES_ITEM_ARMORBLUE') then
334 Animation := TAnimation.Create(ID, True, 20);
335 ITEM_SPHERE_BLUE:
336 if g_Frames_Get(ID, 'FRAMES_ITEM_BLUESPHERE') then
337 Animation := TAnimation.Create(ID, True, 15);
338 ITEM_SPHERE_WHITE:
339 if g_Frames_Get(ID, 'FRAMES_ITEM_WHITESPHERE') then
340 Animation := TAnimation.Create(ID, True, 20);
341 ITEM_INVUL:
342 if g_Frames_Get(ID, 'FRAMES_ITEM_INVUL') then
343 Animation := TAnimation.Create(ID, True, 20);
344 ITEM_INVIS:
345 if g_Frames_Get(ID, 'FRAMES_ITEM_INVIS') then
346 Animation := TAnimation.Create(ID, True, 20);
347 ITEM_BOTTLE:
348 if g_Frames_Get(ID, 'FRAMES_ITEM_BOTTLE') then
349 Animation := TAnimation.Create(ID, True, 20);
350 ITEM_HELMET:
351 if g_Frames_Get(ID, 'FRAMES_ITEM_HELMET') then
352 Animation := TAnimation.Create(ID, True, 20);
353 end;
354 end;
355
356 Result := find_id;
357 end;
358
359 procedure g_Items_Update();
360 var
361 i, j, k: Integer;
362 ID: DWORD;
363 Anim: TAnimation;
364 m: Word;
365 r, nxt: Boolean;
366 begin
367 if gItems <> nil then
368 for i := 0 to High(gItems) do
369 if gItems[i].ItemType <> ITEM_NONE then
370 with gItems[i] do
371 begin
372 nxt := False;
373
374 if Live then
375 begin
376 if Fall then
377 begin
378 m := g_Obj_Move(@Obj, True, True);
379
380 // Ñîïðîòèâëåíèå âîçäóõà:
381 if gTime mod (GAME_TICK*2) = 0 then
382 Obj.Vel.X := z_dec(Obj.Vel.X, 1);
383 // Åñëè âûïàë çà êàðòó:
384 if WordBool(m and MOVE_FALLOUT) then
385 begin
386 if SpawnTrigger = -1 then
387 g_Items_Pick(i)
388 else begin
389 g_Items_Remove(i);
390 if g_Game_IsServer and g_Game_IsNet then MH_SEND_ItemDestroy(True, i);
391 end;
392 Continue;
393 end;
394 end;
395
396 // Åñëè èãðîêè ïîáëèçîñòè:
397 if gPlayers <> nil then
398 begin
399 j := Random(Length(gPlayers)) - 1;
400
401 for k := 0 to High(gPlayers) do
402 begin
403 Inc(j);
404 if j > High(gPlayers) then
405 j := 0;
406
407 if (gPlayers[j] <> nil) and gPlayers[j].Live and
408 g_Obj_Collide(@gPlayers[j].Obj, @Obj) then
409 begin
410 if g_Game_IsClient then Continue;
411
412 if not gPlayers[j].PickItem(ItemType, Respawnable, r) then
413 Continue;
414
415 if g_Game_IsNet then MH_SEND_PlayerStats(gPlayers[j].UID);
416
417 {
418 Doom 2D: Original:
419 1. I_NONE,I_CLIP,I_SHEL,I_ROCKET,I_CELL,I_AMMO,I_SBOX,I_RBOX,I_CELP,I_BPACK,I_CSAW,I_SGUN,I_SGUN2,I_MGUN,I_LAUN,I_PLAS,I_BFG,I_GUN2
420 +2. I_MEGA,I_INVL,I_SUPER
421 3. I_STIM,I_MEDI,I_ARM1,I_ARM2,I_AQUA,I_KEYR,I_KEYG,I_KEYB,I_SUIT,I_RTORCH,I_GTORCH,I_BTORCH,I_GOR1,I_FCAN
422 }
423
424 if gSoundEffectsDF then
425 begin
426 if ItemType in [ITEM_SPHERE_BLUE, ITEM_SPHERE_WHITE, ITEM_INVUL,
427 ITEM_INVIS, ITEM_MEDKIT_BLACK, ITEM_JETPACK] then
428 g_Sound_PlayExAt('SOUND_ITEM_GETRULEZ',
429 gPlayers[j].Obj.X, gPlayers[j].Obj.Y)
430 else
431 if ItemType in [ITEM_WEAPON_SAW, ITEM_WEAPON_PISTOL, ITEM_WEAPON_SHOTGUN1, ITEM_WEAPON_SHOTGUN2,
432 ITEM_WEAPON_CHAINGUN, ITEM_WEAPON_ROCKETLAUNCHER, ITEM_WEAPON_PLASMA,
433 ITEM_WEAPON_BFG, ITEM_WEAPON_SUPERPULEMET, ITEM_AMMO_BACKPACK] then
434 g_Sound_PlayExAt('SOUND_ITEM_GETWEAPON',
435 gPlayers[j].Obj.X, gPlayers[j].Obj.Y)
436 else
437 g_Sound_PlayExAt('SOUND_ITEM_GETITEM',
438 gPlayers[j].Obj.X, gPlayers[j].Obj.Y);
439 end
440 else
441 begin
442 if ItemType in [ITEM_SPHERE_BLUE, ITEM_SPHERE_WHITE, ITEM_SUIT,
443 ITEM_MEDKIT_BLACK, ITEM_INVUL, ITEM_INVIS, ITEM_JETPACK] then
444 g_Sound_PlayExAt('SOUND_ITEM_GETRULEZ',
445 gPlayers[j].Obj.X, gPlayers[j].Obj.Y)
446 else
447 if ItemType in [ITEM_WEAPON_SAW, ITEM_WEAPON_PISTOL, ITEM_WEAPON_SHOTGUN1, ITEM_WEAPON_SHOTGUN2,
448 ITEM_WEAPON_CHAINGUN, ITEM_WEAPON_ROCKETLAUNCHER, ITEM_WEAPON_PLASMA,
449 ITEM_WEAPON_BFG, ITEM_WEAPON_SUPERPULEMET] then
450 g_Sound_PlayExAt('SOUND_ITEM_GETWEAPON',
451 gPlayers[j].Obj.X, gPlayers[j].Obj.Y)
452 else
453 g_Sound_PlayExAt('SOUND_ITEM_GETITEM',
454 gPlayers[j].Obj.X, gPlayers[j].Obj.Y);
455 end;
456
457 // Íàäî óáðàòü ñ êàðòû, åñëè ýòî íå êëþ÷, êîòîðûì íóæíî ïîäåëèòüñÿ ñ äðóãèì èãðîêîì:
458 if r then
459 begin
460 if not Respawnable then
461 g_Items_Remove(i)
462 else
463 g_Items_Pick(i);
464
465 if g_Game_IsNet then MH_SEND_ItemDestroy(False, i);
466 nxt := True;
467 Break;
468 end;
469 end;
470 end;
471 end;
472
473 if nxt then
474 Continue;
475 end;
476
477 if Respawnable and g_Game_IsServer then
478 begin
479 DecMin(RespawnTime, 0);
480 if (RespawnTime = 0) and (not Live) then
481 begin
482 if not QuietRespawn then
483 g_Sound_PlayExAt('SOUND_ITEM_RESPAWNITEM', InitX, InitY);
484
485 if g_Frames_Get(ID, 'FRAMES_ITEM_RESPAWN') then
486 begin
487 Anim := TAnimation.Create(ID, False, 4);
488 g_GFX_OnceAnim(InitX+(Obj.Rect.Width div 2)-16, InitY+(Obj.Rect.Height div 2)-16, Anim);
489 Anim.Free();
490 end;
491
492 Obj.X := InitX;
493 Obj.Y := InitY;
494 Obj.Vel.X := 0;
495 Obj.Vel.Y := 0;
496 Obj.Accel.X := 0;
497 Obj.Accel.Y := 0;
498
499 Live := True;
500
501 if g_Game_IsNet then MH_SEND_ItemSpawn(QuietRespawn, i);
502 QuietRespawn := False;
503 end;
504 end;
505
506 if Animation <> nil then
507 Animation.Update();
508 end;
509 end;
510
511 procedure g_Items_Draw();
512 var
513 i: Integer;
514 begin
515 if gItems <> nil then
516 for i := 0 to High(gItems) do
517 if gItems[i].Live then
518 with gItems[i] do
519 if g_Collide(Obj.X, Obj.Y, Obj.Rect.Width, Obj.Rect.Height,
520 sX, sY, sWidth, sHeight) then
521 begin
522 if Animation = nil then
523 e_Draw(gItemsTexturesID[ItemType], Obj.X, Obj.Y, 0, True, False)
524 else
525 Animation.Draw(Obj.X, Obj.Y, M_NONE);
526
527 if g_debug_Frames then
528 begin
529 e_DrawQuad(Obj.X+Obj.Rect.X,
530 Obj.Y+Obj.Rect.Y,
531 Obj.X+Obj.Rect.X+Obj.Rect.Width-1,
532 Obj.Y+Obj.Rect.Y+Obj.Rect.Height-1,
533 0, 255, 0);
534 end;
535 end;
536 end;
537
538 procedure g_Items_Pick(ID: DWORD);
539 begin
540 gItems[ID].Live := False;
541 gItems[ID].RespawnTime := ITEM_RESPAWNTIME;
542 end;
543
544 procedure g_Items_Remove(ID: DWORD);
545 begin
546 gItems[ID].ItemType := ITEM_NONE;
547
548 if gItems[ID].Animation <> nil then
549 begin
550 gItems[ID].Animation.Free();
551 gItems[ID].Animation := nil;
552 end;
553
554 gItems[ID].Live := False;
555
556 if gItems[ID].SpawnTrigger > -1 then
557 begin
558 g_Triggers_DecreaseSpawner(gItems[ID].SpawnTrigger);
559 gItems[ID].SpawnTrigger := -1;
560 end;
561 end;
562
563 procedure g_Items_SaveState(var Mem: TBinMemoryWriter);
564 var
565 count, i: Integer;
566 sig: DWORD;
567 begin
568 // Ñ÷èòàåì êîëè÷åñòâî ñóùåñòâóþùèõ ïðåäìåòîâ:
569 count := 0;
570 if gItems <> nil then
571 for i := 0 to High(gItems) do
572 if gItems[i].ItemType <> ITEM_NONE then
573 count := count + 1;
574
575 Mem := TBinMemoryWriter.Create((count+1) * 60);
576
577 // Êîëè÷åñòâî ïðåäìåòîâ:
578 Mem.WriteInt(count);
579
580 if count = 0 then
581 Exit;
582
583 for i := 0 to High(gItems) do
584 if gItems[i].ItemType <> ITEM_NONE then
585 begin
586 // Ñèãíàòóðà ïðåäìåòà:
587 sig := ITEM_SIGNATURE; // 'ITEM'
588 Mem.WriteDWORD(sig);
589 // Òèï ïðåäìåòà:
590 Mem.WriteByte(gItems[i].ItemType);
591 // Åñòü ëè ðåñïàóí:
592 Mem.WriteBoolean(gItems[i].Respawnable);
593 // Êîîðäèíàòû ðåñïóíà:
594 Mem.WriteInt(gItems[i].InitX);
595 Mem.WriteInt(gItems[i].InitY);
596 // Âðåìÿ äî ðåñïàóíà:
597 Mem.WriteWord(gItems[i].RespawnTime);
598 // Ñóùåñòâóåò ëè ýòîò ïðåäìåò:
599 Mem.WriteBoolean(gItems[i].Live);
600 // Ìîæåò ëè îí ïàäàòü:
601 Mem.WriteBoolean(gItems[i].Fall);
602 // Èíäåêñ òðèããåðà, ñîçäàâøåãî ïðåäìåò:
603 Mem.WriteInt(gItems[i].SpawnTrigger);
604 // Îáúåêò ïðåäìåòà:
605 Obj_SaveState(@gItems[i].Obj, Mem);
606 end;
607 end;
608
609 procedure g_Items_LoadState(var Mem: TBinMemoryReader);
610 var
611 count, i, a: Integer;
612 sig: DWORD;
613 b: Byte;
614 begin
615 if Mem = nil then
616 Exit;
617
618 g_Items_Free();
619
620 // Êîëè÷åñòâî ïðåäìåòîâ:
621 Mem.ReadInt(count);
622
623 if count = 0 then
624 Exit;
625
626 for a := 0 to count-1 do
627 begin
628 // Ñèãíàòóðà ïðåäìåòà:
629 Mem.ReadDWORD(sig);
630 if sig <> ITEM_SIGNATURE then // 'ITEM'
631 begin
632 raise EBinSizeError.Create('g_Items_LoadState: Wrong Item Signature');
633 end;
634 // Òèï ïðåäìåòà:
635 Mem.ReadByte(b);
636 // Ñîçäàåì ïðåäìåò:
637 i := g_Items_Create(0, 0, b, False, False);
638 // Åñòü ëè ðåñïàóí:
639 Mem.ReadBoolean(gItems[i].Respawnable);
640 // Êîîðäèíàòû ðåñïóíà:
641 Mem.ReadInt(gItems[i].InitX);
642 Mem.ReadInt(gItems[i].InitY);
643 // Âðåìÿ äî ðåñïàóíà:
644 Mem.ReadWord(gItems[i].RespawnTime);
645 // Ñóùåñòâóåò ëè ýòîò ïðåäìåò:
646 Mem.ReadBoolean(gItems[i].Live);
647 // Ìîæåò ëè îí ïàäàòü:
648 Mem.ReadBoolean(gItems[i].Fall);
649 // Èíäåêñ òðèããåðà, ñîçäàâøåãî ïðåäìåò:
650 Mem.ReadInt(gItems[i].SpawnTrigger);
651 // Îáúåêò ïðåäìåòà:
652 Obj_LoadState(@gItems[i].Obj, Mem);
653 end;
654 end;
655
656 end.
[MIRROR] a port of Doom 2D Forever to FPC/SDL
[25/02/2024 19:55:35]
DEADSOFTWARE 2012-2024