Mod system to allow mods to attach directly to the main .qsp from illume

glife.qproj

@@ -17,6 +17,7 @@
       <Location name="inputProcessing"/>
       <Location name="restoreposition"/>
       <Location name="saveposition"/>
+      <Location name="mod_setting"/>
     </Folder>
     <Folder name="clothing">
       <Location name="wardrobe"/>

locations/LOCA

@@ -2,5 +2,18 @@
 
 if Enable_settingmode!2: killvar '$cheatmenu'
 
+if mod_list > 0:
+	mod_i=1
+	:mod_exec
+	if $mod_name[mod_i] ! '':
+		gs 'mod_<<$mod_name[mod_i]>>', $ARGS[0], $ARGS[1], $ARGS[2], $ARGS[3], $ARGS[4], $ARGS[5], $ARGS[6], $ARGS[7], $ARGS[8]
+	end
+	
+	if mod_list > mod_i:
+		mod_i+=1
+		jump 'mod_exec'
+	end
+end
+
 --- LOCA ---------------------------------
 

locations/mod_setting

@@ -0,0 +1,73 @@
+# mod_setting
+
+!'Mod system 1.0 by illume'
+*nl '<center><h1>MODs</h1></center>'
+
+'<center>'
+'WARNING: install too much mods, or some bad-structure mod, may cause seirous lag!'
+if mod_list > 0:
+
+	'<table border=1><tr><td>id</td><td>Name</td><td>Version</td><td>Author</td><td>Description</td></tr>'
+	mod_i=1
+	:mod_alllist
+	if $mod_name[mod_i] ! '':
+		gs 'mod_<<$mod_name[mod_i]>>_setup'
+		*p '<tr><td><<mod_i>></td><td><<$mod_info[0]>></td>'
+		!name
+		*p '<td><<val($mod_info[1])/10000>>.<<(val($mod_info[1]) mod 10000)/100>> <<iif(val($mod_info[1]) mod 100 > 0, ''fix <<val($mod_info[1]) mod 100>> '', '' '')>></td>'
+		!version
+		*p '<td><<$mod_info[2]>></td>'
+		!author
+		*p '<td><a href="exec:gs ''mod_<<$mod_info[0]>>_readme''"><img src="images/system/icon/anptekainfo.jpg"></a> <<$mod_info[3]>></td></tr>'
+		!description and readme		
+	else
+		'ERROR loading mod id <<mod_i>>, no mod name available'
+	end
+	
+	if mod_list > mod_i:
+		mod_i+=1
+		jump 'mod_alllist'
+	end	
+	killvar 'mod_info'	
+	'</table>'
+else
+	'<br>No Mod actived.'
+end
+'<img src="images/system/icon/mod_sample.jpg">'
+'</center>'
+act 'Install new mod':
+	killvar 'mod_info'
+	$mod_temp=input('input mod name (as for the example image above, input <B>isample</B>)')
+	if $mod_temp='':exit
+	ADDQST 'mod/<<$mod_temp>>.qsp'
+	gs 'mod_<<$mod_temp>>_setup'
+	if $mod_info[0] = '':
+		msg '<b><<$mod_temp>>.qsp</b> is not a Girl life ECV mod, please contract its author for help'
+		exit
+	end
+	mod_list += 1
+	$mod_name[mod_list] = $mod_info[0]
+	$mod_version[mod_list] = $mod_info[1]
+	$mod_author[mod_list] = $mod_info[2]
+	$mod_desc[mod_list] = $mod_info[3]
+	gt curloc
+end 
+act 'Disable all mods':
+	if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
+		KILLQST 
+		set mod_list=0
+		KILLVAR '$mod_name'
+		KILLVAR '$mod_version'
+		KILLVAR '$mod_author'
+		KILLVAR '$mod_desc'
+		'All mod disabled. You can re-install them later.'
+		cla
+		act 'Continue':goto curloc
+	end
+end
+act 'Return':
+	gt $loc,$metka
+end
+
+--- mod_setting ---------------------------------
+