1011 i:= 0; |
1011 i:= 0; |
1012 i:= i mod 12; |
1012 i:= i mod 12; |
1013 DrawSprite(sprUtility, x - 24, y - 24, i); |
1013 DrawSprite(sprUtility, x - 24, y - 24, i); |
1014 end; |
1014 end; |
1015 end; |
1015 end; |
1016 if Gear^.Timer <= 1833 then |
1016 if Gear^.Timer < 1833 then |
1017 begin |
1017 begin |
1018 DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0, |
1018 DrawTextureRotatedF(SpritesData[sprPortal].texture, min(abs(1.25 - (Gear^.Timer mod 1333) / 400), 1.25), 0, 0, |
1019 Gear^.Angle+WorldDx, Gear^.Power+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270); |
1019 x, Gear^.Angle+WorldDy-16, 4+Gear^.Tag, 1, 32, 32, 270); |
1020 end |
1020 end |
1021 end; |
1021 end; |
1022 gtExplosives: begin |
1022 gtExplosives: begin |
1023 if ((Gear^.State and gstDrowning) <> 0) then |
1023 if ((Gear^.State and gstDrowning) <> 0) then |
1024 DrawSprite(sprExplosivesRoll, x - 24, y - 24, 0) |
1024 DrawSprite(sprExplosivesRoll, x - 24, y - 24, 0) |