hedgewars/uVisualGearsHandlers.pas
changeset 10624 05bb44f4d92f
parent 10623 81f1cf934827
child 10625 125e120165aa
equal deleted inserted replaced
10623:81f1cf934827 10624:05bb44f4d92f
    84 if vobCount = 0 then exit;
    84 if vobCount = 0 then exit;
    85 
    85 
    86 sign:= 1;
    86 sign:= 1;
    87 with Gear^ do
    87 with Gear^ do
    88     begin
    88     begin
    89     if FrameTicks < 1000000 then
    89     if vobFrameTicks < 1000000 then
    90         begin
    90         begin
    91         inc(FrameTicks, Steps);
    91         inc(FrameTicks, Steps);
    92         if not SuddenDeathDmg and (FrameTicks > vobFrameTicks) then
    92         if not SuddenDeathDmg and (FrameTicks > vobFrameTicks) then
    93             begin
    93             begin
    94             dec(FrameTicks, vobFrameTicks);
    94             dec(FrameTicks, vobFrameTicks);