44 procedure HideHog(HH: PHedgehog);

    44 procedure HideHog(HH: PHedgehog);

    45 procedure RestoreHog(HH: PHedgehog);

    45 procedure RestoreHog(HH: PHedgehog);

    46 procedure ProcessGears;

    46 procedure ProcessGears;

    47 procedure EndTurnCleanup;

    47 procedure EndTurnCleanup;

    48 procedure SetAllToActive;

    48 procedure SetAllToActive;

    50 procedure SetAllHHToActive(Ice: boolean);

    49 procedure SetAllHHToActive(Ice: boolean);

    51 procedure DrawGears;

    50 procedure DrawGears;

    52 procedure FreeGearsList;

    51 procedure FreeGearsList;

    53 procedure AddMiscGears;

    52 procedure AddMiscGears;

    54 procedure AssignHHCoords;

    53 procedure AssignHHCoords;

   558 while t <> nil do

   557 while t <> nil do

   559     begin

   558     begin

   560     t^.Active:= true;

   559     t^.Active:= true;

   561     t:= t^.NextGear

   560     t:= t^.NextGear

   562     end

   561     end

   568 end;

   562 end;

   569 

   563 

   570 procedure SetAllHHToActive(Ice: boolean);

   564 procedure SetAllHHToActive(Ice: boolean);

   571 var t: PGear;

   565 var t: PGear;

   572 begin

   566 begin