hedgewars/uGears.pas
changeset 1964 dc9ea05c9d2f
parent 1948 1e0e1f03180d
child 1965 340bfd438ca5
equal deleted inserted replaced
1963:58c29439225d 1964:dc9ea05c9d2f
   104 procedure HedgehogStep(Gear: PGear); forward;
   104 procedure HedgehogStep(Gear: PGear); forward;
   105 procedure doStepHedgehogMoving(Gear: PGear); forward;
   105 procedure doStepHedgehogMoving(Gear: PGear); forward;
   106 procedure HedgehogChAngle(Gear: PGear); forward;
   106 procedure HedgehogChAngle(Gear: PGear); forward;
   107 procedure ShotgunShot(Gear: PGear); forward;
   107 procedure ShotgunShot(Gear: PGear); forward;
   108 procedure PickUp(HH, Gear: PGear); forward;
   108 procedure PickUp(HH, Gear: PGear); forward;
       
   109 procedure HHSetWeapon(Gear: PGear); forward;
       
   110 
   109 
   111 
   110 {$INCLUDE GSHandlers.inc}
   112 {$INCLUDE GSHandlers.inc}
   111 {$INCLUDE HHHandlers.inc}
   113 {$INCLUDE HHHandlers.inc}
   112 
   114 
   113 const doStepHandlers: array[TGearType] of TGearStepProcedure = (
   115 const doStepHandlers: array[TGearType] of TGearStepProcedure = (