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 FreeGearsList; |
46 procedure FreeGearsList; |
46 procedure AddMiscGears; |
47 procedure AddMiscGears; |
47 procedure AssignHHCoords; |
48 procedure AssignHHCoords; |
48 function GearByUID(uid : Longword) : PGear; |
49 function GearByUID(uid : Longword) : PGear; |
49 function IsClockRunning() : boolean; |
50 function IsClockRunning() : boolean; |
581 Gear:= Gear^.NextGear |
582 Gear:= Gear^.NextGear |
582 end; |
583 end; |
583 |
584 |
584 if SpeechHogNumber > 0 then |
585 if SpeechHogNumber > 0 then |
585 DrawHHOrder(); |
586 DrawHHOrder(); |
|
587 end; |
|
588 |
|
589 procedure DrawGearsTimers; |
|
590 var Gear: PGear; |
|
591 x, y: LongInt; |
|
592 begin |
|
593 Gear:= GearsList; |
|
594 while Gear <> nil do |
|
595 begin |
|
596 x:= hwRound(Gear^.X) + WorldDx; |
|
597 y:= hwRound(Gear^.Y) + WorldDy; |
|
598 RenderGearTimer(Gear, x, y); |
|
599 Gear:= Gear^.NextGear |
|
600 end; |
586 end; |
601 end; |
587 |
602 |
588 procedure FreeGearsList; |
603 procedure FreeGearsList; |
589 var t, tt: PGear; |
604 var t, tt: PGear; |
590 begin |
605 begin |