equal
deleted
inserted
replaced
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 procedure ProcessGears; |
42 procedure ProcessGears; |
43 procedure EndTurnCleanup; |
43 procedure EndTurnCleanup; |
44 procedure DrawGears; |
44 procedure DrawGears; |
45 procedure DrawGearsTimers; |
45 procedure DrawGearsGui; |
46 procedure FreeGearsList; |
46 procedure FreeGearsList; |
47 procedure AddMiscGears; |
47 procedure AddMiscGears; |
48 procedure AssignHHCoords; |
48 procedure AssignHHCoords; |
49 procedure StartSuddenDeath; |
49 procedure StartSuddenDeath; |
50 function GearByUID(uid : Longword) : PGear; |
50 function GearByUID(uid : Longword) : PGear; |
582 |
582 |
583 if SpeechHogNumber > 0 then |
583 if SpeechHogNumber > 0 then |
584 DrawHHOrder(); |
584 DrawHHOrder(); |
585 end; |
585 end; |
586 |
586 |
587 procedure DrawGearsTimers; |
587 // Draw gear timers and other GUI overlays |
|
588 procedure DrawGearsGui; |
588 var Gear: PGear; |
589 var Gear: PGear; |
589 x, y: LongInt; |
590 x, y: LongInt; |
590 begin |
591 begin |
591 Gear:= GearsList; |
592 Gear:= GearsList; |
592 while Gear <> nil do |
593 while Gear <> nil do |
593 begin |
594 begin |
594 x:= hwRound(Gear^.X) + WorldDx; |
595 x:= hwRound(Gear^.X) + WorldDx; |
595 y:= hwRound(Gear^.Y) + WorldDy; |
596 y:= hwRound(Gear^.Y) + WorldDy; |
596 RenderGearTimer(Gear, x, y); |
597 RenderGearTimer(Gear, x, y); |
|
598 if Gear^.Kind = gtHedgehog then |
|
599 RenderHHGuiExtras(Gear, x, y); |
597 Gear:= Gear^.NextGear |
600 Gear:= Gear^.NextGear |
598 end; |
601 end; |
599 end; |
602 end; |
600 |
603 |
601 procedure FreeGearsList; |
604 procedure FreeGearsList; |