1
0

Cheatmenu_din.qsrc 149 KB

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