equal
deleted
inserted
replaced
162 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; |
162 function AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear; |
163 var Result: PVisualGear; |
163 var Result: PVisualGear; |
164 t: Longword; |
164 t: Longword; |
165 sp: hwFloat; |
165 sp: hwFloat; |
166 begin |
166 begin |
|
167 if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we're scrolling now |
|
168 if Kind <> vgtCloud then |
|
169 begin |
|
170 AddVisualGear:= nil; |
|
171 exit |
|
172 end; |
|
173 |
167 New(Result); |
174 New(Result); |
168 FillChar(Result^, sizeof(TVisualGear), 0); |
175 FillChar(Result^, sizeof(TVisualGear), 0); |
169 Result^.X:= int2hwFloat(X); |
176 Result^.X:= int2hwFloat(X); |
170 Result^.Y:= int2hwFloat(Y); |
177 Result^.Y:= int2hwFloat(Y); |
171 Result^.Kind := Kind; |
178 Result^.Kind := Kind; |