equal
deleted
inserted
replaced
41 procedure doStepNote(Gear: PVisualGear; Steps: Longword); |
41 procedure doStepNote(Gear: PVisualGear; Steps: Longword); |
42 procedure doStepLineTrail(Gear: PVisualGear; Steps: Longword); |
42 procedure doStepLineTrail(Gear: PVisualGear; Steps: Longword); |
43 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
43 procedure doStepEgg(Gear: PVisualGear; Steps: Longword); |
44 procedure doStepFire(Gear: PVisualGear; Steps: Longword); |
44 procedure doStepFire(Gear: PVisualGear; Steps: Longword); |
45 procedure doStepShell(Gear: PVisualGear; Steps: Longword); |
45 procedure doStepShell(Gear: PVisualGear; Steps: Longword); |
46 procedure doStepSmallDamage(Gear: PVisualGear; Steps: Longword); |
46 procedure doStepSmallDamageTag(Gear: PVisualGear; Steps: Longword); |
47 procedure doStepBubble(Gear: PVisualGear; Steps: Longword); |
47 procedure doStepBubble(Gear: PVisualGear; Steps: Longword); |
48 procedure doStepSteam(Gear: PVisualGear; Steps: Longword); |
48 procedure doStepSteam(Gear: PVisualGear; Steps: Longword); |
49 procedure doStepAmmo(Gear: PVisualGear; Steps: Longword); |
49 procedure doStepAmmo(Gear: PVisualGear; Steps: Longword); |
50 procedure doStepSmoke(Gear: PVisualGear; Steps: Longword); |
50 procedure doStepSmoke(Gear: PVisualGear; Steps: Longword); |
51 procedure doStepDust(Gear: PVisualGear; Steps: Longword); |
51 procedure doStepDust(Gear: PVisualGear; Steps: Longword); |
400 DeleteVisualGear(Gear) |
400 DeleteVisualGear(Gear) |
401 else |
401 else |
402 dec(Gear^.FrameTicks, Steps) |
402 dec(Gear^.FrameTicks, Steps) |
403 end; |
403 end; |
404 |
404 |
405 procedure doStepSmallDamage(Gear: PVisualGear; Steps: Longword); |
405 procedure doStepSmallDamageTag(Gear: PVisualGear; Steps: Longword); |
406 var s: shortstring; |
406 var s: shortstring; |
407 begin |
407 begin |
408 Gear^.Y:= Gear^.Y - 0.02 * Steps; |
|
409 if Gear^.Tex = nil then |
408 if Gear^.Tex = nil then |
410 begin |
409 begin |
411 s:= IntToStr(Gear^.State); |
410 s:= IntToStr(Gear^.State); |
412 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fntSmall); |
411 Gear^.Tex:= RenderStringTex(ansistring(s), cWhiteColor, fntSmall); |
413 end; |
412 end; |
|
413 |
|
414 Gear^.X:= Gear^.X + Gear^.dX * Steps; |
|
415 Gear^.Y:= Gear^.Y + Gear^.dY * Steps; |
414 |
416 |
415 if Gear^.FrameTicks <= Steps then |
417 if Gear^.FrameTicks <= Steps then |
416 DeleteVisualGear(Gear) |
418 DeleteVisualGear(Gear) |
417 else |
419 else |
418 dec(Gear^.FrameTicks, Steps) |
420 dec(Gear^.FrameTicks, Steps) |
1040 @doStepFlake, |
1042 @doStepFlake, |
1041 @doStepCloud, |
1043 @doStepCloud, |
1042 @doStepExpl, |
1044 @doStepExpl, |
1043 @doStepExpl, |
1045 @doStepExpl, |
1044 @doStepFire, |
1046 @doStepFire, |
1045 @doStepSmallDamage, |
1047 @doStepSmallDamageTag, |
1046 @doStepTeamHealthSorter, |
1048 @doStepTeamHealthSorter, |
1047 @doStepSpeechBubble, |
1049 @doStepSpeechBubble, |
1048 @doStepBubble, |
1050 @doStepBubble, |
1049 @doStepSteam, |
1051 @doStepSteam, |
1050 @doStepAmmo, |
1052 @doStepAmmo, |