1213     AddAmmoStore;

  1213     AddAmmoStore;

  1214 end;

  1214 end;

  1215 

  1215 

  1216 procedure initModule;

  1216 procedure initModule;

  1217 var at : TGearType;

  1217 var at : TGearType;

  1218     am : TAmmoType;

  1219     am : TAmmoType;

  1219     st : TSound;

  1220     st : TSound;

  1220     he: THogEffect;

  1221     he: THogEffect;

  1221 begin

  1222 begin

  1222 // initialize lua

  1223 // initialize lua

  1282 ScriptSetInteger('SAY_SHOUT', 3);

  1283 ScriptSetInteger('SAY_SHOUT', 3);

  1283 

  1284 

  1284 // register gear types

  1285 // register gear types

  1285 for at:= Low(TGearType) to High(TGearType) do

  1286 for at:= Low(TGearType) to High(TGearType) do

  1286     ScriptSetInteger(EnumToStr(at), ord(at));

  1287     ScriptSetInteger(EnumToStr(at), ord(at));

  1287 

  1291 

  1288 // register sounds

  1292 // register sounds

  1289 for st:= Low(TSound) to High(TSound) do

  1293 for st:= Low(TSound) to High(TSound) do

  1290     ScriptSetInteger(EnumToStr(st), ord(st));

  1294     ScriptSetInteger(EnumToStr(st), ord(st));

  1291 

  1295