mod_setting.qsrc 2.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  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></tr>'
  17. mod_i=1
  18. :mod_alllist
  19. if $mod_name[mod_i] ! '':
  20. gs 'mod_<<$mod_name[mod_i]>>_setup'
  21. *p '<tr><td><<mod_i>></td><td><<$mod_info[0]>></td>'
  22. !name
  23. *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>'
  24. !version
  25. *p '<td><<$mod_info[2]>></td>'
  26. !author
  27. *p '<td><a href="exec:gs ''mod_<<$mod_info[0]>>_readme''"><img src="images/system/icon/anptekainfo.jpg"></a> <<$mod_info[3]>></td></tr>'
  28. !description and readme
  29. else
  30. 'ERROR loading mod id <<mod_i>>, no mod name available'
  31. end
  32. if mod_list > mod_i:
  33. mod_i+=1
  34. jump 'mod_alllist'
  35. end
  36. killvar 'mod_info'
  37. '</table>'
  38. else
  39. '<br>You have no Mods activated.'
  40. end
  41. '</center>'
  42. act 'Install new mod':
  43. killvar 'mod_info'
  44. $mod_temp=input('input mod name (as for the example image above, input <B>isample</B>)')
  45. if $mod_temp='':exit
  46. ADDQST 'mod/<<$mod_temp>>.qsp'
  47. gs 'mod_<<$mod_temp>>_setup'
  48. if $mod_info[0] = '':
  49. msg '<b><<$mod_temp>>.qsp</b> is not a Girl life ECV mod, please contract its author for help'
  50. exit
  51. end
  52. mod_list += 1
  53. $mod_name[mod_list] = $mod_info[0]
  54. $mod_version[mod_list] = $mod_info[1]
  55. $mod_author[mod_list] = $mod_info[2]
  56. $mod_desc[mod_list] = $mod_info[3]
  57. gt curloc
  58. end
  59. act 'Disable all mods':
  60. if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
  61. KILLQST
  62. set mod_list=0
  63. KILLVAR '$mod_name'
  64. KILLVAR '$mod_version'
  65. KILLVAR '$mod_author'
  66. KILLVAR '$mod_desc'
  67. 'All mod disabled. You can re-install them later.'
  68. cla
  69. act 'Continue':goto curloc
  70. end
  71. end
  72. --- mod_setting ---------------------------------