equal
deleted
inserted
replaced
1248 |
1248 |
1249 // Portal ball trace effects |
1249 // Portal ball trace effects |
1250 if ((Gear^.Tag and 1) = 0) and ((GameTicks mod 4) = 0) and (not isPaused) then |
1250 if ((Gear^.Tag and 1) = 0) and ((GameTicks mod 4) = 0) and (not isPaused) then |
1251 begin |
1251 begin |
1252 vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1); |
1252 vg:= AddVisualGear(hwRound(Gear^.X), hwRound(Gear^.Y), vgtDust, 1); |
1253 if Gear^.Tag = 0 then |
1253 if vg <> nil then |
1254 vg^.Tint:= $fab02ab0 |
1254 if Gear^.Tag = 0 then |
1255 else if Gear^.Tag = 2 then |
1255 vg^.Tint:= $fab02ab0 |
1256 vg^.Tint:= $364df7b0; |
1256 else if Gear^.Tag = 2 then |
|
1257 vg^.Tint:= $364df7b0; |
1257 end; |
1258 end; |
1258 end; |
1259 end; |
1259 |
1260 |
1260 gtDrill: if (Gear^.State and gsttmpFlag) <> 0 then |
1261 gtDrill: if (Gear^.State and gsttmpFlag) <> 0 then |
1261 DrawSpriteRotated(sprAirDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)) |
1262 DrawSpriteRotated(sprAirDrill, x, y, 0, DxDy2Angle(Gear^.dY, Gear^.dX)) |