1
0

Cheatmenu_din.qsrc 146 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294129512961297129812991300130113021303130413051306130713081309131013111312131313141315131613171318131913201321132213231324132513261327132813291330133113321333133413351336133713381339134013411342134313441345134613471348134913501351135213531354135513561357135813591360136113621363136413651366136713681369137013711372137313741375137613771378137913801381138213831384138513861387138813891390139113921393139413951396139713981399140014011402140314041405140614071408140914101411141214131414141514161417141814191420142114221423142414251426142714281429143014311432143314341435143614371438143914401441144214431444144514461447144814491450145114521453145414551456145714581459146014611462146314641465146614671468146914701471147214731474147514761477147814791480148114821483148414851486148714881489149014911492149314941495149614971498149915001501150215031504150515061507150815091510151115121513151415151516151715181519152015211522152315241525152615271528152915301531153215331534153515361537153815391540154115421543154415451546154715481549155015511552155315541555155615571558155915601561156215631564156515661567156815691570157115721573157415751576157715781579158015811582158315841585158615871588158915901591159215931594159515961597159815991600160116021603160416051606160716081609161016111612161316141615161616171618161916201621162216231624162516261627162816291630163116321633163416351636163716381639164016411642164316441645164616471648164916501651165216531654165516561657165816591660166116621663166416651666166716681669167016711672167316741675167616771678167916801681168216831684168516861687168816891690169116921693169416951696169716981699170017011702170317041705170617071708170917101711171217131714171517161717171817191720172117221723172417251726172717281729173017311732173317341735173617371738173917401741174217431744174517461747174817491750175117521753175417551756175717581759176017611762176317641765176617671768176917701771177217731774177517761777177817791780178117821783178417851786178717881789179017911792179317941795179617971798179918001801180218031804180518061807180818091810181118121813181418151816181718181819182018211822182318241825182618271828182918301831183218331834183518361837183818391840184118421843184418451846184718481849185018511852185318541855185618571858185918601861186218631864186518661867186818691870187118721873187418751876187718781879188018811882188318841885188618871888188918901891189218931894189518961897189818991900190119021903190419051906190719081909191019111912191319141915191619171918191919201921192219231924192519261927192819291930193119321933193419351936193719381939194019411942194319441945194619471948194919501951195219531954195519561957195819591960196119621963196419651966196719681969197019711972197319741975197619771978197919801981198219831984198519861987198819891990199119921993199419951996199719981999200020012002200320042005200620072008200920102011201220132014201520162017201820192020202120222023202420252026202720282029203020312032203320342035203620372038203920402041204220432044204520462047204820492050205120522053205420552056205720582059206020612062206320642065206620672068206920702071207220732074207520762077207820792080208120822083208420852086208720882089209020912092209320942095209620972098209921002101210221032104210521062107210821092110211121122113211421152116211721182119212021212122212321242125212621272128212921302131213221332134213521362137213821392140214121422143214421452146214721482149215021512152215321542155215621572158215921602161216221632164216521662167216821692170217121722173217421752176217721782179218021812182218321842185218621872188218921902191219221932194219521962197219821992200220122022203220422052206220722082209221022112212221322142215221622172218221922202221222222232224222522262227222822292230223122322233223422352236223722382239224022412242224322442245224622472248224922502251225222532254225522562257225822592260226122622263226422652266226722682269227022712272227322742275227622772278227922802281228222832284228522862287228822892290229122922293229422952296229722982299230023012302230323042305230623072308230923102311231223132314231523162317231823192320232123222323232423252326232723282329233023312332233323342335233623372338233923402341234223432344234523462347234823492350235123522353235423552356235723582359236023612362236323642365236623672368236923702371237223732374237523762377237823792380238123822383238423852386238723882389239023912392239323942395239623972398239924002401240224032404240524062407240824092410241124122413241424152416241724182419242024212422242324242425242624272428242924302431243224332434243524362437243824392440244124422443244424452446244724482449245024512452245324542455245624572458245924602461246224632464246524662467246824692470247124722473247424752476247724782479248024812482248324842485248624872488248924902491249224932494249524962497249824992500250125022503250425052506250725082509251025112512251325142515251625172518251925202521252225232524252525262527252825292530253125322533253425352536253725382539254025412542254325442545254625472548254925502551255225532554255525562557255825592560256125622563256425652566256725682569257025712572257325742575257625772578257925802581258225832584258525862587258825892590259125922593259425952596259725982599260026012602260326042605260626072608260926102611261226132614261526162617
  1. # Cheatmenu_din
  2. *clr & cla
  3. !All the active dynamics for the cheat menu are here
  4. $cheatmenu['empty'] = {
  5. !Yes, intentionally empty, do not remove it
  6. }
  7. $cheatmenu['work'] = {
  8. if cheatWork = 0:
  9. cheatWork = 1
  10. dynamic $cheatmenu['permanent']
  11. exit
  12. elseif cheatWork = 1:
  13. cheatWork = 0
  14. dynamic $cheatmenu['permanent']
  15. end
  16. }
  17. $cheatmenu['hair'] = {
  18. if cheatHapri = 0:
  19. cheatHapri = 1
  20. dynamic $cheatmenu['permanent']
  21. exit
  22. elseif cheatHapri = 1:
  23. cheatHapri = 0
  24. dynamic $cheatmenu['permanent']
  25. end
  26. }
  27. $cheatmenu['enema'] = {
  28. if cheatKlisma = 0:
  29. cheatKlisma = 1
  30. dynamic $cheatmenu['permanent']
  31. exit
  32. elseif cheatKlisma = 1:
  33. cheatKlisma = 0
  34. dynamic $cheatmenu['permanent']
  35. end
  36. }
  37. $cheatmenu['nomakeup'] = {
  38. if cheatNomakeup = 0:
  39. cheatNomakeup = 1
  40. dynamic $cheatmenu['permanent']
  41. exit
  42. elseif cheatNomakeup = 1:
  43. cheatNomakeup = 0
  44. dynamic $cheatmenu['permanent']
  45. end
  46. }
  47. $cheatmenu['nosweat'] = {
  48. if cheatNoSweat = 0:
  49. cheatNoSweat = 1
  50. dynamic $cheatmenu['permanent']
  51. exit
  52. elseif cheatNoSweat = 1:
  53. cheatNoSweat = 0
  54. dynamic $cheatmenu['permanent']
  55. end
  56. }
  57. $cheatmenu['noEat'] = {
  58. if cheatNoEat = 0:
  59. cheatNoEat = 1
  60. dynamic $cheatmenu['permanent']
  61. exit
  62. elseif cheatNoEat = 1:
  63. cheatNoEat = 0
  64. dynamic $cheatmenu['permanent']
  65. end
  66. }
  67. $cheatmenu['noDrink'] = {
  68. if cheatNoDrink = 0:
  69. cheatNoDrink = 1
  70. dynamic $cheatmenu['permanent']
  71. exit
  72. elseif cheatNoDrink = 1:
  73. cheatNoDrink = 0
  74. dynamic $cheatmenu['permanent']
  75. end
  76. }
  77. $cheatmenu['noSleep'] = {
  78. if cheatNoSleep = 0:
  79. cheatNoSleep = 1
  80. dynamic $cheatmenu['permanent']
  81. exit
  82. elseif cheatNoSleep = 1:
  83. cheatNoSleep = 0
  84. dynamic $cheatmenu['permanent']
  85. end
  86. }
  87. $cheatmenu['noMood'] = {
  88. if cheatNoMood = 0:
  89. cheatNoMood = 1
  90. dynamic $cheatmenu['permanent']
  91. exit
  92. elseif cheatNoMood = 1:
  93. cheatNoMood = 0
  94. dynamic $cheatmenu['permanent']
  95. end
  96. }
  97. $cheatmenu['noFat'] = {
  98. if cheatNoFat = 0:
  99. cheatNoFat = 1
  100. dynamic $cheatmenu['permanent']
  101. exit
  102. elseif cheatNoFat = 1:
  103. cheatNoFat = 0
  104. dynamic $cheatmenu['permanent']
  105. end
  106. }
  107. $cheatmenu['health'] = {
  108. if cheatHealth = 0:
  109. cheatHealth = 1
  110. dynamic $cheatmenu['permanent']
  111. exit
  112. elseif cheatHealth = 1:
  113. cheatHealth = 0
  114. dynamic $cheatmenu['permanent']
  115. end
  116. }
  117. $cheatmenu['Bandit'] = {
  118. if cheatBandit = 0:
  119. cheatBandit = 1
  120. dynamic $cheatmenu['permanent']
  121. exit
  122. elseif cheatBandit = 1:
  123. cheatBandit = 0
  124. dynamic $cheatmenu['permanent']
  125. end
  126. }
  127. $cheatmenu['fight'] = {
  128. if fight_cheat = 0:
  129. fight_cheat = 1
  130. dynamic $cheatmenu['permanent']
  131. exit
  132. elseif fight_cheat = 1:
  133. fight_cheat = 0
  134. dynamic $cheatmenu['permanent']
  135. end
  136. }
  137. $cheatmenu['autocombat'] = {
  138. if autocombat_cheat = 0:
  139. autocombat_cheat = 1
  140. dynamic $cheatmenu['permanent']
  141. exit
  142. elseif autocombat_cheat = 1:
  143. autocombat_cheat = 0
  144. dynamic $cheatmenu['permanent']
  145. end
  146. }
  147. $cheatmenu['age'] = {
  148. :tooyoung
  149. age = year - ((pcs_dob - (pcs_dob mod 10000)) / 10000)
  150. if ((month * 100) + day) <= pcs_dob mod 10000: age -= 1
  151. if age < 15: pcs_dob -= 10000 & jump 'tooyoung'
  152. dynamic $cheatmenu['looks']
  153. }
  154. $cheatmenu['visualage'] = {
  155. vidage = input("For how many years you want to look?")
  156. if vidage <= 14: vidage = 14
  157. dynamic $cheatmenu['looks']
  158. }
  159. $cheatmenu['money'] = {
  160. money = input("How much money do you want to have?")
  161. if money < 0:money = 0
  162. dynamic $cheatmenu['state']
  163. }
  164. $cheatmenu['bodyMod'] = {
  165. *clr & cla
  166. act 'Return to last menu': dynamic $cheatmenu['state']
  167. '<center><h1>Cheat Menu - Body Modification</h1></center>'
  168. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  169. '<td width="400" cellspacing="0" cellpadding="20" valign="top">'
  170. '<center><b><font color="red">WARNING!</font></b></center>'
  171. 'Changing body shape does not resize clothes.'
  172. 'May cause adverse interactions, use at your own risk!'
  173. ''
  174. 'You are currently <<$body>>.'
  175. ''
  176. 'You may select from the following sizes:'
  177. ''
  178. 'starving (No, you may not select ''starving'', it''s here to show where the scale starts)'
  179. ''
  180. if salocatnow ! 1:
  181. '<a href="exec:salo = 20 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 1)]>></a>'
  182. ''
  183. end
  184. if salocatnow ! 2:
  185. '<a href="exec:salo = 40 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 2)]>></a>'
  186. ''
  187. end
  188. if salocatnow ! 3:
  189. '<a href="exec:salo = 60 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 3)]>></a>'
  190. ''
  191. end
  192. if salocatnow ! 4:
  193. '<a href="exec:salo = 80 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 4)]>></a>'
  194. ''
  195. end
  196. if salocatnow ! 5:
  197. '<a href="exec:salo = 100 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 5)]>></a>'
  198. ''
  199. end
  200. if salocatnow ! 6:
  201. '<a href="exec:salo = 120 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 6)]>></a>'
  202. ''
  203. end
  204. if salocatnow ! 7:
  205. '<a href="exec:salo = 140 & gs ''body_shape'', ''softreset'' & gs ''stat'' & dynamic $cheatmenu[''bodyMod'']"><<$bodimgsets[((bodset * 10) + 7)]>></a>'
  206. ''
  207. end
  208. '</tr></table></b></center>'
  209. }
  210. $cheatmenu['addict'] = {
  211. if NarkImmune = 0:
  212. NarkImmune = 1
  213. dynamic $cheatmenu['permanent']
  214. exit
  215. elseif NarkImmune = 1:
  216. NarkImmune = 0
  217. dynamic $cheatmenu['permanent']
  218. end
  219. }
  220. $cheatmenu['cheatHorny'] = {
  221. if cheatHorny = 0:
  222. cheatHorny = 1
  223. dynamic $cheatmenu['permanent']
  224. exit
  225. elseif cheatHorny = 1:
  226. cheatHorny = 0
  227. dynamic $cheatmenu['permanent']
  228. end
  229. }
  230. $cheatmenu['slutshot'] = {
  231. if cheatSlut = 0:
  232. cheatSlut = 1
  233. cycle = 6
  234. dynamic $cheatmenu['permanent']
  235. exit
  236. elseif cheatSlut = 1:
  237. cheatSlut = 0
  238. cycle = 0
  239. dynamic $cheatmenu['permanent']
  240. end
  241. }
  242. $cheatmenu['cheat_NoPregnancy'] = {
  243. if cheat_NoPregnancy = 1:
  244. killvar 'cheat_NoPregnancy'
  245. $cheat_NoPregnancy = 'YES'
  246. dynamic $cheatmenu['permanent']
  247. else
  248. cheat_NoPregnancy = 1
  249. $cheat_NoPregnancy = 'NO'
  250. dynamic $cheatmenu['permanent']
  251. end
  252. }
  253. $cheatmenu['cheat_NoLactation'] = {
  254. if cheat_NoLactation = 1:
  255. killvar 'cheat_NoLactation'
  256. $cheat_NoLactation = 'YES'
  257. dynamic $cheatmenu['permanent']
  258. else
  259. cheat_Nolactation = 1
  260. $cheat_NoLactation = 'NO'
  261. dynamic $cheatmenu['permanent']
  262. end
  263. }
  264. $cheatmenu['Vibrator'] = {
  265. if cheatVib = 0:
  266. cheatVib = 1
  267. bedvibrator = 1
  268. dynamic $cheatmenu['permanent']
  269. elseif cheatVib = 1:
  270. cheatVib = 0
  271. bedvibrator = 0
  272. dynamic $cheatmenu['permanent']
  273. end
  274. }
  275. $cheatmenu['BimboCloth'] = {
  276. if cheatBimbo = 0:
  277. cheatBimbo = 1
  278. dynamic $cheatmenu['permanent']
  279. bimbo = 0
  280. bimbolevel = 0
  281. bimbowithdrawal = 0
  282. elseif cheatBimbo = 1:
  283. cheatBimbo = 0
  284. dynamic $cheatmenu['permanent']
  285. end
  286. }
  287. $cheatmenu['exhib_block'] = {
  288. if exhib_cheat = 0:
  289. exhib_cheat = 1
  290. dynamic $cheatmenu['permanent']
  291. pcs_exhib = 0
  292. Exhibitionist_lvl = 0
  293. elseif exhib_cheat = 1:
  294. exhib_cheat = 0
  295. dynamic $cheatmenu['permanent']
  296. end
  297. }
  298. $cheatmenu['cumtrait_block'] = {
  299. if cumeater_cheat = 0:
  300. cumeater_cheat = 1
  301. dynamic $cheatmenu['permanent']
  302. trt_cumeater = 0
  303. elseif cumeater_cheat = 1:
  304. cumeater_cheat = 0
  305. dynamic $cheatmenu['permanent']
  306. end
  307. }
  308. $cheatmenu['permanent'] = {
  309. gs'stat'
  310. *clr & cla
  311. gs 'obj_din', 'cheattabs'
  312. if cheatWork = 0:$cheatWork = 'Currently OFF'
  313. if cheatWork = 1:$cheatWork = 'Currently ON'
  314. if cheatHapri = 0:$cheatHapri = 'Currently OFF'
  315. if cheatHapri = 1:$cheatHapri = 'Currently ON'
  316. if cheatKlisma = 0:$cheatKlisma = 'Currently OFF'
  317. if cheatKlisma = 1:$cheatKlisma = 'Currently ON'
  318. if cheatNomakeup = 0:$cheatNomakeup = 'Currently OFF'
  319. if cheatNomakeup = 1:$cheatNomakeup = 'Currently ON'
  320. if cheatNoSweat = 0:$cheatNoSweat = 'Currently OFF'
  321. if cheatNoSweat = 1:$cheatNoSweat = 'Currently ON'
  322. if cheatNoEat = 0:$cheatNoEat = 'Currently OFF'
  323. if cheatNoEat = 1:$cheatNoEat = 'Currently ON'
  324. if cheatNoDrink = 0:$cheatNoDrink = 'Currently OFF'
  325. if cheatNoDrink = 1:$cheatNoDrink = 'Currently ON'
  326. if cheatNoSleep = 0:$cheatNoSleep = 'Currently OFF'
  327. if cheatNoSleep = 1:$cheatNoSleep = 'Currently ON'
  328. if cheatNoMood = 0:$cheatNoMood = 'Currently OFF'
  329. if cheatNoMood = 1:$cheatNoMood = 'Currently ON'
  330. if cheatNoFat = 0:$cheatNoFat = 'Currently OFF'
  331. if cheatNoFat = 1:$cheatNoFat = 'Currently ON'
  332. if cheatHealth = 0:$cheatHealth = 'Currently OFF'
  333. if cheatHealth = 1:$cheatHealth = 'Currently ON'
  334. if NarkImmune = 0:$NarkImmune = 'Currently OFF'
  335. if NarkImmune = 1:$NarkImmune = 'Currently ON'
  336. if cheatSlut = 0:$cheatSlut = 'Currently OFF'
  337. if cheatSlut = 1:$cheatSlut = 'Currently ON'
  338. if cheatHorny = 0:$cheatHorny = 'Currently OFF'
  339. if cheatHorny = 1:$cheatHorny = 'Currently ON'
  340. if bedvibrator = 0:$cheatVib = 'Currently OFF'
  341. if bedvibrator = 1:$cheatVib = 'Currently ON'
  342. if cheatBandit = 0:$cheatBandit = 'Currently OFF'
  343. if cheatBandit = 1:$cheatBandit = 'Currently ON'
  344. if fight_cheat = 0:$fight_cheat = 'Currently OFF'
  345. if fight_cheat = 1:$fight_cheat = 'Currently ON'
  346. if autocombat_cheat = 0:$autocombat_cheat = 'Currently OFF'
  347. if autocombat_cheat = 1:$autocombat_cheat = 'Currently ON'
  348. if cheat_NoPregnancy = 0:$cheat_NoPregnancy = 'Currently OFF'
  349. if cheat_NoPregnancy = 1:$cheat_NoPregnancy = 'Currently ON'
  350. if cheat_NoLactation = 0:$cheat_NoLactation = 'Currently OFF'
  351. if cheat_NoLactation = 1:$cheat_NoLactation = 'Currently ON'
  352. if cheatBimbo = 0:$cheatBimbo = 'Currently OFF'
  353. if cheatBimbo = 1:$cheatBimbo = 'Currently ON'
  354. if cumeater_cheat = 0:$cheatcumtrait = 'Currently OFF'
  355. if cumeater_cheat = 1:$cheatcumtrait = 'Currently ON'
  356. if exhib_cheat = 0:$cheatexhib = 'Currently OFF'
  357. if exhib_cheat = 1:$cheatexhib = 'Currently ON'
  358. '<center><h1>Cheat Menu - Recurrent Cheats</h1></center>'
  359. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  360. '<td width="450" cellspacing="0" cellpadding="20" valign="top">'
  361. 'More than one job is possible: <a href="exec:dynamic $cheatmenu[''work'']"><<$cheatWork>></a>'
  362. 'Always combed: <a href="exec:dynamic $cheatmenu[''hair'']"><<$cheatHapri>></a>'
  363. 'Always do an enema: <a href="exec:dynamic $cheatmenu[''enema'']"><<$cheatKlisma>></a>'
  364. 'Cosmetics never smeared: <a href="exec:dynamic $cheatmenu[''nomakeup'']"><<$cheatNomakeup>></a>'
  365. 'Never sweat: <a href="exec:dynamic $cheatmenu[''nosweat'']"><<$cheatNoSweat>></a>'
  366. 'Never eat: <a href="exec:dynamic $cheatmenu[''noEat'']"><<$cheatNoEat>></a>'
  367. 'Never drink: <a href="exec:dynamic $cheatmenu[''noDrink'']"><<$cheatNoDrink>></a>'
  368. 'Never sleep: <a href="exec:dynamic $cheatmenu[''noSleep'']"><<$cheatNoSleep>></a>'
  369. 'Never unhappy: <a href="exec:dynamic $cheatmenu[''noMood'']"><<$cheatNoMood>></a>'
  370. 'Never lose or gain weight: <a href="exec:dynamic $cheatmenu[''noFat'']"><<$cheatNoFat>></a>'
  371. 'Never get addicted: <a href="exec:dynamic $cheatmenu[''addict'']"><<$NarkImmune>></a>'
  372. if Enable_sforma = 1:
  373. 'Allow any clothing for school: <a href="exec:Enable_sforma = 0 & dynamic $cheatmenu[''permanent'']">Currently ON</a>'
  374. else
  375. 'Allow any clothing for school: <a href="exec:Enable_sforma = 1 & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
  376. end
  377. *nl
  378. 'Enable sleeping with vibrator inserted: <a href="exec:dynamic $cheatmenu[''Vibrator'']"><<$cheatVib>></a>'
  379. 'Bandit always horny: <a href="exec:dynamic $cheatmenu[''Bandit'']"><<$cheatBandit>></a>'
  380. *nl
  381. 'Automatically win every fight: <a href="exec:dynamic $cheatmenu[''fight'']"><<$fight_cheat>></a>'
  382. 'Automatically resolve non-magical fights: <a href="exec:dynamic $cheatmenu[''autocombat'']"><<$autocombat_cheat>></a>'
  383. *nl
  384. 'Remove the bimbo trait and the effects of wearing bimbo clothes: <a href="exec:dynamic $cheatmenu[''BimboCloth'']"><<$cheatBimbo>></a>'
  385. 'Remove the exhibitionist trait: <a href="exec:dynamic $cheatmenu[''exhib_block'']"><<$cheatexhib>></a>'
  386. 'Remove the cumeater trait: <a href="exec:dynamic $cheatmenu[''cumtrait_block'']"><<$cheatcumtrait>></a>'
  387. *nl
  388. 'Set arousal to always be at 50 or more: <a href="exec:dynamic $cheatmenu[''cheatHorny'']"><<$cheatHorny>></a>'
  389. 'Turn off periods (and pregnancies): <a href="exec:dynamic $cheatmenu[''slutshot'']"><<$cheatSlut>></a>'
  390. 'Impregnation is no longer in the game: <a href="exec:dynamic $cheatmenu[''cheat_NoPregnancy'']"><<$cheat_nopregnancy>></a>'
  391. 'Lactation is no longer in the game: <a href="exec:dynamic $cheatmenu[''cheat_NoLactation'']"><<$cheat_nolactation>></a>'
  392. 'Disable STDs: <a href="exec:dynamic $cheatmenu[''health'']"><<$cheatHealth>></a>'
  393. *nl
  394. if cyccustom = 0:'Automatic period tracking: <a href="exec:dynamic $cheatmenu[''auto_period'']">Currently OFF</a>'
  395. if cyccustom = 1:'Automatic period tracking: <a href="exec:dynamic $cheatmenu[''auto_period'']">Currently ON</a>'
  396. *nl
  397. if Enable_autotampon = 1:
  398. 'Automatic cheat on Tampon: <a href="exec:Enable_autotampon = 0 & dynamic $cheatmenu[''permanent'']">Currently ON</a>'
  399. else
  400. 'Automatic cheat on Tampon: <a href="exec:Enable_autotampon = 1 & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
  401. end
  402. *nl
  403. if Enable_nodream > 0:
  404. 'No dream chance: <a href="exec:Enable_nodream=input(''Enter no dream chance (%)'') & dynamic $cheatmenu[''permanent'']"><<Enable_nodream>>%</a>, <a href="exec:Enable_nodream=0 & dynamic $cheatmenu[''permanent'']">Currently ON</a>'
  405. else
  406. 'No dream chance: <a href="exec:Enable_nodream=input(''Enter no dream chance (%)'') & dynamic $cheatmenu[''permanent'']">Currently OFF</a>'
  407. end & !1.2.3 new function
  408. *nl
  409. '<font color="red"><b>WARNING!</b></font>: Disabling states may cause some events not to trigger. Use at your own risk!'
  410. '</tr></table></b></center>'
  411. }
  412. $cheatmenu['state'] = {
  413. gs'stat'
  414. *clr & cla
  415. gs 'obj_din', 'cheattabs'
  416. '<center><h1>Cheat Menu - Character State Changes</h1></center>'
  417. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  418. '<td width="400" cellspacing="0" cellpadding="20" valign="top">'
  419. 'Set alcohol levels:'
  420. '<a href="exec:alko = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Sober</a> <a href="exec:alko = 2 & dynamic $cheatmenu[''state''] & gs ''stat''">Tipsy</a> <a href="exec:alko = 4 & dynamic $cheatmenu[''state''] & gs ''stat''">Drunk</a> <a href="exec:alko = 7 & dynamic $cheatmenu[''state''] & gs ''stat''">Wasted</a> <a href="exec:alko = 11 & dynamic $cheatmenu[''state''] & gs ''stat''">Barely coherent</a>'
  421. *nl
  422. '<a href="exec:pcs_horny = 100 & dynamic $cheatmenu[''state''] & gs ''stat''">Max arousal</a>'
  423. '<a href="exec:pcs_horny = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Min arousal</a>'
  424. '<a href="exec:dynamic $cheatmenu[''bodyMod'']">Body Modification</a>'
  425. *nl
  426. '<a href="exec:pcs_health = pcs_vital*10 + pcs_stren*5+1000 & pcs_willpwr = pcs_intel*5 + will*5+1000 & pcs_manna = (pcs_intel*pcs_magik) + pcs_magik*100 + pcs_vital*10 + rikudo & vgape = 0 & agape = 0 & nippain = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Full restoration of Health, Manna, Reason.</a>'
  427. '<a href="exec:pcs_sleep = 100 & pcs_stam = stammax & pcs_mood = 100 & dynamic $cheatmenu[''state''] & gs ''stat''">Full restoration of Sleep, Stamina, Mood.</a>'
  428. '<a href="exec:pcs_energy = 200 & pcs_hydra = 200 & dynamic $cheatmenu[''state''] & gs ''stat''">Full restoration of Hunger and Water.</a>'
  429. '<a href="exec:dynamic $cheatmenu[''money''] & gs ''stat''">Change money</a>'
  430. '<a href="exec:money = 0 & dynamic $cheatmenu[''state''] & gs ''stat''">Zero money</a>'
  431. '<a href="exec:dynamic $cheatmenu[''std_cure''] & gs ''stat''">Cure all stds</a>'
  432. '<a href="exec:vgape = 0 & agape = 0 & nippain = 0 & painpub = 0 & pirs_pain_ton = 0 & mesec = 0 & spanked = 0 & SLomka = 0 & Narkoman = 0 & strongnark = 0 & SNarkTimes = 0 & nark = 0 & fingal = 0 & mosol = 0 & frost = 0 & sick = 0 & hypnoAddict = 0 & hypnoWithdrawal = 0 & dynamic $cheatmenu[''std_cure''] & dynamic $cheatmenu[''pain_killer''] & gs ''stat''">Cure all ailments.</a>'
  433. *nl
  434. '<a href="exec:dynamic $cheatmenu[''force_preg''] & gs ''stat''">Force random pregnancy</a>'
  435. '<a href="exec:dynamic $cheatmenu[''remove_preg''] & gs ''stat''">Remove pregnancy</a>'
  436. '<a href="exec:gs''cum_cleanup'',''reset'' & dynamic $cheatmenu[''state''] & gs ''stat''">Remove all cum</a>'
  437. '<a href="exec:dynamic $cheatmenu[''cycle''] & gs ''stat''">Set stage of menstrual cycle</a>'
  438. *nl
  439. if lactate <= 0:
  440. 'You are not lactating'
  441. 'Your current prolactinlvl is <<prolactinlvl>>ng/ml.'
  442. '<a href="exec:lactate = 1 & lactateinduced = 1 & total_milkinduce_growth = 8 & nbsize += 8 & prolactinlvl = 200 & lactaterate = 100 & lactatemv = 0 & lactatemm = func(''lact_lib'',''$calc_lactatemm'') & dynamic $cheatmenu[''state'']">Switch ON</a>'
  443. else
  444. 'You are lactating'
  445. '<a href="exec:lactate = 0 & lactateinduced = 0 & total_milkinduce_growth = 0 & nbsize -= 8 & prolactinlvl = 0 & lactaterate = 0 & lactatemv = 0 & lactatemm = 0 & dynamic $cheatmenu[''state'']">Switch OFF</a>'
  446. if lactaterate <= 0:
  447. 'Lactate Rate: <<lactaterate/10>>ml/h <a href="exec:lactaterate += 100 & dynamic $cheatmenu[''state'']">+10</a>'
  448. elseif lactaterate >= 6000:
  449. 'Lactate Rate: <a href="exec:lactaterate -= 100 & dynamic $cheatmenu[''state'']">-10</a> <<lactaterate/10>>ml/h'
  450. else
  451. 'Lactate Rate: <a href="exec:lactaterate -= 100 & dynamic $cheatmenu[''state'']">-10</a> <<lactaterate/10>>ml/h <a href="exec:lactaterate += 100 & dynamic $cheatmenu[''state'']">+10</a>'
  452. end
  453. 'Milk in Breasts: <<lactatemv/10>>ml'
  454. 'Max Milk Storage: <<lactatemm/10>>ml'
  455. '<font color="grey">Maximum milk storage changes with breast size, and if <<$pcs_firstname>> went through pregnancy</font>'
  456. if lactateinduced <= 0:
  457. 'Is <<$pcs_firstname>>''s lactation Induced?: <a href="exec:lactateinduced = 1 & dynamic $cheatmenu[''state'']">no</a>'
  458. else
  459. 'Is <<$pcs_firstname>>''s lactation Induced?: <a href="exec:lactateinduced = 0 & dynamic $cheatmenu[''state'']">yes</a>'
  460. end
  461. '<font color="grey">Does <<$pcs_firstname>> know she induced lactation herself, or not? (This is only used for some events.)</font>'
  462. end
  463. '</tr></table></b></center>'
  464. }
  465. $cheatmenu['avatar_hair_set'] = {
  466. $av_hair = input("Input your custom hair:")
  467. if $av_hair='':exit
  468. avatar_hair = 1
  469. dynamic $cheatmenu['looks']
  470. }
  471. $cheatmenu['rename'] = {
  472. !! player name is set in preSYS.qsrc
  473. $temp_firstname = '<<$pcs_firstname>>'
  474. $pcs_firstname = input("What is your first name? (Leave blank for Svetlana)")
  475. if $pcs_firstname = '':$pcs_firstname = '<<$temp_firstname>>'
  476. killvar '$temp_firstname'
  477. $temp_lastname = '<<$pcs_lastname>>'
  478. $pcs_lastname = input("What is your family name? (Leave blank for Lebedev)")
  479. if $pcs_lastname = '':$pcs_lastname = '<<$temp_lastname>>'
  480. killvar '$temp_lastname'
  481. $temp_nickname = '<<$pcs_nickname>>'
  482. $pcs_nickname = input("What is your nickname? (Leave blank for Sveta)")
  483. if $pcs_nickname = '':$pcs_nickname = '<<$temp_nickname>>'
  484. killvar '$temp_nickname'
  485. }
  486. $cheatmenu['looks'] = {
  487. *clr & cla
  488. if pcs_hgt < 100:
  489. pcs_hgt = 100
  490. elseif pcs_hgt > 200:
  491. pcs_hgt = 200
  492. end
  493. gs 'obj_din', 'cheattabs'
  494. gs'stat'
  495. '<center><h1>Cheat Menu - Character Appearance</h1></center>'
  496. *nl
  497. '<center><table width="90%" cellspacing="0" cellpadding="0" valign="top">'
  498. '<tr><td width="33%" cellpadding="20" valign="top">'
  499. '<<$pcs_firstname>> <<$pcs_lastname>> (<<$pcs_nickname>>). <a href="exec:dynamic $cheatmenu[''rename'']">Rename</a>'
  500. if player_avatar = 1:
  501. 'Custom Avatar: <a href="exec:player_avatar = 0 & dynamic $cheatmenu[''looks'']">ON</a>'
  502. else
  503. 'Custom Avatar: <a href="exec:player_avatar = 1 & dynamic $cheatmenu[''looks'']">OFF</a>'
  504. end
  505. if avatar_hair = 1:
  506. '<a href="exec:avatar_hair = 0 & dynamic $cheatmenu[''looks'']">Custom Hair: ON</a>'
  507. '<<$av_hair>>'
  508. else
  509. '<a href="exec:dynamic $cheatmenu[''avatar_hair_set'']">Custom Hair: OFF</a>'
  510. end
  511. *nl
  512. '<a href="exec:dynamic $cheatmenu[''parameters'']">Show design parameters of body</a>'
  513. '<a href="exec:dynamic $cheatmenu[''vneshpara'']">Show beauty parameters</a>'
  514. *nl
  515. 'You are <a href="exec: pcs_dob += 10000 & dynamic $cheatmenu[''age'']">(-1)</a> <<age>> <a href="exec: pcs_dob -= 10000 & dynamic $cheatmenu[''age'']">(+1)</a> years old'
  516. *nl
  517. '<a href=>You look <<vidage>> years old</a>'
  518. '<a href="exec:dynamic $cheatmenu[''visualage'']">Change apparent age</a>'
  519. *nl
  520. '<a href=>You are <<pcs_hgt>> centimetres tall</a>'
  521. '<a href="exec:pcs_hgt = input(''Enter <<$pcs_nickname>>s height in centimetres<br><br>(default 170, min 100, max 200)'') & dynamic $cheatmenu[''looks'']">Change <<$pcs_nickname>>''s height</a>'
  522. *nl
  523. 'You have <<$titsize>> breasts'
  524. if tits => 0 and tits < 11:'<a href="exec:silicone += 5 & dynamic $cheatmenu[''looks'']">Enlarge breasts(silicone)</a>'
  525. if silicone => 1:'<a href="exec:silicone -= 5 & dynamic $cheatmenu[''looks'']">Shrink breasts(silicone)</a>'
  526. if tits => 0 and tits < 11:'<a href="exec:nbsize += 5 & dynamic $cheatmenu[''looks'']">Enlarge breasts(natural)</a>'
  527. if nbsize => 1:'<a href="exec:nbsize -= 5 & titreduc = 1 & dynamic $cheatmenu[''looks'']">Shrink breasts(natural)</a>'
  528. *nl
  529. '<<$lip>>'
  530. if pcs_lip < 4:'<a href="exec:pcs_lip += 1 & dynamic $cheatmenu[''looks'']">Enlarge lips</a>'
  531. if pcs_lip > 0:'<a href="exec:pcs_lip -= 1 & dynamic $cheatmenu[''looks'']">Shrink lips</a>'
  532. *nl
  533. '<<$skin>>'
  534. if pcs_skin < 100: '<a href="exec:pcs_skin += 20 & gs ''body_shape'', ''basebeautycalc'', 1 & dynamic $cheatmenu[''looks'']">Improve skin</a>'
  535. if pcs_skin > 0: '<a href="exec:pcs_skin -= 20 & gs ''body_shape'', ''basebeautycalc'', 1 & dynamic $cheatmenu[''looks'']">Worsen skin</a>'
  536. if pcs_tan >= 0:'<a href="exec:pcs_tan += 10 & dynamic $cheatmenu[''looks'']">Become tanned</a>'
  537. if pcs_tan > 0:'<a href="exec:pcs_tan = 0 & dynamic $cheatmenu[''looks'']">Remove tan</a>'
  538. *nl
  539. '<<$pcs_throat>>'
  540. if pcs_throat <= 31:'<a href="exec:pcs_throat += 5 & dynamic $cheatmenu[''looks'']">Increase throat capacity</a>'
  541. if pcs_throat >= 5:'<a href="exec:pcs_throat -= 5 & dynamic $cheatmenu[''looks'']">Decrease throat capacity</a>'
  542. if dounspell = 1:
  543. *nl
  544. '<a href="exec:dounsplkil = 2 & gs ''body_shape'', ''hardreset''">Hard Reset body shape</a>'
  545. end
  546. '</td><td width="33%" cellpadding="20" valign="top">'
  547. '<<$pcs_vag>>'
  548. if pcs_vag > 0:'<a href="exec:pcs_vag = 0 & dynamic $cheatmenu[''looks'']">Reinstate virginity</a>'
  549. if pcs_vag <= 31:'<a href="exec:pcs_vag += 5 & dynamic $cheatmenu[''looks'']">Enlarge the vagina</a>'
  550. if pcs_vag >= 5:'<a href="exec:pcs_vag -= 5 & dynamic $cheatmenu[''looks'']">Reduce the vagina</a>'
  551. 'Your vagina will shrink by <<vshrink>> every <<vshrinkdays>> days.'
  552. if vshrink < 10:'<a href="exec:vshrink += 1 & dynamic $cheatmenu[''looks'']">Increase the amount to shrink</a>'
  553. if vshrink > 0:'<a href="exec:vshrink -= 1 & dynamic $cheatmenu[''looks'']">Reduce the amount to shrink</a>'
  554. if vshrinkdays < 10:'<a href="exec:vshrinkdays += 1 & dynamic $cheatmenu[''looks'']">Increase the number of days it takes</a>'
  555. if vshrinkdays > 1:'<a href="exec:vshrinkdays -= 1 & dynamic $cheatmenu[''looks'']">Reduce the number of days it takes</a>'
  556. *nl
  557. '<<$pcs_ass>>'
  558. if pcs_ass <= 31:'<a href="exec:pcs_ass += 5 & dynamic $cheatmenu[''looks'']">Enlarge anus</a>'
  559. if pcs_ass >= 5:'<a href="exec:pcs_ass -= 5 & dynamic $cheatmenu[''looks'']">Reduce the anus</a>'
  560. 'Your anus will shrink by <<ashrink>> every <<ashrinkdays>> days.'
  561. if ashrink < 10:'<a href="exec:ashrink += 1 & dynamic $cheatmenu[''looks'']">Increase the amount to shrink</a>'
  562. if ashrink > 0:'<a href="exec:ashrink -= 1 & dynamic $cheatmenu[''looks'']">Reduce the amount to shrink</a>'
  563. if ashrinkdays < 10:'<a href="exec:ashrinkdays += 1 & dynamic $cheatmenu[''looks'']">Increase the number of days it takes</a>'
  564. if ashrinkdays > 1:'<a href="exec:ashrinkdays -= 1 & dynamic $cheatmenu[''looks'']">Reduce the number of days it takes</a>'
  565. *nl
  566. if dounspell = 0:
  567. if fat ! 0: '<a href="exec:fat = 0 & dynamic $cheatmenu[''looks'']">Zero fat</a>'
  568. 'Body Fat = (<<salo>>): <a href="exec:salo -= 10 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-10</a> <a href="exec:salo -= 5 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:salo -= 1 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">-1</a> <a href="exec:salo += 1 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+1</a> <a href="exec:salo += 5 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:salo += 10 & gs ''body_shape'', ''softreset'' & dynamic $cheatmenu[''looks'']">+10</a>'
  569. 'Note: You need some Body Fat to survive, any value under 11 is clasified as "starving" and a value of 0 can lead to a Game Over.'
  570. end
  571. *nl
  572. '<a href="exec:dynamic $cheatmenu[''tatoo'']">Tattoo removal</a>'
  573. '</td><td width="33%" cellpadding="20" valign="top">'
  574. '<<$hair>>'
  575. if pcs_haircol =< 0:
  576. 'Your hair is now (prev) <<$pcs_haircol>> <a href="exec:pcs_haircol +=1 & dynamic $cheatmenu[''looks''] & pcs_haircol = nathcol">(next)</a>'
  577. elseif pcs_haircol > 0 and pcs_haircol < 3:
  578. 'Your hair is now <a href="exec:pcs_haircol -=1 & dynamic $cheatmenu[''looks'']" & pcs_haircol = nathcol>(prev)</a> <<$pcs_haircol>> <a href="exec:pcs_haircol +=1 & dynamic $cheatmenu[''looks'']" & pcs_haircol = nathcol>(next)</a>'
  579. elseif pcs_haircol => 3:
  580. 'Your hair is now <a href="exec:pcs_haircol -=1 & dynamic $cheatmenu[''looks'']" & pcs_haircol = nathcol>(prev)</a> <<$pcs_haircol>> (next)'
  581. end
  582. if pcs_hairlng > 975:
  583. 'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 100 & dynamic $cheatmenu[''looks'']">-100</a> <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a>'
  584. elseif pcs_hairlng > 900:
  585. 'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 100 & dynamic $cheatmenu[''looks'']">-100</a> <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a>'
  586. elseif pcs_hairlng >= 100:
  587. 'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 100 & dynamic $cheatmenu[''looks'']">-100</a> <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
  588. elseif pcs_hairlng >= 25:
  589. 'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 25 & dynamic $cheatmenu[''looks'']">-25</a> <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
  590. elseif pcs_hairlng >= 5:
  591. 'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng -= 5 & dynamic $cheatmenu[''looks'']">-5</a> <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
  592. else
  593. 'Hair length (<<pcs_hairlng>>) <a href="exec:pcs_hairlng += 5 & dynamic $cheatmenu[''looks'']">+5</a> <a href="exec:pcs_hairlng += 25 & dynamic $cheatmenu[''looks'']">+25</a> <a href="exec:pcs_hairlng += 100 & dynamic $cheatmenu[''looks'']">+100</a>'
  594. end
  595. if hairgrowcht = 0:'<a href="exec:hairgrowcht = 1 & dynamic $cheatmenu[''looks'']">Stop hair growth</a>'
  596. if hairgrowcht = 1:'<a href="exec:hairgrowcht = 0 & dynamic $cheatmenu[''looks'']">Allow hair growth</a>'
  597. *nl
  598. '<<$glaza>>'
  599. if pcs_naturallashes < 2:'<a href="exec:pcs_naturallashes += 1 & dynamic $cheatmenu[''looks'']">Enlarge lashes</a>'
  600. if pcs_naturallashes > 0:'<a href="exec:pcs_naturallashes -= 1 & dynamic $cheatmenu[''looks'']">Shrink lashes</a>'
  601. if pcs_eyesize < 3:'<a href="exec:pcs_eyesize += 1 & dynamic $cheatmenu[''looks'']">Increase the size of the eye</a>'
  602. if pcs_eyesize > 0:'<a href="exec:pcs_eyesize -= 1 & dynamic $cheatmenu[''looks'']">Reduce the size of the eye</a>'
  603. if pcs_eyecol <= 0:
  604. 'Your eyes are now (prev) <<$pcs_eyecol>> <a href="exec:pcs_eyecol +=1 & dynamic $cheatmenu[''looks'']">(next)</a>'
  605. elseif pcs_eyecol > 0 and pcs_eyecol < 3:
  606. 'Your eyes are now <a href="exec:pcs_eyecol -=1 & dynamic $cheatmenu[''looks'']">(prev)</a> <<$pcs_eyecol>> <a href="exec:pcs_eyecol +=1 & dynamic $cheatmenu[''looks'']">(next)</a>'
  607. elseif pcs_eyecol >= 3:
  608. 'Your eyes are now <a href="exec:pcs_eyecol -=1 & dynamic $cheatmenu[''looks'']">(prev)</a> <<$pcs_eyecol>> (next)'
  609. end
  610. '</td></tr></table></center>'
  611. }
  612. $cheatmenu['parameters'] = {
  613. *clr & cla
  614. '<center><h1>Cheat Menu - Appearance Stats</h1></center>'
  615. act 'Return to appearance menu':dynamic $cheatmenu['looks']
  616. *nl
  617. 'Body Shape Parameters'
  618. '<<pcs_bust>> - <<pcs_waist>> - <<pcs_hips>>, <<$titsize>> breasts, the difference between the hips and waist <<pcs_hips-pcs_waist>> cm'
  619. 'Muscularity: musle = <<musle>>, salo = <<salo>>, fat = <<fat>>'
  620. 'Variable List:'
  621. 'agilbuf = <<agilbuf>>'
  622. 'strenbuf = <<strenbuf>>'
  623. 'vitalbuf = <<vitalbuf>>'
  624. 'weight (pcs_weight) = <<pcs_weight>>'
  625. 'bust (pcs_bust) = <<pcs_bust>>'
  626. 'band (pcs_band) = <<pcs_band>>'
  627. 'waist (pcs_waist) = <<pcs_waist>>'
  628. 'hips (pcs_hips) = <<pcs_hips>>'
  629. 'bust - band (pcs_cupsize) = <<pcs_cupsize>>'
  630. 'silicone = <<silicone>>'
  631. 'nbsize = <<nbsize>>'
  632. 'magicf2b = <<magicf2b>>'
  633. 'genbsize = <<genbsize>>'
  634. 'vhips = <<vhips>>'
  635. 'vhtmp = <<vhtmp>>'
  636. 'wratio = <<wratio>>'
  637. 'bratio = <<bratio>>'
  638. 'hratio = <<hratio>>'
  639. 'vofat = <<vofat>>'
  640. 'salocatnow = <<salocatnow>>'
  641. 'salocatlast = <<salocatlast>>'
  642. 'magf2bdo = <<magf2bdo>>'
  643. 'mgf2bnocnt = <<mgf2bnocnt>>'
  644. 'magtarcup = <<magtarcup>>'
  645. 'normbuffpick = <<normbuffpick>>'
  646. 'nrmbfpckct = <<nrmbfpckct>>'
  647. 'btwarn = <<btwarn>>'
  648. 'salolast = <<salolast>>'
  649. }
  650. $cheatmenu['vneshpara'] = {
  651. *clr & cla
  652. '<center><h1>Cheat Menu - ?</h1></center>'
  653. act 'Return to appearance menu':dynamic $cheatmenu['looks']
  654. *nl
  655. 'Appearance Parameters'
  656. 'vidage = <<vidage>>'
  657. 'pcs_naturallashes = <<pcs_naturallashes>>'
  658. 'pcs_eyesize = <<pcs_eyesize>>'
  659. 'pcs_lip = <<pcs_lip>>'
  660. 'pcs_apprncbase = <<pcs_apprncbase>>'
  661. 'PXCloThinness = <<PXCloThinness>>'
  662. 'PXCloTopCut = <<PXCloTopCut>>'
  663. 'PXCloSkirtShortness = <<PXCloSkirtShortness>>'
  664. 'PXCloPantsShortness = <<PXCloPantsShortness>>'
  665. 'CloTotalBeauty = <<CloTotalBeauty>>'
  666. 'mopkoef = <<mopkoef>>'
  667. 'pcs_hairbsh = <<pcs_hairbsh>>'
  668. 'lipbalmKoef = <<lipbalmKoef>>'
  669. 'pcs_breath = <<pcs_breath>>'
  670. 'sweatKoef = <<sweatKoef>>'
  671. 'glassvnesh = <<glassvnesh>>'
  672. 'dyevmod = <<dyevmod>>'
  673. 'hairkoef = <<hairkoef>>'
  674. 'legkoef = <<legkoef>>'
  675. }
  676. $cheatmenu['tatoo'] = {
  677. gs'stat'
  678. *clr & cla
  679. '<center><h1>Cheat Menu - Tattoos</h1></center>'
  680. act 'Return to appearance menu':dynamic $cheatmenu['looks']
  681. *nl
  682. if tatarm = 0:'You do not have a tattoo on your arm</a>'
  683. if tatarm >= 1:'<a href="exec:tattCount-=1 & tatarm = 0 & dynamic $cheatmenu[''tatoo'']">Remove your arm tattoo</a>'
  684. if tatass = 0:'You do not have a tattoo on your ass</a>'
  685. if tatass >= 1:'<a href="exec:tattCount-=1 & tatass = 0 & dynamic $cheatmenu[''tatoo'']">Remove your ass tattoo</a>'
  686. if tatback = 0:'You do not have a tattoo on your back</a>'
  687. if tatback >= 1:'<a href="exec:tattCount-=1 & tatback = 0 & dynamic $cheatmenu[''tatoo'']">Remove your back tattoo</a>'
  688. if tatblly = 0:'You do not have a tattoo on your belly</a>'
  689. if tatblly >= 1:'<a href="exec:tattCount-=1 & tatblly = 0 & dynamic $cheatmenu[''tatoo'']">Remove your belly tattoo</a>'
  690. if tatbrst = 0:'You do not have a tattoo on your breast</a>'
  691. if tatbrst >= 1:'<a href="exec:tattCount-=1 & tatbrst = 0 & dynamic $cheatmenu[''tatoo'']">Remove your breast tattoo</a>'
  692. if tatchst = 0:'You do not have a tattoo on your chest</a>'
  693. if tatchst >= 1:'<a href="exec:tattCount-=1 & tatchst = 0 & dynamic $cheatmenu[''tatoo'']">Remove your chest tattoo</a>'
  694. if tatfce = 0:'You do not have a tattoo on your face</a>'
  695. if tatfce >= 1:'<a href="exec:tattCount-=1 & tatfce = 0 & dynamic $cheatmenu[''tatoo'']">Remove your face tattoo</a>'
  696. if tatankle = 0:'You do not have a tattoo on your ankle</a>'
  697. if tatankle >= 1:'<a href="exec:tattCount-=1 & tatankle = 0 & dynamic $cheatmenu[''tatoo'']">Remove your ankle tattoo</a>'
  698. if tatleg = 0:'You do not have a tattoo on your leg</a>'
  699. if tatleg >= 1:'<a href="exec:tattCount-=1 & tatleg = 0 & dynamic $cheatmenu[''tatoo'']">Remove your leg tattoo</a>'
  700. if tatlip = 0:'You do not have a tattoo on your lip</a>'
  701. if tatlip >= 1:'<a href="exec:tattCount-=1 & tatlip = 0 & dynamic $cheatmenu[''tatoo'']">Remove your lip tattoo</a>'
  702. if tatneck = 0:'You do not have a tattoo on your neck</a>'
  703. if tatneck >= 1:'<a href="exec:tattCount-=1 & tatneck = 0 & dynamic $cheatmenu[''tatoo'']">Remove your neck tattoo</a>'
  704. if tatvag = 0:'You do not have a public tattoo</a>'
  705. if tatvag >= 1:'<a href="exec:tattCount-=1 & tatvag = 0 & dynamic $cheatmenu[''tatoo'']">Remove your pubic tattoo</a>'
  706. if tatlech = 0:'You do not have a tattoo on your shoulder</a>'
  707. if tatlech >= 1:'<a href="exec:tattCount-=1 & tatlech = 0 & dynamic $cheatmenu[''tatoo'']">Remove your shoulder tattoo</a>'
  708. if tatside = 0:'You do not have a tattoo on your side</a>'
  709. if tatside >= 1:'<a href="exec:tattCount-=1 & tatside = 0 & dynamic $cheatmenu[''tatoo'']">Remove your the tattoo on your side</a>'
  710. if tatupb = 0:'You do not have a tramp stamp</a>'
  711. if tatupb >= 1:'<a href="exec:tattCount-=1 & tatupb = 0 & dynamic $cheatmenu[''tatoo'']">Remove your tramp stamp</a>'
  712. if tatunder = 0:'You do not have an under breast tattoo</a>'
  713. if tatunder >= 1:'<a href="exec:tattCount-=1 & tatunder = 0 & dynamic $cheatmenu[''tatoo'']">Remove your under breast tattoo</a>'
  714. if tatwrist = 0:'You do not have a tattoo on your wrist</a>'
  715. if tatwrist >= 1:'<a href="exec:tattCount-=1 & tatwrist = 0 & dynamic $cheatmenu[''tatoo'']">Remove your wrist tattoo</a>'
  716. if tathand = 0:'You do not have a tattoo on your hand</a>'
  717. if tathand >= 1:'<a href="exec:tattCount-=1 & tathand = 0 & dynamic $cheatmenu[''tatoo'']">Remove your hand tattoo</a>'
  718. }
  719. $cheatmenu['setStat'] = {
  720. temp_input = input("Set your <<$ARGS[1]>> level:")
  721. dynamic "
  722. <<$ARGS[0]>>_lvl = temp_input
  723. <<$ARGS[0]>>_lvlst = temp_input
  724. "
  725. killvar 'temp_input'
  726. dynamic $cheatmenu['stats']
  727. }
  728. $cheatmenu['setStat1'] = {
  729. temp_input = input("Set your <<$ARGS[1]>> level:")
  730. dynamic "
  731. <<$ARGS[0]>>_lvl = 100 - temp_input
  732. <<$ARGS[0]>>_lvlst = 100 - temp_input
  733. "
  734. killvar 'temp_input'
  735. dynamic $cheatmenu['stats']
  736. }
  737. $cheatmenu['setAttrs'] = {
  738. loop_index = 0
  739. :set_attrs_loop
  740. dynamic "
  741. <<$att_name[loop_index]>>_lvl = <<ARGS[0]>>
  742. <<$att_name[loop_index]>>_lvlst = <<ARGS[0]>>
  743. "
  744. loop_index += 1
  745. ! Magic is the last attribute, so if it's a non-magic game we'll end the loop one iteration early
  746. if MagikDostup = 0 and loop_index < arrsize('$att_name'):
  747. jump 'set_attrs_loop'
  748. elseif loop_index < arrsize('$att_name') - 1:
  749. jump 'set_attrs_loop'
  750. end
  751. killvar 'loop_index'
  752. dynamic $cheatmenu['stats']
  753. }
  754. $cheatmenu['setSkills'] = {
  755. loop_index = 0
  756. :set_skills_loop
  757. dynamic "
  758. <<$skl_name[loop_index]>>_lvl = <<ARGS[0]>>
  759. <<$skl_name[loop_index]>>_lvlst = <<ARGS[0]>>
  760. "
  761. loop_index += 1
  762. ! Inhibition is the last in the array, but it's not really a skill so we'll skip it by ending the loop one iteration early
  763. if loop_index < arrsize('$skl_name') - 1: jump 'set_skills_loop'
  764. killvar 'loop_index'
  765. dynamic $cheatmenu['stats']
  766. }
  767. $cheatmenu['printStatLinks'] = {
  768. *p '<a href="exec:<<$ARGS[0]>>_lvl = 100 & <<$ARGS[0]>>_lvlst = 100 & dynamic $cheatmenu[''stats'']" >Max</a> '
  769. *p '<a href="exec:<<$ARGS[0]>>_lvl += 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+1</a> '
  770. *p '<a href="exec:<<$ARGS[0]>>_lvl += 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+10</a> '
  771. *p '<a href="exec:<<$ARGS[0]>>_lvl -= 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-1</a> '
  772. *p '<a href="exec:<<$ARGS[0]>>_lvl -= 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-10</a> '
  773. *p '<a href="exec:<<$ARGS[0]>>_lvl = 0 & <<$ARGS[0]>>_lvlst = 0 & dynamic $cheatmenu[''stats'']" >Min</a> '
  774. *pl '<a href="exec:dynamic $cheatmenu[''setStat''], ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>''" >Set</a>'
  775. }
  776. $cheatmenu['printStatLinks1'] = {
  777. *p '<a href="exec:<<$ARGS[0]>>_lvl = 0 & <<$ARGS[0]>>_lvlst = 0 & dynamic $cheatmenu[''stats'']" >Max</a> '
  778. *p '<a href="exec:<<$ARGS[0]>>_lvl -= 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+1</a> '
  779. *p '<a href="exec:<<$ARGS[0]>>_lvl -= 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >+10</a> '
  780. *p '<a href="exec:<<$ARGS[0]>>_lvl += 1 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-1</a> '
  781. *p '<a href="exec:<<$ARGS[0]>>_lvl += 10 & <<$ARGS[0]>>_lvlst = <<$ARGS[0]>>_lvl & dynamic $cheatmenu[''stats'']" >-10</a> '
  782. *p '<a href="exec:<<$ARGS[0]>>_lvl = 100 & <<$ARGS[0]>>_lvlst = 100 & dynamic $cheatmenu[''stats'']" >Min</a> '
  783. *pl '<a href="exec:dynamic $cheatmenu[''setStat1''], ''<<$ARGS[0]>>'', ''<<$ARGS[1]>>''" >Set</a>'
  784. }
  785. $cheatmenu['stats'] = {
  786. gs 'stat'
  787. *clr & cla
  788. gs 'obj_din', 'cheattabs'
  789. !Set a floor and ceiling for all attributes and skills
  790. loop_index = 0
  791. :attr_trim_loop
  792. dynamic "
  793. if <<$att_name[loop_index]>>_lvl < 0: <<$att_name[loop_index]>>_lvl = 0
  794. if <<$att_name[loop_index]>>_lvlst < 0: <<$att_name[loop_index]>>_lvlst = 0
  795. if <<$att_name[loop_index]>>_lvl > 100: <<$att_name[loop_index]>>_lvl = 100
  796. if <<$att_name[loop_index]>>_lvlst > 100: <<$att_name[loop_index]>>_lvlst = 100
  797. "
  798. loop_index += 1
  799. if loop_index < arrsize('$att_name'): jump 'attr_trim_loop'
  800. loop_index = 0
  801. :skill_trim_loop
  802. dynamic "
  803. if <<$skl_name[loop_index]>>_lvl < 0: <<$skl_name[loop_index]>>_lvl = 0
  804. if <<$skl_name[loop_index]>>_lvlst < 0: <<$skl_name[loop_index]>>_lvlst = 0
  805. if <<$skl_name[loop_index]>>_lvl > 100: <<$skl_name[loop_index]>>_lvl = 100
  806. if <<$skl_name[loop_index]>>_lvlst > 100: <<$skl_name[loop_index]>>_lvlst = 100
  807. "
  808. loop_index += 1
  809. if loop_index < arrsize('$skl_name'): jump 'skill_trim_loop'
  810. killvar 'loop_index'
  811. '<center><h1>Cheat Menu - Attributes and Skills</h1></center>'
  812. '<center><table width="90%" cellspacing="0" cellpadding="0" valign="top">'
  813. '<tr><td width="50%" cellpadding="10" valign="top">'
  814. *pl'<b>Attributes</b> (values 0 - 100):'
  815. *pl '<a href="exec:dynamic $cheatmenu[''setAttrs''], 100" >Max Attributes</a> <a href="exec:dynamic $cheatmenu[''setAttrs''], 0" >Min Attributes</a>'
  816. *p 'Strength (<<stren_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'stren', 'Strength'
  817. *p 'Agility (<<agil_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'agil', 'Agility'
  818. *p 'Endurance (<<vital_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'vital', 'Endurance'
  819. *p 'Intelligence (<<intel_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'intel', 'Intelligence'
  820. *p 'Reaction (<<react_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'react', 'Reaction'
  821. *p 'Spirit (<<sprt_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'sprt', 'Spirit'
  822. *p 'Charisma (<<chrsm_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'chrsm', 'Charisma'
  823. *p 'Perception (<<prcptn_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'prcptn', 'Perception'
  824. if MagikDostup = 0: *p 'Magic (<<magik_lvl>>): ' & dynamic $cheatmenu['printStatLinks'], 'magik', 'Magic'
  825. *nl
  826. *pl'<b>Sexual:</b>'
  827. *pl 'Inhibition level (<<100 - inhib_lvl>>): ' & dynamic $cheatmenu['printStatLinks1'], 'inhib', 'Inhibition'
  828. if pcs_dom < 0 or sub < 0: pcs_dom = 0 & sub = 0
  829. if pcs_dom > 100: pcs_dom = 100
  830. if sub > 100: sub = 100
  831. if pcs_dom >= 0 and sub = 0:
  832. *pl 'Dominance (<<pcs_dom>>): <a href="exec:pcs_dom = 100 & dynamic $cheatmenu[''stats'']" >Max</a> <a href="exec:pcs_dom += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:pcs_dom += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:pcs_dom -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:pcs_dom -= 10 & dynamic $cheatmenu[''stats'']" >-10</a> <a href="exec:pcs_dom = 0 & dynamic $cheatmenu[''stats'']" >Min</a>'
  833. else
  834. *pl 'Submissiveness (<<sub>>): <a href="exec:sub = 100 & dynamic $cheatmenu[''stats'']" >Max</a> <a href="exec:sub += 1 & dynamic $cheatmenu[''stats'']" >+1</a> <a href="exec:sub += 10 & dynamic $cheatmenu[''stats'']" >+10</a> <a href="exec:sub -= 1 & dynamic $cheatmenu[''stats'']" >-1</a> <a href="exec:sub -= 10 & dynamic $cheatmenu[''stats'']" >-10</a> <a href="exec:sub = 0 & dynamic $cheatmenu[''stats'']" >Min</a>'
  835. end
  836. *nl
  837. if workPTU > 1:*pl'<a href="exec:teachlevel += 10 & dynamic $cheatmenu[''stats'']">Reputation teacher+10: <<teachlevel>></a>'
  838. if workPTU > 1:*pl'<a href="exec:teachlevel -= 10 & dynamic $cheatmenu[''stats'']">Reputation teacher-10: <<teachlevel>></a>'
  839. if pcs_grades >= 0:*pl'<a href="exec:pcs_grades += 10 & dynamic $cheatmenu[''stats'']">Improve their academic performance: <<pcs_grades>></a>'
  840. if schoolprogul >= 0:*pl'<a href="exec:schoolprogul = 0 & dynamic $cheatmenu[''stats'']">Zero Absenteeism: <<schoolprogul>></a>'
  841. *nl
  842. *pl'<b>Skills</b> (values 0 - 100, and adjusted total by attributes):'
  843. *pl '<a href="exec:dynamic $cheatmenu[''setSkills''], 100" >Max Skills</a> <a href="exec:dynamic $cheatmenu[''setSkills''], 0" >Min Skills</a>'
  844. *nl
  845. *pl'<b>Others:</b>'
  846. *p 'Chess (<<chess_lvl>>) - Total (<<pcs_chess>>): ' & dynamic $cheatmenu['printStatLinks'], 'chess', 'Chess'
  847. *p 'Gaming (<<gaming_lvl>>) - Total (<<pcs_gaming>>): ' & dynamic $cheatmenu['printStatLinks'], 'gaming', 'Gaming'
  848. *p 'Social (<<humint_lvl>>) - Total (<<pcs_humint>>): ' & dynamic $cheatmenu['printStatLinks'], 'humint', 'People Skills'
  849. *p 'Persuasion (<<persuas_lvl>>) - Total (<<pcs_persuas>>): ' & dynamic $cheatmenu['printStatLinks'], 'persuas', 'Persuasion'
  850. *p 'Observation (<<observ_lvl>>) - Total (<<pcs_observ>>): ' & dynamic $cheatmenu['printStatLinks'], 'observ', 'Observation'
  851. *p 'Makeup (<<makupskl_lvl>>) - Total (<<pcs_makupskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'makupskl', 'Makeup'
  852. *p 'Computers (<<compskl_lvl>>) - Total (<<pcs_compskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'compskl', 'Computer Skill'
  853. *p 'Hacking (<<comphckng_lvl>>) - Total (<<pcs_comphckng>>): ' & dynamic $cheatmenu['printStatLinks'], 'comphckng', 'Hacking'
  854. *p 'Handy-work (<<hndiwrk_lvl>>) - Total (<<pcs_hndiwrk>>): ' & dynamic $cheatmenu['printStatLinks'], 'hndiwrk', 'Handy-work'
  855. if MagikDostup = 0: *p 'Spell Casting (<<splcstng_lvl>>) - Total (<<pcs_splcstng>>): ' & dynamic $cheatmenu['printStatLinks'], 'splcstng', 'Spellcasting'
  856. '</td><td width="50%" cellpadding="10" valign="top">'
  857. *pl'<b>Combat:</b>'
  858. *p 'Jabs (<<jab_lvl>>)- Total (<<pcs_jab>>): ' & dynamic $cheatmenu['printStatLinks'], 'jab', 'Jabs'
  859. *p 'Power Strikes (<<punch_lvl>>) - Total (<<pcs_punch>>): ' & dynamic $cheatmenu['printStatLinks'], 'punch', 'Power Strikes'
  860. *p 'Kicks (<<kick_lvl>>) - Total (<<pcs_kick>>): ' & dynamic $cheatmenu['printStatLinks'], 'kick', 'Kicks'
  861. *p 'Defence (<<def_lvl>>) - Total (<<pcs_def>>): ' & dynamic $cheatmenu['printStatLinks'], 'def', 'Defence'
  862. *p 'Marksmanship (<<shoot_lvl>>) - Total (<<pcs_shoot>>): ' & dynamic $cheatmenu['printStatLinks'], 'shoot', 'Marksmanship'
  863. *nl
  864. *pl'<b>Craft:</b>'
  865. *p 'Singing (<<vokal_lvl>>) - Total (<<pcs_vokal>>): ' & dynamic $cheatmenu['printStatLinks'], 'vokal', 'Singing'
  866. *p 'Tailoring (<<sewng_lvl>>) - Total (<<pcs_sewng>>): ' & dynamic $cheatmenu['printStatLinks'], 'sewng', 'Tailoring'
  867. *p 'Instruments (<<instrmusic_lvl>>) - Total (<<pcs_instrmusic>>): ' & dynamic $cheatmenu['printStatLinks'], 'instrmusic', 'Instrumental Music'
  868. *p 'Photography (<<photoskl_lvl>>) - Total (<<pcs_photoskl>>): ' & dynamic $cheatmenu['printStatLinks'], 'photoskl', 'Photography'
  869. *p 'Artistic (<<artskls_lvl>>) - Total (<<pcs_artskls>>): ' & dynamic $cheatmenu['printStatLinks'], 'artskls', 'Artistic Skills'
  870. *nl
  871. *pl'<b>Dance:</b>'
  872. *p 'Modern Dance (<<danc_lvl>>) - Total (<<pcs_danc>>): ' & dynamic $cheatmenu['printStatLinks'], 'danc', 'Modern Dancing'
  873. *p 'Erotic Dance (<<dancero_lvl>>) - Total (<<pcs_dancero>>): ' & dynamic $cheatmenu['printStatLinks'], 'dancero', 'Erotic Dancing'
  874. *p 'Pole Dance (<<dancpol_lvl>>) - Total (<<pcs_dancpol>>): ' & dynamic $cheatmenu['printStatLinks'], 'dancpol', 'Pole Dancing'
  875. *nl
  876. *pl'<b>Sport:</b>'
  877. *p 'Running (<<run_lvl>>) - Total (<<pcs_run>>): ' & dynamic $cheatmenu['printStatLinks'], 'run', 'Running'
  878. *p 'Volleyball (<<vball_lvl>>) - Total (<<pcs_vball>>): ' & dynamic $cheatmenu['printStatLinks'], 'vball', 'Volleyball'
  879. *p 'Ice Skating (<<icesktng_lvl>>) - Total (<<pcs_icesktng>>): ' & dynamic $cheatmenu['printStatLinks'], 'icesktng', 'Ice Skating'
  880. *p 'Wrestling (<<wrstlng_lvl>>) - Total (<<pcs_wrstlng>>): ' & dynamic $cheatmenu['printStatLinks'], 'wrstlng', 'Wrestling'
  881. *p 'Football (<<ftbll_lvl>>) - Total (<<pcs_ftbll>>): ' & dynamic $cheatmenu['printStatLinks'], 'ftbll', 'Football'
  882. *nl
  883. *pl'<b>Work:</b>'
  884. *p 'Serving (<<servng_lvl>>) - Total (<<pcs_servng>>): ' & dynamic $cheatmenu['printStatLinks'], 'servng', 'Serving'
  885. *p 'Modeling (<<mdlng_lvl>>) - Total (<<pcs_mdlng>>): ' & dynamic $cheatmenu['printStatLinks'], 'mdlng', 'Modeling'
  886. *p 'Medicine (<<medcn_lvl>>) - Total (<<pcs_medcn>>): ' & dynamic $cheatmenu['printStatLinks'], 'medcn', 'Medicine'
  887. '</tr></table></b></center>'
  888. }
  889. $cheatmenu['reputation'] = {
  890. gs'stat'
  891. *clr & cla
  892. gs 'obj_din', 'cheattabs'
  893. '<center><h1>Cheat Menu - Relationships and Renown</h1></center>'
  894. '<center>Relationship values are from 0 - 100.</center>'
  895. '<center>If they exceed this limit they will be reset overnight.</center>'
  896. '<center><table width="90%" cellspacing="0" cellpadding="0" valign="top">'
  897. '<tr><td width="50%" cellpadding="10" valign="top">'
  898. if storyline = 1:
  899. *nl
  900. 'Relationships in Pavlovsk'
  901. *nl
  902. '<font color="blue"><b>Family</b></font>'
  903. if Enable_reputation_family = 0:
  904. '<a href="exec:Enable_reputation_family = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  905. end
  906. if Enable_reputation_family = 1:
  907. '<a href="exec:Enable_reputation_family = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  908. 'Stepfather: <<npc_rel[''A28'']>> <a href="exec:npc_rel[''A28''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A28''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  909. 'Mother: <<npc_rel[''A29'']>> <a href="exec:npc_rel[''A29''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A29''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  910. 'Sister: <<npc_rel[''A33'']>> <a href="exec:npc_rel[''A33''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A33''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  911. 'Brother: <<npc_rel[''A34'']>> <a href="exec:npc_rel[''A34''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A34''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  912. end
  913. *nl
  914. '<font color="blue"><b>School</b></font>'
  915. '<i>Popular Kids</i>'
  916. if Enable_reputation_popular = 0:
  917. '<a href="exec:Enable_reputation_popular = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  918. end
  919. if Enable_reputation_popular = 1:
  920. '<a href="exec:Enable_reputation_popular = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  921. '<<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>>: <<npc_rel[''A1'']>> <a href="exec:npc_rel[''A1''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A1''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  922. '<<$npc_firstname[''A4'']>> <<$npc_lastname[''A4'']>>: <<npc_rel[''A4'']>> <a href="exec:npc_rel[''A4''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A4''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  923. '<<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>>: <<npc_rel[''A14'']>> <a href="exec:npc_rel[''A14''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A14''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  924. '<<$npc_firstname[''A15'']>> <<$npc_lastname[''A15'']>>: <<npc_rel[''A15'']>> <a href="exec:npc_rel[''A15''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A15''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  925. '<<$npc_firstname[''A17'']>> <<$npc_lastname[''A17'']>>: <<npc_rel[''A17'']>> <a href="exec:npc_rel[''A17''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A17''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  926. '<<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>>: <<npc_rel[''A23'']>> <a href="exec:npc_rel[''A23''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A23''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  927. '<<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>>: <<npc_rel[''A146'']>> <a href="exec:npc_rel[''A146''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A146''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  928. '<<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>>: <<npc_rel[''A147'']>> <a href="exec:npc_rel[''A147''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A147''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  929. '<<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>>: <<npc_rel[''A148'']>> <a href="exec:npc_rel[''A148''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A148''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  930. if soniaPS = 0: '<<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>>: <<npc_rel[''A25'']>> <a href="exec:npc_rel[''A25''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A25''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  931. '<<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>>: <<npc_rel[''A139'']>> <a href="exec:npc_rel[''A139''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A139''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  932. '<<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>>: <<npc_rel[''A140'']>> <a href="exec:npc_rel[''A140''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A140''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  933. end
  934. *nl
  935. '<i>Athletes</i>'
  936. if Enable_reputation_athletes = 0:
  937. '<a href="exec:Enable_reputation_athletes = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  938. end
  939. if Enable_reputation_athletes = 1:
  940. '<a href="exec:Enable_reputation_athletes = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  941. '<<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>>: <<npc_rel[''A3'']>> <a href="exec:npc_rel[''A3''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A3''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  942. if fedormasha = 0: '<<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>>: <<npc_rel[''A5'']>> <a href="exec:npc_rel[''A5''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A5''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  943. '<<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>>: <<npc_rel[''A8'']>> <a href="exec:npc_rel[''A8''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A8''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  944. '<<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>>: <<npc_rel[''A13'']>> <a href="exec:npc_rel[''A13''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A13''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  945. if zverRageQW = 0 or zverRageQW = 10: '<<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>>: <<npc_rel[''A18'']>> <a href="exec:npc_rel[''A18''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A18''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  946. '<<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>>: <<npc_rel[''A19'']>> <a href="exec:npc_rel[''A19''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A19''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  947. '<<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>>: <<npc_rel[''A22'']>> <a href="exec:npc_rel[''A22''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A22''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  948. '<<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>>: <<npc_rel[''A149'']>> <a href="exec:npc_rel[''A149''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A149''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  949. '<<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>>: <<npc_rel[''A150'']>> <a href="exec:npc_rel[''A150''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A150''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  950. '<<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>>: <<npc_rel[''A141'']>> <a href="exec:npc_rel[''A141''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A141''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  951. end
  952. *nl
  953. '<i>Nerds</i>'
  954. if Enable_reputation_nerds = 0:
  955. '<a href="exec:Enable_reputation_nerds = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  956. end
  957. if Enable_reputation_nerds = 1:
  958. '<a href="exec:Enable_reputation_nerds = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  959. '<<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>>: <<npc_rel[''A2'']>> <a href="exec:npc_rel[''A2''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A2''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  960. '<<$npc_firstname[''A6'']>> <<$npc_lastname[''A6'']>>: <<npc_rel[''A6'']>> <a href="exec:npc_rel[''A6''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A6''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  961. '<<$npc_firstname[''A12'']>> <<$npc_lastname[''A12'']>>: <<npc_rel[''A12'']>> <a href="exec:npc_rel[''A12''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A12''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  962. '<<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>>: <<npc_rel[''A16'']>> <a href="exec:npc_rel[''A16''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A16''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  963. '<<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>>: <<npc_rel[''A151'']>> <a href="exec:npc_rel[''A151''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A151''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  964. '<<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>>: <<npc_rel[''A152'']>> <a href="exec:npc_rel[''A152''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A152''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  965. '<<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>>: <<npc_rel[''A153'']>> <a href="exec:npc_rel[''A153''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A153''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  966. '<<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>>: <<npc_rel[''A142'']>> <a href="exec:npc_rel[''A142''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A142''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  967. end
  968. *nl
  969. '<i>Gopniks</i>'
  970. if Enable_reputation_gopniks = 0:
  971. '<a href="exec:Enable_reputation_gopniks = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  972. end
  973. if Enable_reputation_gopniks = 1:
  974. '<a href="exec:Enable_reputation_gopniks = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  975. '<<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>>: <<npc_rel[''A9'']>> <a href="exec:npc_rel[''A9''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A9''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  976. '<<$npc_firstname[''A10'']>> <<$npc_lastname[''A10'']>>: <<npc_rel[''A10'']>> <a href="exec:npc_rel[''A10''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A10''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  977. '<<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>>: <<npc_rel[''A11'']>> <a href="exec:npc_rel[''A11''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A11''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  978. '<<$npc_firstname[''A20'']>> <<$npc_lastname[''A20'']>>: <<npc_rel[''A20'']>> <a href="exec:npc_rel[''A20''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A20''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  979. '<<$npc_firstname[''A21'']>> <<$npc_lastname[''A21'']>>: <<npc_rel[''A21'']>> <a href="exec:npc_rel[''A21''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A21''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  980. '<<$npc_firstname[''A24'']>> <<$npc_lastname[''A24'']>>: <<npc_rel[''A24'']>> <a href="exec:npc_rel[''A24''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A24''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  981. '<<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>>: <<npc_rel[''A154'']>> <a href="exec:npc_rel[''A154''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A154''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  982. '<<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>>: <<npc_rel[''A155'']>> <a href="exec:npc_rel[''A155''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A155''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  983. '<<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>>: <<npc_rel[''A156'']>> <a href="exec:npc_rel[''A156''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A156''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  984. '<<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>>: <<npc_rel[''A157'']>> <a href="exec:npc_rel[''A157''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A157''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  985. '<<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>>: <<npc_rel[''A158'']>> <a href="exec:npc_rel[''A158''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A158''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  986. '<<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>>: <<npc_rel[''A143'']>> <a href="exec:npc_rel[''A143''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A143''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  987. '<<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>>: <<npc_rel[''A144'']>> <a href="exec:npc_rel[''A144''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A144''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  988. '<<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>>: <<npc_rel[''A145'']>> <a href="exec:npc_rel[''A145''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A145''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  989. end
  990. *nl
  991. '<i>Outcasts/Loners</i>'
  992. if Enable_reputation_outcasts = 0:
  993. '<a href="exec:Enable_reputation_outcasts = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  994. end
  995. if Enable_reputation_outcasts = 1:
  996. '<a href="exec:Enable_reputation_outcasts = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  997. '<<$npc_firstname[''A7'']>> <<$npc_lastname[''A7'']>>: <<npc_rel[''A7'']>> <a href="exec:npc_rel[''A7''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A7''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  998. if soniaPS > 0: '<<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>>: <<npc_rel[''A25'']>> <a href="exec:npc_rel[''A25''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A25''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  999. if zverRageQW > 1 and zverRageQW < 10: '<<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>>: <<npc_rel[''A18'']>> <a href="exec:npc_rel[''A18''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A18''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1000. if fedormasha = 1: '<<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>>: <<npc_rel[''A5'']>> <a href="exec:npc_rel[''A5''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A5''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1001. '<<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>>: <<npc_rel[''A159'']>> <a href="exec:npc_rel[''A159''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A159''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1002. end
  1003. *nl
  1004. '<i>Teachers/Coaches</i>'
  1005. if Enable_reputation_teachers = 0:
  1006. '<a href="exec:Enable_reputation_teachers = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  1007. end
  1008. if Enable_reputation_teachers = 1:
  1009. '<a href="exec:Enable_reputation_teachers = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  1010. '<<$npc_firstname[''A26'']>> <<$npc_lastname[''A26'']>>: <<npc_rel[''A26'']>> <a href="exec:npc_rel[''A26''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A26''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1011. 'Mikhail Nikolayevich: <<npc_rel[''A69'']>> <a href="exec:npc_rel[''A69''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A69''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1012. '<<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>>: <<npc_rel[''A128'']>> <a href="exec:npc_rel[''A128''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A128''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1013. '<<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>>: <<npc_rel[''A129'']>> <a href="exec:npc_rel[''A129''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A129''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1014. '<<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>>: <<npc_rel[''A130'']>> <a href="exec:npc_rel[''A130''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A130''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1015. '<<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>>: <<npc_rel[''A131'']>> <a href="exec:npc_rel[''A131''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A131''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1016. '<<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>>: <<npc_rel[''A132'']>> <a href="exec:npc_rel[''A132''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A132''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1017. '<<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>>: <<npc_rel[''A133'']>> <a href="exec:npc_rel[''A133''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A133''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1018. '<<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>>: <<npc_rel[''A134'']>> <a href="exec:npc_rel[''A134''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A134''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1019. '<<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>>: <<npc_rel[''A135'']>> <a href="exec:npc_rel[''A135''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A135''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1020. '<<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>>: <<npc_rel[''A136'']>> <a href="exec:npc_rel[''A136''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A136''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1021. '<<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>>: <<npc_rel[''A137'']>> <a href="exec:npc_rel[''A137''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A137''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1022. '<<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>>: <<npc_rel[''A138'']>> <a href="exec:npc_rel[''A138''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A138''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1023. end
  1024. end
  1025. '</td><td width="50%" cellpadding="10" valign="top">'
  1026. *nl
  1027. 'Miscellaneous relationships'
  1028. *nl
  1029. '<font color="blue"><b>Others</b></font>'
  1030. *nl
  1031. if Enable_reputation_others = 0:
  1032. '<a href="exec:Enable_reputation_others = 1 & dynamic $cheatmenu[''reputation'']">Show details</a>'
  1033. end
  1034. if Enable_reputation_others = 1:
  1035. '<a href="exec:Enable_reputation_others = 0 & dynamic $cheatmenu[''reputation'']">Hide details</a>'
  1036. if npc_rel['A112'] >= 0:
  1037. 'Sergei Shulgin: <<npc_rel[''A112'']>> <a href="exec:npc_rel[''A112''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A112''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1038. end
  1039. if npc_rel['A219'] >= 0:
  1040. 'Kat: <<npc_rel[''A219'']>> <a href="exec:npc_rel[''A219''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A219''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1041. end
  1042. if npc_rel['A218'] >= 0:
  1043. 'Tanya: <<npc_rel[''A218'']>> <a href="exec:npc_rel[''A218''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A218''] & dynamic $cheatmenu[''reputation'']">-10</a>'
  1044. end
  1045. if npc_rel['A220'] >= 0:
  1046. 'Vika: <<npc_rel[''A220'']>> <a href="exec:npc_rel[''A220''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A220''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1047. end
  1048. if npc_rel['A93'] >= 0:
  1049. 'Irina: <<npc_rel[''A93'']>> <a href="exec:npc_rel[''A93''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A93''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1050. end
  1051. if npc_rel['A43'] >= 0:
  1052. 'Tamara: <<npc_rel[''A93'']>> <a href="exec:npc_rel[''A43''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A43''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1053. end
  1054. if alla >= 0:
  1055. 'Alla: <<alla>> <a href="exec:alla += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:alla -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1056. end
  1057. if masha >= 0:
  1058. 'Masha: <<masha>> <a href="exec:masha += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:masha -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1059. end
  1060. if npc_rel['A41'] >= 0:
  1061. 'Givi: <<npc_rel[''A41'']>> <a href="exec:npc_rel[''A41''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A41''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1062. end
  1063. if npc_rel['A42'] >= 0:
  1064. 'Ashot: <<npc_rel[''A42'']>> <a href="exec:npc_rel[''A42''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A42''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1065. end
  1066. if afra >= 0:
  1067. 'Black Guys: <<afra>> <a href="exec:afra += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:afra -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1068. end
  1069. if npc_rel['A89'] >= 0:
  1070. 'Eugene: <<npc_rel[''A89'']>> <a href="exec:npc_rel[''A89''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A89''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1071. end
  1072. if npc_rel['A217'] >= 0:
  1073. 'Pavlin: <<npc_rel[''A217'']>> <a href="exec:npc_rel[''A217''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A217''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1074. end
  1075. if hantersAndreiQw >= 0:
  1076. 'Hunter Andrew: <<hantersAndreiQw>> <a href="exec:hantersAndreiQw += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:hantersAndreiQw -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1077. end
  1078. if hantersSergeiQw >= 0:
  1079. 'Hunter Sergei: <<hantersSergeiQw>> <a href="exec:hantersSergeiQw += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:hantersSergeiQw -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1080. end
  1081. if hantersIgorQw >= 0:
  1082. 'Hunter Igor: <<hantersIgorQw>> <a href="exec:hantersIgorQw += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:hantersIgorQw -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1083. end
  1084. if npc_rel['A217'] >= 0:
  1085. 'Martin: <<npc_rel[''A216'']>> <a href="exec:npc_rel[''A216''] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:npc_rel[''A216''] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1086. end
  1087. end
  1088. if pcs_lovers[0] = 1:
  1089. *nl
  1090. 'You are dating <<$loverdesc[0]>>.'
  1091. if loverrelation[0] < 0: loverrelation[0] = 0
  1092. if loverdays[0] < 0: loverdays[0] = 0
  1093. if haraklover[0] > 2: haraklover[0] = 0
  1094. if loverizvrat[0] > 1: loverizvrat[0] = 0
  1095. 'Change lover''s personality: <a href="exec:haraklover[0] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[0]>></a>'
  1096. 'Change lover''s perversion: <a href="exec:loverizvrat[0] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[0]>></a>'
  1097. 'Relationship: <<loverrelation[0]>> <a href="exec:loverrelation[0] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[0] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1098. 'You''ve been dating for <<loverdays[0]>> days. <a href="exec:loverdays[0] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[0] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
  1099. end
  1100. if pcs_lovers[1] = 1:
  1101. *nl
  1102. 'You are dating <<$loverdesc[1]>>.'
  1103. if loverrelation[1] < 0: loverrelation[1] = 0
  1104. if loverdays[1] < 0: loverdays[1] = 0
  1105. if haraklover[1] > 2: haraklover[1] = 0
  1106. if loverizvrat[1] > 1: loverizvrat[1] = 0
  1107. 'Change lover''s personality: <a href="exec:haraklover[1] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[1]>></a>'
  1108. 'Change lover''s perversion: <a href="exec:loverizvrat[1] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[1]>></a>'
  1109. 'Relationship: <<loverrelation[1]>> <a href="exec:loverrelation[1] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[1] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1110. 'You''ve been dating for <<loverdays[1]>> days. <a href="exec:loverdays[1] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[1] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
  1111. end
  1112. if pcs_lovers[2] = 1:
  1113. *nl
  1114. 'You are dating <<$loverdesc[2]>>.'
  1115. if loverrelation[2] < 0: loverrelation[2] = 0
  1116. if loverdays[2] < 0: loverdays[2] = 0
  1117. if haraklover[2] > 2: haraklover[2] = 0
  1118. if loverizvrat[2] > 1: loverizvrat[2] = 0
  1119. 'Change lover''s personality: <a href="exec:haraklover[2] += 1 & dynamic $cheatmenu[''reputation'']"><<haraklover[2]>></a>'
  1120. 'Change lover''s perversion: <a href="exec:loverizvrat[2] += 1 & dynamic $cheatmenu[''reputation'']"><<loverizvrat[2]>></a>'
  1121. 'Relationship: <<loverrelation[2]>> <a href="exec:loverrelation[2] += 10 & dynamic $cheatmenu[''reputation'']">+10</a> <a href="exec:loverrelation[2] -= 10 & dynamic $cheatmenu[''reputation'']">-10</a>'
  1122. 'You''ve been dating for <<loverdays[2]>> days. <a href="exec:loverdays[2] += 5 & dynamic $cheatmenu[''reputation'']">+5</a> <a href="exec:loverdays[2] -= 5 & dynamic $cheatmenu[''reputation'']">-5</a>'
  1123. end
  1124. *nl
  1125. if pav_slut >= 25:'In Pavlovsk you are known as a <<$gnikname>>'
  1126. if opusk > 0 or gnewQW < 4 or sipovka > 0:'<a href="exec:opusk = 0 & sipovka = 0 & gnewQW = 0 & dynamic $cheatmenu[''reputation'']">Clear reputation with Gopniks</a>'
  1127. if StoryLine = 1:
  1128. if motherKnowWhore > 0 or motherKnowSpravka > 0 or brotherSex >= 1 or evgenQW >= 3 or brotherknowslut > 0 or sisterknowslut > 0:
  1129. *nl
  1130. '<font color="red"><b>WARNING</b></font>: Clearing reputation flags with your family may cause bugs. Use at your own risk!'
  1131. if motherKnowWhore > 0:
  1132. 'Your mother thinks you are a whore. <a href="exec:motherKnowWhore = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1133. elseif motherKnowSpravka > 0:
  1134. 'Your mother thinks that you are a virgin. <a href="exec:motherKnowSpravka = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1135. end
  1136. *nl
  1137. if evgenQW >= 3:
  1138. 'Your brother thinks you are a slut. <a href="exec:evgenQW = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1139. end
  1140. if brotherknowslut = 1: 'Your brother saw semen on your body and thinks you fuck around. <a href="exec:brotherknowslut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1141. if brotherknowslut >= 2: 'Your brother saw you in the park fucking the Gopniks. <a href="exec:brotherknowslut = 1 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1142. *nl
  1143. if sisterknowslut > 1 and sisboypartyQW > 1:
  1144. 'Your sister says you are a slut <a href="exec:sisboypartyQW = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1145. elseif sisterknowslut > 0:
  1146. 'Your sister knows that you sleep around. <a href="exec:sisterknowslut = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>'
  1147. end
  1148. end
  1149. if home_owned[2] = 0 or ParHomeBlock = 1:
  1150. '<a href="exec:home_owned[2] = 1 & ParHomeBlock = 0 & dynamic $cheatmenu[''reputation'']">Restore</a> access to your parent''s apartment.'
  1151. end
  1152. if momKnowsKolka = 1:
  1153. 'Your mother knows Kolka is the father. <a href="momKnowsKolka = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>.'
  1154. end
  1155. if momKnowsVladimir = 1:
  1156. 'Your mother knows Vladimir is the father. <a href="exec:momKnowsVladimir = 0 & dynamic $cheatmenu[''reputation'']">Clear</a>.'
  1157. end
  1158. if SchoolBlock = 1:
  1159. 'You''ve been expelled from school. <a href="exec:SchoolBlock = 0 & schoolPredupr = 0 & schoolprogul = 0 & pcs_grades = 50 & dynamic $cheatmenu[''reputation'']">Clear</a>.'
  1160. end
  1161. end
  1162. '</td></tr></table></center>'
  1163. }
  1164. $cheatmenu['documents'] = {
  1165. gs'stat'
  1166. *clr & cla
  1167. gs 'obj_din', 'cheattabs'
  1168. '<center><h1>Cheat Menu - Diplomas, Licences, and Certificates</h1></center>'
  1169. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1170. '<td width="300" cellspacing="0" cellpadding="20" valign="top">'
  1171. if SchoolAtestat = 0:'<a href="exec:SchoolAtestat = 1 & dynamic $cheatmenu[''documents'']">Get School Certificate</a>'
  1172. if SchoolAtestat = 1:'Already have a School Certificate'
  1173. if diplom = 0:'<a href="exec:diplom = 1 & dynamic $cheatmenu[''documents'']">Get Diploma</a>'
  1174. if diplom = 1:'You already have a Diploma'
  1175. if secrdiplom = 0:'<a href="exec:secrdiplom = 1 & dynamic $cheatmenu[''documents'']">Get Secretarial Diploma</a>'
  1176. if secrdiplom = 1:'You already have a Secretarial Diploma'
  1177. if masash < 10:'<a href="exec:masash = 10 & dynamic $cheatmenu[''documents'']">Get Masseuse Certificate</a>'
  1178. if masash >= 10:'You already have a Masseuse Certificate'
  1179. if prava = 0:'<a href="exec:prava = 1 & dynamic $cheatmenu[''documents'']">Get Driving Licence</a>'
  1180. if prava = 1:'You already have Driving Licence'
  1181. '</td></tr></table></center>'
  1182. }
  1183. $cheatmenu['input_time'] = {
  1184. inputtmp = input("Enter time with 4-digit (input 0102 for 1:02)")
  1185. if inputtmp/100 >= 0 and inputtmp/100 <= 23:hour = inputtmp/100
  1186. inputtmp = inputtmp mod 100
  1187. if inputtmp >= 0 and inputtmp <= 59:minut = inputtmp
  1188. killvar 'inputtmp'
  1189. dynamic $cheatmenu['time']
  1190. }
  1191. $cheatmenu['time'] = {
  1192. gs 'daystart'
  1193. gs 'outdoors', 'temp_set'
  1194. gs 'stat'
  1195. temp_daystart = (year - 2016) * 365
  1196. !!2016 is a leapyear so no adjustment before division
  1197. temp_daystart += (year - 2016) / 4
  1198. i=1
  1199. :temp_daystart
  1200. if temp_month > i:
  1201. temp_daystart += monthsend[i]
  1202. i += 1
  1203. jump 'temp_daystart'
  1204. end
  1205. temp_daystart += temp_day
  1206. temp_daystart -= daystart_start
  1207. temp_daystart += 1
  1208. if currtimecheck = 1:
  1209. killvar 'currtimecheck'
  1210. if currday ! daystart:
  1211. if currday < daystart:
  1212. week = (week + daystart - currday) mod 7
  1213. else
  1214. temp = week - ((currday - daystart) mod 7)
  1215. if temp <= 0: week = 7 - temp else week = temp
  1216. end
  1217. currday = daystart
  1218. end
  1219. if currhour < (daystart-1) * 24 + hour:femcycloop = (daystart-1) * 24 + hour - currhour
  1220. :femcycloop
  1221. if femcycloop > 0:gs 'femcyc' & femcycloop -= 1 & jump 'femcycloop'
  1222. end
  1223. *clr & cla
  1224. gs 'obj_din', 'cheattabs'
  1225. '<center><h1>Cheat Menu - Manipulate Time and Weather</h1></center>'
  1226. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1227. '<td width="400" cellspacing="0" cellpadding="20" valign="top">'
  1228. if temp_minut > 9:
  1229. if temp_hour > 9: $temptime = '<b><<temp_hour>>:<<temp_minut>></b>' else $temptime = '<b>0<<temp_hour>>:<<temp_minut>></b>'
  1230. else
  1231. if temp_hour > 9: $temptime = '<b><<temp_hour>>:0<<temp_minut>></b>' else $temptime = '<b>0<<temp_hour>>:0<<temp_minut>></b>'
  1232. end
  1233. if minut > 9:
  1234. if hour > 9: $tempcurtime = '<b><<hour>>:<<minut>></b>' else $tempcurtime = '<b>0<<hour>>:<<minut>></b>'
  1235. else
  1236. if hour > 9: $tempcurtime = '<b><<hour>>:0<<minut>></b>' else $tempcurtime = '<b>0<<hour>>:0<<minut>></b>'
  1237. end
  1238. if temp_daystart > daystart:
  1239. temp = (temp_daystart - daystart) mod 7
  1240. if (temp + week) mod 7 = 0:temp_week = 7 else temp_week = (temp + week) mod 7
  1241. elseif temp_daystart < daystart:
  1242. temp = (daystart - temp_daystart) mod 7
  1243. if (week - temp) mod 7 = 0:
  1244. temp_week = 7
  1245. elseif (week - temp) mod 7 < 0:
  1246. temp_week = ((week - temp) mod 7) + 7
  1247. else
  1248. temp_week = week - temp
  1249. end
  1250. else
  1251. temp_week = week
  1252. end
  1253. killvar 'temp'
  1254. 'Current time: <b><<$week[week]>></b>, <b><<day>></b>. day of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
  1255. 'Target time: <b><<$week[temp_week]>></b>, <b><<temp_day>></b>. day of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
  1256. 'Daychange: <<temp_daystart - daystart>>'
  1257. *nl
  1258. 'Year: <a href="exec:temp_year += 1 & dynamic $cheatmenu[''time'']">+1 Year</a> <a href="exec:temp_year -= 1 & dynamic $cheatmenu[''time'']">-1 Year</a>'
  1259. 'Select <a href="exec:dynamic $cheatmenu[''month'']">Month</a>'
  1260. $daychange = ' <a href="exec:temp_day += 7 & dynamic $cheatmenu[''time'']">+7 Day</a>'
  1261. $daychange += ' <a href="exec:temp_day += 1 & dynamic $cheatmenu[''time'']">+1 Day</a>'
  1262. $daychange += ' <a href="exec:temp_day -= 1 & dynamic $cheatmenu[''time'']">-1 Day</a>'
  1263. $daychange += ' <a href="exec:temp_day -= 7 & dynamic $cheatmenu[''time'']">-7 Day</a>'
  1264. 'Day:' +$daychange
  1265. killvar 'daychange'
  1266. $SS = 'Hour: '
  1267. if temp_hour > 0:$SS += '<a href="exec:temp_hour -= 1 & dynamic $cheatmenu[''time'']">-1</a> ' else $SS += ' '
  1268. if temp_hour > 3:$SS += '<a href="exec:temp_hour -= 4 & dynamic $cheatmenu[''time'']">-4</a> ' else $SS += ' '
  1269. if temp_hour ! 0:$SS += '<a href="exec:temp_hour = 0 & dynamic $cheatmenu[''time'']">0</a> ' else $SS += ' '
  1270. if temp_hour < 23:$SS += '<a href="exec:temp_hour += 1 & dynamic $cheatmenu[''time'']">+1</a> ' else $SS += ' '
  1271. if temp_hour < 20:$SS += '<a href="exec:temp_hour += 4 & dynamic $cheatmenu[''time'']">+4</a>'
  1272. $SS
  1273. $SS = 'Minute: '
  1274. if temp_minut > 14:$SS += '<a href="exec:temp_minut -= 15 & dynamic $cheatmenu[''time'']">-15</a> ' else $SS += ' '
  1275. if temp_minut > 0:$SS += '<a href="exec:temp_minut -= 1 & dynamic $cheatmenu[''time'']">-1</a> ' else $SS += ' '
  1276. if temp_minut ! 0:$SS += '<a href="exec:temp_minut = 0 & dynamic $cheatmenu[''time'']">0</a> ' else $SS += ' '
  1277. if temp_minut < 59:$SS += '<a href="exec:temp_minut += 1 & dynamic $cheatmenu[''time'']">+1</a> '
  1278. if temp_minut < 46:$SS += '<a href="exec:temp_minut += 15 & dynamic $cheatmenu[''time'']">+15</a>'
  1279. $SS
  1280. killvar 'SS'
  1281. *nl
  1282. 'Weather: <a href="exec:sunWeather=iif(sunWeather=0,1,0) & $pogoda=iif(sunWeather=0,''Rain...'',''Clear...'') & chWeather = 1 & gs ''outdoors'', ''weather'' & dynamic $cheatmenu[''time'']">'+iif(sunWeather=0,'Rain','Sunny')+'</a>'
  1283. *nl
  1284. 'Temperature = <<$temperature>> - <a href="exec:temper += 1 & dynamic $cheatmenu[''time'']">+1 degree</a> - <a href="exec:temper += 5 & dynamic $cheatmenu[''time'']">+5 degrees</a> - <a href="exec:temper -= 1 & dynamic $cheatmenu[''time'']">-1 degree</a> - <a href="exec:temper -= 5 & dynamic $cheatmenu[''time'']">-5 degrees</a>'
  1285. *nl
  1286. if TempUnit = 0: 'Use <a href="exec:TempUnit = 1 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''time'']">Fahrenheit</a> scale' else 'Use <a href="exec:TempUnit = 0 & gs ''outdoors'',''weather'' & dynamic $cheatmenu[''time'']">Celsius</a> scale'
  1287. *nl
  1288. '<a href="exec:dynamic $cheatmenu[''input_time'']">Direct input time</a>'
  1289. *nl
  1290. '<a href="exec:day = temp_day & $month = $temp_month & month = temp_month & year = temp_year & hour = temp_hour & minut = temp_minut & currtimecheck = 1 & dynamic $cheatmenu[''time'']">Accept target date & time</a>'
  1291. '<a href="exec:temp_day = day & $temp_month = $month & temp_month = month & temp_year = year & temp_hour = hour & temp_minut = minut & dynamic $cheatmenu[''time'']">Reset target date & time</a>'
  1292. '</td></tr></table></center>'
  1293. }
  1294. $cheatmenu['week'] = {
  1295. gs'stat'
  1296. *clr & cla
  1297. '<center><a href="exec:dynamic $cheatmenu"><b>Cheat menu</b></a> - <a href="exec:dynamic $cheatmenu[''time'']"><b>Time</b></a></center>'
  1298. *nl
  1299. 'Current time: <b><<day>></b>. day of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
  1300. 'Target time: <b><<temp_day>></b>. day of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
  1301. *nl
  1302. '<a href="exec:week = 1 & dynamic $cheatmenu[''time'']">Monday</a>'
  1303. '<a href="exec:week = 2 & dynamic $cheatmenu[''time'']">Tuesday</a>'
  1304. '<a href="exec:week = 3 & dynamic $cheatmenu[''time'']">Wednesday</a>'
  1305. '<a href="exec:week = 4 & dynamic $cheatmenu[''time'']">Thursday</a>'
  1306. '<a href="exec:week = 5 & dynamic $cheatmenu[''time'']">Friday</a>'
  1307. '<a href="exec:week = 6 & dynamic $cheatmenu[''time'']">Saturday</a>'
  1308. '<a href="exec:week = 7 & dynamic $cheatmenu[''time'']">Sunday</a>'
  1309. }
  1310. $cheatmenu['month'] = {
  1311. gs'stat'
  1312. *clr & cla
  1313. '<center><a href="exec:dynamic $cheatmenu"><b>Cheat menu</b></a> - <a href="exec:dynamic $cheatmenu[''time'']"><b>Time</b></a></center>'
  1314. *nl
  1315. 'Current time: <b><<day>></b>. day of <b><<$month>></b>, <b><<year>></b>, <<$tempcurtime>>'
  1316. 'Target time: <b><<temp_day>></b>. day of <b><<$temp_month>></b>, <b><<temp_year>></b>, <<$temptime>>'
  1317. *nl
  1318. '<a href="exec:temp_month = 1 & $temp_month = ''January'' & dynamic $cheatmenu[''time'']">January</a>'
  1319. '<a href="exec:temp_month = 2 & $temp_month = ''February'' & dynamic $cheatmenu[''time'']">February</a>'
  1320. '<a href="exec:temp_month = 3 & $temp_month = ''March'' & dynamic $cheatmenu[''time'']">March</a>'
  1321. '<a href="exec:temp_month = 4 & $temp_month = ''April'' & dynamic $cheatmenu[''time'']">April</a>'
  1322. '<a href="exec:temp_month = 5 & $temp_month = ''May'' & dynamic $cheatmenu[''time'']">May</a>'
  1323. '<a href="exec:temp_month = 6 & $temp_month = ''June'' & dynamic $cheatmenu[''time'']">June</a>'
  1324. '<a href="exec:temp_month = 7 & $temp_month = ''July'' & dynamic $cheatmenu[''time'']">July</a>'
  1325. '<a href="exec:temp_month = 8 & $temp_month = ''August'' & dynamic $cheatmenu[''time'']">August</a>'
  1326. '<a href="exec:temp_month = 9 & $temp_month = ''September'' & dynamic $cheatmenu[''time'']">September</a>'
  1327. '<a href="exec:temp_month = 10 & $temp_month = ''October'' & dynamic $cheatmenu[''time'']">October</a>'
  1328. '<a href="exec:temp_month = 11 & $temp_month = ''November'' & dynamic $cheatmenu[''time'']">November</a>'
  1329. '<a href="exec:temp_month = 12 & $temp_month = ''December'' & dynamic $cheatmenu[''time'']">December</a>'
  1330. }
  1331. $cheatmenu['magic'] = {
  1332. gs'stat'
  1333. *clr & cla
  1334. gs 'obj_din', 'cheattabs'
  1335. '<center><h1>Cheat Menu - Magic</h1></center>'
  1336. '<center>Is magical: <a href="exec:pcs_magik += 1 & dynamic $cheatmenu[''magic'']">+1<<pcs_magik>></a></center>'
  1337. if succubusflag = 1:
  1338. '<center><a href="exec:dynamic $cheatmenu[''succubreset'']"><b>Remove & Reset Succubus status</b></a></center>'
  1339. *nl
  1340. end
  1341. '<center><table width="90%" cellspacing="0" cellpadding="0" valign="top">'
  1342. '<tr><td width="50%" cellpadding="10" valign="top">'
  1343. *nl
  1344. '<b>General Spells:</b></a>'
  1345. if spelltuman = 0:'<a href="exec:spelltuman = 1 & dynamic $cheatmenu[''magic'']">Cover the area fog</a>'
  1346. if spellklon = 0:'<a href="exec:spellklon = 1 & dynamic $cheatmenu[''magic'']">Override clone of yourself</a>'
  1347. if spellstun = 0:'<a href="exec:spellstun = 1 & dynamic $cheatmenu[''magic'']">Checkmate</a>'
  1348. if spellweap = 0:'<a href="exec:spellweap = 1 & dynamic $cheatmenu[''magic'']">Invest energy into a weapon (It requires weapons)</a>'
  1349. if spellwind = 0:'<a href="exec:spellwind = 1 & dynamic $cheatmenu[''magic'']">Blow away the fog</a>'
  1350. if spellklon2 = 0:'<a href="exec:spellklon2 = 1 & dynamic $cheatmenu[''magic'']">Substitute itself clones (3 pieces)</a>'
  1351. if spellenergo = 0:'<a href="exec:spellenergo = 1 & dynamic $cheatmenu[''magic'']">Create a weak energy shield</a>'
  1352. if spellinit = 0:'<a href="exec:spellinit = 1 & dynamic $cheatmenu[''magic'']">Create a slight delay of time</a>'
  1353. if spellhel = 0:'<a href="exec:spellhel = 1 & dynamic $cheatmenu[''magic'']">Battle Heal</a>'
  1354. if spellfire0 = 0 or spellfire2 = 0 or spellfire3 = 0 or spellfire4 = 0 or spellfire5 = 0:
  1355. *nl
  1356. '<b>Elemental Spells Fire:</b></a>'
  1357. end
  1358. if spellfire0 = 0:'<a href="exec:spellfire0 = 1 & dynamic $cheatmenu[''magic'']">Flame</a>'
  1359. if spellfire2 = 0:'<a href="exec:spellfire2 = 1 & dynamic $cheatmenu[''magic'']">The release of fire</a>'
  1360. if spellfire3 = 0:'<a href="exec:spellfire3 = 1 & dynamic $cheatmenu[''magic'']">Fire Barrier</a>'
  1361. if spellfire4 = 0:'<a href="exec:spellfire4 = 1 & dynamic $cheatmenu[''magic'']">Firestorm</a>'
  1362. if spellfire5 = 0:'<a href="exec:spellfire5 = 1 & dynamic $cheatmenu[''magic'']">Flame Shield</a>'
  1363. if spellele0 = 0 or spellele2 = 0 or spellele3 = 0 or spellele4 = 0 or spellele5 = 0:
  1364. *nl
  1365. '<b>Elements Lightning Spells:</b></a>'
  1366. end
  1367. if spellele0 = 0:'<a href="exec:spellele0 = 1 & dynamic $cheatmenu[''magic'']">Category</a>'
  1368. if spellele2 = 0:'<a href="exec:spellele2 = 1 & dynamic $cheatmenu[''magic'']">Lightning</a>'
  1369. if spellele3 = 0:'<a href="exec:spellele3 = 1 & dynamic $cheatmenu[''magic'']">Electric barrier</a>'
  1370. if spellele4 = 0:'<a href="exec:spellele4 = 1 & dynamic $cheatmenu[''magic'']">Dance of thousands of birds</a>'
  1371. if spellele5 = 0:'<a href="exec:spellele5 = 1 & dynamic $cheatmenu[''magic'']">Dancing Sphere</a>'
  1372. '</td><td width="50%" cellpadding="10" valign="top">'
  1373. if spellert0 = 0 or spellert2 = 0 or spellert3 = 0 or spellert4 = 0 or spellert5 = 0:
  1374. *nl
  1375. '<b>Spells Earth Elements:</b></a>'
  1376. end
  1377. if spellert0 = 0:'<a href="exec:spellert0 = 1 & dynamic $cheatmenu[''magic'']">Quicksand</a>'
  1378. if spellert2 = 0:'<a href="exec:spellert2 = 1 & dynamic $cheatmenu[''magic'']">Active protection</a>'
  1379. if spellert3 = 0:'<a href="exec:spellert3 = 1 & dynamic $cheatmenu[''magic'']">Abyss</a>'
  1380. if spellert4 = 0:'<a href="exec:spellert4 = 1 & dynamic $cheatmenu[''magic'']">Absolute protection</a>'
  1381. if spellert5 = 0:'<a href="exec:spellert5 = 1 & dynamic $cheatmenu[''magic'']">Sando</a>'
  1382. if spellwind0 = 0 or spellwind2 = 0 or spellwind3 = 0 or spellwind4 = 0 or spellwind5 = 0:
  1383. *nl
  1384. '<b>Wind Elemental Spells:</b></a>'
  1385. end
  1386. if spellwind0 = 0:'<a href="exec:spellwind0 = 1 & dynamic $cheatmenu[''magic'']">Wind gust</a>'
  1387. if spellwind2 = 0:'<a href="exec:spellwind2 = 1 & dynamic $cheatmenu[''magic'']">The horrific pressure</a>'
  1388. if spellwind3 = 0:'<a href="exec:spellwind3 = 1 & dynamic $cheatmenu[''magic'']">Vacuum Sphere</a>'
  1389. if spellwind4 = 0:'<a href="exec:spellwind4 = 1 & dynamic $cheatmenu[''magic'']">Vacuum shells</a>'
  1390. if spellwind5 = 0:'<a href="exec:spellwind5 = 1 & dynamic $cheatmenu[''magic'']">Devouring vacuum</a>'
  1391. if spellwater0 = 0 or spellwater2 = 0 or spellwater3 = 0 or spellwater4 = 0 or spellwater5 = 0:
  1392. *nl
  1393. '<b>Water Elemental Spell:</b></a>'
  1394. end
  1395. if spellwater0 = 0:'<a href="exec:spellwater0 = 1 & dynamic $cheatmenu[''magic'']">Creek manna</a>'
  1396. if spellwater2 = 0:'<a href="exec:spellwater2 = 1 & dynamic $cheatmenu[''magic'']">Flooding</a>'
  1397. if spellwater3 = 0:'<a href="exec:spellwater3 = 1 & dynamic $cheatmenu[''magic'']">Blister</a>'
  1398. if spellwater4 = 0:'<a href="exec:spellwater4 = 1 & dynamic $cheatmenu[''magic'']">Water shark rocket</a>'
  1399. if spellwater5 = 0:'<a href="exec:spellwater5 = 1 & dynamic $cheatmenu[''magic'']">The Great Flood</a>'
  1400. '</td></tr></table></center>'
  1401. }
  1402. $cheatmenu['dynamic'] = {
  1403. $dynamicCommand = input("Enter command to execute.")
  1404. if $dynamicCommand = '':exit
  1405. dynamic $dynamicCommand
  1406. }
  1407. $cheatmenu['std_cure'] = {
  1408. venera = 0
  1409. GerpesOnce = 0
  1410. Gerpes = 0
  1411. SifacOnce = 0
  1412. Sifilis = 0
  1413. TriperOnce = 0
  1414. Triper = 0
  1415. TriperOral = 0
  1416. KandidozOnce = 0
  1417. Kandidoz = 0
  1418. }
  1419. $cheatmenu['auto_period'] = {
  1420. if cyccustom = 0:
  1421. cyccustom = 1
  1422. else
  1423. cyccustom = 0
  1424. end
  1425. dynamic $cheatmenu['permanent']
  1426. }
  1427. $cheatmenu['force_preg'] = {
  1428. if mesec ! 0: mesec = 0
  1429. if FocH ! 0: FocH = 0
  1430. if EggRH ! 0: EggRH = 0
  1431. if Ovulate ! 0: Ovulate = 0
  1432. if UnfertEgg ! 0: UnfertEgg = 0
  1433. if LutH ! 0: LutH = 0
  1434. if RecovH ! 0: RecovH = 0
  1435. preg = 1
  1436. cycle = 5
  1437. !!Setting implantation date for the due date calculation
  1438. lastovulation = daystart - 5
  1439. PregChem = 150
  1440. $wombthfath = 'A sperm donor'
  1441. babyembryo += 1
  1442. if fertegg = 0:
  1443. Nextbaby = arrsize('$ChildFath')
  1444. Temppolkid = rand(0,1)
  1445. polkid[nextbaby] = Temppolkid
  1446. $kidname[nextbaby] = 'unborn'
  1447. kidage[nextbaby] = 0
  1448. daykid[nextbaby] = 0
  1449. monthkid[nextbaby] = 0
  1450. yearkid[nextbaby] = 0
  1451. Babyptype[nextbaby] = 0
  1452. $ChildFath[nextbaby] = 'A sperm donor'
  1453. $ChildThFath[nextbaby] = 'A sperm donor'
  1454. hairkid[nextbaby] = rand(0, 3)
  1455. eyeskid[nextbaby] = rand(0, 3)
  1456. ChildConType[nextbaby] = 0
  1457. Babyptype[nextbaby] = 1
  1458. else
  1459. fertegg -= 1
  1460. end
  1461. }
  1462. $cheatmenu['remove_preg'] = {
  1463. pregtime = 0
  1464. pregtalk = 0
  1465. pregTalkPC = 0
  1466. pregTalkNat = 0
  1467. pregTalkbrother = 0
  1468. preg = 0
  1469. thinkpreg = 0
  1470. knowpreg = 0
  1471. cycle = 4
  1472. !! RecovH has a decay of 1.1/hour or ~ 27/day, the recovery period is 1 week
  1473. RecovH = 189
  1474. pregchem = 0
  1475. knowpregloss = 2
  1476. !! I am not sure, why is it here this cycle, but I leave it so (rachels)
  1477. nextbaby = arrsize('yearkid')
  1478. :poliabortloop
  1479. !!Changed to check if baby has a birth year instead, if it doesn''t, do abortion
  1480. if yearkid[nextbaby-1] = 0:
  1481. KILLVAR 'polkid',nextbaby-1
  1482. KILLVAR '$kidname',nextbaby-1
  1483. KILLVAR 'kidage',nextbaby-1
  1484. KILLVAR 'daykid',nextbaby-1
  1485. KILLVAR 'monthkid',nextbaby-1
  1486. KILLVAR 'yearkid',nextbaby-1
  1487. KILLVAR 'Babyptype',nextbaby-1
  1488. KILLVAR '$ChildFath',nextbaby-1
  1489. KILLVAR '$ChildThFath',nextbaby-1
  1490. KILLVAR 'hairkid',nextbaby-1
  1491. KILLVAR 'eyeskid',nextbaby-1
  1492. KILLVAR 'cumarrcon',nextbaby-1
  1493. KILLVAR '$wombpotfath'
  1494. BabyEmbryo -= 1
  1495. end
  1496. nextbaby -= 1
  1497. if nextbaby > 0:
  1498. jump 'poliabortloop'
  1499. end
  1500. }
  1501. $cheatmenu['cycle'] = {
  1502. *clr
  1503. if cycle ! 5:
  1504. EggRH = 0
  1505. LutH = 0
  1506. Ovulate = 0
  1507. UnfertEgg = 0
  1508. FertEgg = 0
  1509. RecovH = 0
  1510. mesec = 0
  1511. '<a href="exec:daylastperiod = daystart & Cycle = 0 & mesec = 96 & gs ''stat'' & dynamic $cheatmenu[''state'']">Menstration</a>'
  1512. '<a href="exec:Cycle = 1 & gs ''stat'' & dynamic $cheatmenu[''state'']">Follicular</a>'
  1513. '<a href="exec:Cycle = 2 & Ovulate = 24+rand(0,20) & EggRH = 160 + 160+rand(0, 5) & gs ''stat'' & dynamic $cheatmenu[''state'']">Ovulation</a>'
  1514. '<a href="exec:Cycle = 3 & gs ''stat'' & dynamic $cheatmenu[''state'']">Luteal</a>'
  1515. end
  1516. }
  1517. $cheatmenu['setting'] = {
  1518. *clr & cla
  1519. gs 'obj_din', 'settingtabs'
  1520. '<center><h1>Gameplay Settings</h1></center>'
  1521. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1522. '<td cellspacing="0" cellpadding="20" valign="top">'
  1523. if Enable_nogameover = 1:
  1524. 'Prevent Non-Drama GAMEOVER: Currently ON - <a href="exec:Enable_nogameover = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
  1525. else
  1526. 'Prevent Non-Drama GAMEOVER: Currently OFF - <a href="exec:Enable_nogameover = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
  1527. end
  1528. if music_on = 0:
  1529. 'Music: Currently OFF - <a href="exec:music_on = 1 & music_loop = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
  1530. else
  1531. 'Music: Currently ON - <a href="exec:music_on = 0 & music_loop = 0 & close all & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
  1532. end
  1533. *nl
  1534. if disable_autosave = 1:
  1535. 'AutoSave: Currently OFF - <a href="exec:disable_autosave = 0 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
  1536. else
  1537. 'AutoSave: Currently ON - <a href="exec:disable_autosave = 1 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
  1538. end
  1539. if autohairbrush = 1:
  1540. 'Auto brush hair on mirror visit: Currently ON - <a href="exec:autohairbrush = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
  1541. else
  1542. 'Auto brush hair on mirror visit: Currently OFF - <a href="exec:autohairbrush = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
  1543. end
  1544. if enfullmorrout = 1:
  1545. 'Full morning routine enabled: Currently ON - <a href="exec:enfullmorrout = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
  1546. else
  1547. 'Full morning routine enabled: Currently OFF - <a href="exec:enfullmorrout = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
  1548. end
  1549. if editpornname = 1:
  1550. 'Editing of the names of the porn movies you stared enabled: Currently ON - <a href="exec:editpornname = 0 & dynamic $cheatmenu[''setting'']">Turn OFF</a>'
  1551. else
  1552. 'Renaming porn movies you star in: Currently OFF - <a href="exec:editpornname = 1 & dynamic $cheatmenu[''setting'']">Turn ON</a>'
  1553. end
  1554. *nl
  1555. '<B>Difficulty Setting</B>'
  1556. 'At the moment it only improves rate of skill gain'
  1557. 'Difficulty: Currently at <<func(''_difficulty'',''getdifficulty'')>>'
  1558. '<ul><li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''easy peasy'') & dynamic $cheatmenu[''setting'']">easy peasy</a></li>'
  1559. '<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''relaxed'') & dynamic $cheatmenu[''setting'']">relaxed</a></li>'
  1560. '<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''realistic'') & dynamic $cheatmenu[''setting'']">realistic</a></li>'
  1561. '<li>set to <a href="exec:FUNC(''_difficulty'',''setdifficulty'',''hardcore'') & dynamic $cheatmenu[''setting'']">hardcore</a></li></ul>'
  1562. '</tr></table></b></center>'
  1563. }
  1564. $cheatmenu['display'] = {
  1565. *clr & cla
  1566. gs 'obj_din', 'settingtabs'
  1567. '<center><h1>Display Setting</h1></center>'
  1568. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1569. '<td cellspacing="0" cellpadding="20" valign="top">'
  1570. if set_imgh > 0: set_imgw = 0
  1571. if set_imgw > 0: set_imgh = 0
  1572. if set_imgh <= 0 and set_imgw <= 0: $set_imgh = ''
  1573. if set_imgh > 0:
  1574. 'Force Image Height: <a href="exec:set_imgw = 0 & set_imgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''display'']"><<set_imgh>></a>: Currently ON - <a href="exec:set_imgh = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
  1575. $set_imgh = 'Height = <<set_imgh>>'
  1576. else
  1577. 'Force Image height: Currently OFF - <a href="exec:set_imgw = 0 & set_imgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''display'']">Turn ON</a>'
  1578. end
  1579. if set_imgw > 0:
  1580. 'Force Image Width: <a href="exec:set_imgh = 0 & set_imgh=input(''Enter the width of the images'') & dynamic $cheatmenu[''display'']"><<set_imgw>></a>, Currently ON - <a href="exec:set_imgw=0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
  1581. $set_imgh = 'width = <<set_imgh>>'
  1582. else
  1583. 'Force Image Width: Currently OFF - <a href="exec:set_imgh = 0 &set_imgh=input(''Enter the width of the images'') & dynamic $cheatmenu[''display'']">Turn ON</a>'
  1584. end
  1585. *nl
  1586. !night_mode 0: dynamic
  1587. !night_mode 1: black
  1588. !night_mode 2: grey
  1589. !night_mode 99: no theme
  1590. if night_mode = 0:'Girl Life Theme Selection: Dynamic | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
  1591. if night_mode = 1:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | Pitch Black | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
  1592. if night_mode = 2:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | Modern Grey | <a href="exec:night_mode = 99 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">No Theme</a>'
  1593. if night_mode = 99:'Girl Life Theme Selection: <a href="exec:night_mode = 0 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Dynamic</a> | <a href="exec:night_mode = 1 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Pitch Black</a> | <a href="exec:night_mode = 2 & dynamic $cheatmenu[''display''] & gs ''$menu_obnovit''">Modern Grey</a> | No Theme'
  1594. '<font color="grey">Dynamic theme (default) will change colour based on the game hour. No theme will remove table backgrounds.</font>'
  1595. *nl
  1596. if Enable_tablemap = 1:
  1597. 'List friends in table: Currently ON - <a href="exec:Enable_tablemap = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
  1598. else
  1599. 'List friends in table: Currently OFF - <a href="exec:Enable_tablemap = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
  1600. end
  1601. *nl
  1602. if Enable_faceturn = 1:
  1603. 'Always show face: Currently ON - <a href="exec:Enable_faceturn = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
  1604. else
  1605. 'Always show face: Currently OFF - <a href="exec:Enable_faceturn = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
  1606. end
  1607. *nl
  1608. if Enable_Android = 1:
  1609. 'Set Fontsize for Status: Unsupported'
  1610. 'Android Mode:Currently ON - <a href="exec:Enable_Android = 0 & dynamic $cheatmenu[''display'']">Turn OFF</a>'
  1611. ! 'click <a href="exec:*clr & cla & FUNC (''$menu_obnovit'')">refresh</a> to refresh status window.'
  1612. 'click <B>refresh</B> on top of status window to renew.'
  1613. else
  1614. 'Android Mode: Currently OFF - <a href="exec:Enable_Android = 1 & dynamic $cheatmenu[''display'']">Turn ON</a>'
  1615. end
  1616. '</tr></table></b></center>'
  1617. }
  1618. $cheatmenu['status'] = {
  1619. *clr & cla
  1620. gs 'obj_din', 'settingtabs'
  1621. '<center><h1>Status Window Settings</h1></center>'
  1622. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1623. '<td cellspacing="0" cellpadding="20" valign="top">'
  1624. if disable_LoadSave = 0:
  1625. 'Save/Load Buttons: Currently Image - <a href="exec:disable_LoadSave = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Text</a>'
  1626. elseif disable_LoadSave = 1:
  1627. 'Save/Load Buttons: Currently OFF - <a href="exec:disable_LoadSave = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Image</a>'
  1628. elseif disable_LoadSave = 2:
  1629. 'Save/Load Buttons: Currently Text - <a href="exec:disable_LoadSave = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1630. end
  1631. *nl
  1632. !disabled inner thought font selection during char creation, as it breaks menu.
  1633. if settingmode = 0:
  1634. '<a href="exec:gs ''shortgs'',''fonts'', ''$cheatmenu[''''display'''']'',''$OpenInnerThought'',''$CloseInnerThought'' ">Set</a> the font style of inner thoughts'
  1635. $OpenInnerThought+'Oh my god, what will the neighbours think of us?'+$CloseInnerThought
  1636. end
  1637. *nl
  1638. if ETOmenu = 1:
  1639. 'Status Display mode: Currently Text - <a href="exec:ETOmenu = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Scale Bar</a>'
  1640. else
  1641. 'Status Display mode: Currently Scale Bar - <a href="exec:ETOmenu = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Select Text</a>'
  1642. end
  1643. if Enable_scalepic = 1:
  1644. 'Scalebar is now as <b>Image</b>, you can switch to <a href="exec:Enable_scalepic = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Character</a> or <a href="exec:Enable_scalepic = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Table</a>'
  1645. if Enable_scalewidth > 0:
  1646. 'Scalebar Width: <a href="exec:input(''Input Scalebar Width (default to 120)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<Enable_scalewidth-1>></a>, Set is currently <a href="exec:Enable_scalewidth = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">ON</a>'
  1647. else
  1648. 'Scalebar Width: Lock is currently <a href="exec:Enable_scalewidth=1+input(''InputS calebar Width (default to 120)'') & dynamic $cheatmenu[''status''] & gs ''stat''">OFF</a>'
  1649. end
  1650. if Enable_scaleheight > 0:
  1651. 'Scalebar Height: <a href="exec:input(''Input Scalebar Height (default to 15)'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<Enable_scaleheight-1>></a>, Set is currently <a href="exec:Enable_scaleheight = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">ON</a>'
  1652. else
  1653. 'Scalebar Height: Lock is currently <a href="exec:Enable_scaleheight=1+input(''InputS calebar Height (default to 15)'') & dynamic $cheatmenu[''status''] & gs ''stat''">OFF</a>'
  1654. end
  1655. elseif Enable_scalepic = 0:
  1656. 'Scalebar is now as <b>Character</b>, you can switch to <a href="exec:Enable_scalepic = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Image</a> or <a href="exec:Enable_scalepic = 2 & dynamic $cheatmenu[''status''] & gs ''stat''">Table</a>'
  1657. if cheatStatusBars = 1:
  1658. 'Set status bar size: Currently Small - <a href="exec:cheatStatusBars = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Set large</a>'
  1659. else
  1660. 'Set status bar size: Currently Large - <a href="exec:cheatStatusBars = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Set small</a>'
  1661. end
  1662. elseif Enable_scalepic = 2:
  1663. 'Scalebar is now as <b>Table</b>, you can switch to <a href="exec:Enable_scalepic = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Image</a> or <a href="exec:Enable_scalepic = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Character</a>'
  1664. end
  1665. if Enable_statfsize<0:Enable_statfsize=0
  1666. if Enable_statfsize > 0:
  1667. 'Set Fontsize for Status: Currently ON - <a href="exec:Enable_statfsize=input(''Enter Fontsize'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<Enable_statfsize>></a>, <a href="exec:Enable_statfsize=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1668. else
  1669. 'Set Fontsize for Status: Currently OFF - <a href="exec:Enable_statfsize=input(''Enter fontsize'') & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1670. end
  1671. *nl
  1672. '<center><B>Status Window toolbar</B></center>'
  1673. if Enable_showattr = 1:
  1674. 'Show More attribute: Currently ON - <a href="exec:Enable_showattr = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1675. else
  1676. 'Show More attribute: Currently OFF - <a href="exec:Enable_showattr = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1677. end
  1678. if Enable_showskill = 1:
  1679. 'Show skill: Currently ON - <a href="exec:Enable_showskill = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1680. else
  1681. 'Show skill: Currently OFF - <a href="exec:Enable_showskill = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1682. end
  1683. if Enable_showrelation = 1:
  1684. 'Show relations: Currently ON - <a href="exec:Enable_showrelation = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1685. else
  1686. 'Show relations: Currently OFF - <a href="exec:Enable_showrelation = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1687. end
  1688. if Enable_showstatimg = 1:
  1689. 'Show image toolbar: Currently ON - <a href="exec:Enable_showstatimg = 0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1690. else
  1691. 'Show image toolbar: Currently OFF - <a href="exec:Enable_showstatimg = 1 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1692. end
  1693. *nl
  1694. if Enable_showstatimg = 1:
  1695. !control image toolbar position
  1696. '<center><B>Image Toolbar Settings</B></center>'
  1697. $stat_temp_text = '<br>Image toolbar position: <B>'
  1698. if Enable_statimg_loc = 0:
  1699. $stat_temp_text += 'Middle'
  1700. elseif Enable_statimg_loc = 1:
  1701. $stat_temp_text += 'Top'
  1702. elseif Enable_statimg_loc = 2:
  1703. $stat_temp_text += 'Bottom'
  1704. else
  1705. $stat_temp_text += 'ERROR! please reset it'
  1706. end
  1707. $stat_temp_text += '</B>. You can move it to '
  1708. if Enable_statimg_loc ! 0:$stat_temp_text += ' <a href="exec:Enable_statimg_loc=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Middle</a>'
  1709. if Enable_statimg_loc ! 1:$stat_temp_text += ' <a href="exec:Enable_statimg_loc=1 & dynamic $cheatmenu[''status''] & gs ''stat''">Top</a>'
  1710. if Enable_statimg_loc ! 2:$stat_temp_text += ' <a href="exec:Enable_statimg_loc=2 & dynamic $cheatmenu[''status''] & gs ''stat''">Bottom</a>'
  1711. $stat_temp_text
  1712. killvar 'stat_temp_text'
  1713. !End control image toolbar position
  1714. if set_statimgh > 0: set_statimgw = 0
  1715. if set_statimgw > 0: set_statimgh = 0
  1716. if set_statimgh <= 0 and set_statimgw <= 0: $set_statimgh = ''
  1717. if set_statimgh > 0:
  1718. 'Force Image toobar height: <a href="exec:set_statimgw=0 & set_statimgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_statimgh>></a>: Currently ON - <a href="exec:set_statimgh=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1719. $set_statimgh = 'height = <<set_statimgh>>'
  1720. else
  1721. 'Force Image toobar height: Currently OFF - <a href="exec:set_statimgw=0 & set_statimgh=input(''Enter the height of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1722. end
  1723. if set_statimgw > 0:
  1724. 'Force Image toobar width: <a href="exec:set_statimgh=0 & set_statimgw=input(''Enter the width of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''"><<set_statimgw>></a>: Currently ON - <a href="exec:set_statimgw=0 & dynamic $cheatmenu[''status''] & gs ''stat''">Turn OFF</a>'
  1725. $set_statimgh = 'width = <<set_statimgw>>'
  1726. else
  1727. 'Force Image toobar width: Currently OFF - <a href="exec:set_statimgh=0 & set_statimgw=input(''Enter the width of the images'') & dynamic $cheatmenu[''status''] & gs ''stat''">Turn ON</a>'
  1728. end
  1729. end
  1730. !<a href="exec:gs ''Cheatmenu_din'' & dynamic $cheatmenu[''status''] & gs ''stat''"><img src="<<FUNC(''$phone_theme'')>>icon_settings.png"></a>
  1731. '</tr></table></b></center>'
  1732. }
  1733. $cheatmenu['theme'] = {
  1734. *clr & cla
  1735. gs 'obj_din', 'settingtabs'
  1736. '<center><h1>Phone Theme Menu</h1></center>'
  1737. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1738. *nl
  1739. if pcs_phonetheme = 0: $phoneNameTemp = 'Standard'
  1740. if pcs_phonetheme = 1: $phoneNameTemp = 'Bimbo'
  1741. if pcs_phonetheme = 2: $phoneNameTemp = 'Aluminus'
  1742. if pcs_phonetheme = 3: $phoneNameTemp = 'Bottlecapped'
  1743. if pcs_phonetheme = 4: $phoneNameTemp = 'Galactic'
  1744. if pcs_phonetheme = 5: $phoneNameTemp = 'Vectored'
  1745. if pcs_phonetheme = 6: $phoneNameTemp = 'Veneer'
  1746. if pcs_phonetheme = 7: $phoneNameTemp = 'Voidwalker'
  1747. if pcs_phonetheme = 8: $phoneNameTemp = 'Voidwalker Red'
  1748. if pcs_phonetheme = 9: $phoneNameTemp = 'Voidwalker Toxic'
  1749. if pcs_phonetheme = 10: $phoneNameTemp = 'Gopnik'
  1750. if pcs_phonetheme = 11: $phoneNameTemp = 'Sports'
  1751. if pcs_phonetheme = 12: $phoneNameTemp = 'Succubus'
  1752. if pcs_phonetheme = 13: $phoneNameTemp = 'Woodshop'
  1753. 'Current theme: <b><<$phoneNameTemp>></b>'
  1754. *nl
  1755. 'Choose from the available themes'
  1756. *nl
  1757. i = 0
  1758. :phonethemeloop
  1759. if phonetheme[i] = 1:'<td align="center" valign="top"><a href="exec: pcs_phonetheme = <<i>> & gs ''telefon'',''Phone_menu'' & dynamic $cheatmenu[''theme'']"><img height="100" width="100" src="images/system/phone/theme/' + $phonetheme_name[i] + '/icon_call.png"></a></td>'
  1760. i += 1
  1761. if i <= ARRSIZE('phonetheme') and i <= 3:
  1762. jump 'phonethemeloop'
  1763. elseif i <= ARRSIZE('phonetheme') and i = 4:
  1764. '</tr><tr>'
  1765. jump 'phonethemeloop'
  1766. elseif i <= ARRSIZE('phonetheme') and i > 4 and i <= 7:
  1767. jump 'phonethemeloop'
  1768. elseif i <= ARRSIZE('phonetheme') and i = 8:
  1769. '</tr><tr>'
  1770. jump 'phonethemeloop'
  1771. elseif i <= ARRSIZE('phonetheme') and i > 8 and i <= 11:
  1772. jump 'phonethemeloop'
  1773. elseif i <= ARRSIZE('phonetheme') and i = 12:
  1774. '</tr><tr>'
  1775. jump 'phonethemeloop'
  1776. elseif i <= ARRSIZE('phonetheme') and i > 12 and i <= 15:
  1777. jump 'phonethemeloop'
  1778. end
  1779. '</tr></table></b></center>'
  1780. }
  1781. $cheatmenu['pain'] = {
  1782. if pain['head'] < 0:pain['head'] = 0
  1783. if pain['hair'] < 0:pain['hair'] = 0
  1784. if pain['ears'] < 0:pain['ears'] = 0
  1785. if pain['eyebrows'] < 0:pain['eyebrows'] = 0
  1786. if pain['eyes'] < 0:pain['eyes'] = 0
  1787. if pain['cheeks'] < 0:pain['cheeks'] = 0
  1788. if pain['nose'] < 0:pain['nose'] = 0
  1789. if pain['mouth'] < 0:pain['mouth'] = 0
  1790. if pain['lips'] < 0:pain['lips'] = 0
  1791. if pain['tongue'] < 0:pain['tongue'] = 0
  1792. if pain['throat'] < 0:pain['throat'] = 0
  1793. if pain['neck'] < 0:pain['neck'] = 0
  1794. if pain['back'] < 0:pain['back'] = 0
  1795. if pain['asscheeks'] < 0:pain['asscheeks'] = 0
  1796. if pain['asshole'] < 0:pain['asshole'] = 0
  1797. if pain['hips'] < 0:pain['hips'] = 0
  1798. if pain['thighs'] < 0:pain['thighs'] = 0
  1799. if pain['legL'] < 0:pain['legL'] = 0
  1800. if pain['legR'] < 0:pain['legR'] = 0
  1801. if pain['feet'] < 0:pain['feet'] = 0
  1802. if pain['toes'] < 0:pain['toes'] = 0
  1803. if pain['shoulders'] < 0:pain['shoulders'] = 0
  1804. if pain['armL'] < 0:pain['armL'] = 0
  1805. if pain['armR'] < 0:pain['armR'] = 0
  1806. if pain['hands'] < 0:pain['hands'] = 0
  1807. if pain['fingers'] < 0:pain['fingers'] = 0
  1808. if pain['chest'] < 0:pain['chest'] = 0
  1809. if pain['breasts'] < 0:pain['breasts'] = 0
  1810. if pain['nipples'] < 0:pain['nipples'] = 0
  1811. if pain['ribs'] < 0:pain['ribs'] = 0
  1812. if pain['tummy'] < 0:pain['tummy'] = 0
  1813. if pain['pubic'] < 0:pain['pubic'] = 0
  1814. if pain['vaginal'] < 0:pain['vaginal'] = 0
  1815. if pain['clitoris'] < 0:pain['clitoris'] = 0
  1816. if pain['urethra'] < 0:pain['urethra'] = 0
  1817. if pain['cervix'] < 0:pain['cervix'] = 0
  1818. *clr & cla
  1819. gs 'obj_din', 'cheattabs'
  1820. '<center><h1>Cheat Menu - Pain Management</h1></center>'
  1821. '<center><a href="exec:killvar ''pain'' & dynamic $cheatmenu[''pain'']">No pain</a></center>'
  1822. *nl
  1823. '<center><table width="90%" cellspacing="0" cellpadding="0" valign="top">'
  1824. '<tr><td width="50%" cellpadding="10" valign="top">'
  1825. 'pain[head] = <<pain[''head'']>> <a href="exec:pain[''head''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''head''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1826. 'pain[hair] = <<pain[''hair'']>> <a href="exec:pain[''hair''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hair''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1827. 'pain[ears] = <<pain[''ears'']>> <a href="exec:pain[''ears''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''ears''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1828. 'pain[eyebrows] = <<pain[''ears'']>> <a href="exec:pain[''eyebrows''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''eyebrows''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1829. 'pain[eyes] = <<pain[''eyes'']>> <a href="exec:pain[''eyes''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''eyes''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1830. 'pain[cheeks] = <<pain[''cheeks'']>> <a href="exec:pain[''cheeks''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''cheeks''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1831. 'pain[nose] = <<pain[''nose'']>> <a href="exec:pain[''nose''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''nose''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1832. 'pain[mouth] = <<pain[''mouth'']>> <a href="exec:pain[''mouth''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''mouth''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1833. 'pain[lips] = <<pain[''lips'']>> <a href="exec:pain[''lips''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''lips''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1834. 'pain[tongue] = <<pain[''tongue'']>> <a href="exec:pain[''tongue''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''tongue''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1835. 'pain[throat] = <<pain[''throat'']>> <a href="exec:pain[''throat''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''throat''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1836. 'pain[neck] = <<pain[''neck'']>> <a href="exec:pain[''neck''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''neck''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1837. 'pain[back] = <<pain[''back'']>> <a href="exec:pain[''back''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''back''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1838. 'pain[asscheeks] = <<pain[''asscheeks'']>> <a href="exec:pain[''asscheeks''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''asscheeks''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1839. 'pain[asshole] = <<pain[''asshole'']>> <a href="exec:pain[''asshole''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''asshole''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1840. 'pain[hips] = <<pain[''hips'']>> <a href="exec:pain[''hips''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hips''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1841. 'pain[thighs] = <<pain[''thighs'']>> <a href="exec:pain[''thighs''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''thighs''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1842. 'pain[left leg] = <<pain[''legL'']>> <a href="exec:pain[''legL''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''legL''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1843. 'pain[right leg] = <<pain[''legR'']>> <a href="exec:pain[''legR''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''legR''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1844. '</td><td width="50%" cellpadding="10" valign="top">'
  1845. 'pain[feet] = <<pain[''feet'']>> <a href="exec:pain[''feet''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''feet''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1846. 'pain[toes] = <<pain[''toes'']>> <a href="exec:pain[''toes''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''toes''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1847. 'pain[shoulders] = <<pain[''shoulders'']>> <a href="exec:pain[''shoulders''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''shoulders''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1848. 'pain[left arm] = <<pain[''armL'']>> <a href="exec:pain[''armL''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''armL''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1849. 'pain[right arm] = <<pain[''armR'']>> <a href="exec:pain[''armR''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''armR''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1850. 'pain[hands] = <<pain[''hands'']>> <a href="exec:pain[''hands''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''hands''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1851. 'pain[fingers] = <<pain[''fingers'']>> <a href="exec:pain[''fingers''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''fingers''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1852. 'pain[chest] = <<pain[''chest'']>> <a href="exec:pain[''chest''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''chest''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1853. 'pain[breasts] = <<pain[''breasts'']>> <a href="exec:pain[''breasts''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''breasts''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1854. 'pain[nipples] = <<pain[''nipples'']>> <a href="exec:pain[''nipples''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''nipples''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1855. 'pain[ribs] = <<pain[''ribs'']>> <a href="exec:pain[''ribs''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''ribs''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1856. 'pain[tummy] = <<pain[''tummy'']>> <a href="exec:pain[''tummy''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''tummy''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1857. 'pain[pubic] = <<pain[''pubic'']>> <a href="exec:pain[''pubic''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''pubic''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1858. 'pain[vaginal] = <<pain[''vaginal'']>> <a href="exec:pain[''vaginal''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''vaginal''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1859. 'pain[labia] = <<pain[''labia'']>> <a href="exec:pain[''labia''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''labia''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1860. 'pain[clitoris] = <<pain[''clitoris'']>> <a href="exec:pain[''clitoris''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''clitoris''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1861. 'pain[urethra] = <<pain[''urethra'']>> <a href="exec:pain[''urethra''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''urethra''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1862. 'pain[cervix] = <<pain[''cervix'']>> <a href="exec:pain[''cervix''] -= 10 & dynamic $cheatmenu[''pain'']">-10</a> <a href="exec:pain[''cervix''] += 10 & dynamic $cheatmenu[''pain'']">+10</a>'
  1863. '</td></tr></table></center>'
  1864. }
  1865. $cheatmenu['DNA'] = {
  1866. *clr & cla
  1867. gs 'obj_din', 'cheattabs'
  1868. '<center><h1>Cheat Menu - DNA Generation</h1></center>'
  1869. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1870. '<td cellspacing="0" cellpadding="20" valign="top">'
  1871. '<center>DNA string generation<br>If parents are not in game, leave the respective IDs empty</center>'
  1872. *nl
  1873. if $cheatDNAC ! '':
  1874. '<b>Child: <<$npc_firstname[''<<$cheatDNAC>>'']>> <<$npc_lastname[''<<$cheatDNAC>>'']>></b> (<<$cheatDNAC>>)<br><<$npc_dna[$cheatDNAC]>><br><a href="exec:killvar ''cheatDNAC'' & dynamic $cheatmenu[''DNA'']">Remove</a>'
  1875. npctemp = 0
  1876. killvar 'cheatDNAM'
  1877. killvar 'cheatDNAF'
  1878. :npcparentfind
  1879. if $npc_dna['A<<npctemp>>'] ! '':
  1880. if mid($npc_dna['A<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],12,10):
  1881. $cheatDNAM = 'A<<npctemp>>'
  1882. elseif mid($npc_dna['A<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],23,10):
  1883. $cheatDNAF = 'A<<npctemp>>'
  1884. end
  1885. end
  1886. if $npc_dna['B<<npctemp>>'] ! '':
  1887. if mid($npc_dna['B<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],12,10):
  1888. $cheatDNAM = 'B<<npctemp>>'
  1889. elseif mid($npc_dna['B<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],23,10):
  1890. $cheatDNAF = 'B<<npctemp>>'
  1891. end
  1892. end
  1893. if $npc_dna['C<<npctemp>>'] ! '':
  1894. if mid($npc_dna['C<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],12,10):
  1895. $cheatDNAM = 'C<<npctemp>>'
  1896. elseif mid($npc_dna['C<<npctemp>>'],1,10) = mid($npc_dna[$cheatDNAC],23,10):
  1897. $cheatDNAF = 'C<<npctemp>>'
  1898. end
  1899. end
  1900. if ($npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '') and ($cheatDNAM = '' or $cheatDNAF = ''):npctemp += 1 & jump 'npcparentfind'
  1901. killvar 'npctemp'
  1902. else
  1903. '<a href="exec:killvar ''tempDNAC'' & dynamic $cheatmenu[''DNAC'']"><b>ID of child (if it is known)</b></a>'
  1904. end
  1905. if $cheatDNAM ! '':
  1906. '<br><b>Mother: <<$npc_firstname[''<<$cheatDNAM>>'']>> <<$npc_lastname[''<<$cheatDNAM>>'']>></b> (<<$cheatDNAM>>)<br><<$npc_dna[$cheatDNAM]>><br><a href="exec:killvar ''cheatDNAM'' & dynamic $cheatmenu[''DNA'']">Remove</a>'
  1907. else
  1908. '<br><a href="exec:killvar ''tempDNAM'' & dynamic $cheatmenu[''DNAM'']"><b>ID of mother (if it is known)</b></a>'
  1909. end
  1910. if $cheatDNAF ! '':
  1911. '<br><b>Father: <<$npc_firstname[''<<$cheatDNAF>>'']>> <<$npc_lastname[''<<$cheatDNAF>>'']>></b> (<<$cheatDNAF>>)<br><<$npc_dna[$cheatDNAF]>><br><a href="exec:killvar ''cheatDNAF'' & dynamic $cheatmenu[''DNA'']">Remove</a>'
  1912. else
  1913. '<br><a href="exec:killvar ''tempDNAF'' & dynamic $cheatmenu[''DNAF'']"><b>ID of father (if it is known)</b></a>'
  1914. end
  1915. *nl
  1916. if $cheatDNAM ! '' and $cheatDNAF ! '':
  1917. $cheatDNAgenerated = func('DNA','generate',$npc_dna[$cheatDNAM],$npc_dna[$cheatDNAF])
  1918. elseif $cheatDNAM ! '':
  1919. if $cheatDNAC ! '':
  1920. $tempDNAF = func('DNA','generateF',$npc_dna[$cheatDNAC])
  1921. else
  1922. $tempDNAF = func('DNA','create')
  1923. $cheatDNAgenerated = func('DNA','generate',$npc_dna[$cheatDNAM],$tempDNAF)
  1924. end
  1925. elseif $cheatDNAF ! '':
  1926. if $cheatDNAC ! '':
  1927. $tempDNAM = func('DNA','generateM',$npc_dna[$cheatDNAC])
  1928. else
  1929. $tempDNAM = func('DNA','create')
  1930. $cheatDNAgenerated = func('DNA','generate',$tempDNAM,$npc_dna[$cheatDNAF])
  1931. end
  1932. else
  1933. if $cheatDNAC = '':
  1934. $tempDNAM = func('DNA','create')
  1935. $tempDNAF = func('DNA','create')
  1936. $cheatDNAgenerated = func('DNA','generate',$tempDNAM,$tempDNAF)
  1937. else
  1938. $tempDNAM = func('DNA','generateM',$npc_dna[$cheatDNAC])
  1939. $tempDNAF = func('DNA','generateF',$npc_dna[$cheatDNAC])
  1940. end
  1941. end
  1942. if $cheatDNAM = '': '<br><b>Random mother DNA:</b> <<$tempDNAM>>'
  1943. if $cheatDNAF = '': '<br><b>Random father DNA:</b> <<$tempDNAF>>'
  1944. if $cheatDNAC = '': '<br><b>Random child DNA:</b> <<$cheatDNAgenerated>>'
  1945. '<br><a href="exec:dynamic $cheatmenu[''DNA'']">Generate again</a>'
  1946. if $cheatDNAC ! '':
  1947. npctemp = 0
  1948. :npcgparfind
  1949. if $npc_dna['A<<npctemp>>'] ! '':
  1950. if mid($npc_dna[$cheatDNAC],34,10) = mid($npc_dna['A<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],56,10) = mid($npc_dna['A<<npctemp>>'],1,10):
  1951. '<br><b>Grandmother: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  1952. elseif mid($npc_dna[$cheatDNAC],45,10) = mid($npc_dna['A<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],67,10) = mid($npc_dna['A<<npctemp>>'],1,10):
  1953. '<br><b>Grandfather: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  1954. end
  1955. end
  1956. if $npc_dna['B<<npctemp>>'] ! '':
  1957. if mid($npc_dna[$cheatDNAC],34,10) = mid($npc_dna['B<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],56,10) = mid($npc_dna['B<<npctemp>>'],1,10):
  1958. '<br><b>Grandmother: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  1959. elseif mid($npc_dna[$cheatDNAC],45,10) = mid($npc_dna['A<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],67,10) = mid($npc_dna['B<<npctemp>>'],1,10):
  1960. '<br><b>Grandfather: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  1961. end
  1962. end
  1963. if $npc_dna['C<<npctemp>>'] ! '':
  1964. if mid($npc_dna[$cheatDNAC],34,10) = mid($npc_dna['C<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],56,10) = mid($npc_dna['C<<npctemp>>'],1,10):
  1965. '<br><b>Grandmother: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  1966. elseif mid($npc_dna[$cheatDNAC],45,10) = mid($npc_dna['C<<npctemp>>'],1,10) or mid($npc_dna[$cheatDNAC],67,10) = mid($npc_dna['A<<npctemp>>'],1,10):
  1967. '<br><b>Grandfather: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  1968. end
  1969. end
  1970. if $npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '':npctemp += 1 & jump 'npcgparfind'
  1971. end
  1972. if $cheatDNAM ! '' or $cheatDNAF ! '':
  1973. npctemp = 0
  1974. :npcchildfind
  1975. if $npc_dna['A<<npctemp>>'] ! '':
  1976. if $cheatDNAM ! '' and $cheatDNAF = '' and mid($npc_dna['A<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10):
  1977. '<br><b>Existing child: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  1978. elseif $cheatDNAM = '' and $cheatDNAF ! '' and mid($npc_dna['A<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
  1979. '<br><b>Existing child: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  1980. elseif mid($npc_dna['A<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and mid($npc_dna['A<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
  1981. '<br><b>Existing child: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  1982. end
  1983. end
  1984. if $npc_dna['B<<npctemp>>'] ! '':
  1985. if $cheatDNAM ! '' and $cheatDNAF = '' and mid($npc_dna['B<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10):
  1986. '<br><b>Existing child: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  1987. elseif $cheatDNAM = '' and $cheatDNAF ! '' and mid($npc_dna['B<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
  1988. '<br><b>Existing child: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  1989. elseif mid($npc_dna['B<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and mid($npc_dna['B<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
  1990. '<br><b>Existing child: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  1991. end
  1992. end
  1993. if $npc_dna['C<<npctemp>>'] ! '':
  1994. if $cheatDNAM ! '' and $cheatDNAF = '' and mid($npc_dna['C<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10):
  1995. '<br><b>Existing child: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  1996. elseif $cheatDNAM = '' and $cheatDNAF ! '' and mid($npc_dna['C<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
  1997. '<br><b>Existing child: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  1998. elseif mid($npc_dna['C<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and mid($npc_dna['C<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10):
  1999. '<br><b>Existing child: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  2000. end
  2001. end
  2002. if $npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '':npctemp += 1 & jump 'npcchildfind'
  2003. npctemp = 0
  2004. :npcgchildfind
  2005. if $npc_dna['A<<npctemp>>'] ! '':
  2006. if $cheatDNAM ! '' and $cheatDNAF = '' and (mid($npc_dna['A<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['A<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)):
  2007. '<br><b>Existing grandchild: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  2008. elseif $cheatDNAM = '' and $cheatDNAF ! '' and (mid($npc_dna['A<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['A<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10)):
  2009. '<br><b>Existing grandchild: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  2010. elseif ((mid($npc_dna['A<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['A<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and (mid($npc_dna['A<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['A<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or (mid($npc_dna['A<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and (mid($npc_dna['A<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['A<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or ((mid($npc_dna['A<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['A<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and mid($npc_dna['A<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10)):
  2011. '<br><b>Existing grandchild: <<$npc_firstname[''A<<npctemp>>'']>> <<$npc_lastname[''A<<npctemp>>'']>></b> (A<<npctemp>>)<br><<$npc_dna[''A<<npctemp>>'']>>'
  2012. end
  2013. end
  2014. if $npc_dna['B<<npctemp>>'] ! '':
  2015. if $cheatDNAM ! '' and $cheatDNAF = '' and (mid($npc_dna['B<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['B<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)):
  2016. '<br><b>Existing grandchild: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  2017. elseif $cheatDNAM = '' and $cheatDNAF ! '' and (mid($npc_dna['B<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['B<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10)):
  2018. '<br><b>Existing grandchild: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  2019. elseif ((mid($npc_dna['B<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['B<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and (mid($npc_dna['B<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['B<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or (mid($npc_dna['B<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and (mid($npc_dna['B<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['B<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or ((mid($npc_dna['B<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['B<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and mid($npc_dna['B<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10)):
  2020. '<br><b>Existing grandchild: <<$npc_firstname[''B<<npctemp>>'']>> <<$npc_lastname[''B<<npctemp>>'']>></b> (B<<npctemp>>)<br><<$npc_dna[''B<<npctemp>>'']>>'
  2021. end
  2022. end
  2023. if $npc_dna['C<<npctemp>>'] ! '':
  2024. if $cheatDNAM ! '' and $cheatDNAF = '' and (mid($npc_dna['C<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['C<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)):
  2025. '<br><b>Existing grandchild: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  2026. elseif $cheatDNAM = '' and $cheatDNAF ! '' and (mid($npc_dna['C<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['C<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10)):
  2027. '<br><b>Existing grandchild: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  2028. elseif ((mid($npc_dna['C<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['C<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and (mid($npc_dna['C<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['C<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or (mid($npc_dna['C<<npctemp>>'],12,10) = mid($npc_dna[$cheatDNAM],1,10) and (mid($npc_dna['C<<npctemp>>'],45,10) = mid($npc_dna[$cheatDNAF],1,10) or mid($npc_dna['C<<npctemp>>'],67,10) = mid($npc_dna[$cheatDNAF],1,10))) or ((mid($npc_dna['C<<npctemp>>'],34,10) = mid($npc_dna[$cheatDNAM],1,10) or mid($npc_dna['C<<npctemp>>'],56,10) = mid($npc_dna[$cheatDNAM],1,10)) and mid($npc_dna['C<<npctemp>>'],23,10) = mid($npc_dna[$cheatDNAF],1,10)):
  2029. '<br><b>Existing grandchild: <<$npc_firstname[''C<<npctemp>>'']>> <<$npc_lastname[''C<<npctemp>>'']>></b> (C<<npctemp>>)<br><<$npc_dna[''C<<npctemp>>'']>>'
  2030. end
  2031. end
  2032. if $npc_dna['A<<npctemp>>'] ! '' or $npc_dna['B<<npctemp>>'] ! '' or $npc_dna['C<<npctemp>>'] ! '':npctemp += 1 & jump 'npcgchildfind'
  2033. killvar 'npctemp'
  2034. end
  2035. killvar '$tempDNAF'
  2036. killvar '$tempDNAM'
  2037. killvar '$tempDNAC'
  2038. killvar 'cheatDNAgenerated'
  2039. '</td></tr></table></center>'
  2040. }
  2041. $cheatmenu['DNAM'] = {
  2042. $cheatDNAM = input("Enter genetic mother ID (like A33, without apostrophe)")
  2043. if $cheatDNAM = '':exit
  2044. dynamic $cheatDNAM
  2045. dynamic $cheatmenu['DNA']
  2046. }
  2047. $cheatmenu['DNAF'] = {
  2048. $cheatDNAF = input("Enter genetic father ID (like A34, without apostrophe)")
  2049. if $cheatDNAF = '':exit
  2050. dynamic $cheatDNAF
  2051. dynamic $cheatmenu['DNA']
  2052. }
  2053. $cheatmenu['DNAC'] = {
  2054. $cheatDNAC = input("Enter genetic Child ID (like A34, without apostrophe)")
  2055. if $cheatDNAC = '':exit
  2056. dynamic $cheatDNAC
  2057. dynamic $cheatmenu['DNA']
  2058. }
  2059. $cheatmenu['quicktime'] = {
  2060. minut += ARGS[0]
  2061. *clr
  2062. gs 'daystart'
  2063. gs 'outdoors', 'weather'
  2064. gs 'stat'
  2065. gs 'cum_arrcheat'
  2066. }
  2067. $cheatmenu = {
  2068. gs'stat'
  2069. currhour = (daystart-1) * 24 + hour
  2070. currday = daystart
  2071. temp_week = week & temp_day = day & $temp_month = $month & temp_month = month & temp_year = year & temp_hour = hour & temp_minut = minut
  2072. *clr & cla
  2073. gs 'obj_din', 'cheattabs'
  2074. '<center><h1>Cheat Menu - Index</h1></center>'
  2075. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  2076. '<td width="400" cellspacing="0" cellpadding="20" valign="top">'
  2077. '<a href="exec:dynamic $cheatmenu[''dynamic'']">Dynamic Input Command</a>'
  2078. '<a href="exec:gs ''cum_arrcheat''">OOX Debug</a>'
  2079. 'Right now <<$week[week]>> <<$month>> <<day>> <<year>> <<hour>>:<<minut>>'
  2080. 'Jump forward <a href="exec:dynamic $cheatmenu[''quicktime''], 15 & dynamic $cheatmenu">+15</a> minutes'
  2081. *nl
  2082. *nl
  2083. '<a href="exec:gt''pavResidential''">Teleport to Pavlovsk</a>'
  2084. '<a href="exec:gt''street''">Teleport to City</a>'
  2085. '<a href="exec:gt''gadukino''">Teleport to Gadukino</a>'
  2086. '<a href="exec:gt''dachi''">Teleport to Suburban Cooperative</a>'
  2087. *nl
  2088. '<font color="red"><b>WARNING!</b></font>: Teleporting while in an event may break your game. Use at your own risk!'
  2089. *nl
  2090. 'Pregnancy speed multiplier: <a href="exec:if pregspeedcheat < 3:pregspeedcheat += 1 & dynamic $cheatmenu else pregspeedcheat = 0 & dynamic $cheatmenu"><b><<pregspeedcheat+1>></b></a>'
  2091. *nl
  2092. '<a href="exec:dynamic $cheatmenu[''vartracker'']"><b>Variable tracker</b></a>'
  2093. '</tr></table></b></center>'
  2094. }
  2095. $cheatmenu['vartracker'] = {
  2096. gs'stat'
  2097. *clr & cla
  2098. act 'Return to cheat index': dynamic $cheatmenu
  2099. '<center><h1>Cheat menu</h1></center>'
  2100. '<center>For testing purposes.<br>If reporting a bug only the lines in red are neccessary.</center>'
  2101. *nl
  2102. '$loc: <<$loc>>'
  2103. '$locM: <<$locM>>'
  2104. '<font color = red>$CURLOC: <<$CURLOC>></font>'
  2105. '$location_type: <<$location_type>>'
  2106. 'home_cur: <<home_cur>>'
  2107. '$home_town: <<$home_town>>'
  2108. '$home_name: <<$home_name>>'
  2109. 'daystart: <<daystart>>'
  2110. 'daystart_start: <<daystart_start>>'
  2111. 'month: <<month>>'
  2112. 'week: <<week>>'
  2113. '$temperature: <<$temperature>>'
  2114. 'pffilmday: <<pffilmday>>'
  2115. '$pfname: <<$pfname>>'
  2116. 'modelmon: <<modelmon>>'
  2117. 'min_arousal: <<min_arousal>>'
  2118. 'pcs_nips: <<pcs_nips>>'
  2119. 'clit_size: <<clit_size>>'
  2120. 'steroid_have: <<steroid_have>>'
  2121. 'steroid_counter: <<steroid_counter>>'
  2122. 'steroid_dose: <<steroid_dose>>'
  2123. 'aphrodisiac_have: <<aphrodisiac_have>>'
  2124. 'aphrodisiac_counter: <<aphrodisiac_counter>>'
  2125. 'aphrodisiac_timer: <<aphrodisiac_timer>>'
  2126. 'aphrodisiac_addiction: <<aphrodisiac_addiction>>'
  2127. 'bcream_have: <<bcream_have>>'
  2128. 'motherQW: <<npc_QW[''A29'']>>'
  2129. 'Anastasia quest level: <<npc_QW[''A192'']>>'
  2130. 'sex: <<stat[''vaginal'']>>'
  2131. '$clothingworntype: <<$clothingworntype>>'
  2132. 'PCloQuality: <<PCloQuality>>'
  2133. 'Mira''s Father Quest (npc_QW[''A64'']): <<npc_QW[''A64'']>>'
  2134. 'Mira''s Quest (npc_QW[''A60'']): <<npc_QW[''A60'']>>'
  2135. 'mirasextimes: <<mirasextimes>>'
  2136. 'Bandit Quest Level (npc_QW[''A66'']): <<npc_QW[''A66'']>>'
  2137. 'Mira''s Relationship (npc_rel[''A60'']): <<npc_rel[''A60'']>>'
  2138. 'Mitka''s Quest (npc_QW[''A63'']): <<npc_QW[''A63'']>>'
  2139. 'mirabrosextime: <<mirabrosextime>>'
  2140. 'momslut: <<momslut>>'
  2141. 'children: <<kid>>'
  2142. 'fetus number: <<BabyEmbryo>>'
  2143. 'pregnancy state: <<preg>>'
  2144. 'thinkpreg: <<thinkpreg>>'
  2145. 'knowpreg: <<knowpreg>>'
  2146. 'knowpregrecover: <<knowpregrecover>>'
  2147. 'cycle: <<cycle>>'
  2148. 'menoage: <<menoage>>'
  2149. 'age: <<age>>'
  2150. 'mesec: <<mesec>>'
  2151. 'FocH: <<FocH>>'
  2152. 'EggRH: <<EggRH>>'
  2153. 'Ovulate: <<Ovulate>>'
  2154. 'UnfertEgg: <<UnfertEgg>>'
  2155. 'FertEgg: <<FertEgg>>'
  2156. if FertEgg > 0:
  2157. i = arrpos('$kidname','unborn')
  2158. imax = arrsize('$kidname')-1
  2159. :chlp
  2160. ' <<i+1>>. baby''s pregnancy type: <<babyptype[i]>>'
  2161. if i < imax: i += 1 & jump 'chlp'
  2162. killvar 'i'
  2163. killvar 'imax'
  2164. end
  2165. 'Implanted Embryos: <<BabyEmbryo>>'
  2166. 'ferteggage: <<ferteggage>>'
  2167. 'PregChem: <<PregChem>>'
  2168. 'pillcon: <<pillcon>>'
  2169. 'Believed pillcon: <<pillcon2>>'
  2170. 'RecovH: <<RecovH>>'
  2171. 'daylastperiod: <<daylastperiod>> (daystart difference: <<daystart-daylastperiod>>)'
  2172. 'lastmens: <<lastmens>>'
  2173. 'hypnoTime: <<hypnoTime>>'
  2174. 'hypnoStrength: <<hypnoStrength>>'
  2175. 'hypnoDay: <<hypnoDay>>'
  2176. 'hypnoAddict: <<hypnoAddict>>'
  2177. 'missCum: <<missCum>>'
  2178. 'condoms/bad condoms: <<prezik>>/<<badprezik>>'
  2179. if tabletki > 0:
  2180. 'pack(s) of birth control pills: <<tabletki>>'
  2181. if tabletkiold > 0: ' <<tabletkiold>> expired pack'
  2182. if tabletkifake > 0: ' <<tabletkifake>> counterfeit pack'
  2183. if tabletkirej > 0: ' <<tabletkirej>> factory rejected pack'
  2184. if tabletkifert > 0: ' <<tabletkifert>> fertility hormones pack'
  2185. if tabletkisug > 0: ' <<tabletkisug>> sugar pills pack'
  2186. end
  2187. if pillsleft[ptype] > 0:
  2188. if ptype = 0: $pilltype = 'normal '
  2189. if ptype = 1: $pilltype = 'expired '
  2190. if ptype = 2: $pilltype = 'counterfeit '
  2191. if ptype = 3: $pilltype = 'factory rejected '
  2192. if ptype = 4: $pilltype = 'sugar '
  2193. if ptype = 5: $pilltype = 'fertility hormone '
  2194. '<<pillsleft[ptype]>> <<$pilltype>>pills left of your currently used pack'
  2195. killvar '$pilltype'
  2196. end
  2197. }
  2198. $cheatmenu['bdimmain'] = {
  2199. gs 'stat'
  2200. *clr & cla
  2201. gs 'obj_din', 'cheattabs'
  2202. '<center><h1>Cheat Menu - Body Image Sets</h1></center>'
  2203. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  2204. '<td width="400" cellspacing="0" cellpadding="20" valign="top">'
  2205. '<center><b>Body Image Controls</b></center>'
  2206. *nl
  2207. 'You are currently using set: <<$bodimgsets[((bodset * 10) + 9)]>>'
  2208. if bdsetlock = 1:
  2209. 'The set used is locked to current.'
  2210. else
  2211. 'The set used is unlocked.'
  2212. end
  2213. *nl
  2214. 'This is the current default and custom (if any) body image sets:'
  2215. *nl
  2216. '<a href="exec:chmbodset = 0 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[9]>></b></a>'
  2217. *nl
  2218. '<a href="exec:chmbodset = 1 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[19]>></b></a>'
  2219. *nl
  2220. '<a href="exec:chmbodset = 2 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[29]>></b></a>'
  2221. *nl
  2222. if bodsetcnt >= 3:
  2223. 'You may edit aspects of a custom image set by clicking on their folder names below.'
  2224. *nl
  2225. '<a href="exec:chmbodset = 3 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[39]>></b></a>'
  2226. *nl
  2227. elseif bodsetcnt = 2:
  2228. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2229. *nl
  2230. end
  2231. if bodsetcnt >= 4:
  2232. '<a href="exec:chmbodset = 4 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[49]>></b></a>'
  2233. *nl
  2234. elseif bodsetcnt = 3:
  2235. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2236. *nl
  2237. end
  2238. if bodsetcnt >= 5:
  2239. '<a href="exec:chmbodset = 5 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[59]>></b></a>'
  2240. *nl
  2241. elseif bodsetcnt = 4:
  2242. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2243. *nl
  2244. end
  2245. if bodsetcnt >= 6:
  2246. '<a href="exec:chmbodset = 6 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[69]>></b></a>'
  2247. *nl
  2248. elseif bodsetcnt = 5:
  2249. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2250. *nl
  2251. end
  2252. if bodsetcnt >= 7:
  2253. '<a href="exec:chmbodset = 7 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[79]>></b></a>'
  2254. *nl
  2255. elseif bodsetcnt = 6:
  2256. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2257. *nl
  2258. end
  2259. if bodsetcnt >= 8:
  2260. '<a href="exec:chmbodset = 8 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[89]>></b></a>'
  2261. *nl
  2262. elseif bodsetcnt = 7:
  2263. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2264. *nl
  2265. end
  2266. if bodsetcnt >= 9:
  2267. '<a href="exec:chmbodset = 9 & dynamic $cheatmenu[''bdimdisplay'']"><b><<$bodimgsets[99]>></b></a>'
  2268. *nl
  2269. elseif bodsetcnt = 8:
  2270. '<a href="exec:dynamic $cheatmenu[''bdimcstadd'']"><b>Add new set</b></a>'
  2271. *nl
  2272. end
  2273. '</td></tr></table></center>'
  2274. }
  2275. $cheatmenu['bdimdisplay'] = {
  2276. gs 'stat'
  2277. *clr & cla
  2278. '<center><h1>Cheat menu</h1></center>'
  2279. *nl
  2280. '<center><b>Body Image Set Display</b></center>'
  2281. '<a href="exec:killvar ''chmbodset'' & dynamic $cheatmenu[''bdimmain'']"><b>Go Back</b></a>'
  2282. *nl
  2283. if bdsetlock = 1 and chmbodset = fixbodset:
  2284. 'This is the currently locked set.'
  2285. '<a href="exec:bdsetlock = 0 & bodset = 1 & killvar ''fixbodset'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Clear the lock.</b></a>'
  2286. else
  2287. '<a href="exec:bdsetlock = 1 & bodset = chmbodset & fixbodset = chmbodset & dynamic $cheatmenu[''bdimdisplay'']"><b>Use this set only.</b></a>'
  2288. end
  2289. *nl
  2290. if chmbodset <= 2:
  2291. 'Folder: <<$bodimgsets[((chmbodset * 10) + 9)]>>'
  2292. 'Descriptors:'
  2293. '<a href="exec:view ''images/pc/body/shape/0.jpg''"><<$bodimgsets[((chmbodset * 10) + 0)]>></a>'
  2294. *nl
  2295. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/1.jpg''"><<$bodimgsets[((chmbodset * 10) + 1)]>></a>'
  2296. *nl
  2297. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/2.jpg''"><<$bodimgsets[((chmbodset * 10) + 2)]>></a>'
  2298. *nl
  2299. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/3.jpg''"><<$bodimgsets[((chmbodset * 10) + 3)]>></a>'
  2300. *nl
  2301. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/4.jpg''"><<$bodimgsets[((chmbodset * 10) + 4)]>></a>'
  2302. *nl
  2303. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/5.jpg''"><<$bodimgsets[((chmbodset * 10) + 5)]>></a>'
  2304. *nl
  2305. '<a href="exec:view ''images/pc/body/shape/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a>'
  2306. *nl
  2307. '<a href="exec:view ''images/pc/body/shape/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a>'
  2308. *nl
  2309. else
  2310. 'Folder: <<$bodimgsets[((chmbodset * 10) + 9)]>>'
  2311. 'Descriptors: (Displayed as "You are:")'
  2312. '<a href="exec:view ''images/pc/body/shape/0.jpg''"><<$bodimgsets[((chmbodset * 10) + 0)]>></a>'
  2313. *nl
  2314. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/1.jpg''"><<$bodimgsets[((chmbodset * 10) + 1)]>></a> -- <a href="exec:chmbddes = 1 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2315. *nl
  2316. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/2.jpg''"><<$bodimgsets[((chmbodset * 10) + 2)]>></a> -- <a href="exec:chmbddes = 2 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2317. *nl
  2318. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/3.jpg''"><<$bodimgsets[((chmbodset * 10) + 3)]>></a> -- <a href="exec:chmbddes = 3 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2319. *nl
  2320. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/4.jpg''"><<$bodimgsets[((chmbodset * 10) + 4)]>></a> -- <a href="exec:chmbddes = 4 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2321. *nl
  2322. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/5.jpg''"><<$bodimgsets[((chmbodset * 10) + 5)]>></a> -- <a href="exec:chmbddes = 5 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2323. *nl
  2324. if imgset6ovr[chmbodset] = 1:
  2325. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a> -- <a href="exec:chmbddes = 6 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2326. *nl
  2327. 'You are using a <a href="exec:imgset6ovr[chmbodset] = 0 & dynamic $cheatmenu[''bdimdisplay'']">custom image 6</a> for this set.'
  2328. *nl
  2329. else
  2330. '<a href="exec:view ''images/pc/body/shape/6.jpg''"><<$bodimgsets[((chmbodset * 10) + 6)]>></a>'
  2331. *nl
  2332. 'You are using the <a href="exec:imgset6ovr[chmbodset] = 1 & dynamic $cheatmenu[''bdimdisplay'']">default image 6</a> for this set.'
  2333. *nl
  2334. end
  2335. if imgset7ovr[chmbodset] = 1:
  2336. '<a href="exec:view ''images/pc/body/shape/<<$bodimgsets[((chmbodset * 10) + 9)]>>/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a> -- <a href="exec:chmbddes = 7 & dynamic $cheatmenu[''bdimcstdesed'']">Edit this</a>'
  2337. *nl
  2338. 'You are using a <a href="exec:imgset7ovr[chmbodset] = 0 & dynamic $cheatmenu[''bdimdisplay'']">custom image 7</a> for this set.'
  2339. *nl
  2340. else
  2341. '<a href="exec:view ''images/pc/body/shape/7.jpg''"><<$bodimgsets[((chmbodset * 10) + 7)]>></a>'
  2342. *nl
  2343. 'You are using the <a href="exec:imgset7ovr[chmbodset] = 1 & dynamic $cheatmenu[''bdimdisplay'']">default image 7</a> for this set.'
  2344. *nl
  2345. end
  2346. '<a href="exec:dynamic $cheatmenu[''bdimcstdel'']">Delete this set.</a>'
  2347. end
  2348. }
  2349. $cheatmenu['bdimcstdel'] = {
  2350. *clr & cla
  2351. '<center><b>Body Image Set Removal</b></center>'
  2352. '<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Go Back</b></a>'
  2353. *nl
  2354. 'This is where you remove a body image set from use, please note it does not delete anything, it just clears the custom set from this game instance/save.'
  2355. if klsetask = 1:
  2356. '<a href="exec:klsetask = 2 & dynamic $cheatmenu[''bdimcstdel'']"><b>Are you sure you want to remove set <<$bodimgsets[((chmbodset * 10) + 9)]>>?</b></a>'
  2357. elseif klsetask = 2:
  2358. if chmbodset <= 2:
  2359. 'You have encoutered error 1'
  2360. '<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Go Back</b></a>'
  2361. exit
  2362. end
  2363. if bdsetlock = 1 and fixbodset >= chmbodset: bdsetlock = 0 & killvar 'fixbodset'
  2364. if bodsetcnt > chmbodset:
  2365. cyci1 = 0
  2366. cyci2 = chmbodset
  2367. :overwriter1
  2368. $bodimgsets[((cyci2 * 10) + cyci1)] = $bodimgsets[(((cyci2 + 1) * 10) + cyci1)]
  2369. cyci1 += 1
  2370. if cyci1 < 10: jump 'overwriter1'
  2371. imgset6ovr[cyci2] = imgset6ovr[(cyci2 + 1)]
  2372. imgset7ovr[cyci2] = imgset7ovr[(cyci2 + 1)]
  2373. cyci1 = 0
  2374. cyci2 += 1
  2375. if cyci2 < bodsetcnt: jump 'overwriter1'
  2376. killvar 'cyci1' & killvar 'cyci2'
  2377. elseif bodsetcnt < chmbodset:
  2378. 'You have encoutered error 2'
  2379. '<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimdisplay'']"><b>Go Back</b></a>'
  2380. exit
  2381. end
  2382. cyci1 = 9
  2383. :poofer1
  2384. killvar 'bodimgsets', ((bodsetcnt * 10) + cyci1)
  2385. cyci1 -= 1
  2386. if cyci1 >= 0: jump 'poofer1'
  2387. killvar 'cyci1'
  2388. killvar 'imgset6ovr', bodsetcnt
  2389. killvar 'imgset7ovr', bodsetcnt
  2390. bodsetcnt -= 1
  2391. killvar 'klsetask'
  2392. dynamic $cheatmenu['bdimmain']
  2393. else
  2394. '<a href="exec:klsetask = 1 & dynamic $cheatmenu[''bdimcstdel'']">Remove set <<$bodimgsets[((chmbodset * 10) + 9)]>>?</a>'
  2395. end
  2396. }
  2397. $cheatmenu['bdimcstadd'] = {
  2398. *clr & cla
  2399. '<center><b>Body Image Set Addition</b></center>'
  2400. '<a href="exec:killvar ''klsetask'' & dynamic $cheatmenu[''bdimmain'']"><b>Go Back</b></a>'
  2401. *nl
  2402. 'This is where you can add a new image set to a game.'
  2403. 'To add an image set, create a folder in images/pc/body/shape/ and name it anything you want (shorter will be easier to remember). Then put in it any images you want named 1.jpg, 2.jpg, etc. up 5, 6, or 7. Just make sure it contains images 1 to 5. Once you have done that, click the link below and put in your folder name to add that set.'
  2404. 'Note: This will only be for this instance/save of the game and you will have to redo the click the link step if you want to add the same folder to a different instance/save.'
  2405. *nl
  2406. '<a href="exec:dynamic $cheatmenu[''bdimcstaddpro'']">Add Image Set</a>'
  2407. }
  2408. $cheatmenu['bdimcstaddpro'] = {
  2409. $tmpstrg = input("Enter folder name, do not include ''\''")
  2410. if $tmpstrg = '':
  2411. killvar '$tmpstrg'
  2412. dynamic $cheatmenu['bdimcstadd']
  2413. else
  2414. bodsetcnt += 1
  2415. cyci1 = 0
  2416. :addcyc
  2417. $bodimgsets[((bodsetcnt * 10) + cyci1)] = $bodimgsets[(10 + cyci1)]
  2418. cyci1 += 1
  2419. if cyci1 < 9: jump 'addcyc'
  2420. $bodimgsets[((bodsetcnt * 10) + 9)] = $tmpstrg
  2421. imgset6ovr[bodsetcnt] = 0
  2422. imgset7ovr[bodsetcnt] = 0
  2423. killvar '$tmpstrg'
  2424. killvar 'cyci1'
  2425. dynamic $cheatmenu['bdimmain']
  2426. end
  2427. }
  2428. $cheatmenu['bdimcstdesed'] = {
  2429. $tmpstrg = input("Enter a new descriptor")
  2430. if $tmpstrg = '':
  2431. killvar 'chmbddes'
  2432. killvar '$tmpstrg'
  2433. else
  2434. $bodimgsets[((chmbodset * 10) + chmbddes)] = $tmpstrg
  2435. killvar 'chmbddes'
  2436. killvar '$tmpstrg'
  2437. dynamic $cheatmenu['bdimdisplay']
  2438. end
  2439. }
  2440. $cheatmenu['succubreset'] = {
  2441. *clr & cla
  2442. 'Are you sure you want to reset your Succubus status? You will lose all levels, saved power, and succubus skill levels.'
  2443. *nl
  2444. '<a href="exec:dynamic $cheatmenu[''magic'']"><b>No, nevermind.</b></a>'
  2445. *nl
  2446. '<a href="exec:dynamic $cheatmenu[''sucresetdo'']"><b>Yes, remove & reset Succubus status</b></a>'
  2447. }
  2448. $cheatmenu['sucresetdo'] = {
  2449. !! Probably do not need to kill all of these, but better to unload them.
  2450. killvar 'scfwon'
  2451. killvar 'scpopt'
  2452. killvar '$sclocrt'
  2453. killvar '$scargrt'
  2454. killvar '$scsubloc'
  2455. killvar 'suceatinit'
  2456. killvar 'succubusflag'
  2457. killvar 'succubusQW'
  2458. killvar '$sucself1'
  2459. killvar 'succublvl'
  2460. killvar 'succubxp'
  2461. killvar 'sucxpsnapshot'
  2462. killvar 'succhungry'
  2463. killvar 'sucexcess'
  2464. killvar 'sexnutrition'
  2465. killvar 'suclezsex'
  2466. killvar 'sucabslez'
  2467. killvar 'sucabscum'
  2468. killvar '$sucabs1'
  2469. killvar '$sucabs2'
  2470. killvar '$sucabs3'
  2471. killvar 'succonfail'
  2472. killvar 'sucpowzeroed'
  2473. killvar 'suchuntday'
  2474. killvar 'sucpcinfo'
  2475. killvar 'karinsucsex'
  2476. killvar 'karinsucsexday'
  2477. killvar 'karinsucsexask'
  2478. killvar 'tatianasucsex'
  2479. killvar 'tatianasucsexday'
  2480. killvar 'tatianasucsexask'
  2481. killvar 'sucwalkday'
  2482. killvar '$sucgoloc'
  2483. killvar '$sucgometka'
  2484. killvar 'sucskill'
  2485. killvar 'sucstorecap'
  2486. killvar 'sucinfoday'
  2487. killvar 'sctrainprep'
  2488. !! This list will be updated as new variables are added
  2489. dynamic $cheatmenu['magic']
  2490. }
  2491. --- Cheatmenu_din ---------------------------------