mod_setting 2.0 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273
  1. # mod_setting
  2. !'Mod system 1.0 by illume'
  3. *nl '<center><h1>MODs</h1></center>'
  4. '<center>'
  5. 'WARNING: install too much mods, or some bad-structure mod, may cause seirous lag!'
  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>No Mod actived.'
  31. end
  32. '<img src="images/system/icon/mod_sample.jpg">'
  33. '</center>'
  34. act 'Install new mod':
  35. killvar 'mod_info'
  36. $mod_temp=input('input mod name (as for the example image above, input <B>isample</B>)')
  37. if $mod_temp='':exit
  38. ADDQST 'mod/<<$mod_temp>>.qsp'
  39. gs 'mod_<<$mod_temp>>_setup'
  40. if $mod_info[0] = '':
  41. msg '<b><<$mod_temp>>.qsp</b> is not a Girl life ECV mod, please contract its author for help'
  42. exit
  43. end
  44. mod_list += 1
  45. $mod_name[mod_list] = $mod_info[0]
  46. $mod_version[mod_list] = $mod_info[1]
  47. $mod_author[mod_list] = $mod_info[2]
  48. $mod_desc[mod_list] = $mod_info[3]
  49. gt curloc
  50. end
  51. act 'Disable all mods':
  52. if input('Are you sure? ALL mod will be disabled!<br>please input <b>qqq</B> to confirm') = 'qqq':
  53. KILLQST
  54. set mod_list=0
  55. KILLVAR '$mod_name'
  56. KILLVAR '$mod_version'
  57. KILLVAR '$mod_author'
  58. KILLVAR '$mod_desc'
  59. 'All mod disabled. You can re-install them later.'
  60. cla
  61. act 'Continue':goto curloc
  62. end
  63. end
  64. act 'Return':
  65. gt $loc,$metka
  66. end
  67. --- mod_setting ---------------------------------