hedgewars/uGears.pas
changeset 12215 442bab755bb4
parent 12197 de9144250c37
child 12311 cdd884397760
equal deleted inserted replaced
12214:7e6362c0ba96 12215:442bab755bb4
    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