hedgewars/uGears.pas
changeset 13639 73c2a669c1fd
parent 13610 422d6062620a
child 13647 3d14950641a4
equal deleted inserted replaced
13638:35d93b1e7fef 13639:73c2a669c1fd
    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;