hedgewars/uGears.pas
branchcmake_pascal
changeset 8817 0d3014097240
parent 8632 b5ed76d2a1f9
child 9224 bce8cf41d666
equal deleted inserted replaced
8815:c28fcd8ec138 8817:0d3014097240
    40 function  SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear;
    40 function  SpawnCustomCrateAt(x, y: LongInt; crate: TCrateType; content, cnt: Longword): PGear;
    41 function  SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear;
    41 function  SpawnFakeCrateAt(x, y: LongInt; crate: TCrateType; explode: boolean; poison: boolean ): PGear;
    42 function  GetAmmo(Hedgehog: PHedgehog): TAmmoType;
    42 function  GetAmmo(Hedgehog: PHedgehog): TAmmoType;
    43 function  GetUtility(Hedgehog: PHedgehog): TAmmoType;
    43 function  GetUtility(Hedgehog: PHedgehog): TAmmoType;
    44 procedure HideHog(HH: PHedgehog);
    44 procedure HideHog(HH: PHedgehog);
    45 procedure RestoreHog(HH: PHedgehog);
       
    46 procedure ProcessGears;
    45 procedure ProcessGears;
    47 procedure EndTurnCleanup;
    46 procedure EndTurnCleanup;
    48 procedure SetAllToActive;
    47 procedure SetAllToActive;
    49 procedure SetAllHHToActive; inline;
    48 procedure SetAllHHToActive; inline;
    50 procedure SetAllHHToActive(Ice: boolean);
    49 procedure SetAllHHToActive(Ice: boolean);