equal
deleted
inserted
replaced
369 if CurAmmoType = amKnife then LoadHedgehogHat(Hedgehog, 'Reserved/chef') |
369 if CurAmmoType = amKnife then LoadHedgehogHat(Hedgehog, 'Reserved/chef') |
370 end |
370 end |
371 end; |
371 end; |
372 |
372 |
373 procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
373 procedure ApplyAmmoChanges(var Hedgehog: THedgehog); |
374 var s: shortstring; |
374 var s: ansistring; |
375 CurWeapon: PAmmo; |
375 CurWeapon: PAmmo; |
376 begin |
376 begin |
377 TargetPoint.X:= NoPointX; |
377 TargetPoint.X:= NoPointX; |
378 |
378 |
379 with Hedgehog do |
379 with Hedgehog do |
393 |
393 |
394 with CurWeapon^ do |
394 with CurWeapon^ do |
395 begin |
395 begin |
396 s:= trammo[Ammoz[AmmoType].NameId]; |
396 s:= trammo[Ammoz[AmmoType].NameId]; |
397 if (Count <> AMMO_INFINITE) and (not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0))) then |
397 if (Count <> AMMO_INFINITE) and (not (Hedgehog.Team^.ExtDriven or (Hedgehog.BotLevel > 0))) then |
398 s:= s + ' (' + IntToStr(Count) + ')'; |
398 s:= s + ansistring(' (' + IntToStr(Count) + ')'); |
399 if (Propz and ammoprop_Timerable) <> 0 then |
399 if (Propz and ammoprop_Timerable) <> 0 then |
400 s:= s + ', ' + IntToStr(Timer div 1000) + ' ' + trammo[sidSeconds]; |
400 s:= s + ansistring(', ' + IntToStr(Timer div 1000) + ' ') + trammo[sidSeconds]; |
401 AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo); |
401 AddCaption(s, Team^.Clan^.Color, capgrpAmmoinfo); |
402 if (Propz and ammoprop_NeedTarget) <> 0 then |
402 if (Propz and ammoprop_NeedTarget) <> 0 then |
403 begin |
403 begin |
404 if Gear <> nil then Gear^.State:= Gear^.State or gstHHChooseTarget; |
404 if Gear <> nil then Gear^.State:= Gear^.State or gstHHChooseTarget; |
405 isCursorVisible:= true |
405 isCursorVisible:= true |