equal
deleted
inserted
replaced
218 end; |
218 end; |
219 |
219 |
220 function HW_isWeaponTimerable: boolean; cdecl; export; |
220 function HW_isWeaponTimerable: boolean; cdecl; export; |
221 begin |
221 begin |
222 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then |
222 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then |
223 exit( (Ammoz[CurrentHedgehog^.CurWeapon].Ammo.Propz and ammoprop_Timerable) <> 0) |
223 exit( (Ammoz[CurrentHedgehog^.CurAmmoType].Ammo.Propz and ammoprop_Timerable) <> 0) |
224 else |
224 else |
225 exit(false); |
225 exit(false); |
226 end; |
226 end; |
227 |
227 |
228 function HW_isWeaponSwitch: boolean cdecl; export; |
228 function HW_isWeaponSwitch: boolean cdecl; export; |
234 end; |
234 end; |
235 |
235 |
236 function HW_isWeaponRope: boolean cdecl; export; |
236 function HW_isWeaponRope: boolean cdecl; export; |
237 begin |
237 begin |
238 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then |
238 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) then |
239 exit (CurrentHedgehog^.CurWeapon = amRope) |
239 exit (CurrentHedgehog^.CurAmmoType = amRope) |
240 else |
240 else |
241 exit(false); |
241 exit(false); |
242 end; |
242 end; |
243 |
243 |
244 procedure HW_setGrenadeTime(time: LongInt); cdecl; export; |
244 procedure HW_setGrenadeTime(time: LongInt); cdecl; export; |
248 |
248 |
249 procedure HW_setPianoSound(snd: LongInt); cdecl; export; |
249 procedure HW_setPianoSound(snd: LongInt); cdecl; export; |
250 begin |
250 begin |
251 // this most likely won't work in network game |
251 // this most likely won't work in network game |
252 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) |
252 if (CurrentHedgehog <> nil) and (CurrentHedgehog^.Ammo <> nil) and (CurrentHedgehog^.BotLevel = 0) |
253 and (CurrentHedgehog^.CurWeapon = amPiano) then |
253 and (CurrentHedgehog^.CurAmmoType = amPiano) then |
254 case snd of |
254 case snd of |
255 0: PlaySound(sndPiano0); |
255 0: PlaySound(sndPiano0); |
256 1: PlaySound(sndPiano1); |
256 1: PlaySound(sndPiano1); |
257 2: PlaySound(sndPiano2); |
257 2: PlaySound(sndPiano2); |
258 3: PlaySound(sndPiano3); |
258 3: PlaySound(sndPiano3); |