hedgewars/uVisualGearsList.pas
changeset 10625 125e120165aa
parent 10354 56bd029245fc
child 10634 35d059bd0932
equal deleted inserted replaced
10624:05bb44f4d92f 10625:125e120165aa
   100                 tdX:= 0;
   100                 tdX:= 0;
   101                 tdY:= 0;
   101                 tdY:= 0;
   102                 Scale:= 1.0;
   102                 Scale:= 1.0;
   103                 if SuddenDeathDmg then
   103                 if SuddenDeathDmg then
   104                     begin
   104                     begin
   105                     FrameTicks:= random(vobSDFrameTicks);
   105                     if vobSDFrameTicks > 0 then
       
   106                         FrameTicks:= random(vobSDFrameTicks);
   106                     Frame:= random(vobSDFramesCount);
   107                     Frame:= random(vobSDFramesCount);
   107                     end
   108                     end
   108                 else
   109                 else
   109                     begin
   110                     begin
   110                     FrameTicks:= random(vobFrameTicks);
   111                     if vobFrameTicks > 0 then
       
   112                         FrameTicks:= random(vobFrameTicks);
   111                     Frame:= random(vobFramesCount);
   113                     Frame:= random(vobFramesCount);
   112                     end;
   114                     end;
   113                 Angle:= random(360);
   115                 Angle:= random(360);
   114                 dx:= 0.0000038654705 * random(10000);
   116                 dx:= 0.0000038654705 * random(10000);
   115                 dy:= 0.000003506096 * random(7000);
   117                 dy:= 0.000003506096 * random(7000);