mod_setting.qsrc 2.0 KB

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