hedgewars/uVisualGears.pas
changeset 2671 7e0f88013fe8
parent 2599 c7153d2348f3
child 2695 ed789a7ef68d
equal deleted inserted replaced
2670:1b327b7515ed 2671:7e0f88013fe8
   338 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
   338 function  AddVisualGear(X, Y: LongInt; Kind: TVisualGearType): PVisualGear;
   339 var Result: PVisualGear;
   339 var Result: PVisualGear;
   340 	t: Longword;
   340 	t: Longword;
   341 	sp: hwFloat;
   341 	sp: hwFloat;
   342 begin
   342 begin
   343 if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we're scrolling now
   343 if (GameType = gmtSave) or (fastUntilLag and (GameType = gmtNet)) then // we are scrolling now
   344 	if Kind <> vgtCloud then
   344 	if Kind <> vgtCloud then
   345 		begin
   345 		begin
   346 		AddVisualGear:= nil;
   346 		AddVisualGear:= nil;
   347 		exit
   347 		exit
   348 		end;
   348 		end;