1
0

mod_setting.qsrc 2.6 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182
  1. # mod_setting
  2. !'Mod system 1.0 by illume'
  3. gs 'obj_din', 'settingtabs'
  4. cla
  5. if settingmode = 1:
  6. !value= 2, call from Character creation
  7. act '<center><b>Return to character creation</b></center>': killvar 'menu_page' & gt 'begin', 'start'
  8. else
  9. !call from Menu - Game settings
  10. act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit'
  11. end
  12. *nl '<center><h1>MODs</h1></center>'
  13. '<center>'
  14. '<b>WARNING</b>: Game slowdown may occur when installing too many mods, or mods with bad structure.'
  15. if mod_list > 0:
  16. '<table border=1><tr><td>id</td><td>Name</td><td>Version</td><td>Author</td><td>Description</td><td>Options</td></tr>'
  17. mod_i=1
  18. :mod_alllist
  19. if $mod_name[mod_i] ! '':
  20. !name
  21. gs 'mod_<<$mod_name[mod_i]>>_setup'
  22. *p '<tr><td><<mod_i>></td><td><<$mod_info[0]>></td>'
  23. !version
  24. *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>'
  25. !author
  26. *p '<td><<$mod_info[2]>></td>'
  27. !description and readme
  28. *p '<td><a href="exec:gs ''mod_<<$mod_info[0]>>_readme''"><img src="images/system/icon/anptekainfo.jpg"></a> <<$mod_info[3]>></td>'
  29. !mod options page
  30. *p '<td>'+iif($mod_opt[mod_i] ! '','<a href="exec:gs ''mod_<<$mod_info[0]>>_options''"><<$mod_info[4]>></a>','')+'</td></tr>'
  31. else
  32. 'ERROR loading mod id <<mod_i>>, no mod name available'
  33. end
  34. if mod_list > mod_i:
  35. mod_i+=1
  36. jump 'mod_alllist'
  37. end
  38. killvar '$mod_info'
  39. '</table>'
  40. else
  41. '<br>You have no Mods activated.'
  42. end
  43. '</center>'
  44. act ''+iif(settingmode = 1, '<center><b>Install new mod</b></center>','Install new mod')+'':
  45. killvar '$mod_info'
  46. $mod_temp=input('input mod name (as for the example image above, input <B>isample</B>)')
  47. if $mod_temp='':exit
  48. addqst 'mod/<<$mod_temp>>.qsp'
  49. gs 'mod_<<$mod_temp>>_setup'
  50. if $mod_info[0] = '':
  51. msg '<b><<$mod_temp>>.qsp</b> is not a Girl life ECV mod, please contract its author for help'
  52. exit
  53. end
  54. mod_list += 1
  55. $mod_name[mod_list] = $mod_info[0]
  56. $mod_version[mod_list] = $mod_info[1]
  57. $mod_author[mod_list] = $mod_info[2]
  58. $mod_desc[mod_list] = $mod_info[3]
  59. $mod_opt[mod_list] = $mod_info[4]
  60. gt $loc, $metka
  61. end
  62. act ''+iif(settingmode = 1, '<center><b>Disable all mods</b></center>','Disable all mods')+'':
  63. if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
  64. killqst
  65. set mod_list=0
  66. killvar '$mod_name'
  67. killvar '$mod_version'
  68. killvar '$mod_author'
  69. killvar '$mod_desc'
  70. killvar '$mod_opt'
  71. 'All mod disabled. You can re-install them later.'
  72. cla
  73. act 'Continue':gt $loc, $metka
  74. end
  75. end
  76. --- mod_setting ---------------------------------