hedgewars/uScript.pas
changeset 9917 1ca194a8b509
parent 9914 ba26595503ab
child 9950 2759212a27de
child 9985 42cd42e44c9a
equal deleted inserted replaced
9914:ba26595503ab 9917:1ca194a8b509
  1931         cWaterLine:= lua_tointeger(L,1);
  1931         cWaterLine:= lua_tointeger(L,1);
  1932         AllInactive:= false;
  1932         AllInactive:= false;
  1933         iterator:= GearsList;
  1933         iterator:= GearsList;
  1934         while iterator <> nil do
  1934         while iterator <> nil do
  1935             begin
  1935             begin
  1936             if not (iterator^.Kind in [gtPortal, gtAirAttack]) and (iterator^.Message and gmAllStoppable = 0) then
  1936             if not (iterator^.Kind in [gtPortal, gtAirAttack]) and (iterator^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) then
  1937                 begin
  1937                 begin
  1938                 iterator^.Active:= true;
  1938                 iterator^.Active:= true;
  1939                 if iterator^.dY.QWordValue = 0 then iterator^.dY.isNegative:= false;
  1939                 if iterator^.dY.QWordValue = 0 then iterator^.dY.isNegative:= false;
  1940                 iterator^.State:= iterator^.State or gstMoving;
  1940                 iterator^.State:= iterator^.State or gstMoving;
  1941                 DeleteCI(iterator)
  1941                 DeleteCI(iterator)