1
0

NPCChanger.qsrc 3.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148
  1. # NPCChanger
  2. if $ARGS[0] = 'Start':
  3. n = 1
  4. o = 10
  5. gs 'NPCChanger', 'NPCLoop'
  6. end
  7. if $ARGS[0] = 'NPCLoop':
  8. *clr & cla
  9. gs 'obj_din', 'cheattabs'
  10. '<center><h2>Cheat Menu - NPC Editor</h2></center>'
  11. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  12. '<td width="400" cellspacing="0" cellpadding="20" valign="top">'
  13. '*** THIS IS A WORK IN PROGRESS ***'
  14. if n = 0:
  15. n = 1
  16. o = 10
  17. end
  18. :LoopNPC
  19. if o > aarraynumber:
  20. o = aarraynumber
  21. end
  22. if n =< o:
  23. gs 'NPCChanger', 'npcdisplay'
  24. n +=1
  25. jump 'LoopNPC'
  26. end
  27. '<hr>'
  28. !!*nl 'o = <<o>> & n = <<n>>'
  29. *p '<a href="exec:gt ''NPCChanger'', ''next10'' ">Next 10</a> '
  30. *p '<a href="exec:gt ''NPCChanger'', ''back10'' ">Previous 10</a> '
  31. *nl
  32. *p '<a href="exec:gt ''NPCChanger'', ''next50'' ">Skip 50</a> '
  33. *p '<a href="exec:gt ''NPCChanger'', ''back50'' ">Back 50</a> '
  34. *nl
  35. *p '<a href="exec:gt ''NPCChanger'', ''selection'' ">Select an NPC to modify</a>'
  36. *nl '*** THIS IS A WORK IN PROGRESS ***'
  37. '</td></tr></table></center>'
  38. end
  39. if $ARGS[0] = 'next10':
  40. o += 10
  41. gs 'NPCChanger', 'NPCLoop'
  42. end
  43. if $ARGS[0] = 'next50':
  44. o += 50
  45. n = (o - 10)
  46. gs 'NPCChanger', 'NPCLoop'
  47. end
  48. if $ARGS[0] = 'back10':
  49. o -= 10
  50. n = (o - 10)
  51. gs 'NPCChanger', 'NPCLoop'
  52. end
  53. if $ARGS[0] = 'back50':
  54. o -= 50
  55. n = (o - 10)
  56. gs 'NPCChanger', 'NPCLoop'
  57. end
  58. if $ARGS[0] = 'npcdisplay':
  59. *nl 'NPC[A<<n>>] = '
  60. if $npc_firstname['A<<n>>'] = 0:
  61. *p ''
  62. else
  63. *p '<<$npc_firstname[''A<<n>>'']>>'
  64. end
  65. if $npc_firstname['A<<n>>'] = $npc_nickname['A<<n>>'] or $npc_nickname['A<<n>>'] = 0:
  66. *p''
  67. else
  68. *p ' "<<$npc_nickname[''A<<n>>'']>>"'
  69. end
  70. if $npc_lastname['a<<n>>'] = 0:
  71. *p ''
  72. else
  73. *p ' <<$npc_lastname[''A<<n>>'']>>'
  74. end
  75. end
  76. if $ARGS[0] = 'selection':
  77. s = input("Which NPC do you want to edit? Enter #")
  78. !!cla
  79. !!*clr
  80. if s = '':
  81. n = (o - 10)
  82. gt 'NPCChanger', 'NPCLoop'
  83. else
  84. gt 'NPCChanger', 'selection2'
  85. end
  86. end
  87. if $ARGS[0] = 'selection2':
  88. 'NPC first name: <<$npc_firstname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editf''">Change</a>'
  89. 'NPC nickname: <<$npc_nickname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editn''">Change</a>'
  90. 'NPC last name: <<$npc_lastname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editl''">Change</a>'
  91. 'NPC used name: <<$npc_usedname[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editu''">Change</a>'
  92. 'NPC date of birth: <<npc_dob[''A<<s>>'']>> <a href="exec:gt ''NPCChanger'', ''editd''">Change</a>'
  93. 'NPC DNA: <<$npc_dna[''A<<s>>'']>>'
  94. 'NPC description: <<$npc_notes[''A<<s>>'']>>'
  95. if npc_gender['A<<s>>'] = 0:
  96. 'NPC gender: Male'
  97. 'NPC dick length: <<npc_dick[''A<<s>>'']>>cm'
  98. 'NPC dick description: <<$npc_thdick[''A<<s>>'']>>'
  99. else
  100. 'NPC gender: Female'
  101. end
  102. if $npc_dad['A<<s>>'] = 'U':
  103. 'NPC father: Unknown'
  104. else
  105. $npcf = $npc_dad['A<<s>>']
  106. 'NPC father: <<$npc_firstname[''<<$npcf>>'']>>'
  107. end
  108. if $npc_mom['A<<s>>'] = 'U':
  109. 'NPC mother: Unknown'
  110. else
  111. $npcm = $npc_mom['A<<s>>']
  112. 'NPC mother: <<$npc_firstname[''<<$npcm>>'']>>'
  113. end
  114. act 'Done':
  115. n = (o - 10)
  116. gt 'NPCChanger', 'NPCLoop'
  117. end
  118. end
  119. if $ARGS[0] = 'editf':
  120. $npc_firstname['A<<s>>'] = input('Enter new first name')
  121. gt 'NPCChanger', 'selection2'
  122. end
  123. if $ARGS[0] = 'editn':
  124. $npc_nickname['A<<s>>'] = input('Enter new nickname')
  125. gt 'NPCChanger', 'selection2'
  126. end
  127. if $ARGS[0] = 'editl':
  128. $npc_lastname['A<<s>>'] = input('Enter new last name')
  129. gt 'NPCChanger', 'selection2'
  130. end
  131. if $ARGS[0] = 'editu':
  132. $npc_usedname['A<<s>>'] = input('Enter new used name')
  133. gt 'NPCChanger', 'selection2'
  134. end
  135. if $ARGS[0] = 'editd':
  136. npc_dob['A<<s>>'] = input('Enter new date of birth (yyyymmdd)')
  137. gt 'NPCChanger', 'selection2'
  138. end
  139. --- NPCChanger ---------------------------------