hedgewars/uVisualGearsList.pas
changeset 14577 34e810295d08
parent 13573 470982c05f7e
child 14589 ab79cd4a7382
equal deleted inserted replaced
14576:1d3dc553829c 14577:34e810295d08
   229                 Scale:= 0.75;
   229                 Scale:= 0.75;
   230                 Timer:= 1;
   230                 Timer:= 1;
   231                 end;
   231                 end;
   232     vgtDroplet:
   232     vgtDroplet:
   233                 begin
   233                 begin
   234                 // old dx & dy calcs
       
   235                 // dx:= 0.001 * (random(180) - 90);
       
   236                 // dy:= -0.001 * (random(160) + 40);
       
   237                 // => min speed ~ 0.098, max speed ~ 0.218, speed range ~ 0.120
   234                 // => min speed ~ 0.098, max speed ~ 0.218, speed range ~ 0.120
   238                 // => min angle(4096) ~ 129, max angle ~ 1919, angle range ~ 1790
   235                 // => min angle(4096) ~ 129, max angle ~ 1919, angle range ~ 1790
   239                 dx:= 0.001 * (98 + random(121)); // speed
   236                 dx:= 0.001 * (98 + random(121)); // speed
   240                 Frame:= 129 + random(1791); // angle
   237                 Frame:= 129 + random(1791); // angle
   241                 dy:= -dx * hwFloat2Float(AngleSin(Frame));
   238                 dy:= -dx * hwFloat2Float(AngleSin(Frame));
   277                 begin
   274                 begin
   278                 Frame:= 0;
   275                 Frame:= 0;
   279                 Timer:= 1500;
   276                 Timer:= 1500;
   280                 dY:= -0.08;
   277                 dY:= -0.08;
   281                 dX:= 0;
   278                 dX:= 0;
   282                 //gear^.Z:= 2002;
       
   283                 end;
   279                 end;
   284   vgtSmokeTrace,
   280   vgtSmokeTrace,
   285   vgtEvilTrace:
   281   vgtEvilTrace:
   286                 begin
   282                 begin
   287                 gear^.X:= gear^.X - 16;
   283                 gear^.X:= gear^.X - 16;
   288                 gear^.Y:= gear^.Y - 16;
   284                 gear^.Y:= gear^.Y - 16;
   289                 gear^.State:= 8;
   285                 gear^.State:= 8;
   290                 //gear^.Z:= cSmokeZ
       
   291                 end;
   286                 end;
   292 vgtBigExplosion:
   287 vgtBigExplosion:
   293                 begin
   288                 begin
   294                 gear^.Angle:= random(360);
   289                 gear^.Angle:= random(360);
   295                 end;
   290                 end;