hedgewars/uStore.pas
changeset 6898 344b0dbd9690
parent 6885 53a87a4c7b35
child 6982 8d41d22a291d
equal deleted inserted replaced
6897:a9126661f613 6898:344b0dbd9690
  1115 
  1115 
  1116 procedure initModule;
  1116 procedure initModule;
  1117 var ai: TAmmoType;
  1117 var ai: TAmmoType;
  1118     i: LongInt;
  1118     i: LongInt;
  1119 begin
  1119 begin
  1120     RegisterVariable('fullscr', vtCommand, @chFullScr, true);
  1120     RegisterVariable('fullscr', @chFullScr, true);
  1121 
  1121 
  1122     SDLPrimSurface:= nil;
  1122     SDLPrimSurface:= nil;
  1123 
  1123 
  1124     cScaleFactor:= 2.0;
  1124     cScaleFactor:= 2.0;
  1125     Step:= 0;
  1125     Step:= 0;