hedgewars/uScript.pas
changeset 13755 110d6c1e817f
parent 13750 be265ab8a4fb
child 13757 f1c66a34f2fe
equal deleted inserted replaced
13754:0e8db74ec585 13755:110d6c1e817f
  4021 
  4021 
  4022 // other
  4022 // other
  4023 ScriptSetInteger('AMMO_INFINITE', AMMO_INFINITE);
  4023 ScriptSetInteger('AMMO_INFINITE', AMMO_INFINITE);
  4024 ScriptSetInteger('JETPACK_FUEL_INFINITE', JETPACK_FUEL_INFINITE);
  4024 ScriptSetInteger('JETPACK_FUEL_INFINITE', JETPACK_FUEL_INFINITE);
  4025 ScriptSetInteger('BIRDY_ENERGY_INFINITE', BIRDY_ENERGY_INFINITE);
  4025 ScriptSetInteger('BIRDY_ENERGY_INFINITE', BIRDY_ENERGY_INFINITE);
  4026 ScriptSetInteger('NoPointX', NoPointX);
  4026 ScriptSetInteger('NO_CURSOR', NoPointX);
  4027 ScriptSetInteger('cMaxHogHealth', cMaxHogHealth);
  4027 ScriptSetInteger('MAX_HOG_HEALTH', cMaxHogHealth);
  4028 ScriptSetInteger('cMaxTurnTime', cMaxTurnTime);
  4028 ScriptSetInteger('MAX_TURN_TIME', cMaxTurnTime);
  4029 
  4029 
  4030 // register gear types
  4030 // register gear types
  4031 for at:= Low(TGearType) to High(TGearType) do
  4031 for at:= Low(TGearType) to High(TGearType) do
  4032     ScriptSetInteger(EnumToStr(at), ord(at));
  4032     ScriptSetInteger(EnumToStr(at), ord(at));
  4033 
  4033