hedgewars/uGears.pas
changeset 2941 566f967ec22f
parent 2940 c02119eee12a
child 2945 b30e6350a221
equal deleted inserted replaced
2940:c02119eee12a 2941:566f967ec22f
   124 procedure doStepHedgehogMoving(Gear: PGear); forward;
   124 procedure doStepHedgehogMoving(Gear: PGear); forward;
   125 procedure HedgehogChAngle(Gear: PGear); forward;
   125 procedure HedgehogChAngle(Gear: PGear); forward;
   126 procedure ShotgunShot(Gear: PGear); forward;
   126 procedure ShotgunShot(Gear: PGear); forward;
   127 procedure PickUp(HH, Gear: PGear); forward;
   127 procedure PickUp(HH, Gear: PGear); forward;
   128 procedure HHSetWeapon(Gear: PGear); forward;
   128 procedure HHSetWeapon(Gear: PGear); forward;
       
   129 procedure doStepCase(Gear: PGear); forward;
   129 
   130 
   130 
   131 
   131 {$INCLUDE "GSHandlers.inc"}
   132 {$INCLUDE "GSHandlers.inc"}
   132 {$INCLUDE "HHHandlers.inc"}
   133 {$INCLUDE "HHHandlers.inc"}
   133 
   134