even more saved.cfg cleanup

git-svn-id: svn://svn.code.sf.net/p/actiongame/code/trunk/ac@6375 e016b1c5-ed68-44aa-a2f7-31cac88cffde

config/defaults.cfg

@@ -19,6 +19,7 @@ setfont default                     // Choose your font
 ofc_gamma_list = ""
 loop ogl (listlen $defaultmaps) [ add2list ofc_gamma_list $gamma ]
 
+tmpClientData =
 askquit = 1
 gfxqualityalias = 3   // Default GFX is medium.
 soundqualityalias = 3 // Default sound is best.

config/on_quit.cfg

@@ -1,6 +1,27 @@
 // Adds a list of aliases to be deleted (cleared from saved.cfg) on every quit.
 // Do not modify. (unless you really know what you're doing)
 
+// Restores aliases that were stored in saved.cfg as a list - for increased efficiency
+saveClientData = "curname LANG flystyle nickhighlight soundqualityalias dyngamma __gibsgore gfxqualityalias poniesmodeon old_editbinds askquit"
+
+if (! (checkalias afterinit)) [ afterinit = "" ]
+if (! (strstr $afterinit tmpClientData)) [
+  add2alias afterinit [ 
+    if (checkalias tmpClientData) [
+      if (= (listlen $tmpClientData) (listlen $saveClientData)) [
+        loop lcd (listlen $tmpClientData) [
+          (at $saveClientData $lcd) = (at $tmpClientData $lcd)
+        ]
+      ]
+    ]
+  ]
+]
+// Stores the data as a list
+addOnQuit [
+  tmpClientData = ""
+  loop scd (listlen $saveClientData) [ add2list tmpClientData (getalias (at $saveClientData $scd)) ]
+]
+
 addListOnQuit = [ alias_list = $arg1; loop al (listlen $alias_list) [ addOnQuit (concat "delalias" (at $alias_list $al)) ] ]
 
 on_quit_aliases = [
@@ -40,4 +61,4 @@ on_quit_aliases = [
   on_quit_aliases
 ]
 
-addListOnQuit $on_quit_aliases; addOnQuit [ delalias alias_list ]
+addListOnQuit $saveClientData; addListOnQuit $on_quit_aliases; addOnQuit [ delalias alias_list ]