equal
deleted
inserted
replaced
82 function HHHasAmmo(Hedgehog: PHedgehog; Ammo: TAmmoType): boolean; |
82 function HHHasAmmo(Hedgehog: PHedgehog; Ammo: TAmmoType): boolean; |
83 function TeamSize(p: PTeam): Longword; |
83 function TeamSize(p: PTeam): Longword; |
84 procedure RecountTeamHealth(team: PTeam); |
84 procedure RecountTeamHealth(team: PTeam); |
85 procedure RestoreTeamsFromSave; |
85 procedure RestoreTeamsFromSave; |
86 function CheckForWin: boolean; |
86 function CheckForWin: boolean; |
|
87 procedure SetWeapon(weap: TAmmoType); |
87 |
88 |
88 implementation |
89 implementation |
89 uses uMisc, uStore, uWorld, uIO, uAI, uLocale; |
90 uses uMisc, uStore, uWorld, uIO, uAI, uLocale, uConsole; |
90 const MaxTeamHealth: integer = 0; |
91 const MaxTeamHealth: integer = 0; |
91 |
92 |
92 procedure FreeTeamsList; forward; |
93 procedure FreeTeamsList; forward; |
93 |
94 |
94 function CheckForWin: boolean; |
95 function CheckForWin: boolean; |
357 p.ExtDriven:= false; |
358 p.ExtDriven:= false; |
358 p:= p.Next |
359 p:= p.Next |
359 end; |
360 end; |
360 end; |
361 end; |
361 |
362 |
|
363 procedure SetWeapon(weap: TAmmoType); |
|
364 begin |
|
365 with CurrentTeam^ do |
|
366 with Hedgehogs[CurrHedgehog] do |
|
367 while Ammo[CurSlot, CurAmmo].AmmoType <> weap do |
|
368 ParseCommand('/slot ' + chr(49 + Ammoz[TAmmoType(weap)].Slot)); |
|
369 end; |
|
370 |
362 initialization |
371 initialization |
363 |
372 |
364 finalization |
373 finalization |
365 |
374 |
366 FreeTeamsList |
375 FreeTeamsList |