equal
deleted
inserted
replaced
333 else |
333 else |
334 dec(Gear^.Timer, Steps) |
334 dec(Gear^.Timer, Steps) |
335 end; |
335 end; |
336 |
336 |
337 //////////////////////////////////////////////////////////////////////////////// |
337 //////////////////////////////////////////////////////////////////////////////// |
|
338 procedure doStepLine(Gear: PVisualGear; Steps: Longword); |
|
339 begin |
|
340 {$IFNDEF PAS2C} |
|
341 Steps := Steps; |
|
342 {$ENDIF} |
|
343 if Gear^.Timer <= Steps then |
|
344 DeleteVisualGear(Gear) |
|
345 else |
|
346 dec(Gear^.Timer, Steps) |
|
347 end; |
|
348 |
|
349 //////////////////////////////////////////////////////////////////////////////// |
338 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
350 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
339 begin |
351 begin |
340 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
352 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
341 |
353 |
342 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
354 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
1070 @doStepLineTrail, |
1082 @doStepLineTrail, |
1071 @doStepBulletHit, |
1083 @doStepBulletHit, |
1072 @doStepCircle, |
1084 @doStepCircle, |
1073 @doStepSmoothWindBar, |
1085 @doStepSmoothWindBar, |
1074 @doStepStraightShot, |
1086 @doStepStraightShot, |
1075 @doStepNoPlaceWarn |
1087 @doStepNoPlaceWarn, |
|
1088 @doStepLine |
1076 ); |
1089 ); |
1077 |
1090 |
1078 procedure initModule; |
1091 procedure initModule; |
1079 begin |
1092 begin |
1080 doStepVGHandlers:= handlers |
1093 doStepVGHandlers:= handlers |