27 procedure HedgehogStep(Gear: PGear);

    27 procedure HedgehogStep(Gear: PGear);

    28 procedure doStepHedgehogMoving(Gear: PGear);

    28 procedure doStepHedgehogMoving(Gear: PGear);

    29 procedure HedgehogChAngle(HHGear: PGear);

    29 procedure HedgehogChAngle(HHGear: PGear);

    30 procedure PickUp(HH, Gear: PGear);

    30 procedure PickUp(HH, Gear: PGear);

    31 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);

    31 procedure AddPickup(HH: THedgehog; ammo: TAmmoType; cnt, X, Y: LongWord);

    33 procedure PlayTaunt(taunt: Longword);

    33 procedure PlayTaunt(taunt: Longword);

    34 function HHGetTimer(Gear: PGear): LongWord;

    34 function HHGetTimer(Gear: PGear): LongWord;

    35 function HHGetTimerMsg(Gear: PGear): LongWord;

    35 function HHGetTimerMsg(Gear: PGear): LongWord;

    36 function HHGetBounciness(Gear: PGear): LongWord;

    36 function HHGetBounciness(Gear: PGear): LongWord;

    37 function HHGetBouncinessMsg(Gear: PGear): LongWord;

    37 function HHGetBouncinessMsg(Gear: PGear): LongWord;

  1527     end;

  1527     end;

  1528 

  1528 

  1529 AllInactive:= false

  1529 AllInactive:= false

  1530 end;

  1530 end;

  1531 

  1531 

  1533 (*

  1533 (*

  1534 var x,y,tx,ty: LongInt;

  1534 var x,y,tx,ty: LongInt;

  1535     tdX, tdY, slope: hwFloat;

  1535     tdX, tdY, slope: hwFloat;

  1536     land: Word; *)

  1536     land: Word; *)

  1537 var slope: hwFloat;

  1537 var slope: hwFloat;