obj_din.qsrc 99 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169
  1. # obj_din
  2. if $ARGS[0] = 'chartabs':
  3. cla
  4. !0: Character
  5. !1: Skills
  6. !2: Stats
  7. !4: Pain
  8. !5: Traits
  9. !6: Renown
  10. !7: Magic
  11. '<center><b><table width="90%" cellspacing="0" cellpadding="0" valign="top"><tr>'
  12. if menu_page = 0:'<th>Character</th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''skills''">Skills</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''stats''">Statistics</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''pain''">Pain</a></th><th><a href="exec:menu_page = 4 & gs ''traits'', ''menu''">Traits</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''reputation''">Renown</a></th>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 6 & gs ''obj_din'', ''magic''">Magic</a></th>')+''
  13. if menu_page = 1:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''description''">Character</a></th><th>Skills</th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''stats''">Statistics</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''pain''">Pain</a></th><th><a href="exec:menu_page = 4 & gs ''traits'', ''menu''">Traits</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''reputation''">Renown</a></th>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 6 & gs ''obj_din'', ''magic''">Magic</a></th>')+''
  14. if menu_page = 2:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''description''">Character</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''skills''">Skills</a></th><th>Statistics</th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''pain''">Pain</a></th><th><a href="exec:menu_page = 4 & gs ''traits'', ''menu''">Traits</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''reputation''">Renown</a></th>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 6 & gs ''obj_din'', ''magic''">Magic</a></th>')+''
  15. if menu_page = 3:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''description''">Character</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''skills''">Skills</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''stats''">Statistics</a></th><th>Pain</th><th><a href="exec:menu_page = 4 & gs ''traits'', ''menu''">Traits</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''reputation''">Renown</a></th>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 6 & gs ''obj_din'', ''magic''">Magic</a></th>')+''
  16. if menu_page = 4:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''description''">Character</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''skills''">Skills</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''stats''">Statistics</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''pain''">Pain</a></th><th>Traits</th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''reputation''">Renown</a></th>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 6 & gs ''obj_din'', ''magic''">Magic</a></th>')+''
  17. if menu_page = 5:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''description''">Character</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''skills''">Skills</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''stats''">Statistics</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''pain''">Pain</a></th><th><a href="exec:menu_page = 4 & gs ''traits'', ''menu''">Traits</a></th><th>Renown</th>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 6 & gs ''obj_din'', ''magic''">Magic</a></th>')+''
  18. if menu_page = 6:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''description''">Character</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''skills''">Skills</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''stats''">Statistics</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''pain''">Pain</a></th><th><a href="exec:menu_page = 4 & gs ''traits'', ''menu''">Traits</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''reputation''">Renown</a></th>'+iif(pcs_magik = 0,'','<th>Magic</th>')+''
  19. '</tr></table></b></center>'
  20. act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit'
  21. end
  22. if $ARGS[0] = 'bodytabs':
  23. cla
  24. !0: Face
  25. !1: Body
  26. !2: Clothes
  27. !3: Bra
  28. !4: Panties
  29. !5: Shoes
  30. !6: Tattoos
  31. !7: Magic
  32. '<center><b><table width="90%" cellspacing="0" cellpadding="0" valign="top"><tr>'
  33. if menu_page = 0:'<th>Looks</th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  34. if menu_page = 1:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th>Body</th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  35. if menu_page = 2:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th>Clothes</th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  36. if menu_page = 3:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th>Bra</th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  37. if menu_page = 4:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th>Panties</th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  38. if menu_page = 5:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th>Shoes</th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  39. if menu_page = 6:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th>Tattoos</th><th><a href="exec:menu_page = 7 & gs ''obj_din'', ''piercing''">Piercings</a></th>'
  40. if menu_page = 7:'<th><a href="exec:menu_page = 0 & gs ''obj_din'', ''face''">Looks</a></th><th><a href="exec:menu_page = 1 & gs ''obj_din'', ''body''">Body</a></th><th><a href="exec:menu_page = 2 & gs ''obj_din'', ''clothes''">Clothes</a></th><th><a href="exec:menu_page = 3 & gs ''obj_din'', ''bra''">Bra</a></th><th><a href="exec:menu_page = 4 & gs ''obj_din'', ''panties''">Panties</a></th><th><a href="exec:menu_page = 5 & gs ''obj_din'', ''shoes''">Shoes</a></th><th><a href="exec:menu_page = 6 & gs ''obj_din'', ''tattoos''">Tattoos</a></th><th>Piercings</th>'
  41. '</tr></table></b></center>'
  42. act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit'
  43. end
  44. if $ARGS[0] = 'settingtabs':
  45. cla
  46. !0: Gameplay
  47. !1: Display
  48. !2: Status
  49. !3: Phone
  50. !4: Mods
  51. '<center><b><table width="90%" cellspacing="0" cellpadding="0" valign="top"><tr>'
  52. if menu_page = 0:'<th>Gameplay Settings</th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''display'']">Display Settings</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''status'']">Status Window Settings</a></th>'+iif(settingmode = 1,'','<th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''theme'']">Phone Theme Settings</a></th>')+'<th><a href="exec:menu_page = 4 & gt ''mod_setting''">Mods</a></th>'
  53. if menu_page = 1:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu[''setting'']">Gameplay Settings</a></th><th>Display Settings</th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''status'']">Status Window Settings</a></th>'+iif(settingmode = 1,'','<th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''theme'']">Phone Theme Settings</a></th>')+'<th><a href="exec:menu_page = 4 & gt ''mod_setting''">Mods</a></th>'
  54. if menu_page = 2:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu[''setting'']">Gameplay Settings</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''display'']">Display Settings</a></th><th>Status Window Settings</th>'+iif(settingmode = 1,'','<th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''theme'']">Phone Theme Settings</a></th>')+'<th><a href="exec:menu_page = 4 & gt ''mod_setting''">Mods</a></th>'
  55. if menu_page = 3:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu[''setting'']">Gameplay Settings</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''display'']">Display Settings</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''status'']">Status Window Settings</a></th>'+iif(settingmode = 1,'','<th>Phone Theme Settings</th>')+'<th><a href="exec:menu_page = 4 & gt ''mod_setting''">Mods</a></th>'
  56. if menu_page = 4:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu[''setting'']">Gameplay Settings</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''display'']">Display Settings</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''status'']">Status Window Settings</a></th>'+iif(settingmode = 1,'','<th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''theme'']">Phone Theme Settings</a></th>')+'<th>Mods</th>'
  57. '</tr></table></b></center>'
  58. if settingmode = 1:
  59. act '<center><b>Return to character creation</b></center>':
  60. killvar 'menu_page'
  61. settingmode = 0
  62. gt 'begin', 'start'
  63. end
  64. else
  65. !call from Menu - Game settings
  66. act 'Enter cheat menu': killvar 'menu_page' & gs '$menu_cheat'
  67. act 'Emergency Exit': killvar 'menu_page' & gt 'obj_din', 'emergency'
  68. act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit'
  69. end
  70. end
  71. if $ARGS[0] = 'cheattabs':
  72. cla
  73. !0: Index
  74. !1: Recurrent
  75. !2: State
  76. !3: Appearance
  77. !4: Skill
  78. !5: Relationships
  79. !6: Documents
  80. !7: Magic
  81. !8: Time
  82. !9: NPCChanger
  83. !10: Pain
  84. !11: DNA
  85. !12: ImageSets
  86. '<center><b><table width="90%" cellspacing="0" cellpadding="10" align="center" valign="top"><tr>'
  87. if menu_page = 0:'<th>Index</th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  88. if menu_page = 1:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th>Recurrent</th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  89. if menu_page = 2:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th>State</th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  90. if menu_page = 3:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th>Appearance</th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  91. if menu_page = 4:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th>Skill</th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  92. if menu_page = 5:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th>Relationships</th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  93. if menu_page = 6:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th>Documents</th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  94. if menu_page = 7:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th>Magic</th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  95. if menu_page = 8:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th>Time</th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  96. if menu_page = 9:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th>NPC Editor</th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  97. if menu_page = 10:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th>Pain</th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  98. if menu_page = 11:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th>DNA</th><th><a href="exec:menu_page = 12 & dynamic $cheatmenu[''bdimmain'']">Image Sets</a></th>'
  99. if menu_page = 12:'<th><a href="exec:menu_page = 0 & dynamic $cheatmenu">Index</a></th><th><a href="exec:menu_page = 1 & dynamic $cheatmenu[''permanent'']">Recurrent</a></th><th><a href="exec:menu_page = 2 & dynamic $cheatmenu[''state'']">State</a></th><th><a href="exec:menu_page = 3 & dynamic $cheatmenu[''looks'']">Appearance</a></th><th><a href="exec:menu_page = 4 & dynamic $cheatmenu[''stats'']">Skill</a></th><th><a href="exec:menu_page = 5 & dynamic $cheatmenu[''reputation'']">Relationships</a></th><th><a href="exec:menu_page = 6 & dynamic $cheatmenu[''documents'']">Documents</a></th></tr><tr>'+iif(pcs_magik = 0,'','<th><a href="exec:menu_page = 7 & dynamic $cheatmenu[''magic'']">Magic</a></th>')+'<th><a href="exec:menu_page = 8 & dynamic $cheatmenu[''time'']">Time</a></th><th><a href="exec:menu_page = 9 & gs ''NPCChanger'', ''Start''">NPC Editor</a></th><th><a href="exec:menu_page = 10 & dynamic $cheatmenu[''pain'']">Pain</a></th><th><a href="exec:menu_page = 11 & dynamic $cheatmenu[''DNA'']">DNA</a></th><th>Image Sets</th>'
  100. '</tr></table></b></center>'
  101. act 'Settings menu': killvar 'menu_page' & gs '$menu_setting'
  102. act 'Emergency Exit': killvar 'menu_page' & gt 'obj_din', 'emergency'
  103. act 'Exit the menu': killvar 'menu_page' & gt 'obj_din', 'menu_exit'
  104. end
  105. if $ARGS[0] = 'menu_exit': gt '<<$menu_loc>>', '<<$menu_arg>>'
  106. if $ARGS[0] = 'menu_disabled': '<font color="red"><b>Menu is disabled for this event</b></font>'
  107. if $ARGS[0] = 'description':
  108. *clr & cla
  109. gs 'obj_din','chartabs'
  110. gs 'body'
  111. !'<center><img src="images/system/icon/description.png"><br></center>'
  112. '<center><h1>Character Description</h1></center>'
  113. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr><td>'
  114. 'Your name is <<$pcs_firstname>> <<$pcs_lastname>>.'
  115. !!!0.2.6 extension
  116. if StoryLine > 0:
  117. 'Your friends and family call you <<$pcs_nickname>>.'
  118. else
  119. 'Your friends call you <<$pcs_nickname>>.'
  120. end
  121. !!!
  122. if ARRSIZE('home_owned') = 0:
  123. 'You have nowhere to live, if this is an error set your current home <a href="exec:gs ''obj_din'', ''curr_home''">here</a>.'
  124. else
  125. 'Your current home is <a href="exec:gs ''obj_din'', ''curr_home''"><<$home_name>></a>.'
  126. end
  127. if succubusflag = 1 and sucpcinfo >= 4:
  128. 'You are a Succubus.'
  129. 'Succubus Level: <<succublvl>>'
  130. end
  131. if age = vidage:
  132. 'You are <<age>> years old.'
  133. else
  134. 'You are <<age>> years old, but you appear to be <<vidage>>.'
  135. end
  136. if birthday <= 9 and birthmonth <= 9:
  137. $birthdayD = '0<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
  138. elseif birthday > 9 and birthmonth <= 9:
  139. $birthdayD = '<<birthday>>.0<<birthmonth>>.<<birthyear>>.'
  140. elseif birthday > 9 and birthmonth > 9:
  141. $birthdayD = '<<birthday>>.<<birthmonth>>.<<birthyear>>.'
  142. else
  143. $birthdayD = '0<<birthday>>.<<birthmonth>>.<<birthyear>>.'
  144. end
  145. 'Your date of birth is <<$birthdayD>>'
  146. *nl
  147. '<<$pcs_apprnc>>'
  148. *nl
  149. 'You are <<pcs_hgt>>cm tall and <a href="exec:gs ''obj_din'', ''show_body''"><<$body>></a>.'
  150. 'Your breasts would be considered an EU <a href="exec:gs ''obj_din'', ''show_tits''"><<$titsize>></a>.'
  151. '<<$nipplesize>>'
  152. *nl
  153. if preg = 1:
  154. if denypreg = 1 and pregchem > 2688:
  155. 'You seem to be putting on a bit of weight, your belly is definitely bigger.'
  156. *nl
  157. elseif pregchem > 4704:
  158. 'You''re rapidly approaching the finish line and have entered the third trimester. Your belly is so big now that you can barely remember what your toes look like. Your back hurts most of the time and it is a struggle to get to your feet if you sit down. The baby seems to think that your bladder makes a nice punching bag.'
  159. *nl
  160. elseif pregchem > 3696:
  161. 'Your belly is quite swollen now and shows under even the loosest of clothes. You find yourself constantly caressing your belly without realizing it.'
  162. *nl
  163. elseif pregchem > 3192 and knowpreg = 1:
  164. 'You are showing for sure now. Your tummy is starting to become rounder as it grows larger each day, although you can still wear baggy clothes to hide it. At least the morning sickness and nausea seem to have gone away for the most part.'
  165. *nl
  166. elseif pregchem > 3192 and knowpreg = 0:
  167. 'You can''t seem to stop gaining weight and your belly looks like it is getting bigger everyday, although you can still wear baggy clothes to hide it. At least the flu you''ve been fighting lately seems to have finally gone away for the most part.'
  168. *nl
  169. elseif pregchem > 1800 and knowpreg = 1:
  170. 'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
  171. *nl
  172. elseif pregchem > 1800 and knowpreg = 0:
  173. 'Your breasts look and feel swollen and tingle at the slightest touch. Waking up is getting harder to do and it takes you longer to get going in the morning. Lately, just the thought of food is enough to turn your stomach.'
  174. *nl
  175. elseif pregchem > 1200:
  176. 'You''ve noticed that your breasts seem firmer lately and your nipples seem to be sticking out more.'
  177. *nl
  178. end
  179. end
  180. '<<$lip>>'
  181. '<<$pcs_throat>>'
  182. '<<$skin>>'
  183. '<<$glaza>>'
  184. '<<$pcs_makeup>>.'
  185. '<<$pcs_leghair>>'
  186. '<<$pcs_pubes>>'
  187. '<<$pcs_vag>>'
  188. '<<$pcs_ass>>'
  189. *nl
  190. if avatar_hair = 1:
  191. 'Your hair: <<$av_hair>>.'
  192. else
  193. '<<$hair>>'
  194. end
  195. if defcurly = 0 and curly > 0: 'Your curls are good for another <<curly>> days.'
  196. if defcurly = 1 and straight > 0: 'Your hair should be straight for another <<straight>> days.'
  197. *nl
  198. if salo < 10 and musle > 0 and dounspell = 0: '<b><font color="red">You are showing signs of malnourishment. You should probably eat more and more often.</font></b>'
  199. if salo < 10 and musle = 0 and dounspell = 0: '<b><font color="red">You are dangerously malnourished, which has led to a loss in muscle mass. You''re in a critical condition and likely to pass out!</font></b>'
  200. if pcs_teeth = 1:$zuba = ' tooth'
  201. if pcs_teeth >= 2:$zuba = ' teeth'
  202. if pcs_teeth > 0: 'You have lost <<pcs_teeth>><<$zuba>>.'
  203. !! 'pcs_apprnc <<pcs_apprnc>>'
  204. !! 'curlykoef <<curlykoef>> a maximum of 1'
  205. !! 'tits <<tits>> A maximum of 6'
  206. !! 'pcs_lip <<pcs_lip>> a maximum of 4'
  207. !! 'tanKoef <<tanKoef>> a maximum of 1'
  208. !! 'skin <<skin>> a maximum of 4'
  209. !! 'pcs_makeup <<pcs_makeup>> a maximum of 4'
  210. !! 'pcs_lashes <<pcs_lashes>> a maximum of 2'
  211. !! 'pcs_eyesize <<pcs_eyesize>> a maximum of 3'
  212. !! 'bodykoef <<bodykoef>> a maximum of 8'
  213. !! 'legkoef <<legkoef>> a maximum of 3'
  214. !! 'lobkoef <<lobkoef>> a maximum of 3'
  215. !! 'odevnesh <<odevnesh>> a maximum of 15'
  216. !! 'pcs_sweat <<pcs_sweat>> the maximum 0'
  217. !! 'pcs_hairbsh <<pcs_hairbsh>> a maximum of 1'
  218. '</td></tr></table></center>'
  219. end
  220. if $ARGS[0] = 'curr_home':
  221. *clr & cla
  222. !'<center><img src="images/system/icon/description.png"><br></center>'
  223. '<center><h1><<$pcs_firstname>>''s Home Location</h1></center>'
  224. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr><td>'
  225. *nl
  226. 'Your current home is <<$home_name>>.'
  227. *nl
  228. act 'Return to main description': gt 'obj_din', 'description'
  229. !!This is correct it just looks wrong
  230. if home_owned[1] > 0: 'Set current home as <a href="exec:gs ''set_home'', 1 & gs ''obj_din'', ''curr_home''">City residential apartment</a>'
  231. if home_owned[2] = 1: 'Set current home as <a href="exec:gs ''set_home'', 2 & gs ''obj_din'', ''curr_home''">Parent''s home in Pavlovsk</a>'
  232. if home_owned[3] > 0: 'Set current home as <a href="exec:gs ''set_home'', 3 & gs ''obj_din'', ''curr_home''">My cottage in the cooperative farm</a>'
  233. if home_owned[4] = 1: 'Set current home as <a href="exec:gs ''set_home'', 4 & gs ''obj_din'', ''curr_home''">Old town apartment</a>'
  234. if home_owned[5] > 2: 'Set current home as <a href="exec:gs ''set_home'', 5 & gs ''obj_din'', ''curr_home''">My mansion</a>'
  235. if home_owned[6] = 1: 'Set current home as <a href="exec:gs ''set_home'', 6 & gs ''obj_din'', ''curr_home''">My hotel room in Pavlovsk</a>'
  236. if home_owned[7] = 1: 'Set current home as <a href="exec:gs ''set_home'', 7 & gs ''obj_din'', ''curr_home''">Nicholas'' apartment</a>'
  237. if home_owned[8] = 1: 'Set current home as <a href="exec:gs ''set_home'', 8 & gs ''obj_din'', ''curr_home''">Niko''s apartment</a>'
  238. if home_owned[9] = 1: 'Set current home as <a href="exec:gs ''set_home'', 9 & gs ''obj_din'', ''curr_home''">Uncle Sergey''s apartment</a>'
  239. if home_owned[10] = 1: 'Set current home as <a href="exec:gs ''set_home'', 10 & gs ''obj_din'', ''curr_home''">Lyceum school</a>'
  240. if home_owned[11] = 1: 'Set current home as <a href="exec:gs ''set_home'', 11 & gs ''obj_din'', ''curr_home''">University halls</a>'
  241. if home_owned[12] = 1: 'Set current home as <a href="exec:gs ''set_home'', 12 & gs ''obj_din'', ''curr_home''">Hunter''s lodge in Gadukino</a>'
  242. if home_owned[13] = 1: 'Set current home as <a href="exec:gs ''set_home'', 13 & gs ''obj_din'', ''curr_home''">Shared apartment in Pavlovsk</a>'
  243. if home_owned[14] = 1: 'Set current home as <a href="exec:gs ''set_home'', 14 & gs ''obj_din'', ''curr_home''">Grandparent''s house in Gadukino</a>'
  244. !!Apostrophe colour correction - KS ''''
  245. '</td></tr></table></center>'
  246. end
  247. if $ARGS[0] = 'skills':
  248. *clr & cla
  249. gs 'obj_din','chartabs'
  250. !'<center><img src="images/system/icon/stats.png"><br></center>'
  251. '<center><h1>Character Skills</h1></center>'
  252. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  253. '<td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  254. '<b>Base Skills</b>'
  255. *nl
  256. '<font color="grey">base / modified</font>'
  257. *nl
  258. 'Strength - <<pcs_stren>> / <<stren_lvl>>'
  259. 'Agility - <<pcs_agil>> / <<agil_lvl>>'
  260. 'Endurance - <<pcs_vital>> / <<vital_lvl>>'
  261. 'Intelligence - <<pcs_intel>> / <<intel_lvl>>'
  262. 'Spirit - <<pcs_sprt>> / <<sprt_lvl>>'
  263. 'Reaction - <<pcs_react>> / <<react_lvl>>'
  264. 'Charisma - <<pcs_chrsm>> / <<chrsm_lvl>>'
  265. 'Perception - <<pcs_prcptn>> / <<prcptn_lvl>>'
  266. if pcs_magik > 0: 'Magic - <<pcs_magik>>'
  267. 'Attractiveness - <<pcs_apprnc>>'
  268. !'Speed <<speed>>' - not used
  269. *nl
  270. '<b>Mental Skills</b>'
  271. *nl
  272. if pcs_scstng > 0: 'Spell Casting - <<pcs_scstng>>'
  273. if pcs_humint > 0:'People skills - <<pcs_humint>>'
  274. if pcs_persuas > 0:'Persuasion - <<pcs_persuas>>'
  275. if pcs_observ > 0:'Observation - <<pcs_observ>>'
  276. '</td><td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  277. '<b>Sport Skills</b>'
  278. *nl
  279. if pcs_jab > 0: 'Jabs - <<pcs_jab>>'
  280. if pcs_punch > 0: 'Power Strikes - <<pcs_punch>>'
  281. if pcs_kick > 0: 'Kicks - <<pcs_kick>>'
  282. if pcs_def > 0: 'Defense - <<pcs_def>>'
  283. if pcs_run > 0: 'Running - <<pcs_run>>'
  284. if pcs_vball > 0: 'Volleyball - <<pcs_vball>>'
  285. if pcs_ftbll > 0: 'Football - <<pcs_ftbll>>'
  286. if pcs_wrstlng > 0: 'Wrestling - <<pcs_wrstlng>>'
  287. if pcs_shoot > 0: 'Shooting Accuracy - <<pcs_shoot>>'
  288. if pcs_bushcraft > 0: 'Bushcraft - <<pcs_bushcraft>>'
  289. if pcs_chess > 0: 'Chess - <<pcs_chess>>'
  290. if pcs_icesktng > 0: 'Ice Skating - <<pcs_icesktng>>'
  291. if pcs_gaming > 0: 'Gaming - <<pcs_gaming>>'
  292. if pcs_pool > 0: 'Pool - <<pcs_pool>>'
  293. *nl
  294. '<b>Artistic Skills</b>'
  295. *nl
  296. if pcs_vokal > 0: 'Singing <<pcs_vokal>>'
  297. if pcs_instrmusic > 0: 'Instrumental Music - <<pcs_instrmusic>>'
  298. if pcs_photoskl > 0: 'Photography - <<pcs_photoskl>>'
  299. if pcs_artskls > 0: 'Artistic Skills - <<pcs_artskls>>'
  300. if pcs_perform > 0: 'Performance - <<pcs_perform>>'
  301. if pcs_musicprod > 0: 'Music Production - <<pcs_pcs_musicprodperform>>'
  302. '</td><td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  303. '<b>Job Skills</b>'
  304. *nl
  305. if pcs_compskl > 0: 'Computer Skill - <<pcs_compskl>>'
  306. if pcs_comphckng > 0: 'Hacking - <<pcs_comphckng>>'
  307. if pcs_hndiwrk > 0: 'Handy-work - <<pcs_hndiwrk>>'
  308. if pcs_sewng > 0: 'Tailoring - <<pcs_sewng>>'
  309. if pcs_servng > 0: 'Serving - <<pcs_servng>>'
  310. if pcs_medcn > 0: 'Medicine - <<pcs_medcn>>'
  311. if teachlevel > 0: 'Teacher - credibility <<teachlevel>>'
  312. *nl
  313. '<b>Other Skills</b>'
  314. *nl
  315. if SchoolAtestat = 0 and StoryLine > 0:
  316. if pcs_grades > 0: 'School Grades - <<pcs_grades>>'
  317. if schoolprogul > 0: 'Schhool absenteesim - <<schoolprogul>>'
  318. end
  319. '</td><td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  320. '<b>Beauty Skills</b>'
  321. *nl
  322. if pcs_makeup > 0: 'Makeup Skill - <<pcs_makupskl>>'
  323. if pcs_danc > 0: 'Modern Dancing - <<pcs_danc>>'
  324. if pcs_dancero > 0: 'Erotic Dancing - <<pcs_dancero>>'
  325. if pcs_dancpol > 0: 'Pole Dancing - <<pcs_dancpol>>'
  326. if pcs_cheer > 0: 'Cheerleading - <<pcs_cheer>>'
  327. if pcs_mdlng > 0: 'Modelling - <<pcs_mdlng>>'
  328. *nl
  329. '<b>Sexual Skills</b>'
  330. *nl
  331. 'Inhibition <<100-pcs_inhib>>'
  332. 'Exhibitionist preference: <<exhibitionism[''pref'']>>'
  333. 'Exhibitionist sex: <<exhibitionism[''exp'']>>'
  334. if SUB > 0: 'Submissiveness <<SUB>>'
  335. if pcs_dom > 0: 'Dominance <<pcs_dom>>'
  336. 'Submissive sex: <<sub[''exp'']>>'
  337. 'Dominant sex: <<dom[''exp'']>>'
  338. 'Lesbian sex preference: <<lesbian[''pref'']>>'
  339. 'Lesbian sex: <<lesbian[''exp'']>>'
  340. '</td></tr></table></center>'
  341. end
  342. if $ARGS[0] = 'husb_cheat_count':
  343. if husband > 0:
  344. if guy > before_h_guy :
  345. guy_cheat += guy - guy_cheat
  346. before_h_guy = guy
  347. end
  348. if girl > before_h_girl:
  349. girl_cheat += girl - before_h_girl
  350. before_h_girl = girl
  351. end
  352. end
  353. if before_h_girl > 0 and before_h_guy > 0:
  354. 'During your marriage you have cheated on your husband with <<guy_cheat>> guys and <<girl_cheat>> girls.'
  355. elseif before_h_guy > 0:
  356. 'During your marriage you have cheated on your husband with <<guy_cheat>> guys.'
  357. elseif before_h_girl > 0:
  358. 'During your marriage you have cheated on your husband with <<girl_cheat>> girls.'
  359. end
  360. end
  361. if $ARGS[0] = 'stats':
  362. *clr & cla
  363. gs 'obj_din','chartabs'
  364. gs 'housing', 'rent'
  365. !'<center><img src="images/system/icon/statistics.png"><br></center>'
  366. '<center><h1>Character Statistics</h1></center>'
  367. '<center><table width="90%" cellspacing="0" cellpadding="10" valign="top"><tr>'
  368. '<td width="35%" cellspacing="0" cellpadding="0" valign="top">'
  369. '<center><b>General Statistics</b></center>'
  370. *nl
  371. if opPRE = 0: 'It has been <<daystart>> days since the game started.'
  372. *nl
  373. if SchoolAtestat = 0 and StoryLine > 0:
  374. if pcs_grades >= 90:
  375. 'You''re an A+ student.'
  376. elseif pcs_grades >= 80:
  377. 'You''re a bright student, just not the top of your class.'
  378. elseif pcs_grades >= 70:
  379. 'You''re an above average student, but you have to work hard to keep up.'
  380. elseif pcs_grades >= 60:
  381. 'You''re the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.'
  382. elseif pcs_grades >= 50:
  383. 'You''re not very good in school, you wish you could be somewhere else and your grades show it.'
  384. elseif pcs_grades >= 40:
  385. 'You''re not cut out for school, you skip out most of the time. You wonder how you''re going to manage to get passing grades.'
  386. else
  387. 'You''re the class nitwit. You''re still not sure how you got this far in the first place.'
  388. end
  389. if schoolprogul > 1: 'Absenteeism in school - <<schoolprogul>> days'
  390. end
  391. *nl
  392. if (home_owned[1] = 1 and ArendHouseSL > 0) or (home_owned[4] > 0 and ArendHouseSL4 > 0):
  393. *nl
  394. if home_owned[1] = 1 and home_owned[4] > 0:
  395. 'You have rented an apartment in the city residential area, which is paid up for <b><<ArendHouseSL>></b> days, and you also have an apartment in Pushkin, which is paid up for <b><<ArendHouseSL4>></b> days. Utilities are due on the 25th of <<$month>>.'
  396. elseif home_owned[1] = 1:
  397. 'You have rented an apartment in the city residential area, and you''re paid up for <<ArendHouseSL>> days. Utilities are due on the 25th of <<$month>>.'
  398. elseif home_owned[4] > 0:
  399. 'You have rented an apartment in Pushkin, and you''re paid up for <<ArendHouseSL4>> days. Utilities are due on the 25th of <<$month>>.'
  400. end
  401. if home_owned[1] = 1:
  402. if karta >= home_rent[1] or money >= home_rent[1] or money + stolmoney >= home_rent[1] or karta + bankDebtLimit >= home_rent[1]:
  403. *nl
  404. *p 'The monthly rent for your city apartment is <<home_rent[1]>> <b>₽</b>. '
  405. if karta >= home_rent[1]:
  406. !From bank
  407. *p 'You can make an advance <a href="exec:karta -= home_rent[1] & home_owned[1] = 1 & ArendHouseSL += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your bank account.'
  408. elseif money >= home_rent[1]:
  409. !From cash
  410. *p 'You can make an advance <a href="exec:money -= home_rent[1] & home_owned[1] = 1 & ArendHouseSL += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your on-hand cash.'
  411. *nl
  412. elseif stolmoney >= home_rent[1]:
  413. !From drawer
  414. *p 'You can make an advance <a href="exec:stolmoney -= home_rent[1] & home_owned[1] = 1 & ArendHouseSL += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from the cash you have in your stash drawer.'
  415. *nl
  416. elseif money + stolmoney >= home_rent[1]:
  417. !From cash and drawer
  418. *p 'You can make an advance <a href="exec:money -= (home_rent[1] - stolmoney) & stolmoney = 0 & home_owned[1] = 1 & ArendHouseSL += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your on-hand cash and the cash in your stash drawer.'
  419. *nl
  420. elseif karta + bankDebtLimit >= home_rent[1]:
  421. !From bank and overdraw
  422. *p 'You can make an advance <a href="exec:karta -= home_rent[1] & home_owned[1] = 1 & ArendHouseSL += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your bank account and overdraw facility.'
  423. *nl
  424. else
  425. *p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.'
  426. *nl
  427. end
  428. end
  429. end
  430. if home_owned[4] > 0:
  431. if karta >= home_rent[4] or money >= home_rent[4] or money + stolmoney >= home_rent[4] or karta + bankDebtLimit >= home_rent[4]:
  432. *nl
  433. *p 'The monthly rent for your Pushkin apartment is <<home_rent[4]>> <b>₽</b>. '
  434. if karta >= home_rent[4]:
  435. !From bank
  436. *p 'You can make an advance <a href="exec:karta -= home_rent[4] & home_owned[1] = 1 & ArendHouseSL4 += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your bank account.'
  437. *nl
  438. elseif money >= home_rent[4]:
  439. !From cash
  440. *p 'You can make an advance <a href="exec:money -= home_rent[4] & home_owned[1] = 1 & ArendHouseSL4 += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your on-hand cash.'
  441. *nl
  442. elseif stolmoney >= home_rent[4]:
  443. !From drawer
  444. *p 'You can make an advance <a href="exec:stolmoney -= home_rent[4] & home_owned[1] = 1 & ArendHouseSL4 += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from the cash you have in your stash drawer.'
  445. *nl
  446. elseif money + stolmoney >= home_rent[4]:
  447. !From cash and drawer
  448. *p 'You can make an advance <a href="exec:money -= (home_rent[4] - stolmoney) & stolmoney = 0 & home_owned[1] = 1 & ArendHouseSL4 += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your on-hand cash and the cash in your stash drawer.'
  449. *nl
  450. elseif karta + bankDebtLimit >= home_rent[4]:
  451. !From bank and overdraw
  452. *p 'You can make an advance <a href="exec:karta -= home_rent[4] & home_owned[1] = 1 & ArendHouseSL4 += ArendHouseSL_due & gs ''$menu_obnovit''">payment</a> from your bank account and overdraw facility.'
  453. *nl
  454. else
  455. *p 'You can''t afford to make an advance payment right now, but you should try to have enough money in your account, so you don''t get evicted.'
  456. *nl
  457. end
  458. end
  459. end
  460. end
  461. if kid = 1:
  462. *nl
  463. 'You have 1 child:'
  464. else
  465. 'You have <<kid>> children:'
  466. end
  467. if kid > 0:
  468. k = 0
  469. :kidloop
  470. if k < kid:
  471. gs 'obj_din','kidlist',k
  472. k += 1
  473. jump 'kidloop'
  474. end
  475. end
  476. if workPTU > 1: 'Reputation as a teacher <<teachlevel>>'
  477. *nl
  478. if npc_QW['A192'] > 0: 'Friendship with Nastya <<npc_QW[''A192'']>>'
  479. if npc_rel['A218'] > 0: 'Friendship with Tanya <<npc_rel[''A218'']>>'
  480. if npc_rel['A219'] > 0: 'Friendship with Kat <<npc_rel[''A219'']>>'
  481. if npc_rel['A220'] > 0: 'Friendship with Vika <<npc_rel[''A220'']>>'
  482. if npc_rel['A93'] > 0: 'Friendship with Ira <<npc_rel[''A93'']>>'
  483. if npc_rel['A43'] > 0: 'Friendship with Tamara <<npc_rel[''A43'']>>'
  484. if alla > 0: 'Friendship with Alla <<alla>>'
  485. if masha > 0: 'Friendship with Masha <<masha>>'
  486. if npc_rel['A41'] > 0: 'Friendship with Givi K. <<npc_rel[''A41'']>>'
  487. if npc_rel['A42'] > 0: 'Friendship with Ashot <<npc_rel[''A42'']>>'
  488. if Dmitry > 0: 'Friendship with Dima <<Dmitry>>'
  489. if afra > 0: 'Friendship with blacks <<afra>>'
  490. if npc_rel['A69'] > 0:'Friendship with Mikhail Nikolaevich <<npc_rel[''A69'']>>'
  491. !!!WD: Formatting
  492. if (npc_rel['A93'] + npc_rel['A41'] + npc_rel['A42'] + npc_rel['A43'] + afra + gosh + npc_rel['A220'] + npc_rel['A219'] + npc_QW['A192'] + npc_rel['A218']) > 0:*nl
  493. *nl
  494. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  495. 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  496. '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  497. end
  498. if Win > 0 or Loss > 0: 'Wins in fights <<Win>>, losses in fights <<Loss>>' & *nl
  499. if razradKik > 0: '<<$razradKik>>'
  500. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  501. 'Amateur Kickboxing Record:<br>Wins: <<KikWinAm>> (<<KikWinAmKO>> by KO) - Losses: <<KikLossAm>> (<<KikLossAmKO>> by KO) - Draws: <<KikDrawAm>>'
  502. *nl
  503. end
  504. if razradKik > 0:
  505. if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing'
  506. if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing'
  507. if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing'
  508. if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing'
  509. if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing'
  510. *nl
  511. end
  512. if kolsorev > 0: 'You have run in <<kolsorev>> races'
  513. if swinbeg >= 1: 'You have <<swinbeg/3>> trophies from local racing competitions'
  514. if bronzebeg > 0: '<<bronzebeg>> - bronze medals for running'
  515. if silverbeg > 0: '<<silverbeg>> - silver medals for running'
  516. if goldbeg > 0: '<<goldbeg>> - gold medals for running'
  517. if razradbegEB > 0: '<<razradbegEB>> times bronze medalist at the St.Petersburg Track Championship'
  518. if razradbegES > 0: '<<razradbegES>> times silver medalist at the St.Petersburg Track Championship'
  519. if razradbegEG > 0: '<<razradbegEG>> times St.Petersburg Track Champion.'
  520. if razradbeg > 0:
  521. if razradbeg = 1: 'You''re registered for a semi-professional''s race, in the junior squad'
  522. if razradbeg = 2: 'You''re registered for a semi-professional''s race, in the veteran squad'
  523. if razradbeg >= 3 and razradbeg < 14: 'You can run in the qualifiing races for the championship on the professional circuit.'
  524. if razradbeg = 14 and razradbegK < 9: 'You failed to quaify for the championship.'
  525. if razradbeg = 5: 'You are one of the best track athletes in Russia and thus qualified for the Russian National Championship.'
  526. if razradbeg = 14 and razradbegK >= 9: 'You qualified for the <<year>> St.Petersburg Track Championship, taking place this season in the Petrovsky Stadium.'
  527. *nl
  528. end
  529. if chess_win > 0 or chess_loss > 0:'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
  530. if chess_rank > 0:
  531. if chess_rank = 1:'You have mastered the basics of chess'
  532. if chess_rank = 2:'You''re starting to get good at chess'
  533. if chess_rank = 3:'You''re a good chess player'
  534. if chess_rank = 4:'You''re an excellent chess player'
  535. if chess_rank = 5:'You''re a candidate for chess master'
  536. if chess_rank = 6:'You''re a chess master'
  537. if chess_rank = 7:'You''re a chess Grandmaster'
  538. end
  539. if chess_world_rank > 0:
  540. if chess_world_rank = 1:'The title of FIDE Master Chess'
  541. if chess_world_rank = 2:'The title of International Chess Master'
  542. if chess_world_rank = 3:'The title of International Grandmaster Chess'
  543. end
  544. *nl
  545. !!!
  546. '<center><b>Job Statistics</b></center>'
  547. if modelfoto > 0:
  548. '<b>Modelling</b>'
  549. *nl
  550. '<<modelfoto>> - Number of times you have worked as a model'
  551. '<<modelfotomoney>> - The amount of money you''ve made modelling'
  552. *nl
  553. if modelfoto_catalog > 0: '<<modelfoto_catalog>> - Number of catalog shoots you''ve done'
  554. if modelfoto_fashion > 0: '<<modelfoto_fashion>> - Number of fashion shoots you''ve done'
  555. if modelfoto_ero_clo > 0: '<<modelfoto_ero_clo>> - Number of sexy clothing shoots you''ve done'
  556. if modelfoto_bikini > 0: '<<modelfoto_bikini>> - Number of swimsuit shoots you''ve done'
  557. if modelfoto_lingerie > 0: '<<modelfoto_lingerie>> - Number of lingerie shoots you''ve done'
  558. if modelfoto_fitness > 0: '<<modelfoto_fitness>> - Number of fitness shoots you have participated in'
  559. if modelfoto_glamour > 0: '<<modelfoto_glamour>> - Number of glamour shoots you''ve done'
  560. if modelfoto_topless > 0: '<<modelfoto_topless>> - Number of topless shoots you''ve done'
  561. if modelfoto_nude > 0: '<<modelfoto_nude>> - Number of shoots in which you have been nude'
  562. if modelfoto_tastenude > 0: '<<modelfoto_tastenude>> - Number of shoots in which you have been nude but not shown breasts or pussy'
  563. if modelfoto_toplessnude > 0: '<<modelfoto_toplessnude>> - Number of nude shoots you have shown your breasts but not your pussy'
  564. if modelfoto_fullnude > 0: '<<modelfoto_fullnude>> - Number of full frontal nude shoots you''ve done'
  565. if modelfoto_erotic > 0: '<<modelfoto_erotic>> - Number of softcore erotic shoots you''ve done'
  566. if modelfoto_nip > 0: '<<modelfoto_nip>> - Number of shoots your nipples have been visible'
  567. if modelfoto_pussy > 0: '<<modelfoto_pussy>> - Number of shoots your pussy has been visible'
  568. if modelfoto_asshole > 0: '<<modelfoto_asshole>> - Number of shoots your asshole has been visible'
  569. end
  570. *nl
  571. if masseuse['jobtype'] ! 0:
  572. '<b>Masseuse</b>'
  573. masseuse['money_earned'] += masseuse['paycheck']
  574. if masseuse['jobtype'] = 2:
  575. masseuse['nude_mass_money_earned'] += masseuse['paycheck']
  576. elseif masseuse['jobtype'] > 2:
  577. masseuse['sex_money_earned'] += masseuse['paycheck']
  578. end
  579. *nl
  580. 'You have earned <<masseuse[''money_earned'']>> <b>₽</b> working at the salon as well as <<massage[''shift_tips'']>> <b>₽</b> in tips.'
  581. *nl
  582. '<<masseuse[''nude_mass_money_earned'']>> <b>₽</b> of it was made working as a nude masseuse.'
  583. '<<masseuse[''sex_money_earned'']>> <b>₽</b> of it was made working as a whore.'
  584. *nl
  585. '<<massage[''sex_tips'']>> <b>₽</b> of your tips came after performing a sexual act.'
  586. end
  587. if slavafuck > 0:'You have let Borislav fuck you <<slavafuck>> times'
  588. if slava_bj > 0:'You have given Borislav <<$slava_bj>> blowjobs'
  589. if maxdamage > 0: 'The impact force on the dynamometer <<maxdamage>> kgN' & *nl
  590. if stripdancesum > 0 and hidden_stripdancesum = 0:
  591. 'You have danced <<stripdancesum>> times in the stripclub'
  592. elseif stripdancesum = 0 and hidden_stripdancesum > 0:
  593. 'You have danced <<hidden_stripdancesum>> times in the stripclub, but you do not remember it'
  594. elseif stripdancesum > 0 and hidden_stripdancesum > 0:
  595. 'You have danced <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
  596. end
  597. if profiDanceTime > 0: 'You danced <<profiDanceTime>> times professionally.'
  598. if SchoolAtestat = 1: 'You have finished school.'
  599. if func('uniutil', 'diploma', 'obtained'): 'You graduated.'
  600. if teachlevel > 0: 'Your credibility as a teacher is <<teachlevel>>'
  601. !WD:FORMATING
  602. if maxdamage > 0 or stripdancesum > 0 or profiDanceTime > 0 or SchoolAtestat > 0 or func('uniutil', 'diploma', 'obtained') or teachlevel > 0:*nl
  603. '</td><td width="35%" cellspacing="0" cellpadding="0" valign="top">'
  604. '<center><b>Sex Statistics</b></center>'
  605. *nl
  606. !Sex stats
  607. ! This is my suggestion, change it however you see fit, Sicaa
  608. if stat['kiss'] > 0: 'Times you have kissed someone: <<stat[''kiss'']>>'
  609. if mastr > 0 or stat['mast'] > 0: 'Times you have masturbated: <<stat[''mast'']>>'
  610. if stat['porn'] > 0: 'Times you have watched porn: <<stat[''porn'']>>'
  611. if stat['flashlite'] > 0 or stat['flash'] > 0: 'Times you have flashed: <<stat[''flashlite''] + stat[''flash'']>>'
  612. ! This is my suggestion, change it however you see fit, Sicaa
  613. if stat['voyeur'] > 0: 'Times you have spied on erotic displays of others: <<stat[''voyeur'']>>'
  614. if stat['voyeur_sex'] > 0: 'Times you have watched other people fuck: <<stat[''voyeur_sex'']>>'
  615. if stat['erotic_nudity'] > 0: 'Times you were exposed to others'' nudity: <<stat[''erotic_nudity'']>>'
  616. if spank > 0: 'You have had your ass spanked <<spank>> times'
  617. ! This is my suggestion, change it however you see fit, Sicaa
  618. if stat['BDSM'] > 0 or stat['BDSM_give'] > 0: 'Times you have participated in BDSM (sub/dom): <<stat[''BDSM'']>>/<<stat[''BDSM_give'']>>'
  619. temp = func('shortgs','guy')
  620. if guy+temp > 0 and hidden_guy = 0:
  621. 'You had sex with <<guy+temp>> guys.'
  622. elseif guy+temp = 0 and hidden_guy > 0:
  623. 'You had sex with <<hidden_guy>> guys, but you do not have any recollection of it. You still think of yourself as a virgin.'
  624. elseif guy+temp > 0 and hidden_guy > 0:
  625. 'You had sex with <<guy+hidden_guy+temp>> guys, but you know only about <<guy+temp>> of them.'
  626. end
  627. temp = func('shortgs','girl')
  628. if girl+temp > 0 and hidden_girl = 0:
  629. 'You had sex with <<girl+temp>> girls.'
  630. elseif girl+temp = 0 and hidden_girl > 0:
  631. 'You had sex with <<hidden_girl>> girls, but you do not have any recollection of any of it.'
  632. elseif girl+temp > 0 and hidden_girl > 0:
  633. 'You had sex with <<girl+temp+hidden_girl>> girls, but you know only about <<girl+temp>> of them.'
  634. end
  635. if divorced > 0: 'You were married <<divorced>> times.'
  636. if suprdolg > 0: 'You performed your conjugal duty for your husband <<suprdolg>> times'
  637. if rape > 0 and hidden_rape = 0:
  638. 'You have been raped <<rape>> times'
  639. elseif rape = 0 and hidden_rape > 0:
  640. 'You have been raped <<hidden_rape>> times, but you do not remember any of it'
  641. elseif rape > 0 and hidden_rape > 0:
  642. 'You have been raped <<rape+hidden_rape>> times, but you only remember <<rape>> of them'
  643. end
  644. if slutty > 0 or hidden_slutty > 0:
  645. if bordelslutty = 0: 'Sold your body <<slutty>> times.'
  646. if bordelslutty > 0: 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
  647. if hidden_slutty > 0: 'Sold your body <<hidden_slutty>> times, and gave all the money to your therapist. You do not remember any of it.'
  648. end
  649. if orgasm > 0: 'Experienced orgasm <<orgasm>> times.'
  650. if analorgasm > 0 : 'You''ve had <<analorgasm>> anal orgasms.'
  651. if swallow > 0: 'Sperm swallowed <<swallow>> times.'
  652. if facial > 0: 'You have taken <<facial>> facials.'
  653. if frot > 0 or hump > 0: 'Your clothes have been come on <<frot + hump>> times.'
  654. ! This is my suggestion, change it however you see fit, Sicaa
  655. if stat['pee_give'] > 0: 'You''ve peed on others <<stat[''pee_give'']>> times.'
  656. if stat['pee'] > 0: 'You''ve been peed on <<stat[''pee'']>> times.'
  657. if swallowpee > 0: 'You swallowed urine <<swallowpee>> times.'
  658. !!!WD:FORMATING
  659. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + stat['pee_give'] + stat['pee'] + swallowpee) > 0:*nl
  660. !!!
  661. gs 'obj_din', 'husb_cheat_count'
  662. if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0:
  663. 'Jerked men off (known/unknown): <<stat[''hj'']>>/<<stat[''hidden_hj'']>>'
  664. if hja > 0: 'Jerked off your boyfriend: <<hja>>'
  665. end
  666. if stat['footjob'] > 0 or stat['hidden_footjob'] > 0: 'Jerked men off with your feet (known/unknown): <<stat[''footjob'']>>/<<stat[''hidden_footjob'']>>'
  667. ! This is my suggestion, change it however you see fit, Sicaa
  668. if stat['titjob'] > 0 or stat['hidden_titjob'] > 0: 'Pleasured men with your breasts (known/unknown): <<stat[''titjob'']>>/<<stat[''hidden_titjob'']>>'
  669. if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0:
  670. 'Sucked cock (known/unknown): <<stat[''bj'']>>/<<stat[''hidden_bj'']>>'
  671. if bja > 0: 'Sucked your boyfriends cock: <<bja>>'
  672. if gloryhole > 0 or hidden_gloryhole > 0: 'Sucked cock in a gloryhole (known/unknown): <<gloryhole>>/<<hidden_gloryhole>>'
  673. if furibj > 0: 'Sucked off truckers for a ride <<furibj>> times'
  674. if furi['road_head_girl'] = 1: 'The truckers who drive the lorries nicknamed you "Road Head Girl".'
  675. end
  676. if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0: 'Vaginal sex (known/unknown): <<stat[''vaginal'']>>/<<stat[''hidden_vaginal'']>>'
  677. if sexa > 0: 'Vaginal sex with your boyfriend: <<sexa>>'
  678. if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
  679. ' Known vaginal creampies:'
  680. if pcs_cp_safe_known > 0:' Safe: <<pcs_cp_safe_known>>'
  681. if pcs_cp_notsafe_known > 0:' Likely safe: <<pcs_cp_notsafe_known>>'
  682. if pcs_cp_risky_known > 0:' Risky: <<pcs_cp_risky_known>>'
  683. end
  684. if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0:
  685. ' Unknown vaginal creampies:'
  686. if pcs_cp_safe_unknown > 0:' Safe: <<pcs_cp_safe_unknown>>'
  687. if pcs_cp_notsafe_unknown > 0:' Likely safe: <<pcs_cp_notsafe_unknown>>'
  688. if pcs_cp_risky_unknown > 0:' Risky: <<pcs_cp_risky_unknown>>'
  689. end
  690. if lesbian > 0 or hidden_lesbian > 0:
  691. if hidden_lesbian = 0: 'Lesbian sex (known/unknown): <<lesbian>>/<<hidden_lesbian>>'
  692. end
  693. if futa > 0 or hidden_futa > 0: 'Sex with tgirls (known/unknown): <<futa>>/<<hidden_futa>>'
  694. if anal > 0 or stat['anal'] or stat['hidden_anal']:
  695. 'Anal sex (known/unknown): <<stat[''anal'']>>/<<stat[''hidden_anal'']>>'
  696. if anala > 0: 'Anal sex with your boyfriend: <<anala>>'
  697. end
  698. if pcs_acp_known > 0: ' Known anal creampies: <<pcs_acp_known>>'
  699. if pcs_acp_unknown > 0: ' Unknown anal creampies: <<pcs_acp_unknown>>'
  700. if gang > 0 or hidden_gang > 0: 'Group sex (known/unknown): <<gang>>/<<hidden_gang>>'
  701. if kuni > 0 or stat['cuni'] > 0: 'Received cunnilingus: <<stat[''cuni'']>>'
  702. if stat['vaginal_finger'] > 0: 'Fingered: <<stat[''vaginal_finger'']>>'
  703. if stat['vaginal_fist'] > 0: 'Fisted: <<stat[''vaginal_fist'']>>'
  704. if stat['vaginal_dildo'] > 0: 'Fucked a dildo: <<stat[''vaginal_dildo'']>>'
  705. if stat['vaginal_strap'] > 0: 'Fucked with a strap-on: <<stat[''vaginal_strap'']>>'
  706. if stat['vaginal_vibe'] > 0: 'Clitoral / Vaginal vibrator: <<stat[''vaginal_vibe'']>>'
  707. if stat['trib'] > 0: 'Tribalism: <<stat[''trib'']>>'
  708. if stat['anal_finger'] > 0: 'Anally fingered: <<stat[''anal_finger'']>>'
  709. if stat['anal_fist'] > 0: 'Anally fisted: <<stat[''anal_fist'']>>'
  710. if stat['rimming'] > 0: 'Ass rimmed: <<stat[''rimming'']>>'
  711. if stat['anal_dildo'] > 0: 'Anal sex with a dildo: <<stat[''anal_dildo'']>>'
  712. if stat['anal_strap'] > 0: 'Ass fucked with a strap-on: <<stat[''anal_strap'']>>'
  713. if stat['anal_vibe'] > 0: 'Anal vibrator: <<stat[''anal_vibe'']>>'
  714. if stat['cuni_give'] > 0: 'Performed cunnilingus: <<stat[''cuni_give'']>>'
  715. if stat['vaginal_finger_give'] > 0: 'Fingered a girl: <<stat[''vaginal_finger_give'']>>'
  716. if stat['vaginal_fist_give'] > 0: 'Fisted a girl: <<stat[''vaginal_fist_give'']>>'
  717. if stat['vaginal_dildo_give'] > 0: 'Dildoed a girl: <<stat[''vaginal_dildo_give'']>>'
  718. if stat['vaginal_strap_give'] > 0: 'Strap-on fucked a girl: <<stat[''vaginal_strap_give'']>>'
  719. if stat['vaginal_vibe_give'] > 0: 'Used vibrator on a girl: <<stat[''vaginal_vibe_give'']>>'
  720. if stat['rimming_give'] > 0: 'Rimmed someone: <<stat[''rimming_give'']>>'
  721. if stat['anal_finger_give'] > 0: 'Fingered someone else''s ass: <<stat[''anal_finger_give'']>>'
  722. if stat['anal_fist_give'] > 0: 'Fisted someone else''s ass: <<stat[''anal_fist_give'']>>'
  723. if stat['anal_dildo_give'] > 0: 'Dildoed someone else''s ass: <<stat[''anal_dildo_give'']>>'
  724. if stat['anal_vibe_give'] > 0: 'Used a vibrator on someone else''s ass: <<stat[''anal_vibe_give'']>>'
  725. if stat['anal_strap_give'] > 0 or stat['anal_strap_give'] > 0: 'Fucked someone else''s ass with a strap-on: <<stat[''anal_strap_give'']>>'
  726. '</td><td width="30%" cellspacing="0" cellpadding="0" valign="top">'
  727. '<center><b>Fetish Statistics</b></center>'
  728. *nl
  729. 'Feet preference: <<feet[''pref'']>>'
  730. 'Foot jobs / worship: <<feet[''exp'']>>'
  731. 'Deepthroat preference: <<deepthroat[''pref'']>>'
  732. 'Deepthroated: <<deepthroat[''exp'']>>'
  733. 'Group preference: <<group[''pref'']>>'
  734. 'Group sex: <<group[''exp'']>>'
  735. 'Gangbang preference: <<gangbang[''pref'']>>'
  736. 'Gangbangs: <<gangbang[''exp'']>>'
  737. 'Humiliation preference: <<humiliation[''pref'']>>'
  738. 'Humiliation experiences: <<humiliation[''exp'']>>'
  739. 'Prostitution preference: <<prostitution[''pref'']>>'
  740. 'Prostituted yourself: <<prostitution[''exp'']>>'
  741. 'Bondage preference: <<bound[''pref'']>>'
  742. 'Bondage play: <<bound[''exp'']>>'
  743. 'Masochism preference: <<maso[''pref'']>>'
  744. 'Masochism experiences: <<maso[''exp'']>>'
  745. 'Bestiality encounters: <<beast[''pref'']>>'
  746. 'Bestiality experience: <<beast[''exp'']>>'
  747. 'Rough sex preference: <<rough[''pref'']>>'
  748. 'Rough sex: <<rough[''exp'']>>'
  749. 'Incest preference: <<incest[''pref'']>>'
  750. 'Incestuous sex: <<incest[''exp'']>>'
  751. '</td></tr></table></center>'
  752. end
  753. if $ARGS[0] = 'kidlist':
  754. kidnumber = ARGS[1]
  755. if kidage[kidnumber] < 1:
  756. if (month - monthkid[kidnumber]) < 1 and (day-daykid[kidnumber]) < 7:
  757. kiddaycalc[kidnumber] = day - daykid[kidnumber]
  758. if kiddaycalc[kidnumber] = 0:
  759. $kidagetext[kidnumber] = 'was born today'
  760. elseif kiddaycalc[kidnumber] = 1:
  761. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> day old'
  762. else
  763. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> days old'
  764. end
  765. elseif (month - monthkid[kidnumber]) < 1 :
  766. kiddaycalc[kidnumber] = (day - daykid[kidnumber]) / 7
  767. if kiddaycalc[kidnumber] = 1:
  768. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> week old'
  769. else
  770. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> weeks old'
  771. end
  772. else
  773. kidmonthcalc[kidnumber] = (month - monthkid[kidnumber])
  774. if kidmonthcalc[kidnumber] = 1:
  775. $kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> month old'
  776. else
  777. $kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> months old'
  778. end
  779. end
  780. else
  781. if kidage[kidnumber] = 1:
  782. $kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> year old'
  783. else
  784. $kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> years old'
  785. end
  786. end
  787. if polkid[kidnumber] = 0:
  788. $sdtext[kidnumber] = 'daughter'
  789. else
  790. $sdtext[kidnumber] = 'son'
  791. end
  792. if polkid[kidnumber] = 0:
  793. $kidPosProPN[kidnumber] = 'She'
  794. else
  795. $kidPosProPN[kidnumber] = 'He'
  796. end
  797. *p'You have a <<$sdtext[kidnumber]>> named <<$kidname[kidnumber]>>. <<$kidPosProPN[kidnumber]>> <<$kidagetext[kidnumber]>>. <<$kidname[kidnumber]>>''s date of birth is <<daykid[kidnumber]>>-<<monthkid[kidnumber]>>-<<yearkid[kidnumber]>>'
  798. '.'
  799. *nl
  800. killvar 'kidnumber'
  801. end
  802. if $ARGS[0] = 'reputation':
  803. *clr & cla
  804. gs 'obj_din','chartabs'
  805. !'<center><img src="images/system/icon/reputation.png"><br></center>'
  806. '<center><h1>Renown</h1></center>'
  807. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top">'
  808. '<tr><td width="50%" cellspacing="0" cellpadding="0" valign="top">'
  809. '<center>Family Renown</center>'
  810. if Enable_family_Reputation = 0:
  811. '<center><a href="exec:Enable_family_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  812. end
  813. if Enable_family_Reputation = 1:
  814. '<center><a href="exec:Enable_family_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  815. if rinslut > 0 or kavslut > 0:'In the residential area of ​​you are known as a whore that sleeps with Caucasians.'
  816. if afra > 80: 'In the student hostel, you are known for bedding blacks.'
  817. if opusk > 0 or gnewQW >= 5: 'In the residential area it is well known by all the guys that you are a whore.'
  818. if StoryLine = 1:
  819. *nl
  820. if motherKnowWhore > 0:
  821. 'Your mother knows that you are sexually active and considers you a whore.'
  822. elseif motherKnowSpravka > 0:
  823. 'Your mother knows that you are sexually active.'
  824. elseif motherKnowDildo > 0:
  825. 'Your mother knows you masturbate with a dildo.'
  826. else
  827. 'Your mother thinks that you are a virgin.'
  828. end
  829. if brotherSex = 10:
  830. 'You and your brother have professed forbidden love to each other.'
  831. elseif brotherSex = 9:
  832. 'You and your brother are siblings with benefits.'
  833. elseif evgenQW >= 4 and pav_slut >= 250:
  834. 'Your brother thinks you are a total whore.'
  835. elseif evgenQW >= 3:
  836. 'Your brother thinks you are a slut.'
  837. elseif brotherSex > 4:
  838. 'You are in a sexual relationship with your brother'
  839. elseif brotherknowslut = 1:
  840. 'Your brother saw semen on your body and thinks that you fuck around.'
  841. elseif brotherknowslut >= 2:
  842. 'Your brother saw you in the park screwing Gopniks.'
  843. else
  844. 'Your brother has a good opinion of you.'
  845. end
  846. if sisterknowslut > 1 and sisboypartyQW >= 2:
  847. 'Your sister thinks you are a slut'
  848. elseif sisterknowslut > 0:
  849. 'Your sister knows that you sleep around.'
  850. else
  851. 'Your sister has a good opinion of you.'
  852. end
  853. if brothershowertalk > 0:'<<brothershowertalk>> - Number of conversations you''ve had with your brother in the shower.'
  854. if brothershowerlook = 1:'You let your brother look at you when you''re shower'
  855. if brothershave > 0:'<<brothershave>> - Number of times you''ve let your brother watch you shave your pussy'
  856. if brotherkiss > 0: '<<brotherkiss>> - Number of times you and your brother have kissed'
  857. if brotherbj > 0:'<<brotherbj>> - Number of times you''ve given your brother blowjobs'
  858. if brotherfuck > 0:'<<brotherfuck>> - Number of times you''ve had sex with your brother'
  859. end
  860. *nl
  861. end
  862. '<center>Regional Renown</center>'
  863. if Enable_glo_Reputation = 0:
  864. '<center><a href="exec:Enable_glo_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  865. end
  866. if Enable_glo_Reputation = 1:
  867. '<center><a href="exec:Enable_glo_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  868. 'Regional renown as a performer = <<global_performer>>'
  869. if global_performer = 0:
  870. 'You are not famous enough as a performer to be known outside of any local areas.'
  871. end
  872. *nl
  873. 'Regional renown in the sex industry = <<global_sexind>>'
  874. if global_sexind = 0:
  875. 'You are not famous enough in the industry to be known outside of any local areas.'
  876. end
  877. *nl
  878. 'Regional renown as a slut = <<global_slut>>'
  879. if global_slut = 0:
  880. 'You are not famous enough as a slut to be known outside of any local areas.'
  881. end
  882. *nl
  883. 'Regional renown in sports = <<global_sport>>'
  884. if global_sport = 0:
  885. 'You are not a famous enough athlete to be known outside of any local areas.'
  886. end
  887. *nl
  888. 'Regional renown as an intellectual = <<global_int>>'
  889. if global_int = 0:
  890. 'You are not famous enough as an intellectual to be known outside of any local areas.'
  891. end
  892. *nl
  893. 'Regional renown through social media = <<global_social>>'
  894. if global_social = 0:
  895. 'You are not famous enough on social media to be known outside of any local areas.'
  896. end
  897. *nl
  898. if kolsorev > 0: 'You have run in <<kolsorev>> races'
  899. if swinbeg >= 1: 'You have <<swinbeg/3>> trophies from local racing competitions'
  900. if bronzebeg > 0: '<<bronzebeg>> - bronze medals for running'
  901. if silverbeg > 0: '<<silverbeg>> - silver medals for running'
  902. if goldbeg > 0: '<<goldbeg>> - gold medals for running'
  903. if razradbegEB > 0: '<<razradbegEB>> times bronze medalist at the St.Petersburg Track Championship'
  904. if razradbegES > 0: '<<razradbegES>> times silver medalist at the St.Petersburg Track Championship'
  905. if razradbegEG > 0: '<<razradbegEG>> times St.Petersburg Track Champion.'
  906. if razradbeg > 0:
  907. if razradbeg = 1: 'You''re registered for a semi-professional''s race, in the junior squad'
  908. if razradbeg = 2: 'You''re registered for a semi-professional''s race, in the veteran squad'
  909. if razradbeg >= 3 and razradbeg < 14: 'You can run in the qualifiing races for the championship on the professional circuit.'
  910. if razradbeg = 14 and razradbegK < 9: 'You failed to quaify for the championship.'
  911. if razradbeg = 5: 'You are one of the best track athletes in Russia and thus qualified for the Russian National Championship.'
  912. if razradbeg = 14 and razradbegK >= 9: 'You qualified for the <<year>> St.Petersburg Track Championship, taking place this season in the Petrovsky Stadium.'
  913. *nl
  914. end
  915. end
  916. '<center><table width="225" cellspacing="0" cellpadding="20" valign="top"><tr><td>'
  917. '<center>Renown in Pavlovsk</center>'
  918. if Enable_pav_Reputation = 0:
  919. '<center><a href="exec:Enable_pav_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  920. end
  921. if Enable_pav_Reputation = 1:
  922. '<center><a href="exec:Enable_pav_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  923. '<b>Performer = <<pav_performer>></b>'
  924. ' Actor = <<pav_acting>>'
  925. ' Dancer = <<pav_dance>>'
  926. ' Glamour model = <<pav_modelling>>'
  927. ' Painter = <<pav_painting>>'
  928. ' Musician = <<pav_music>>'
  929. ' Ballet dancer = <<pav_ballet>>'
  930. '<b>Sex Industry = <<pav_sexind>></b>'
  931. ' Porn actor = <<pav_porn>>'
  932. ' Stripper = <<pav_stripping>>'
  933. '<b>Slut = <<pav_slut>></b>'
  934. ' Sex = <<pav_sex>>'
  935. ' Prostitution = <<pav_prostitute>>'
  936. '<b>Sports = <<pav_sport>></b>'
  937. ' Kickboxer = <<pav_kickboxing>>'
  938. ' Runner = <<pav_running>>'
  939. ' Volleyball player = <<pav_volleyball>>'
  940. '<b>Intellectual = <<pav_int>></b>'
  941. ' Chess player = <<pav_chess>>'
  942. ' Teacher = <<pav_teaching>>'
  943. '<b>Social = <<pav_social>></b>'
  944. ' Social media = <<pav_media>>'
  945. *nl
  946. end
  947. '<center>Renown in the city</center>'
  948. if Enable_city_Reputation = 0:
  949. '<center><a href="exec:Enable_city_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  950. end
  951. if Enable_city_Reputation = 1:
  952. '<center><a href="exec:Enable_city_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  953. '<b>Performer = <<city_performer>></b>'
  954. ' Actor = <<city_acting>>'
  955. ' Dancer = <<city_dance>>'
  956. ' Glamour model = <<city_modelling>>'
  957. ' Painter = <<city_painting>>'
  958. ' Musician = <<city_music>>'
  959. ' Ballet dancer = <<city_ballet>>'
  960. '<b>Sex Industry = <<city_sexind>></b>'
  961. ' Porn actor = <<city_porn>>'
  962. ' Stripper = <<city_stripping>>'
  963. '<b>Slut = <<city_slut>></b>'
  964. ' Sex = <<city_sex>>'
  965. ' Prostitution = <<city_prostitute>>'
  966. '<b>Sports = <<city_sport>></b>'
  967. ' Kickboxer = <<city_kickboxing>>'
  968. ' Runner = <<city_running>>'
  969. ' Volleyball player = <<city_volleyball>>'
  970. '<b>Intellectual = <<city_int>></b>'
  971. ' Chess player = <<city_chess>>'
  972. ' Teacher = <<city_teaching>>'
  973. '<b>Social = <<city_social>></b>'
  974. ' Social media = <<city_media>>'
  975. *nl
  976. end
  977. '<center>Renown in the old town</center>'
  978. if Enable_oldtown_Reputation = 0:
  979. '<center><a href="exec:Enable_oldtown_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  980. end
  981. if Enable_oldtown_Reputation = 1:
  982. '<center><a href="exec:Enable_oldtown_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  983. '<b>Performer = <<oldtown_performer>></b>'
  984. ' Actor = <<oldtown_acting>>'
  985. ' Dancer = <<oldtown_dance>>'
  986. ' Glamour model = <<oldtown_modelling>>'
  987. ' Painter = <<oldtown_painting>>'
  988. ' Musician = <<oldtown_music>>'
  989. ' Ballet dancer = <<oldtown_ballet>>'
  990. '<b>Sex Industry = <<oldtown_sexind>></b>'
  991. ' Porn actor = <<oldtown_porn>>'
  992. ' Stripper = <<oldtown_stripping>>'
  993. '<b>Slut = <<oldtown_slut>></b>'
  994. ' Sex = <<oldtown_sex>>'
  995. ' Prostitution = <<oldtown_prostitute>>'
  996. '<b>Sports = <<oldtown_sport>></b>'
  997. ' Kickboxer = <<oldtown_kickboxing>>'
  998. ' Runner = <<oldtown_running>>'
  999. ' Volleyball player = <<oldtown_volleyball>>'
  1000. '<b>Intellectual = <<oldtown_int>></b>'
  1001. ' Chess player = <<oldtown_chess>>'
  1002. ' Teacher = <<oldtown_teaching>>'
  1003. '<b>Social = <<oldtown_social>></b>'
  1004. ' Social media = <<oldtown_media>>'
  1005. *nl
  1006. end
  1007. '<center>Renown in the village</center>'
  1008. if Enable_village_Reputation = 0:
  1009. '<center><a href="exec:Enable_village_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1010. end
  1011. if Enable_village_Reputation = 1:
  1012. '<center><a href="exec:Enable_village_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1013. '<b>Performer = <<village_performer>></b>'
  1014. ' Actor = <<village_acting>>'
  1015. ' Dancer = <<village_dance>>'
  1016. ' Glamour model = <<village_modelling>>'
  1017. ' Painter = <<village_painting>>'
  1018. ' Musician = <<village_music>>'
  1019. ' Ballet dancer = <<village_ballet>>'
  1020. '<b>Sex Industry = <<village_sexind>></b>'
  1021. ' Porn actor = <<village_porn>>'
  1022. ' Stripper = <<village_stripping>>'
  1023. '<b>Slut = <<village_slut>></b>'
  1024. ' Sex = <<village_sex>>'
  1025. ' Prostitution = <<village_prostitute>>'
  1026. '<b>Sports = <<village_sport>></b>'
  1027. ' Kickboxer = <<village_kickboxing>>'
  1028. ' Runner = <<village_running>>'
  1029. ' Volleyball player = <<village_volleyball>>'
  1030. '<b>Intellectual = <<village_int>></b>'
  1031. ' Chess player = <<village_chess>>'
  1032. ' Teacher = <<village_teaching>>'
  1033. '<b>Social = <<village_social>></b>'
  1034. ' Social media = <<village_media>>'
  1035. end
  1036. '</tr></td></table></center>'
  1037. '</td><td width="50%" cellspacing="0" cellpadding="0" valign="top">'
  1038. if film > 0:
  1039. '<b>Pornographic Filmography</b>'
  1040. gs 'pornhist', 'short'
  1041. if pfilmSTOP = 0:
  1042. *nl
  1043. '<font color="magenta"><<$pfname>></font> has starred in <b><<film>></b> porn films:'
  1044. *nl
  1045. else
  1046. *nl
  1047. '<font color="magenta"><<$pfname>></font> retired after <b><<film>></b> porn films:'
  1048. *nl
  1049. end
  1050. '<a href="exec:gs ''pornhist'', ''pdetail''">View detailed Filmography</a>'
  1051. *nl
  1052. *p '<<$pfilmhistory>>'
  1053. end
  1054. '</td></tr></table></center>'
  1055. end
  1056. if $ARGS[0] = 'magic':
  1057. *clr & cla
  1058. gs 'obj_din','chartabs'
  1059. '<center><h1>Magic</h1></center>'
  1060. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1061. '<td cellspacing="0" cellpadding="0" valign="top">'
  1062. if pcs_magik = 0:
  1063. 'You are unable to use magic.'
  1064. elseif pcs_magik > 0:
  1065. 'You have <<pcs_mana>> units of mana available to you.'
  1066. !!' Forces Rikudo available to you <<rikudo>> units'
  1067. *nl
  1068. $SpellListStr = "<center>
  1069. <h1>Combat Spells</h1><br>
  1070. <<func('spellBook','list','$combatSpells')>><br>
  1071. <h1>Non-Combat Spells</h1><br>
  1072. <<func('spellBook','list','$nonComSpells')>><br>
  1073. </center>"
  1074. *pl func('cleanHTML',$SpellListStr)
  1075. killvar 'i'
  1076. killvar '$ThisSpellName'
  1077. killvar '$SpellListStr'
  1078. end
  1079. if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1:
  1080. '<center><b>Succubus Stats</b></center>'
  1081. *nl
  1082. 'Succubus Level = <<succublvl>>'
  1083. 'Succubus XP = <<succubxp>>'
  1084. '"Food" Energy Reserve = <<0 - succhungry>> day(s)'
  1085. 'Stored Sexual Energy = <<sucexcess>>'
  1086. 'Sexual Energy Storage Capacity = <<sucstorecap>>'
  1087. *nl
  1088. if sucskill >= 2: 'You have learned to increase your storage capacity and to store energy before using it.'
  1089. if sucskill >= 3: 'You have learned to be more efficient in your energy handling.'
  1090. if sucskill >= 4: 'You have learned the accommodation ability.'
  1091. *nl
  1092. !! More to come
  1093. end
  1094. '</td></tr></table></center>'
  1095. end
  1096. if $ARGS[0] = 'pain':
  1097. *clr & cla
  1098. gs 'obj_din','chartabs'
  1099. '<center><h1>Pain</h1></center>'
  1100. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1101. '<td cellspacing="0" cellpadding="0" valign="top">'
  1102. if pain['head'] > 0:
  1103. if pain['head'] > 70:
  1104. '<b><font color="red">Your head is in extreme pain.</font></b>'
  1105. elseif pain['head'] > 40:
  1106. 'Your head is very sore.'
  1107. else
  1108. 'Your head hurts.'
  1109. end
  1110. end
  1111. if pain['hair'] > 0:
  1112. if pain['hair'] > 70:
  1113. '<b><font color="red">Your scalp is in extreme pain.</font></b>'
  1114. elseif pain['hair'] > 40:
  1115. 'Your scalp is very sore.'
  1116. else
  1117. 'Your scalp hurts.'
  1118. end
  1119. end
  1120. if pain['ears'] > 0:
  1121. if pain['ears'] > 70:
  1122. '<b><font color="red">Your ears are in extreme pain.</font></b>'
  1123. elseif pain['ears'] > 40:
  1124. 'Your ears are very sore.'
  1125. else
  1126. 'Your ears hurt.'
  1127. end
  1128. end
  1129. if pain['eyebrows'] > 0:
  1130. if pain['eyebrows'] > 70:
  1131. '<b><font color="red">Your eyebrows are in extreme pain.</font></b>'
  1132. elseif pain['eyebrows'] > 40:
  1133. 'Your eyebrows are very sore.'
  1134. else
  1135. 'Your eyebrows hurt.'
  1136. end
  1137. end
  1138. if pain['eyes'] > 0:
  1139. if pain['eyes'] > 70:
  1140. '<b><font color="red">Your eyes are in extreme pain.</font></b>'
  1141. elseif pain['eyes'] > 40:
  1142. 'Your eyes are very sore.'
  1143. else
  1144. 'Your eyes hurt.'
  1145. end
  1146. end
  1147. if pain['cheeks'] > 0:
  1148. if pain['cheeks'] > 70:
  1149. '<b><font color="red">Your cheeks are in extreme pain.</font></b>'
  1150. elseif pain['cheeks'] > 40:
  1151. 'Your cheeks are very sore.'
  1152. else
  1153. 'Your cheeks hurt.'
  1154. end
  1155. end
  1156. if pain['nose'] > 0:
  1157. if pain['nose'] > 70:
  1158. '<b><font color="red">Your nose is in extreme pain.</font></b>'
  1159. elseif pain['nose'] > 40:
  1160. 'Your nose is very sore.'
  1161. else
  1162. 'Your nose hurts.'
  1163. end
  1164. end
  1165. if pain['mouth'] > 0:
  1166. if pain['mouth'] > 70:
  1167. '<b><font color="red">Your mouth is in extreme pain.</font></b>'
  1168. elseif pain['mouth'] > 40:
  1169. 'Your mouth is very sore.'
  1170. else
  1171. 'Your mouth hurts.'
  1172. end
  1173. end
  1174. if pain['jaw'] > 0:
  1175. if pain['jaw'] > 70:
  1176. '<b><font color="red">Your jaw is in extreme pain.</font></b>'
  1177. elseif pain['jaw'] > 40:
  1178. 'Your jaw is very sore.'
  1179. else
  1180. 'Your jaw hurts.'
  1181. end
  1182. end
  1183. if pain['lips'] > 0:
  1184. if pain['lips'] > 70:
  1185. '<b><font color="red">Your lips are in extreme pain.</font></b>'
  1186. elseif pain['lips'] > 40:
  1187. 'Your lips are very sore.'
  1188. else
  1189. 'Your lips hurt.'
  1190. end
  1191. end
  1192. if pain['tongue'] > 0:
  1193. if pain['tongue'] > 70:
  1194. '<b><font color="red">Your tongue is in extreme pain.</font></b>'
  1195. elseif pain['tongue'] > 40:
  1196. 'Your tongue is very sore.'
  1197. else
  1198. 'Your tongue hurts.'
  1199. end
  1200. end
  1201. if pain['throat'] > 0:
  1202. if pain['throat'] > 70:
  1203. '<b><font color="red">Your throat is in extreme pain.</font></b>'
  1204. elseif pain['throat'] > 40:
  1205. 'Your throat is very sore.'
  1206. else
  1207. 'Your throat hurts.'
  1208. end
  1209. end
  1210. if pain['neck'] > 0:
  1211. if pain['neck'] > 70:
  1212. '<b><font color="red">Your neck is in extreme pain.</font></b>'
  1213. elseif pain['neck'] > 40:
  1214. 'Your neck is very sore.'
  1215. else
  1216. 'Your neck hurts.'
  1217. end
  1218. end
  1219. if pain['back'] > 0:
  1220. if pain['back'] > 70:
  1221. '<b><font color="red">Your back is in extreme pain.</font></b>'
  1222. elseif pain['back'] > 40:
  1223. 'Your back is very sore.'
  1224. else
  1225. 'Your back hurts.'
  1226. end
  1227. end
  1228. if pain['asscheeks'] + (spanked * 24) > 0:
  1229. if pain['asscheeks'] + (spanked * 24) > 70:
  1230. '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass2.jpg''">asscheeks</a> are in extreme pain.</font></b>'
  1231. elseif pain['asscheeks'] + (spanked * 24) > 40:
  1232. '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass1.jpg''">asscheeks</a> are very sore.</font></b>'
  1233. else
  1234. '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass.jpg''">asscheeks</a> hurt.</font></b>'
  1235. end
  1236. end
  1237. if pain['asshole'] + (agape * 10) > 0:
  1238. if pain['asshole'] + (agape * 10) > 70:
  1239. '<b><font color="red">You have an extremely sore anus and it is bleeding.</font></b>'
  1240. elseif pain['asshole'] + (agape * 10) > 40:
  1241. '<b><font color="red">You have a very sore anus.</font></b>'
  1242. else
  1243. '<b><font color="red">You have a sore and itchy anus.</font></b>'
  1244. end
  1245. end
  1246. if pain['hips'] > 0:
  1247. if pain['hips'] > 70:
  1248. '<b><font color="red">Your hips are in extreme pain.</font></b>'
  1249. elseif pain['hips'] > 40:
  1250. 'Your hips are very sore.'
  1251. else
  1252. 'Your hips hurt.'
  1253. end
  1254. end
  1255. if pain['thighs'] > 0:
  1256. if pain['thighs'] > 70:
  1257. '<b><font color="red">Your thighs are in extreme pain.</font></b>'
  1258. elseif pain['thighs'] > 40:
  1259. 'Your thighs are very sore.'
  1260. else
  1261. 'Your thighs hurt.'
  1262. end
  1263. end
  1264. if pain['legL'] > 0:
  1265. if pain['legL'] > 70:
  1266. '<b><font color="red">Your left leg is in extreme pain.</font></b>'
  1267. elseif pain['legL'] > 40:
  1268. 'Your left leg is very sore.'
  1269. else
  1270. 'Your left leg hurts.'
  1271. end
  1272. end
  1273. if pain['legR'] > 0:
  1274. if pain['legR'] > 70:
  1275. '<b><font color="red">Your right leg is in extreme pain.</font></b>'
  1276. elseif pain['legR'] > 40:
  1277. 'Your right leg is very sore.'
  1278. else
  1279. 'Your right leg hurts.'
  1280. end
  1281. end
  1282. if pain['feet'] > 0:
  1283. if pain['feet'] > 70:
  1284. '<b><font color="red">Your feet are in extreme pain.</font></b>'
  1285. elseif pain['feet'] > 40:
  1286. 'Your feet are very sore.'
  1287. else
  1288. 'Your feet hurt.'
  1289. end
  1290. end
  1291. if pain['toes'] > 0:
  1292. if pain['toes'] > 70:
  1293. '<b><font color="red">Your toes are in extreme pain.</font></b>'
  1294. elseif pain['toes'] > 40:
  1295. 'Your toes are very sore.'
  1296. else
  1297. 'Your toes foot hurt.'
  1298. end
  1299. end
  1300. if pain['shoulders'] > 0:
  1301. if pain['shoulders'] > 70:
  1302. '<b><font color="red">Your shoulders are in extreme pain.</font></b>'
  1303. elseif pain['shoulders'] > 40:
  1304. 'Your shoulders are very sore.'
  1305. else
  1306. 'Your shoulders hurt.'
  1307. end
  1308. end
  1309. if pain['armL'] > 0:
  1310. if pain['armL'] > 70:
  1311. '<b><font color="red">Your left arm is in extreme pain.</font></b>'
  1312. elseif pain['armL'] > 40:
  1313. 'Your left arm is very sore.'
  1314. else
  1315. 'Your left arm hurts.'
  1316. end
  1317. end
  1318. if pain['armR'] > 0:
  1319. if pain['armR'] > 70:
  1320. '<b><font color="red">Your right arm is in extreme pain.</font></b>'
  1321. elseif pain['armR'] > 40:
  1322. 'Your right arm is very sore.'
  1323. else
  1324. 'Your right arm hurts.'
  1325. end
  1326. end
  1327. if pain['hands'] > 0:
  1328. if pain['hands'] > 70:
  1329. '<b><font color="red">Your hands are in extreme pain.</font></b>'
  1330. elseif pain['hands'] > 40:
  1331. 'Your hands are very sore.'
  1332. else
  1333. 'Your hands hurt.'
  1334. end
  1335. end
  1336. if pain['fingers'] > 0:
  1337. if pain['fingers'] > 70:
  1338. '<b><font color="red">Your fingers are in extreme pain.</font></b>'
  1339. elseif pain['fingers'] > 40:
  1340. 'Your fingers are very sore.'
  1341. else
  1342. 'Your fingers hurt.'
  1343. end
  1344. end
  1345. if pain['chest'] > 0:
  1346. if pain['chest'] > 70:
  1347. '<b><font color="red">Your chest is in extreme pain.</font></b>'
  1348. elseif pain['chest'] > 40:
  1349. 'Your chest is very sore.'
  1350. else
  1351. 'Your chest hurts.'
  1352. end
  1353. end
  1354. if pain['breasts'] > 0:
  1355. if pain['breasts'] > 70:
  1356. '<b><font color="red">Your breasts are in extreme pain.</font></b>'
  1357. elseif pain['breasts'] > 40:
  1358. 'Your breasts are very sore.'
  1359. else
  1360. 'Your breasts hurt.'
  1361. end
  1362. end
  1363. if pain['nipples'] > 0:
  1364. if pain['nipples'] > 70:
  1365. '<b><font color="red">Your nipples are in extreme pain.</font></b>'
  1366. elseif pain['nipples'] > 40:
  1367. 'Your nipples are very sore.'
  1368. else
  1369. 'Your nipples hurt.'
  1370. end
  1371. end
  1372. if pain['ribs'] > 0:
  1373. if pain['ribs'] > 70:
  1374. '<b><font color="red">Your ribs are in extreme pain.</font></b>'
  1375. elseif pain['ribs'] > 40:
  1376. 'Your ribs are very sore.'
  1377. else
  1378. 'Your ribs hurt.'
  1379. end
  1380. end
  1381. if pain['tummy'] > 0:
  1382. if pain['tummy'] > 70:
  1383. '<b><font color="red">Your tummy is in extreme pain.</font></b>'
  1384. elseif pain['tummy'] > 40:
  1385. 'Your tummy is very sore.'
  1386. else
  1387. 'Your tummy hurts.'
  1388. end
  1389. end
  1390. if pain['pubic'] > 0:
  1391. if pain['pubic'] > 70:
  1392. '<b><font color="red">Your pubis is extremely painful.</font></b>'
  1393. elseif pain['pubic'] > 40:
  1394. 'Your pubis is very sore.'
  1395. else
  1396. 'Your pubis hurts.'
  1397. end
  1398. end
  1399. if pain['labia'] > 0:
  1400. if pain['labia'] > 70:
  1401. '<b><font color="red">Your labia is extremely painful.</font></b>'
  1402. elseif pain['labia'] > 40:
  1403. 'Your labia is very sore.'
  1404. else
  1405. 'Your labia hurts.'
  1406. end
  1407. end
  1408. if pain['vaginal'] + (vgape * 8) > 0:
  1409. if pain['vaginal'] + (vgape * 8) > 70:
  1410. '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
  1411. elseif pain['vaginal'] + (vgape * 8) > 40:
  1412. '<b><font color="red">You have a very sore vagina and you can hardly keep your feet together.</font></b>'
  1413. else
  1414. '<b><font color="red">You have a sore vagina.</font></b>'
  1415. end
  1416. end
  1417. if pain['clitoris'] > 0:
  1418. if pain['clitoris'] > 70:
  1419. '<b><font color="red">Your clitoris is in extreme pain.</font></b>'
  1420. elseif pain['clitoris'] > 40:
  1421. 'Your clitoris is very sore.'
  1422. else
  1423. 'Your clitoris hurts.'
  1424. end
  1425. end
  1426. if pain['urethra'] > 0:
  1427. if pain['urethra'] > 70:
  1428. '<b><font color="red">Your urethra is extremely painful.</font></b>'
  1429. elseif pain['urethra'] > 40:
  1430. 'Your urethra is very sore.'
  1431. else
  1432. 'Your urethra hurts.'
  1433. end
  1434. end
  1435. if pain['cervix'] > 0:
  1436. if pain['cervix'] > 70:
  1437. '<b><font color="red">Your cervix is in extreme pain.</font></b>'
  1438. elseif pain['cervix'] > 40:
  1439. 'Your cervix is very sore.'
  1440. else
  1441. 'Your cervix hurts.'
  1442. end
  1443. end
  1444. '</td></tr></table></center>'
  1445. end
  1446. if $ARGS[0] = 'face':
  1447. !disay image and escription for menu
  1448. *clr
  1449. gs 'obj_din','bodytabs'
  1450. '<center><h1>Looks</h1></center>'
  1451. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1452. '<td cellspacing="0" cellpadding="0" valign="top">'
  1453. $img_temp = FUNC('$face_image')
  1454. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1455. killvar 'img_temp'
  1456. if avatar_hair = 1:
  1457. 'Your hair: <<$av_hair>>.'
  1458. else
  1459. '<<$hair>>'
  1460. end
  1461. if defcurly = 0 and curly > 0: 'Your curls are good for another <<curly>> days.'
  1462. if defcurly = 1 and straight > 0: 'Your hair should be straight for another <<straight>> days.'
  1463. *nl
  1464. '<<$lip>>'
  1465. '<<$pcs_throat>>'
  1466. '<<$skin>>'
  1467. '<<$glaza>>'
  1468. '<<$pcs_makeup>>.'
  1469. '</td></tr></table></center>'
  1470. end
  1471. if $ARGS[0] = 'body':
  1472. *clr
  1473. gs 'obj_din','bodytabs'
  1474. '<center><h1>Body</h1></center>'
  1475. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1476. '<td cellspacing="0" cellpadding="0" valign="top">'
  1477. !! This displays the body image; $bodimgsets[x9] is the folder name
  1478. !some in-game script may call this to display image, so leave it be
  1479. $img_temp = FUNC('$body_image','body')
  1480. if $modApi_body_image ! '':
  1481. $img_temp = $modApi_body_image
  1482. end
  1483. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1484. if $modApi_body_image_msg = '':
  1485. '<<$body_image_msg>>'
  1486. else
  1487. '<<$modApi_body_image_msg>>'
  1488. end
  1489. killvar 'img_temp'
  1490. killvar 'body_image_msg'
  1491. '</td></tr></table></center>'
  1492. end
  1493. if $ARGS[0] = 'clothes':
  1494. *clr
  1495. gs 'obj_din','bodytabs'
  1496. '<center><h1>Clothes</h1></center>'
  1497. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1498. '<td width="50%" cellspacing="0" cellpadding="20" valign="top">'
  1499. !move image define to $body_image
  1500. !display cloth
  1501. $img_temp = FUNC('$body_image','clothes')
  1502. if $modApi_clothes_image ! '':
  1503. $img_temp = $modApi_clothes_image
  1504. end
  1505. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1506. if $modApi_clothes_image_msg = '':
  1507. '<<$body_image_msg>>'
  1508. else
  1509. '<<$modApi_clothes_image_msg>>'
  1510. end
  1511. '</td><td width="50%" cellpadding="20" valign="top">'
  1512. !display coat
  1513. $img_temp = FUNC('$body_image','coat')
  1514. if $modApi_coat_image ! '':
  1515. $img_temp = $modApi_coat_image
  1516. end
  1517. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1518. if $modApi_coat_image_msg = '':
  1519. '<<$body_image_msg>>'
  1520. else
  1521. '<<$modApi_coat_image_msg>>'
  1522. end
  1523. '</td></tr>'
  1524. '</table></center>'
  1525. killvar 'img_temp'
  1526. killvar 'body_image_msg'
  1527. '</td></tr></table></center>'
  1528. end
  1529. if $ARGS[0] = 'panties':
  1530. *clr
  1531. gs 'obj_din','bodytabs'
  1532. '<center><h1>Panties</h1></center>'
  1533. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1534. '<td cellspacing="0" cellpadding="0" valign="top">'
  1535. $img_temp = FUNC('$body_image','panties')
  1536. if $modApi_panties_image ! '':
  1537. $img_temp = $modApi_panties_image
  1538. end
  1539. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1540. if $modApi_panties_image_msg = '':
  1541. '<<$body_image_msg>>'
  1542. else
  1543. '<<$modApi_panties_image_msg>>'
  1544. end
  1545. killvar 'img_temp'
  1546. killvar 'body_image_msg'
  1547. '</td></tr></table></center>'
  1548. end
  1549. if $ARGS[0] = 'bra':
  1550. *clr
  1551. gs 'obj_din','bodytabs'
  1552. '<center><h1>Bra</h1></center>'
  1553. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1554. '<td cellspacing="0" cellpadding="0" valign="top">'
  1555. $img_temp = FUNC('$body_image','bra')
  1556. if $modApi_bra_image ! '':
  1557. $img_temp = $modApi_bra_image
  1558. end
  1559. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1560. if $modApi_bra_image_msg = '':
  1561. '<<$body_image_msg>>'
  1562. else
  1563. '<<$modApi_bra_image_msg>>'
  1564. end
  1565. killvar 'img_temp'
  1566. killvar 'body_image_msg'
  1567. '</td></tr></table></center>'
  1568. end
  1569. if $ARGS[0] = 'show_tits':
  1570. if puff_nip = 1 and tits = 2:
  1571. view 'images/pc/body/tits/t<<tits>>_p.jpg'
  1572. else
  1573. view 'images/pc/body/tits/t<<tits>>.jpg'
  1574. end
  1575. end
  1576. if $ARGS[0] = 'show_body':
  1577. $img_temp = FUNC('$body_image','body')
  1578. view '<<$img_temp>>'
  1579. killvar 'img_temp'
  1580. end
  1581. if $ARGS[0] = 'shoes':
  1582. *clr
  1583. gs 'obj_din','bodytabs'
  1584. '<center><h1>Shoes</h1></center>'
  1585. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1586. '<td cellspacing="0" cellpadding="0" valign="top">'
  1587. $img_temp = FUNC('$body_image','shoes')
  1588. if $modApi_shoes_image ! '':
  1589. $img_temp = $modApi_shoes_image
  1590. end
  1591. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1592. if $modApi_shoes_image_msg = '':
  1593. '<<$body_image_msg>>'
  1594. else
  1595. '<<$modApi_shoes_image_msg>>'
  1596. end
  1597. killvar 'img_temp'
  1598. killvar 'body_image_msg'
  1599. '</td></tr></table></center>'
  1600. end
  1601. if $ARGS[0] = 'tattoos':
  1602. *clr & cla
  1603. gs 'obj_din','bodytabs'
  1604. '<center><h1>Tattoos</h1></center>'
  1605. tatcounter = 0
  1606. '<center>'
  1607. *pl
  1608. if tatfce > 0:
  1609. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooface''">Face</a> | '
  1610. else
  1611. *p 'Face | '
  1612. end
  1613. if tatlip > 0:
  1614. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoolip''">Lip</a> | '
  1615. else
  1616. *p 'Lip | '
  1617. end
  1618. if tatneck > 0:
  1619. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooneck''">Neck</a> | '
  1620. else
  1621. *p 'Neck | '
  1622. end
  1623. if tatback > 0:
  1624. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooback''">Back</a> | '
  1625. else
  1626. *p 'Back | '
  1627. end
  1628. if tatlech > 0:
  1629. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooshoulder''">Shoulder</a> | '
  1630. else
  1631. *p 'Shoulder | '
  1632. end
  1633. if tatbrst > 0:
  1634. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoobreast''">Breast</a> | '
  1635. else
  1636. *p 'Breast | '
  1637. end
  1638. if tatunder > 0:
  1639. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoounder''">Under Breast</a> | '
  1640. else
  1641. *p 'Under Breast | '
  1642. end
  1643. if tatchst > 0:
  1644. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoochest''">Chest</a> | '
  1645. else
  1646. *p 'Chest | '
  1647. end
  1648. if tatside > 0:
  1649. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooside''">Side</a> | '
  1650. else
  1651. *p 'Side | '
  1652. end
  1653. if tatblly > 0:
  1654. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoobelly''">Belly</a>'
  1655. else
  1656. *p 'Belly'
  1657. end
  1658. *pl
  1659. if tatarm > 0:
  1660. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooarm''">Arm</a> | '
  1661. else
  1662. *p 'Arm | '
  1663. end
  1664. if tatwrist > 0:
  1665. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoowrist''">Wrist</a> | '
  1666. else
  1667. *p 'Wrist | '
  1668. end
  1669. if tathand > 0:
  1670. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoohand''">Hand</a> | '
  1671. else
  1672. *p 'Hand | '
  1673. end
  1674. if tatleg > 0:
  1675. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooleg''">Leg</a> | '
  1676. else
  1677. *p 'Leg | '
  1678. end
  1679. if tatankle > 0:
  1680. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoofoot''">Foot</a> | '
  1681. else
  1682. *p 'Foot | '
  1683. end
  1684. if tatupb > 0:
  1685. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattootramp''">"Tramp Stamp"</a> | '
  1686. else
  1687. *p 'Tramp Stamp | '
  1688. end
  1689. if tatass > 0:
  1690. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooass''">Butt</a> | '
  1691. else
  1692. *p 'Butt | '
  1693. end
  1694. if tatvag > 0:
  1695. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoovag''">Groin</a>'
  1696. else
  1697. *p 'Groin'
  1698. end
  1699. '</center>'
  1700. if tatcounter = 0:
  1701. 'You have a pristine body. Not in terms of debauchery, but in terms of tattoos.'
  1702. end
  1703. end
  1704. !!Image displays for tattoos
  1705. if $ARGS[0] = 'tattooarm':
  1706. *clr
  1707. gs 'obj_din', 'tattoos'
  1708. *nl
  1709. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
  1710. end
  1711. if $ARGS[0] = 'tattooass':
  1712. *clr
  1713. gs 'obj_din', 'tattoos'
  1714. *nl
  1715. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
  1716. end
  1717. if $ARGS[0] = 'tattooback':
  1718. *clr
  1719. gs 'obj_din', 'tattoos'
  1720. *nl
  1721. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/back/tatback<<tatback>>.jpg"></center>'
  1722. end
  1723. if $ARGS[0] = 'tattoobelly':
  1724. *clr
  1725. gs 'obj_din', 'tattoos'
  1726. *nl
  1727. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
  1728. end
  1729. if $ARGS[0] = 'tattoobreast':
  1730. *clr
  1731. gs 'obj_din', 'tattoos'
  1732. *nl
  1733. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg"></center>'
  1734. end
  1735. if $ARGS[0] = 'tattoochest':
  1736. *clr
  1737. gs 'obj_din', 'tattoos'
  1738. *nl
  1739. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg"></center>'
  1740. end
  1741. if $ARGS[0] = 'tattooface':
  1742. *clr
  1743. gs 'obj_din', 'tattoos'
  1744. *nl
  1745. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg"></center>'
  1746. end
  1747. if $ARGS[0] = 'tattoofoot':
  1748. *clr
  1749. gs 'obj_din', 'tattoos'
  1750. *nl
  1751. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
  1752. end
  1753. if $ARGS[0] = 'tattooleg':
  1754. *clr
  1755. gs 'obj_din', 'tattoos'
  1756. *nl
  1757. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg"></center>'
  1758. end
  1759. if $ARGS[0] = 'tattoolip':
  1760. *clr
  1761. gs 'obj_din', 'tattoos'
  1762. *nl
  1763. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
  1764. end
  1765. if $ARGS[0] = 'tattooneck':
  1766. *clr
  1767. gs 'obj_din', 'tattoos'
  1768. *nl
  1769. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
  1770. end
  1771. if $ARGS[0] = 'tattoovag':
  1772. *clr
  1773. gs 'obj_din', 'tattoos'
  1774. *nl
  1775. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg"></center>'
  1776. end
  1777. if $ARGS[0] = 'tattooshoulder':
  1778. *clr
  1779. gs 'obj_din', 'tattoos'
  1780. *nl
  1781. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
  1782. end
  1783. if $ARGS[0] = 'tattooside':
  1784. *clr
  1785. gs 'obj_din', 'tattoos'
  1786. *nl
  1787. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
  1788. end
  1789. if $ARGS[0] = 'tattootramp':
  1790. *clr
  1791. gs 'obj_din', 'tattoos'
  1792. *nl
  1793. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/trampstamp/tatlowbck<<tatupb>>.jpg"></center>'
  1794. end
  1795. if $ARGS[0] = 'tattoounder':
  1796. *clr
  1797. gs 'obj_din', 'tattoos'
  1798. *nl
  1799. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/underbreast/tatundbreast<<tatunder>>.jpg"></center>'
  1800. end
  1801. if $ARGS[0] = 'tattoowrist':
  1802. *clr
  1803. gs 'obj_din', 'tattoos'
  1804. *nl
  1805. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg"></center>'
  1806. end
  1807. if $ARGS[0] = 'tattoohand':
  1808. *clr
  1809. gs 'obj_din', 'tattoos'
  1810. *nl
  1811. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/hand/tathnd<<tathand>>.jpg"></center>'
  1812. end
  1813. if $ARGS[0] = 'piercing':
  1814. *clr & cla
  1815. gs 'obj_din','bodytabs'
  1816. '<center><h1>Piercings</h1></center>'
  1817. '<center>'
  1818. if pirsA = 0 and pirsB = 0 and pirsC = 0 and pirsD = 0 and pirsE = 0 and pirsF = 0 and pirsN = 0 and pirsG = 0 and pirsGL = 0:
  1819. 'You have no piercings.'
  1820. elseif (pirsA = 10000 or pirsA = 0) and (pirsB = 10000 or pirsB = 0) and (pirsC = 10000 or pirsC = 0) and (pirsD = 10000 or pirsD = 0) and (pirsE = 10000 or pirsE = 0) and (pirsF = 10000 or pirsF = 0) and (pirsN = 10000 or pirsN = 0) and (pirsG = 10000 or pirsG = 0) and (pirsGL = 10000 or pirsGL = 0):
  1821. 'You are not wearing any piercings'
  1822. else
  1823. *pl
  1824. if pirsA > 0 and pirsA < 10000:
  1825. *p '<a href="exec:gs ''obj_din'', ''pirsA''">Tongue</a> | '
  1826. else
  1827. *p 'Tongue | '
  1828. end
  1829. if pirsB > 0 and pirsB < 10000:
  1830. *p '<a href="exec:gs ''obj_din'', ''pirsB''">Lips</a> | '
  1831. else
  1832. *p 'lips | '
  1833. end
  1834. if pirsC > 0 and pirsC < 10000:
  1835. *p '<a href="exec:gs ''obj_din'', ''pirsC''">Ears</a> | '
  1836. else
  1837. *p 'Ears | '
  1838. end
  1839. if pirsD > 0 and pirsD < 10000:
  1840. *p '<a href="exec:gs ''obj_din'', ''pirsD''">Nose</a> | '
  1841. else
  1842. *p 'Nose | '
  1843. end
  1844. if pirsE > 0 and pirsE < 10000:
  1845. *p '<a href="exec:gs ''obj_din'', ''pirsE''">Eyebrows</a> | '
  1846. else
  1847. *p 'Eyebrows | '
  1848. end
  1849. if pirsF > 0 and pirsF < 10000:
  1850. *p '<a href="exec:gs ''obj_din'', ''pirsF''">Nipples</a> | '
  1851. else
  1852. *p 'Nipples | '
  1853. end
  1854. if pirsN > 0 and pirsN < 10000:
  1855. *p '<a href="exec:gs ''obj_din'', ''pirsN''">Navel</a> | '
  1856. else
  1857. *p 'Navel | '
  1858. end
  1859. if pirsG > 0 and pirsG < 10000:
  1860. *p '<a href="exec:gs ''obj_din'', ''pirsG''">Pussy</a>'
  1861. else
  1862. *p 'Pussy'
  1863. end
  1864. end
  1865. '</center>'
  1866. end
  1867. !! piercing images.
  1868. if $ARGS[0] = 'pirsA':
  1869. *clr
  1870. gs 'obj_din', 'piercing'
  1871. *nl
  1872. '<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pirsA>>.jpg"></center>'
  1873. end
  1874. if $ARGS[0] = 'pirsB':
  1875. *clr
  1876. gs 'obj_din', 'piercing'
  1877. *nl
  1878. '<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pirsB>>.jpg"></center>'
  1879. end
  1880. if $ARGS[0] = 'pirsC':
  1881. *clr
  1882. gs 'obj_din', 'piercing'
  1883. *nl
  1884. '<center><img <<$set_imgh>> src="images/pc/body/piercings/c<<pirsC>>.jpg"></center>'
  1885. end
  1886. if $ARGS[0] = 'pirsD':
  1887. *clr
  1888. gs 'obj_din', 'piercing'
  1889. *nl
  1890. '<center><img <<$set_imgh>> src="images/pc/body/piercings/d<<pirsD>>.jpg"></center>'
  1891. end
  1892. if $ARGS[0] = 'pirsE':
  1893. *clr
  1894. gs 'obj_din', 'piercing'
  1895. *nl
  1896. '<center><img <<$set_imgh>> src="images/pc/body/piercings/e<<pirsE>>.jpg"></center>'
  1897. end
  1898. if $ARGS[0] = 'pirsF':
  1899. *clr
  1900. gs 'obj_din', 'piercing'
  1901. *nl
  1902. '<center><img <<$set_imgh>> src="images/pc/body/piercings/f<<pirsF>>.jpg"></center>'
  1903. end
  1904. if $ARGS[0] = 'pirsN':
  1905. *clr
  1906. gs 'obj_din', 'piercing'
  1907. *nl
  1908. '<center><img <<$set_imgh>> src="images/pc/body/piercings/n<<pirsN>>.jpg"></center>'
  1909. end
  1910. if $ARGS[0] = 'pirsG':
  1911. *clr
  1912. gs 'obj_din', 'piercing'
  1913. *nl
  1914. '<center><img <<$set_imgh>> src="images/pc/body/piercings/g<<pirsG>>.jpg"></center>'
  1915. end
  1916. if $ARGS[0] = 'records': gt 'journal', 'records'
  1917. if $ARGS[0] = 'emergency':
  1918. '<center><b>YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.</b></center>'
  1919. *nl
  1920. '<center><b>DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.</b></center>'
  1921. *nl
  1922. '<center><b>If this was the result of a bug in the game, then please report the issue and when / how it was trigger with as much info as you can on the tfgamesite.com forum.</b></center>'
  1923. *nl
  1924. cla
  1925. if StoryLine = 1:act 'Go to Pavlovsk':gt 'pav_residential'
  1926. act 'Go to City Residental':gt 'city_residential'
  1927. if $loc ! '' and $loc_arg ! '':
  1928. act 'Cancel':gt $loc, $loc_arg
  1929. elseif $loc ! '':
  1930. act 'Cancel':gt $loc
  1931. elseif $curloc ! '':
  1932. act 'Cancel':gt $curloc
  1933. end
  1934. end
  1935. !!quick time changes from the object menu
  1936. if $ARGS[0] = '-1 Hour':
  1937. hour -= 1
  1938. gs 'stat'
  1939. gt $loc, $loc_arg
  1940. end
  1941. if $ARGS[0] = '+1 Hour':
  1942. hour += 1
  1943. gs 'stat'
  1944. gt $loc, $loc_arg
  1945. end
  1946. !! Objects window debug
  1947. !! to turn on showing variables in the Object window type in the console window
  1948. !! objectWindowDebug = 1
  1949. !! to add a variable to the current game type in the console window
  1950. !! gs 'obj_din', 'AddDebugVar', 'grupTipe'
  1951. if $ARGS[0] = 'old':
  1952. killobj
  1953. oldobjmenu = 1
  1954. addobj '<center>Refresh</center>'
  1955. if cheatConsole = 0: addobj '<center>Console</center>'
  1956. addobj '<center>Toggle Debug Variables</center>'
  1957. addobj '<center>Add Debug Variable</center>'
  1958. addobj '<center>Delete Debug Variable</center>'
  1959. if cheatTime = 1:
  1960. addobj '<center>-1 Hour</center>'
  1961. addobj '<center>+1 Hour</center>'
  1962. end
  1963. addobj ''
  1964. addobj '<center><font color = red>Emergency</font></center>'
  1965. addobj ''
  1966. if debug_warning_closed = 0:
  1967. addobj '<center>This window is for debug only and can be safely closed.</center>'
  1968. addobj '<center>Remove debug info</center>'
  1969. end
  1970. if objectWindowDebug = 1:
  1971. addobj '$curloc: <<$curloc>>'
  1972. addobj '$loc: <<$loc>>'
  1973. addobj '$loc_arg: <<$loc_arg>>'
  1974. addobj '$location_type: <<$location_type>>'
  1975. addobj 'week: <<week>>'
  1976. addobj 'daystart: <<daystart>>'
  1977. if ARRSIZE('$ObjDebugVars') > 0:
  1978. i = 0
  1979. :AddDebugVarLoop
  1980. if i < ARRSIZE('$ObjDebugVars'):
  1981. if instr($ObjDebugVars[i],'$') = 1:
  1982. dynamic '$tmp = <<$ObjDebugVars[i]>>'
  1983. addobj '<<$ObjDebugVars[i]>>: <<$tmp>>'
  1984. else
  1985. dynamic 'tmp = <<$ObjDebugVars[i]>>'
  1986. addobj '<<$ObjDebugVars[i]>>: <<tmp>>'
  1987. end
  1988. i += 1
  1989. jump 'AddDebugVarLoop'
  1990. end
  1991. end
  1992. end
  1993. end
  1994. if $ARGS[0] = "AddDebugVar":
  1995. if $ARGS[1] <> '':
  1996. i = ARRSIZE('$ObjDebugVars')
  1997. $ObjDebugVars[i] = '<<$ARGS[1]>>'
  1998. end
  1999. end
  2000. if $ARGS[0] = "DeleteDebugVar":
  2001. if $ARGS[1] <> '':
  2002. if ARRSIZE('$ObjDebugVars') > 0:
  2003. i = 0
  2004. :DeleteDebugVarLoop
  2005. if i < ARRSIZE('$ObjDebugVars'):
  2006. if $ObjDebugVars[i] = $ARGS[1]:
  2007. killvar '$ObjDebugVars', i
  2008. i = ARRSIZE('$ObjDebugVars')
  2009. else
  2010. i += 1
  2011. end
  2012. jump 'DeleteDebugVarLoop'
  2013. end
  2014. end
  2015. end
  2016. end
  2017. if $ARGS[0] = 'wait':
  2018. cla
  2019. $waitStr = input ("How long would you like to wait?<br>(maximum 120 minutes, leave blank or press cancel to wait 15 minutes)<br>Alternatively, input a time to wait until (hh::mm). It is <<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>> now.")
  2020. waiting = 0
  2021. if $waitStr = '':
  2022. waiting = 15
  2023. elseif isnum($waitStr) = 0:
  2024. waiting = val(mid($waitStr, 1,2)) * 60 + val(mid($waitStr, 4,2)) - minut - hour * 60
  2025. else
  2026. waiting = val($waitStr)
  2027. end
  2028. if waiting > 0 and waiting <= 120:
  2029. minut += waiting
  2030. else
  2031. 'Invalid time.'
  2032. end
  2033. gs 'stat'
  2034. gt $loc, $loc_arg
  2035. end
  2036. if $ARGS[0] = 'rest':
  2037. cla
  2038. waiting = input ("How long would you like to rest?<br>(Default 15 minutes, maximum 120 minutes)")
  2039. if waiting = '':
  2040. minut += 15
  2041. elseif waiting > 0 and waiting <= 120:
  2042. minut += waiting
  2043. pcs_mood += 10
  2044. if pcs_sleep < 90 and waiting >= 60:
  2045. pcs_sleep += 10
  2046. end
  2047. elseif waiting <= 0 or waiting > 120:
  2048. 'Invalid time.'
  2049. end
  2050. gs 'stat'
  2051. gt $loc, $loc_arg
  2052. end
  2053. --- obj_din ---------------------------------