equal
deleted
inserted
replaced
180 SetAllToActive |
180 SetAllToActive |
181 end else // Gear^.Timer = 0 |
181 end else // Gear^.Timer = 0 |
182 begin |
182 begin |
183 AllInactive:= false; |
183 AllInactive:= false; |
184 PlaySound(sndByeBye, false); |
184 PlaySound(sndByeBye, false); |
185 Gear^.Timer:= 1250 |
185 Gear^.Timer:= 1100 |
186 end |
186 end |
187 end; |
187 end; |
188 |
188 |
189 //////////////////////////////////////////////////////////////////////////////// |
189 //////////////////////////////////////////////////////////////////////////////// |
190 procedure PickUp(HH, Gear: PGear); |
190 procedure PickUp(HH, Gear: PGear); |
508 if (Gear^.State and gstMoving) <> 0 then exit; |
508 if (Gear^.State and gstMoving) <> 0 then exit; |
509 |
509 |
510 if (Gear^.Health = 0) then |
510 if (Gear^.Health = 0) then |
511 begin |
511 begin |
512 if AllInactive then |
512 if AllInactive then |
513 Gear^.doStep:= @doStepHedgehogDead; |
513 begin |
|
514 Gear^.Timer:= 0; |
|
515 Gear^.doStep:= @doStepHedgehogDead |
|
516 end; |
514 AllInactive:= false; |
517 AllInactive:= false; |
515 exit |
518 exit |
516 end; |
519 end; |
517 |
520 |
518 if ((Gear^.State and gstAnimation) = 0) and |
521 if ((Gear^.State and gstAnimation) = 0) and |