equal
deleted
inserted
replaced
131 end; |
131 end; |
132 |
132 |
133 const StepTicks: LongWord = 0; |
133 const StepTicks: LongWord = 0; |
134 |
134 |
135 procedure HedgehogStep(Gear: PGear); |
135 procedure HedgehogStep(Gear: PGear); |
136 var PrevdX: integer; |
136 var PrevdX: LongInt; |
137 begin |
137 begin |
138 if ((Gear^.State and (gstAttacking or gstMoving or gstFalling)) = 0) then |
138 if ((Gear^.State and (gstAttacking or gstMoving or gstFalling)) = 0) then |
139 begin |
139 begin |
140 if ((Gear^.Message and gm_LJump ) <> 0) then |
140 if ((Gear^.Message and gm_LJump ) <> 0) then |
141 begin |
141 begin |