hedgewars/uVisualGearsList.pas
changeset 10251 a3b42e81803c
parent 10193 d7cd5b43588f
child 10352 2af2309207b0
equal deleted inserted replaced
10250:887610b44848 10251:a3b42e81803c
   319                 if random(2) = 0 then
   319                 if random(2) = 0 then
   320                     dx := -dx;
   320                     dx := -dx;
   321                 Frame:= 0;
   321                 Frame:= 0;
   322                 FrameTicks:= random(750) + 1250;
   322                 FrameTicks:= random(750) + 1250;
   323                 State:= ord(sprSnowDust);
   323                 State:= ord(sprSnowDust);
       
   324                 end;
       
   325   vgtNoPlaceWarn:
       
   326                 begin
       
   327                 FrameTicks:= 2000;
       
   328                 Tint:= $FF0000FF;
       
   329                 Scale:= 1.0;
   324                 end;
   330                 end;
   325         end;
   331         end;
   326 
   332 
   327 if State <> 0 then
   333 if State <> 0 then
   328     gear^.State:= State;
   334     gear^.State:= State;
   361               else
   367               else
   362                   begin
   368                   begin
   363                   gear^.Scale:= 0.4;
   369                   gear^.Scale:= 0.4;
   364                   gear^.Layer:= 4
   370                   gear^.Layer:= 4
   365                   end;
   371                   end;
       
   372     vgtNoPlaceWarn: gear^.Layer:= 6;
   366 
   373 
   367     // 0: this layer is very distant in the background when in stereo
   374     // 0: this layer is very distant in the background when in stereo
   368     vgtTeamHealthSorter,
   375     vgtTeamHealthSorter,
   369     vgtSmoothWindBar: gear^.Layer:= 0;
   376     vgtSmoothWindBar: gear^.Layer:= 0;
   370 
   377