1298 else if Gear^.Tag = 2 then |
1298 else if Gear^.Tag = 2 then |
1299 vg^.Tint:= $364df7b0; |
1299 vg^.Tint:= $364df7b0; |
1300 end; |
1300 end; |
1301 end; |
1301 end; |
1302 |
1302 |
1303 gtDrill: if (Gear^.State and gsttmpFlag) <> 0 then |
1303 gtDrill: begin |
1304 DrawSpriteRotated(sprAirDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)) |
1304 if (Gear^.Pos = 1) then |
|
1305 i:= (RealTicks shr 5 + Gear^.uid) mod 4 |
1305 else |
1306 else |
1306 DrawSpriteRotated(sprDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)); |
1307 i:= Gear^.uid mod 4; |
1307 |
1308 if (Gear^.State and gsttmpFlag) <> 0 then |
|
1309 DrawTextureRotatedF(SpritesData[sprAirDrill].texture, 0.5, 0, 0, x, y, i, 0, 64, 64, DxDy2Angle(Gear^.dY, Gear^.dX)) |
|
1310 else |
|
1311 DrawTextureRotatedF(SpritesData[sprDrill].texture, 0.5, 0, 0, x, y, i, 0, 64, 64, DxDy2Angle(Gear^.dY, Gear^.dX)); |
|
1312 end; |
1308 gtHedgehog: DrawHH(Gear, x, y); |
1313 gtHedgehog: DrawHH(Gear, x, y); |
1309 |
1314 |
1310 gtShell: DrawSpriteRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)); |
1315 gtShell: DrawSpriteRotated(sprBazookaShell, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)); |
1311 |
1316 |
1312 gtGrave: begin |
1317 gtGrave: begin |