// save_presets - Save Presets in slot nParm
void main()
{
   object oPC=GetPCSpeaker();
   int nParm=GetLocalInt(oPC,"nParm");
   object oMod=GetModule();
   string sS;
   int nN;
   int nT;
   float fF;
   string sID;
   string sPrefix="HOSPreset"+IntToString(nParm)+"_";
   SetCampaignInt("HOS",sPrefix+"bStored",TRUE);
   nN=GetLocalInt(oMod,"bNoChampion");
   SetCampaignInt("HOS",sPrefix+"bNoChampion",nN);
   nN=GetLocalInt(oMod,"nGameType");
   SetCampaignInt("HOS",sPrefix+"nGameType",nN);
   nN=GetLocalInt(oMod,"nElimLives");
   SetCampaignInt("HOS",sPrefix+"nElimLives",nN);
   nN=GetLocalInt(oMod,"nMaxSouls");
   SetCampaignInt("HOS",sPrefix+"nMaxSouls",nN);
   nN=GetLocalInt(oMod,"nTimeLimitDays");
   SetCampaignInt("HOS",sPrefix+"nTimeLimitDays",nN);
   nN=GetLocalInt(oMod,"bHolocaustEnabled");
   SetCampaignInt("HOS",sPrefix+"bHolocaustEnabled",nN);
   nN=GetLocalInt(oMod,"bOPTIONPower");
   SetCampaignInt("HOS",sPrefix+"bOPTIONPower",nN);
   nN=GetLocalInt(oMod,"bPlanningMode");
   SetCampaignInt("HOS",sPrefix+"bPlanningMode",nN);
   nN=GetLocalInt(oMod,"bROTOOMode");
   SetCampaignInt("HOS",sPrefix+"bROTOOMode",nN);
   nN=GetLocalInt(oMod,"nRTSDeathMethod");
   SetCampaignInt("HOS",sPrefix+"nRTSDeathMethod",nN);
   nN=GetLocalInt(oMod,"nRTSDeathWho");
   SetCampaignInt("HOS",sPrefix+"nRTSDeathWho",nN);
   nN=GetLocalInt(oMod,"bPlayerBleeding");
   SetCampaignInt("HOS",sPrefix+"bPlayerBleeding",nN);
   nN=GetLocalInt(oMod,"nManaDeath");
   SetCampaignInt("HOS",sPrefix+"nManaDeath",nN);
   fF=GetLocalFloat(oMod,"fXPMultiplier");
   nN=FloatToInt(fF);
   SetCampaignInt("HOS",sPrefix+"fXPMultiplier",nN);
   nN=GetLocalInt(oMod,"nInProgressJoins");
   SetCampaignInt("HOS",sPrefix+"nInProgressJoins",nN);
   nN=GetLocalInt(oMod,"nMaxPlayers");
   SetCampaignInt("HOS",sPrefix+"nMaxPlayers",nN);
   nN=GetLocalInt(oMod,"nManaGoldMultiplier");
   SetCampaignInt("HOS",sPrefix+"nManaGoldMultiplier",nN);
   nN=GetLocalInt(oMod,"nGSAdvEnabled");
   SetCampaignInt("HOS",sPrefix+"nGSAdvEnabled",nN);
   nN=GetLocalInt(oMod,"bNOLEVELUP");
   SetCampaignInt("HOS",sPrefix+"bNOLEVELUP",nN);
   nN=GetLocalInt(oMod,"nGSStartingLevel");
   SetCampaignInt("HOS",sPrefix+"nGSStartingLevel",nN);
   nN=GetLocalInt(oMod,"nTOMEREBIRTH");
   SetCampaignInt("HOS",sPrefix+"nTOMEREBIRTH",nN);
   nN=GetLocalInt(oMod,"nMONGoldDrop");
   SetCampaignInt("HOS",sPrefix+"nMONGoldDrop",nN);
   nN=GetLocalInt(oMod,"norcRaiders");
   SetCampaignInt("HOS",sPrefix+"norcRaiders",nN);
   nN=GetLocalInt(oMod,"ngnollRaiders");
   SetCampaignInt("HOS",sPrefix+"ngnollRaiders",nN);
   nN=GetLocalInt(oMod,"nboggleRaiders");
   SetCampaignInt("HOS",sPrefix+"nboggleRaiders",nN);
   nN=GetLocalInt(oMod,"npygmyRaiders");
   SetCampaignInt("HOS",sPrefix+"npygmyRaiders",nN);
   nN=GetLocalInt(oMod,"ngiantRaiders");
   SetCampaignInt("HOS",sPrefix+"ngiantRaiders",nN);
   nN=GetLocalInt(oMod,"ndbanditRaiders");
   SetCampaignInt("HOS",sPrefix+"ndbanditRaiders",nN);
   nN=GetLocalInt(oMod,"nbarbRaiders");
   SetCampaignInt("HOS",sPrefix+"nbarbRaiders",nN);
   nN=GetLocalInt(oMod,"nduergarRaiders");
   SetCampaignInt("HOS",sPrefix+"nduergarRaiders",nN);
   nN=GetLocalInt(oMod,"bAIPCLeaderType");
   SetCampaignInt("HOS",sPrefix+"bAIPCLeaderType",nN);
   nN=GetLocalInt(oMod,"nAIDelay");
   SetCampaignInt("HOS",sPrefix+"nAIDelay",nN);
   nN=GetLocalInt(oMod,"nAISetting");
   SetCampaignInt("HOS",sPrefix+"nAISetting",nN);
   nN=GetLocalInt(oMod,"nAIUnitCreateSpeed");
   SetCampaignInt("HOS",sPrefix+"nAIUnitCreateSpeed",nN);
   nN=GetLocalInt(oMod,"nAIPauseSetting");
   SetCampaignInt("HOS",sPrefix+"nAIPauseSetting",nN);
   nN=GetLocalInt(oMod,"bBanterDisabled");
   SetCampaignInt("HOS",sPrefix+"bBanterDisabled",nN);
   nN=GetLocalInt(oMod,"bUnitConsolidationOn");
   SetCampaignInt("HOS",sPrefix+"bUnitConsolitdationOn",nN);
   nN=GetLocalInt(oMod,"bVerboseAIMessaging");
   SetCampaignInt("HOS",sPrefix+"bVerboseAIMessaging",nN);
   nN=GetLocalInt(oMod,"nAILevelSpeed");
   SetCampaignInt("HOS",sPrefix+"nAILevelSpeed",nN);
   nN=GetLocalInt(oMod,"nMaxUnits");
   SetCampaignInt("HOS",sPrefix+"nMaxUnits",nN);
   nT=1;
   while(nT<5)
   { // process team AI settings
     sID="DWF";
     if (nT==2) sID="UNC";
     else if (nT==3) sID="UND";
     else if (nT==4) sID="SPID";
     nN=GetLocalInt(oMod,"nAISetting");
     if (TRUE)
     { // custom ai
       sS=GetLocalString(oMod,"sAICode"+sID);
       SetCampaignString("HOS",sPrefix+"sAICode"+sID,sS);
       if (TRUE)
       { // modified challenging
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIRL");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIRL",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAICPL");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAICPL",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIPRL");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIPRL",nN);
         sS=GetLocalString(oMod,"s"+sID+"_CAI_PE");
         SetCampaignString("HOS",sPrefix+"s"+sID+"_CAI_PE",sS);
         nN=GetLocalInt(oMod,"n"+sID+"_CAI_Setting");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_CAI_Setting",nN);
         sS=GetLocalString(oMod,"sIsAlliedTo"+sID);
         SetCampaignString("HOS",sPrefix+"sIsAlliedTo"+sID,sS);
         nN=GetLocalInt(oMod,"bIsAllianceLeader"+sID);
         SetCampaignInt("HOS",sPrefix+"bIsAllianceLeader"+sID,nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIMVD");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIMVD",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAITRD");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAITRD",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAILD1");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAILD1",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAILD2");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAILD2",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIRA");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIRA",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIRM");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIRM",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIRG");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIRG",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAICPC");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAICPC",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIPR");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIPR",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIHU");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIHU",nN);
         nN=GetLocalInt(oMod,"n"+sID+"_nCAIIC");
         SetCampaignInt("HOS",sPrefix+"n"+sID+"_nCAIIC",nN);
       } // modified challenging
     } // custom ai
     nN=GetLocalInt(oMod,"b"+sID+"Locked");
     SetCampaignInt("HOS",sPrefix+"b"+sID+"Locked",nN);
     nT++;
   } // process team AI settings
}