equal
deleted
inserted
replaced
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 procedure ProcessGears; |
42 procedure ProcessGears; |
43 procedure EndTurnCleanup; |
43 procedure EndTurnCleanup; |
44 procedure DrawGears; |
44 procedure DrawGears; |
45 procedure DrawGearsGui; |
45 procedure DrawGearsGui; |
|
46 procedure DrawFinger; |
46 procedure FreeGearsList; |
47 procedure FreeGearsList; |
47 procedure AddMiscGears; |
48 procedure AddMiscGears; |
48 procedure AssignHHCoords; |
49 procedure AssignHHCoords; |
49 procedure RandomizeHHAnim; |
50 procedure RandomizeHHAnim; |
50 procedure StartSuddenDeath; |
51 procedure StartSuddenDeath; |
723 RenderGearHealth(Gear, x, y); |
724 RenderGearHealth(Gear, x, y); |
724 RenderGearTimer(Gear, x, y); |
725 RenderGearTimer(Gear, x, y); |
725 if Gear^.Kind = gtHedgehog then |
726 if Gear^.Kind = gtHedgehog then |
726 RenderHHGuiExtras(Gear, x, y); |
727 RenderHHGuiExtras(Gear, x, y); |
727 Gear:= Gear^.NextGear |
728 Gear:= Gear^.NextGear |
|
729 end; |
|
730 end; |
|
731 |
|
732 procedure DrawFinger; |
|
733 var Gear: PGear; |
|
734 x, y: LongInt; |
|
735 begin |
|
736 if ((CurrentHedgehog <> nil) and (CurrentHedgehog^.Gear <> nil)) then |
|
737 begin |
|
738 Gear:= CurrentHedgehog^.Gear; |
|
739 x:= hwRound(Gear^.X) + WorldDx; |
|
740 y:= hwRound(Gear^.Y) + WorldDy; |
|
741 RenderFinger(Gear, x, y); |
728 end; |
742 end; |
729 end; |
743 end; |
730 |
744 |
731 procedure FreeGearsList; |
745 procedure FreeGearsList; |
732 var t, tt: PGear; |
746 var t, tt: PGear; |