equal
deleted
inserted
replaced
244 begin |
244 begin |
245 s:= min(Steps, cExplFrameTicks); |
245 s:= min(Steps, cExplFrameTicks); |
246 |
246 |
247 Gear^.X:= Gear^.X + Gear^.dX * s; |
247 Gear^.X:= Gear^.X + Gear^.dX * s; |
248 Gear^.Y:= Gear^.Y + Gear^.dY * s; |
248 Gear^.Y:= Gear^.Y + Gear^.dY * s; |
249 //Gear^.dY:= Gear^.dY + cGravityf; |
|
250 |
249 |
251 if Gear^.FrameTicks <= Steps then |
250 if Gear^.FrameTicks <= Steps then |
252 if Gear^.Frame = 0 then |
251 if Gear^.Frame = 0 then |
253 DeleteVisualGear(Gear) |
252 DeleteVisualGear(Gear) |
254 else |
253 else |
315 procedure doStepFire(Gear: PVisualGear; Steps: Longword); |
314 procedure doStepFire(Gear: PVisualGear; Steps: Longword); |
316 var vgt: PVisualGear; |
315 var vgt: PVisualGear; |
317 begin |
316 begin |
318 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
317 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
319 |
318 |
320 Gear^.Y:= Gear^.Y + Gear^.dY * Steps;// + cGravityf * (Steps * Steps); |
319 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
321 if (Gear^.State and gstTmpFlag) = 0 then |
320 if (Gear^.State and gstTmpFlag) = 0 then |
322 begin |
321 begin |
323 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
322 Gear^.dY:= Gear^.dY + cGravityf * Steps; |
324 if ((GameTicks mod 200) < Steps + 1) then |
323 if ((GameTicks mod 200) < Steps + 1) then |
325 begin |
324 begin |
419 begin |
418 begin |
420 Gear^.X:= Gear^.X + (cWindSpeedf + Gear^.dX) * Steps; |
419 Gear^.X:= Gear^.X + (cWindSpeedf + Gear^.dX) * Steps; |
421 Gear^.Y:= Gear^.Y - (cDrownSpeedf + Gear^.dY) * Steps; |
420 Gear^.Y:= Gear^.Y - (cDrownSpeedf + Gear^.dY) * Steps; |
422 |
421 |
423 Gear^.dX := Gear^.dX + (cWindSpeedf * 0.3 * Steps); |
422 Gear^.dX := Gear^.dX + (cWindSpeedf * 0.3 * Steps); |
424 //Gear^.dY := Gear^.dY - (cDrownSpeedf * 0.995); |
|
425 |
423 |
426 if Gear^.FrameTicks <= Steps then |
424 if Gear^.FrameTicks <= Steps then |
427 if Gear^.Frame = 0 then |
425 if Gear^.Frame = 0 then |
428 DeleteVisualGear(Gear) |
426 DeleteVisualGear(Gear) |
429 else |
427 else |
622 end; |
620 end; |
623 |
621 |
624 Gear^.Timer:= cSorterWorkTime; |
622 Gear^.Timer:= cSorterWorkTime; |
625 Gear^.doStep:= @doStepTeamHealthSorterWork; |
623 Gear^.doStep:= @doStepTeamHealthSorterWork; |
626 currsorter:= Gear; |
624 currsorter:= Gear; |
627 //doStepTeamHealthSorterWork(Gear, Steps) |
|
628 end; |
625 end; |
629 |
626 |
630 //////////////////////////////////////////////////////////////////////////////// |
627 //////////////////////////////////////////////////////////////////////////////// |
631 procedure doStepSpeechBubbleWork(Gear: PVisualGear; Steps: Longword); |
628 procedure doStepSpeechBubbleWork(Gear: PVisualGear; Steps: Longword); |
632 var realgear: PGear; |
629 var realgear: PGear; |