mod_setting.qsrc 2.9 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  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. *nl
  16. 'You may find information on available Mods as well as instructions on installing Mods on this thread:'
  17. '<a href="https://tfgames.site/phpbb3/viewtopic.php?f=70&t=11793&sid=08ee13168a1ea71fa2348f20815b8380">https://tfgames.site/phpbb3/viewtopic.php?f=70&t=11793&sid=08ee13168a1ea71fa2348f20815b8380</a>'
  18. *nl
  19. if mod_list > 0:
  20. '<table border=1><tr><td>id</td><td>Name</td><td>Version</td><td>Author</td><td>Description</td><td>Options</td></tr>'
  21. mod_i=1
  22. :mod_alllist
  23. if $mod_name[mod_i] ! '':
  24. !name
  25. gs 'mod_<<$mod_name[mod_i]>>_setup'
  26. *p '<tr><td><<mod_i>></td><td><<$mod_info[0]>></td>'
  27. !version
  28. *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>'
  29. !author
  30. *p '<td><<$mod_info[2]>></td>'
  31. !description and readme
  32. *p '<td><a href="exec:gs ''mod_<<$mod_info[0]>>_readme''"><img src="images/system/icons/anptekainfo.jpg"></a> <<$mod_info[3]>></td>'
  33. !mod options page
  34. *p '<td>'+iif($mod_opt[mod_i] ! '','<a href="exec:gs ''mod_<<$mod_info[0]>>_options''"><<$mod_info[4]>></a>','')+'</td></tr>'
  35. else
  36. 'ERROR loading mod id <<mod_i>>, no mod name available'
  37. end
  38. if mod_list > mod_i:
  39. mod_i+=1
  40. jump 'mod_alllist'
  41. end
  42. killvar '$mod_info'
  43. '</table>'
  44. else
  45. '<br>You have no Mods activated.'
  46. end
  47. '</center>'
  48. act ''+iif(settingmode = 1, '<center><b>Install new mod</b></center>','Install new mod')+'':
  49. killvar '$mod_info'
  50. $mod_temp=input('input mod name (as for the example image above, input <B>isample</B>)')
  51. if $mod_temp='':exit
  52. addqst 'mod/<<$mod_temp>>.qsp'
  53. gs 'mod_<<$mod_temp>>_setup'
  54. if $mod_info[0] = '':
  55. msg '<b><<$mod_temp>>.qsp</b> is not a Girl life ECV mod, please contract its author for help'
  56. exit
  57. end
  58. mod_list += 1
  59. $mod_name[mod_list] = $mod_info[0]
  60. $mod_version[mod_list] = $mod_info[1]
  61. $mod_author[mod_list] = $mod_info[2]
  62. $mod_desc[mod_list] = $mod_info[3]
  63. $mod_opt[mod_list] = $mod_info[4]
  64. gt 'mod_setting'
  65. end
  66. act ''+iif(settingmode = 1, '<center><b>Disable all mods</b></center>','Disable all mods')+'':
  67. if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
  68. killqst
  69. set mod_list=0
  70. killvar '$mod_name'
  71. killvar '$mod_version'
  72. killvar '$mod_author'
  73. killvar '$mod_desc'
  74. killvar '$mod_opt'
  75. msg 'All mod disabled. You can re-install them later.'
  76. gt 'mod_setting'
  77. end
  78. end
  79. --- mod_setting ---------------------------------