equal
deleted
inserted
replaced
80 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
80 procedure doStepFlake(Gear: PVisualGear; Steps: Longword); |
81 var sign: real; |
81 var sign: real; |
82 moved: boolean; |
82 moved: boolean; |
83 vfc, vft: LongWord; |
83 vfc, vft: LongWord; |
84 begin |
84 begin |
85 if vobCount = 0 then exit; |
85 if SuddenDeathDmg then |
|
86 begin |
|
87 if (vobSDCount = 0) then exit; |
|
88 end |
|
89 else |
|
90 if (vobCount = 0) then exit; |
86 |
91 |
87 sign:= 1; |
92 sign:= 1; |
88 with Gear^ do |
93 with Gear^ do |
89 begin |
94 begin |
90 |
95 |