obj_din.qsrc 116 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388238923902391239223932394239523962397239823992400240124022403240424052406240724082409241024112412241324142415241624172418241924202421242224232424242524262427242824292430243124322433243424352436243724382439244024412442244324442445244624472448244924502451245224532454245524562457245824592460246124622463246424652466246724682469247024712472
  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'', ''cur_home''">here</a>.'
  124. else
  125. 'Your current home is <a href="exec:gs ''obj_din'', ''cur_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] = 'cur_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. act 'Return to main description': gt 'obj_din', 'description'
  226. *nl
  227. !!This is correct it just looks wrong
  228. if home_owned[1] > 0: 'Set current home as <a href="exec:gs ''set_home'', 1 & gs ''obj_din'', ''cur_home''">City residential apartment</a>'
  229. if home_owned[2] = 1: 'Set current home as <a href="exec:gs ''set_home'', 2 & gs ''obj_din'', ''cur_home''">Parent''s home in Pavlovsk</a>'
  230. if home_owned[3] > 0: 'Set current home as <a href="exec:gs ''set_home'', 3 & gs ''obj_din'', ''cur_home''">My cottage in the cooperative farm</a>'
  231. if home_owned[4] = 1: 'Set current home as <a href="exec:gs ''set_home'', 4 & gs ''obj_din'', ''cur_home''">Old town apartment</a>'
  232. if home_owned[5] > 2: 'Set current home as <a href="exec:gs ''set_home'', 5 & gs ''obj_din'', ''cur_home''">My mansion</a>'
  233. if home_owned[6] = 1: 'Set current home as <a href="exec:gs ''set_home'', 6 & gs ''obj_din'', ''cur_home''">My hotel room in Pavlovsk</a>'
  234. if home_owned[7] = 1: 'Set current home as <a href="exec:gs ''set_home'', 7 & gs ''obj_din'', ''cur_home''">Nicholas'' apartment</a>'
  235. if home_owned[8] = 1: 'Set current home as <a href="exec:gs ''set_home'', 8 & gs ''obj_din'', ''cur_home''">Niko''s apartment</a>'
  236. if home_owned[9] = 1: 'Set current home as <a href="exec:gs ''set_home'', 9 & gs ''obj_din'', ''cur_home''">Uncle Sergey''s apartment</a>'
  237. if home_owned[10] = 1: 'Set current home as <a href="exec:gs ''set_home'', 10 & gs ''obj_din'', ''cur_home''">Lyceum school</a>'
  238. if home_owned[11] = 1: 'Set current home as <a href="exec:gs ''set_home'', 11 & gs ''obj_din'', ''cur_home''">University halls</a>'
  239. if home_owned[12] = 1: 'Set current home as <a href="exec:gs ''set_home'', 12 & gs ''obj_din'', ''cur_home''">Hunter''s lodge in Gadukino</a>'
  240. if home_owned[13] = 1: 'Set current home as <a href="exec:gs ''set_home'', 13 & gs ''obj_din'', ''cur_home''">Shared apartment in Pavlovsk</a>'
  241. !!Apostrophe colour correction - KS ''''
  242. '</td></tr></table></center>'
  243. end
  244. if $ARGS[0] = 'skills':
  245. *clr & cla
  246. gs 'obj_din','chartabs'
  247. !'<center><img src="images/system/icon/stats.png"><br></center>'
  248. '<center><h1>Character Skills</h1></center>'
  249. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  250. '<td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  251. '<b>Base Skills</b>'
  252. *nl
  253. '<font color="grey">base / modified</font>'
  254. *nl
  255. 'Strength - <<pcs_stren>> / <<stren_lvl>>'
  256. 'Agility - <<pcs_agil>> / <<agil_lvl>>'
  257. 'Endurance - <<pcs_vital>> / <<vital_lvl>>'
  258. 'Intelligence - <<pcs_intel>> / <<intel_lvl>>'
  259. 'Spirit - <<pcs_sprt>> / <<sprt_lvl>>'
  260. 'Reaction - <<pcs_react>> / <<react_lvl>>'
  261. 'Charisma - <<pcs_chrsm>> / <<chrsm_lvl>>'
  262. 'Perception - <<pcs_prcptn>> / <<prcptn_lvl>>'
  263. if pcs_magik > 0: 'Magic - <<pcs_magik>>'
  264. 'Attractiveness - <<pcs_apprnc>>'
  265. !'Speed <<speed>>' - not used
  266. *nl
  267. '<b>Mental Skills</b>'
  268. *nl
  269. if pcs_scstng > 0: 'Spell Casting - <<pcs_scstng>>'
  270. if pcs_humint > 0:'People skills - <<pcs_humint>>'
  271. if pcs_persuas > 0:'Persuasion - <<pcs_persuas>>'
  272. if pcs_observ > 0:'Observation - <<pcs_observ>>'
  273. '</td><td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  274. '<b>Sport Skills</b>'
  275. *nl
  276. if pcs_jab > 0: 'Jabs - <<pcs_jab>>'
  277. if pcs_punch > 0: 'Power Strikes - <<pcs_punch>>'
  278. if pcs_kick > 0: 'Kicks - <<pcs_kick>>'
  279. if pcs_def > 0: 'Defense - <<pcs_def>>'
  280. if pcs_run > 0: 'Running - <<pcs_run>>'
  281. if pcs_vball > 0: 'Volleyball - <<pcs_vball>>'
  282. if pcs_ftbll > 0: 'Football - <<pcs_ftbll>>'
  283. if pcs_wrstlng > 0: 'Wrestling - <<pcs_wrstlng>>'
  284. if pcs_shoot > 0: 'Shooting Accuracy - <<pcs_shoot>>'
  285. if pcs_bushcraft > 0: 'Bushcraft - <<pcs_bushcraft>>'
  286. if pcs_chess > 0: 'Chess - <<pcs_chess>>'
  287. if pcs_icesktng > 0: 'Ice Skating - <<pcs_icesktng>>'
  288. if pcs_gaming > 0: 'Gaming - <<pcs_gaming>>'
  289. if pcs_pool > 0: 'Pool - <<pcs_pool>>'
  290. *nl
  291. '<b>Artistic Skills</b>'
  292. *nl
  293. if pcs_vokal > 0: 'Singing <<pcs_vokal>>'
  294. if pcs_instrmusic > 0: 'Instrumental Music - <<pcs_instrmusic>>'
  295. if pcs_photoskl > 0: 'Photography - <<pcs_photoskl>>'
  296. if pcs_artskls > 0: 'Artistic Skills - <<pcs_artskls>>'
  297. '</td><td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  298. '<b>Job Skills</b>'
  299. *nl
  300. if pcs_compskl > 0: 'Computer Skill - <<pcs_compskl>>'
  301. if pcs_comphckng > 0: 'Hacking - <<pcs_comphckng>>'
  302. if pcs_hndiwrk > 0: 'Handy-work - <<pcs_hndiwrk>>'
  303. if pcs_sewng > 0: 'Tailoring - <<pcs_sewng>>'
  304. if pcs_servng > 0: 'Serving - <<pcs_servng>>'
  305. if pcs_medcn > 0: 'Medicine - <<pcs_medcn>>'
  306. if teachlevel > 0: 'Teacher - credibility <<teachlevel>>'
  307. *nl
  308. '<b>Other Skills</b>'
  309. *nl
  310. if SchoolAtestat = 0 and StoryLine > 0:
  311. if pcs_grades > 0: 'School Grades - <<pcs_grades>>'
  312. if schoolprogul > 0: 'Schhool absenteesim - <<schoolprogul>>'
  313. end
  314. '</td><td width="25%" cellspacing="0" cellpadding="10" valign="top">'
  315. '<b>Beauty Skills</b>'
  316. *nl
  317. if pcs_makeup > 0: 'Makeup Skill - <<pcs_makupskl>>'
  318. if pcs_danc > 0: 'Modern Dancing - <<pcs_danc>>'
  319. if pcs_dancero > 0: 'Erotic Dancing - <<pcs_dancero>>'
  320. if pcs_dancpol > 0: 'Pole Dancing - <<pcs_dancpol>>'
  321. if pcs_mdlng > 0: 'Modelling - <<pcs_mdlng>>'
  322. *nl
  323. '<b>Sexual Skills</b>'
  324. *nl
  325. 'Inhibition <<100-pcs_inhib>>'
  326. 'Exhibitionist preference: <<exhibitionism[''pref'']>>'
  327. 'Exhibitionist sex: <<exhibitionism[''exp'']>>'
  328. if SUB > 0: 'Submissiveness <<SUB>>'
  329. if pcs_dom > 0: 'Dominance <<pcs_dom>>'
  330. 'Submissive sex: <<sub[''exp'']>>'
  331. 'Dominant sex: <<dom[''exp'']>>'
  332. 'Lesbian sex preference: <<lesbian[''pref'']>>'
  333. 'Lesbian sex: <<lesbian[''exp'']>>'
  334. '</td></tr></table></center>'
  335. end
  336. if $ARGS[0] = 'husb_cheat_count':
  337. if husband > 0:
  338. if guy > before_h_guy :
  339. guy_cheat += guy - guy_cheat
  340. before_h_guy = guy
  341. end
  342. if girl > before_h_girl:
  343. girl_cheat += girl - before_h_girl
  344. before_h_girl = girl
  345. end
  346. end
  347. if before_h_girl > 0 and before_h_guy > 0:
  348. 'During your marriage you have cheated on your husband with <<guy_cheat>> guys and <<girl_cheat>> girls.'
  349. elseif before_h_guy > 0:
  350. 'During your marriage you have cheated on your husband with <<guy_cheat>> guys.'
  351. elseif before_h_girl > 0:
  352. 'During your marriage you have cheated on your husband with <<girl_cheat>> girls.'
  353. end
  354. end
  355. if $ARGS[0] = 'stats':
  356. *clr & cla
  357. gs 'obj_din','chartabs'
  358. gs 'housing', 'rent'
  359. !'<center><img src="images/system/icon/statistics.png"><br></center>'
  360. '<center><h1>Character Statistics</h1></center>'
  361. '<center><table width="90%" cellspacing="0" cellpadding="10" valign="top"><tr>'
  362. '<td width="35%" cellspacing="0" cellpadding="0" valign="top">'
  363. '<center><b>General Statistics</b></center>'
  364. *nl
  365. if opPRE = 0: 'It has been <<daystart>> days since the game started.'
  366. *nl
  367. if SchoolAtestat = 0 and StoryLine > 0:
  368. if pcs_grades >= 90:
  369. 'You''re an A+ student.'
  370. elseif pcs_grades >= 80:
  371. 'You''re a bright student, just not the top of your class.'
  372. elseif pcs_grades >= 70:
  373. 'You''re an above average student, but you have to work hard to keep up.'
  374. elseif pcs_grades >= 60:
  375. 'You''re the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.'
  376. elseif pcs_grades >= 50:
  377. 'You''re not very good in school, you wish you could be somewhere else and your grades show it.'
  378. elseif pcs_grades >= 40:
  379. '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.'
  380. else
  381. 'You''re the class nitwit. You''re still not sure how you got this far in the first place.'
  382. end
  383. if schoolprogul > 1: 'Absenteeism in school - <<schoolprogul>> days'
  384. end
  385. *nl
  386. if (home_owned[1] = 1 and ArendHouseSL > 0) or (home_owned[4] > 0 and ArendHouseSL4 > 0):
  387. *nl
  388. if home_owned[1] = 1 and home_owned[4] > 0:
  389. '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>>.'
  390. elseif home_owned[1] = 1:
  391. '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>>.'
  392. elseif home_owned[4] > 0:
  393. 'You have rented an apartment in Pushkin, and you''re paid up for <<ArendHouseSL4>> days. Utilities are due on the 25th of <<$month>>.'
  394. end
  395. if home_owned[1] = 1:
  396. if karta >= home_rent[1] or money >= home_rent[1] or money + stolmoney >= home_rent[1] or karta + bankDebtLimit >= home_rent[1]:
  397. *nl
  398. *p 'The monthly rent for your city apartment is <<home_rent[1]>> <b>₽</b>. '
  399. if karta >= home_rent[1]:
  400. !From bank
  401. *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.'
  402. elseif money >= home_rent[1]:
  403. !From cash
  404. *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.'
  405. *nl
  406. elseif stolmoney >= home_rent[1]:
  407. !From drawer
  408. *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.'
  409. *nl
  410. elseif money + stolmoney >= home_rent[1]:
  411. !From cash and drawer
  412. *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.'
  413. *nl
  414. elseif karta + bankDebtLimit >= home_rent[1]:
  415. !From bank and overdraw
  416. *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.'
  417. *nl
  418. else
  419. *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.'
  420. *nl
  421. end
  422. end
  423. end
  424. if home_owned[4] > 0:
  425. if karta >= home_rent[4] or money >= home_rent[4] or money + stolmoney >= home_rent[4] or karta + bankDebtLimit >= home_rent[4]:
  426. *nl
  427. *p 'The monthly rent for your Pushkin apartment is <<home_rent[4]>> <b>₽</b>. '
  428. if karta >= home_rent[4]:
  429. !From bank
  430. *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.'
  431. *nl
  432. elseif money >= home_rent[4]:
  433. !From cash
  434. *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.'
  435. *nl
  436. elseif stolmoney >= home_rent[4]:
  437. !From drawer
  438. *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.'
  439. *nl
  440. elseif money + stolmoney >= home_rent[4]:
  441. !From cash and drawer
  442. *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.'
  443. *nl
  444. elseif karta + bankDebtLimit >= home_rent[4]:
  445. !From bank and overdraw
  446. *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.'
  447. *nl
  448. else
  449. *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.'
  450. *nl
  451. end
  452. end
  453. end
  454. end
  455. if kid = 1:
  456. *nl
  457. 'You have 1 child:'
  458. else
  459. 'You have <<kid>> children:'
  460. end
  461. if kid > 0:
  462. k = 0
  463. :kidloop
  464. if k < kid:
  465. gs 'obj_din','kidlist',k
  466. k += 1
  467. jump 'kidloop'
  468. end
  469. end
  470. if workPTU > 1: 'Reputation as a teacher <<teachlevel>>'
  471. *nl
  472. if npc_QW['A192'] > 0: 'Friendship with Nastya <<npc_QW[''A192'']>>'
  473. if npc_rel['A218'] > 0: 'Friendship with Tanya <<npc_rel[''A218'']>>'
  474. if npc_rel['A219'] > 0: 'Friendship with Kat <<npc_rel[''A219'']>>'
  475. if npc_rel['A220'] > 0: 'Friendship with Vika <<npc_rel[''A220'']>>'
  476. if npc_rel['A93'] > 0: 'Friendship with Ira <<npc_rel[''A93'']>>'
  477. if npc_rel['A43'] > 0: 'Friendship with Tamara <<npc_rel[''A43'']>>'
  478. if alla > 0: 'Friendship with Alla <<alla>>'
  479. if masha > 0: 'Friendship with Masha <<masha>>'
  480. if npc_rel['A41'] > 0: 'Friendship with Givi K. <<npc_rel[''A41'']>>'
  481. if npc_rel['A42'] > 0: 'Friendship with Ashot <<npc_rel[''A42'']>>'
  482. if Dmitry > 0: 'Friendship with Dima <<Dmitry>>'
  483. if afra > 0: 'Friendship with blacks <<afra>>'
  484. if npc_rel['A69'] > 0:'Friendship with Mikhail Nikolaevich <<npc_rel[''A69'']>>'
  485. !!!WD: Formatting
  486. 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
  487. *nl
  488. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  489. 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  490. '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  491. end
  492. if Win > 0 or Loss > 0: 'Wins in fights <<Win>>, losses in fights <<Loss>>' & *nl
  493. if razradKik > 0: '<<$razradKik>>'
  494. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  495. 'Amateur Kickboxing Record:<br>Wins: <<KikWinAm>> (<<KikWinAmKO>> by KO) - Losses: <<KikLossAm>> (<<KikLossAmKO>> by KO) - Draws: <<KikDrawAm>>'
  496. *nl
  497. end
  498. if razradKik > 0:
  499. if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing'
  500. if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing'
  501. if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing'
  502. if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing'
  503. if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing'
  504. *nl
  505. end
  506. if kolsorev > 0: 'You have run in <<kolsorev>> races'
  507. if swinbeg >= 1: 'You have <<swinbeg/3>> trophies from local racing competitions'
  508. if bronzebeg > 0: '<<bronzebeg>> - bronze medals for running'
  509. if silverbeg > 0: '<<silverbeg>> - silver medals for running'
  510. if goldbeg > 0: '<<goldbeg>> - gold medals for running'
  511. if razradbegEB > 0: '<<razradbegEB>> times bronze medalist at European Championship'
  512. if razradbegES > 0: '<<razradbegES>> runner up at European Championship'
  513. if razradbegEG > 0: '<<razradbegEG>> times European champion.'
  514. if razradbegIB > 0: '<<razradbegIB>> times bronze medalist at World Championship'
  515. if razradbegIS > 0: '<<razradbegIS>> runner up at World Championship'
  516. if razradbegIG > 0: '<<razradbegIG>> times World champion'
  517. if razradbeg > 0:
  518. if razradbeg = 1: 'You have third sports category for event'
  519. if razradbeg = 2: 'You 2nd sports category for event'
  520. if razradbeg = 3: 'You 1st sports category for event'
  521. if razradbeg = 4: 'You have the title of Candidate Master of Sports for event'
  522. if razradbeg = 5: 'You have the title of Master of Sports in the run'
  523. if razradbeg >= 6: 'You have the title of International Master of Sports for event'
  524. *nl
  525. end
  526. if chess_win > 0 or chess_loss > 0:'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
  527. if chess_rank > 0:
  528. if chess_rank = 1:'You have mastered the basics of chess'
  529. if chess_rank = 2:'You''re starting to get good at chess'
  530. if chess_rank = 3:'You''re a good chess player'
  531. if chess_rank = 4:'You''re an excellent chess player'
  532. if chess_rank = 5:'You''re a candidate for chess master'
  533. if chess_rank = 6:'You''re a chess master'
  534. if chess_rank = 7:'You''re a chess Grandmaster'
  535. end
  536. if chess_world_rank > 0:
  537. if chess_world_rank = 1:'The title of FIDE Master Chess'
  538. if chess_world_rank = 2:'The title of International Chess Master'
  539. if chess_world_rank = 3:'The title of International Grandmaster Chess'
  540. end
  541. *nl
  542. !!!
  543. if modelfoto > 0:
  544. '<b>Modelling Statistics</b>'
  545. *nl
  546. '<<modelfoto>> - Number of times you have worked as a model'
  547. '<<modelfotomoney>> - The amount of money you''ve made modelling'
  548. if modelfoto_fashion > 0: '<<modelfoto_fashion>> - Number of fashion shoots you have participated in'
  549. if modelfoto_ero_clo > 0: '<<modelfoto_ero_clo>> - Number of erotic clothing shoots you have participated in'
  550. if modelfoto_bikini > 0: '<<modelfoto_bikini>> - Number of swimsuit shoots you have modelled in'
  551. if modelfoto_lingerie > 0: '<<modelfoto_lingerie>> - Number of lingerie shoots you have participated in'
  552. if modelfoto_nip > 0: '<<modelfoto_nip>> - Number of times your nipples have been visible as a model'
  553. if modelfoto_topless > 0: '<<modelfoto_topless>> - Number of shoots where you have been topless'
  554. if modelfoto_nude > 0: '<<modelfoto_nude>> - Number of nude modelling shoots you have participated in'
  555. if modelfoto_pussy > 0: '<<modelfoto_pussy>> - Number of shoots your vagina has been visible'
  556. *nl
  557. end
  558. if slavafuck > 0:'You have let Borislav fuck you <<slavafuck>> times'
  559. if slava_bj > 0:'You have given Borislav <<$slava_bj>> blowjobs'
  560. if maxdamage > 0: 'The impact force on the dynamometer <<maxdamage>> kgN' & *nl
  561. if stripdancesum > 0 and hidden_stripdancesum = 0:
  562. 'You have danced <<stripdancesum>> times in the stripclub'
  563. elseif stripdancesum = 0 and hidden_stripdancesum > 0:
  564. 'You have danced <<hidden_stripdancesum>> times in the stripclub, but you do nor remember it'
  565. elseif stripdancesum > 0 and hidden_stripdancesum > 0:
  566. 'You have danced <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
  567. end
  568. if profiDanceTime > 0: 'You danced <<profiDanceTime>> times professionally.'
  569. if SchoolAtestat = 1: 'You have finished school.'
  570. if diplom = 1: 'You graduated.'
  571. if teachlevel > 0: 'Your credibility as a teacher is <<teachlevel>>'
  572. !WD:FORMATING
  573. if (maxdamage + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:*nl
  574. '</td><td width="35%" cellspacing="0" cellpadding="0" valign="top">'
  575. '<center><b>Sex Statistics</b></center>'
  576. *nl
  577. !Sex stats
  578. ! This is my suggestion, change it however you see fit, Sicaa
  579. if stat['kiss'] > 0: 'Times you have kissed someone: <<stat[''kiss'']>>'
  580. if mastr > 0 or stat['mast'] > 0: 'Times you have masturbated: <<stat[''mast'']>>'
  581. if stat['porn'] > 0: 'Times you have watched porn: <<stat[''porn'']>>'
  582. if stat['flashlite'] > 0 or stat['flash'] > 0: 'Times you have flashed: <<stat[''flashlite''] + stat[''flash'']>>'
  583. ! This is my suggestion, change it however you see fit, Sicaa
  584. if stat['voyeur'] > 0: 'Times you have watched people''s erotic displays: <<stat[''voyeur'']>>'
  585. if stat['voyeur_sex'] > 0: 'Times you have watched other people fuck: <<stat[''voyeur_sex'']>>'
  586. if spank > 0: 'You have had your ass spanked <<spank>> times'
  587. ! This is my suggestion, change it however you see fit, Sicaa
  588. if stat['BDSM'] > 0 or stat['BDSM_give'] > 0: 'Times you have participated in BDSM (sub/dom): <<stat[''BDSM'']>>/<<stat[''BDSM_give'']>>'
  589. temp = func('shortgs','guy')
  590. if guy+temp > 0 and hidden_guy = 0:
  591. 'You had sex with <<guy+temp>> guys.'
  592. elseif guy+temp = 0 and hidden_guy > 0:
  593. 'You had sex with <<hidden_guy>> guys, but you do not have any recollection of it. You still think of yourself as a virgin.'
  594. elseif guy+temp > 0 and hidden_guy > 0:
  595. 'You had sex with <<guy+hidden_guy+temp>> guys, but you know only about <<guy+temp>> of them.'
  596. end
  597. temp = func('shortgs','girl')
  598. if girl+temp > 0 and hidden_girl = 0:
  599. 'You had sex with <<girl+temp>> girls.'
  600. elseif girl+temp = 0 and hidden_girl > 0:
  601. 'You had sex with <<hidden_girl>> girls, but you do not have any recollection of any of it.'
  602. elseif girl+temp > 0 and hidden_girl > 0:
  603. 'You had sex with <<girl+temp+hidden_girl>> girls, but you know only about <<girl+temp>> of them.'
  604. end
  605. if divorced > 0: 'You were married <<divorced>> times.'
  606. if suprdolg > 0: 'You performed your conjugal duty for your husband <<suprdolg>> times'
  607. if rape > 0 and hidden_rape = 0:
  608. 'You have been raped <<rape>> times'
  609. elseif rape = 0 and hidden_rape > 0:
  610. 'You have been raped <<hidden_rape>> times, but you do not remember any of it'
  611. elseif rape > 0 and hidden_rape > 0:
  612. 'You have been raped <<rape+hidden_rape>> times, but you only remember <<rape>> of them'
  613. end
  614. if slutty > 0 or hidden_slutty > 0:
  615. if bordelslutty = 0: 'Sold your body <<slutty>> times.'
  616. if bordelslutty > 0: 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
  617. 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.'
  618. end
  619. if orgasm > 0: 'Experienced orgasm <<orgasm>> times.'
  620. if analorgasm > 0 : 'You''ve had <<analorgasm>> anal orgasms.'
  621. if swallow > 0: 'Sperm swallowed <<swallow>> times.'
  622. if facial > 0: 'You have taken <<facial>> facials.'
  623. if frot > 0 or hump > 0: 'Your clothes have been come on <<frot + hump>> times.'
  624. ! This is my suggestion, change it however you see fit, Sicaa
  625. if stat['pee_give'] > 0: 'You''ve peed on others <<stat[''pee_give'']>> times.'
  626. if stat['pee'] > 0: 'You''ve been peed on <<stat[''pee'']>> times.'
  627. if swallowpee > 0: 'You swallowed urine <<swallowpee>> times.'
  628. !!!WD:FORMATING
  629. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + stat['pee_give'] + stat['pee'] + swallowpee) > 0:*nl
  630. !!!
  631. gs 'obj_din', 'husb_cheat_count'
  632. if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0:
  633. 'Jerked men off (known/unknown): <<stat[''hj'']>>/<<stat[''hidden_hj'']>>'
  634. if hja > 0: 'Jerked off your boyfriend: <<hja>>'
  635. end
  636. if stat['footjob'] > 0 or stat['hidden_footjob'] > 0: 'Jerked men off with your feet (known/unknown): <<stat[''footjob'']>>/<<stat[''hidden_footjob'']>>'
  637. ! This is my suggestion, change it however you see fit, Sicaa
  638. if stat['titjob'] > 0 or stat['hidden_titjob'] > 0: 'Pleasured men with your breasts (known/unknown): <<stat[''titjob'']>>/<<stat[''hidden_titjob'']>>'
  639. if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0:
  640. 'Sucked cock (known/unknown): <<stat[''bj'']>>/<<stat[''hidden_bj'']>>'
  641. if bja > 0: 'Sucked your boyfriends cock: <<bja>>'
  642. if gloryhole > 0 or hidden_gloryhole > 0: 'Sucked cock in a gloryhole (known/unknown): <<gloryhole>>/<<hidden_gloryhole>>'
  643. end
  644. if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0: 'Vaginal sex (known/unknown): <<stat[''vaginal'']>>/<<stat[''hidden_vaginal'']>>'
  645. if sexa > 0: 'Vaginal sex with your boyfriend: <<sexa>>'
  646. if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
  647. ' Known vaginal creampies:'
  648. if pcs_cp_safe_known > 0:' Safe: <<pcs_cp_safe_known>>'
  649. if pcs_cp_notsafe_known > 0:' Likely safe: <<pcs_cp_notsafe_known>>'
  650. if pcs_cp_risky_known > 0:' Risky: <<pcs_cp_risky_known>>'
  651. end
  652. if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0:
  653. ' Unknown vaginal creampies:'
  654. if pcs_cp_safe_unknown > 0:' Safe: <<pcs_cp_safe_unknown>>'
  655. if pcs_cp_notsafe_unknown > 0:' Likely safe: <<pcs_cp_notsafe_unknown>>'
  656. if pcs_cp_risky_unknown > 0:' Risky: <<pcs_cp_risky_unknown>>'
  657. end
  658. if lesbian > 0 or hidden_lesbian > 0:
  659. if hidden_lesbian = 0: 'Lesbian sex (known/unknown): <<lesbian>>/<<hidden_lesbian>>'
  660. end
  661. if futa > 0 or hidden_futa > 0: 'Sex with tgirls (known/unknown): <<futa>>/<<hidden_futa>>'
  662. if anal > 0 or stat['anal'] or stat['hidden_anal']:
  663. 'Anal sex (known/unknown): <<stat[''anal'']>>/<<stat[''hidden_anal'']>>'
  664. if anala > 0: 'Anal sex with your boyfriend: <<anala>>'
  665. end
  666. if pcs_acp_known > 0: ' Known anal creampies: <<pcs_acp_known>>'
  667. if pcs_acp_unknown > 0: ' Unknown anal creampies: <<pcs_acp_unknown>>'
  668. if gang > 0 or hidden_gang > 0: 'Group sex (known/unknown): <<gang>>/<<hidden_gang>>'
  669. if kuni > 0 or stat['cuni'] > 0: 'Received cunnilingus: <<stat[''cuni'']>>'
  670. if stat['vaginal_finger'] > 0: 'Fingered: <<stat[''vaginal_finger'']>>'
  671. if stat['vaginal_fist'] > 0: 'Fisted: <<stat[''vaginal_fist'']>>'
  672. if stat['vaginal_dildo'] > 0: 'Fucked a dildo: <<stat[''vaginal_dildo'']>>'
  673. if stat['vaginal_strap'] > 0: 'Fucked with a strap-on: <<stat[''vaginal_strap'']>>'
  674. if stat['vaginal_vibe'] > 0: 'Clitoral / Vaginal vibrator: <<stat[''vaginal_vibe'']>>'
  675. if stat['trib'] > 0: 'Tribalism: <<stat[''trib'']>>'
  676. if stat['anal_finger'] > 0: 'Anally fingered: <<stat[''anal_finger'']>>'
  677. if stat['anal_fist'] > 0: 'Anally fisted: <<stat[''anal_fist'']>>'
  678. if stat['rimming'] > 0: 'Ass rimmed: <<stat[''rimming'']>>'
  679. if stat['anal_dildo'] > 0: 'Anal sex with a dildo: <<stat[''anal_dildo'']>>'
  680. if stat['anal_strap'] > 0: 'Ass fucked with a strap-on: <<stat[''anal_strap'']>>'
  681. if stat['anal_vibe'] > 0: 'Anal vibrator: <<stat[''anal_vibe'']>>'
  682. if stat['cuni_give'] > 0: 'Performed cunnilingus: <<stat[''cuni_give'']>>'
  683. if stat['vaginal_finger_give'] > 0: 'Fingered a girl: <<stat[''vaginal_finger_give'']>>'
  684. if stat['vaginal_fist_give'] > 0: 'Fisted a girl: <<stat[''vaginal_fist_give'']>>'
  685. if stat['vaginal_dildo_give'] > 0: 'Dildoed a girl: <<stat[''vaginal_dildo_give'']>>'
  686. if stat['vaginal_strap_give'] > 0: 'Strap-on fucked a girl: <<stat[''vaginal_strap_give'']>>'
  687. if stat['vaginal_vibe_give'] > 0: 'Used vibrator on a girl: <<stat[''vaginal_vibe_give'']>>'
  688. if stat['rimming_give'] > 0: 'Rimmed someone: <<stat[''rimming_give'']>>'
  689. if stat['anal_finger_give'] > 0: 'Fingered someone else''s ass: <<stat[''anal_finger_give'']>>'
  690. if stat['anal_fist_give'] > 0: 'Fisted someone else''s ass: <<stat[''anal_fist_give'']>>'
  691. if stat['anal_dildo_give'] > 0: 'Dildoed someone else''s ass: <<stat[''anal_dildo_give'']>>'
  692. if stat['anal_vibe_give'] > 0: 'Used a vibrator on someone else''s ass: <<stat[''anal_vibe_give'']>>'
  693. 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'']>>'
  694. '</td><td width="30%" cellspacing="0" cellpadding="0" valign="top">'
  695. '<center><b>Fetish Statistics</b></center>'
  696. *nl
  697. 'Feet preference: <<feet[''pref'']>>'
  698. 'Foot jobs / worship: <<feet[''exp'']>>'
  699. 'Deepthroat preference: <<deepthroat[''pref'']>>'
  700. 'Deepthroated: <<deepthroat[''exp'']>>'
  701. 'Group preference: <<group[''pref'']>>'
  702. 'Group sex: <<group[''exp'']>>'
  703. 'Gangbang preference: <<gangbang[''pref'']>>'
  704. 'Gangbangs: <<gangbang[''exp'']>>'
  705. 'Humiliation preference: <<humiliation[''pref'']>>'
  706. 'Humiliation experiences: <<humiliation[''exp'']>>'
  707. 'Prostitution preference: <<prostitution[''pref'']>>'
  708. 'Prostituted yourself: <<prostitution[''exp'']>>'
  709. 'Bondage preference: <<bound[''pref'']>>'
  710. 'Bondage play: <<bound[''exp'']>>'
  711. 'Masochism preference: <<maso[''pref'']>>'
  712. 'Masochism experiences: <<maso[''exp'']>>'
  713. 'Bestiality encounters: <<beast[''pref'']>>'
  714. 'Bestiality experience: <<beast[''exp'']>>'
  715. 'Rough sex preference: <<rough[''pref'']>>'
  716. 'Rough sex: <<rough[''exp'']>>'
  717. 'Incest preference: <<incest[''pref'']>>'
  718. 'Incestuous sex: <<incest[''exp'']>>'
  719. '</td></tr></table></center>'
  720. end
  721. if $ARGS[0] = 'stats_gen':
  722. *clr & cla
  723. gs 'housing', 'rent'
  724. !'<center><img src="images/system/icon/statistics.png"><br></center>'
  725. '<center><h1>General Statistics</h1></center>'
  726. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  727. '<td cellspacing="0" cellpadding="0" valign="top">'
  728. act 'Return to the statistics index': gt 'obj_din', 'stats'
  729. *nl
  730. if opPRE = 0: 'It has been <<daystart>> days since the game started.'
  731. *nl
  732. if SchoolAtestat = 0 and StoryLine > 0:
  733. if pcs_grades >= 90:
  734. 'You are an A+ student.'
  735. elseif pcs_grades >= 80:
  736. 'You are a bright student, just not the top of your class.'
  737. elseif pcs_grades >= 70:
  738. 'You are an above average student, but you have to work hard to keep up.'
  739. elseif pcs_grades >= 60:
  740. 'You are the typical average student. You''re good in the fields you like, but can''t be bothered with the rest.'
  741. elseif pcs_grades >= 50:
  742. 'You''re not very good in school, you wish you could be somewhere else and your grades show it.'
  743. elseif pcs_grades >= 40:
  744. 'You are not cut out for school, you skip out most of the time. You wonder how you''re going to manage to get passing grades.'
  745. else
  746. 'You are the class nitwit. You''re still not sure how you got this far in the first place.'
  747. end
  748. if schoolprogul > 1: 'Absenteeism in school - <<schoolprogul>> days'
  749. end
  750. *nl
  751. if (home_owned[1] = 1 and ArendHouseSL > 0) or (home_owned[4] > 0 and ArendHouseSL4 > 0):
  752. *nl
  753. if home_owned[1] = 1 and home_owned[4] > 0:
  754. '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>>.'
  755. elseif home_owned[1] = 1:
  756. '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>>.'
  757. elseif home_owned[4] > 0:
  758. 'You have rented an apartment in Pushkin, and you''re paid up for <<ArendHouseSL4>> days. Utilities are due on the 25th of <<$month>>.'
  759. end
  760. if home_owned[1] = 1:
  761. if karta >= home_rent[1] or money >= home_rent[1] or money + stolmoney >= home_rent[1] or karta + bankDebtLimit >= home_rent[1]:
  762. *nl
  763. *p 'The monthly rent for your city apartment is <<home_rent[1]>> <b>₽</b>. '
  764. if karta >= home_rent[1]:
  765. !From bank
  766. *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.'
  767. elseif money >= home_rent[1]:
  768. !From cash
  769. *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.'
  770. *nl
  771. elseif stolmoney >= home_rent[1]:
  772. !From drawer
  773. *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.'
  774. *nl
  775. elseif money + stolmoney >= home_rent[1]:
  776. !From cash and drawer
  777. *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.'
  778. *nl
  779. elseif karta + bankDebtLimit >= home_rent[1]:
  780. !From bank and overdraw
  781. *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.'
  782. *nl
  783. else
  784. *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.'
  785. *nl
  786. end
  787. end
  788. end
  789. if home_owned[4] > 0:
  790. if karta >= home_rent[4] or money >= home_rent[4] or money + stolmoney >= home_rent[4] or karta + bankDebtLimit >= home_rent[4]:
  791. *nl
  792. *p 'The monthly rent for your Pushkin apartment is <<home_rent[4]>> <b>₽</b>. '
  793. if karta >= home_rent[4]:
  794. !From bank
  795. *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.'
  796. *nl
  797. elseif money >= home_rent[4]:
  798. !From cash
  799. *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.'
  800. *nl
  801. elseif stolmoney >= home_rent[4]:
  802. !From drawer
  803. *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.'
  804. *nl
  805. elseif money + stolmoney >= home_rent[4]:
  806. !From cash and drawer
  807. *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.'
  808. *nl
  809. elseif karta + bankDebtLimit >= home_rent[4]:
  810. !From bank and overdraw
  811. *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.'
  812. *nl
  813. else
  814. *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.'
  815. *nl
  816. end
  817. end
  818. end
  819. end
  820. if kid = 1:
  821. *nl
  822. 'You have 1 child:'
  823. else
  824. 'You have <<kid>> children:'
  825. end
  826. if kid > 0:
  827. k = 0
  828. :kidloop
  829. if k < kid:
  830. gs 'obj_din','kidlist',k
  831. k += 1
  832. jump 'kidloop'
  833. end
  834. end
  835. if workPTU > 1: 'Reputation as a teacher <<teachlevel>>'
  836. *nl
  837. if npc_QW['A192'] > 0: 'Friendship with Nastya <<npc_QW[''A192'']>>'
  838. if npc_rel['A218'] > 0: 'Friendship with Tanya <<npc_rel[''A218'']>>'
  839. if npc_rel['A219'] > 0: 'Friendship with Kat <<npc_rel[''A219'']>>'
  840. if npc_rel['A220'] > 0: 'Friendship with Vika <<npc_rel[''A220'']>>'
  841. if npc_rel['A93'] > 0: 'Friendship with Ira <<npc_rel[''A93'']>>'
  842. if npc_rel['A43'] > 0: 'Friendship with Tamara <<npc_rel[''A43'']>>'
  843. if alla > 0: 'Friendship with Alla <<alla>>'
  844. if masha > 0: 'Friendship with Masha <<masha>>'
  845. if npc_rel['A41'] > 0: 'Friendship with Givi K. <<npc_rel[''A41'']>>'
  846. if npc_rel['A42'] > 0: 'Friendship with Ashot <<npc_rel[''A42'']>>'
  847. if Dmitry > 0: 'Friendship with Dima <<Dmitry>>'
  848. if afra > 0: 'Friendship with blacks <<afra>>'
  849. if npc_rel['A69'] > 0:'Friendship with Mikhail Nikolaevich <<npc_rel[''A69'']>>'
  850. !!!WD: Formatting
  851. 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
  852. *nl
  853. if KikWinPro > 0 or KikLossPro > 0 or KikDrawPro > 0:
  854. 'Professional Kickboxing Record:Win (Victory KO) - Loss (Defeat KO) - Draw'
  855. '<<KikWinPro>> (<<KikWinProKO>>KO) - <<KikLossPro>> (<<KikLossProKO>>KO) - <<KikDrawPro>>'
  856. end
  857. if Win > 0 or Loss > 0: 'Wins in fights <<Win>>, losses in fights <<Loss>>' & *nl
  858. if razradKik > 0: '<<$razradKik>>'
  859. if KikWinAm > 0 or KikLossAm > 0 or KikDrawAm > 0:
  860. 'Amateur Kickboxing Record:<br>Wins: <<KikWinAm>> (<<KikWinAmKO>> by KO) - Losses: <<KikLossAm>> (<<KikLossAmKO>> by KO) - Draws: <<KikDrawAm>>'
  861. *nl
  862. end
  863. if razradKik > 0:
  864. if razradKik = 1:$razradKik = 'You have earned green sash(rank 4) in kickboxing'
  865. if razradKik = 2:$razradKik = 'You have earned purple sash(rank 5) in kickboxing'
  866. if razradKik = 3:$razradKik = 'You have earned blue sash(rank 6) in kickboxing'
  867. if razradKik = 4:$razradKik = 'You have earned brown sash(rank 7) in kickboxing'
  868. if razradKik = 5:$razradKik = 'You have earned black sash, 1st dan in kickboxing'
  869. *nl
  870. end
  871. if kolsorev > 0: 'You have run in <<kolsorev>> races'
  872. if swinbeg >= 1: 'You have <<swinbeg/3>> trophies from local racing competitions'
  873. if bronzebeg > 0: '<<bronzebeg>> - bronze medals for running'
  874. if silverbeg > 0: '<<silverbeg>> - silver medals for running'
  875. if goldbeg > 0: '<<goldbeg>> - gold medals for running'
  876. if razradbegEB > 0: '<<razradbegEB>> times bronze medalist at European Championship'
  877. if razradbegES > 0: '<<razradbegES>> runner up at European Championship'
  878. if razradbegEG > 0: '<<razradbegEG>> times European champion.'
  879. if razradbegIB > 0: '<<razradbegIB>> times bronze medalist at World Championship'
  880. if razradbegIS > 0: '<<razradbegIS>> runner up at World Championship'
  881. if razradbegIG > 0: '<<razradbegIG>> times World champion'
  882. if razradbeg > 0:
  883. if razradbeg = 1: 'You have third sports category for event'
  884. if razradbeg = 2: 'You 2nd sports category for event'
  885. if razradbeg = 3: 'You 1st sports category for event'
  886. if razradbeg = 4: 'You have the title of Candidate Master of Sports for event'
  887. if razradbeg = 5: 'You have the title of Master of Sports in the run'
  888. if razradbeg >= 6: 'You have the title of International Master of Sports for event'
  889. *nl
  890. end
  891. if chess_win > 0 or chess_loss > 0:'Chess Record: Win <<chess_win>>, Loss <<chess_loss>>'
  892. if chess_rank > 0:
  893. if chess_rank = 1:'You have mastered the basics of chess'
  894. if chess_rank = 2:'You are starting to get good at chess'
  895. if chess_rank = 3:'You are a good chess player'
  896. if chess_rank = 4:'You are an excellent chess player'
  897. if chess_rank = 5:'You are a candidate for chess master'
  898. if chess_rank = 6:'You are a chess master'
  899. if chess_rank = 7:'You are a chess Grandmaster'
  900. end
  901. if chess_world_rank > 0:
  902. if chess_world_rank = 1:'The title of FIDE Master Chess'
  903. if chess_world_rank = 2:'The title of International Chess Master'
  904. if chess_world_rank = 3:'The title of International Grandmaster Chess'
  905. end
  906. *nl
  907. !!!
  908. if modelfoto > 0:
  909. '<b>Modelling Stats</b>'
  910. '<<modelfoto>> - Number of times you have worked as a model'
  911. '<<modelfotomoney>> - The amount of money you''ve made modelling'
  912. if modelfoto_fashion > 0: '<<modelfoto_fashion>> - Number of fashion shoots you have participated in'
  913. if modelfoto_ero_clo > 0: '<<modelfoto_ero_clo>> - Number of erotic clothing shoots you have participated in'
  914. if modelfoto_bikini > 0: '<<modelfoto_bikini>> - Number of swimsuit shoots you have modelled in'
  915. if modelfoto_lingerie > 0: '<<modelfoto_lingerie>> - Number of lingerie shoots you have participated in'
  916. if modelfoto_nip > 0: '<<modelfoto_nip>> - Number of times your nipples have been visible as a model'
  917. if modelfoto_topless > 0: '<<modelfoto_topless>> - Number of shoots where you have been topless'
  918. if modelfoto_nude > 0: '<<modelfoto_nude>> - Number of nude modelling shoots you have participated in'
  919. if modelfoto_pussy > 0: '<<modelfoto_pussy>> - Number of shoots your vagina has been visible'
  920. *nl
  921. end
  922. if slavafuck > 0:'You have let Borislav fuck you <<slavafuck>> times'
  923. if slava_bj > 0:'You have given Borislav <<$slava_bj>> blowjobs'
  924. if maxdamage > 0: 'The impact force on the dynamometer <<maxdamage>> kgN' & *nl
  925. if stripdancesum > 0 and hidden_stripdancesum = 0:
  926. 'You have danced <<stripdancesum>> times in the stripclub'
  927. elseif stripdancesum = 0 and hidden_stripdancesum > 0:
  928. 'You have danced <<hidden_stripdancesum>> times in the stripclub, but you do nor remember it'
  929. elseif stripdancesum > 0 and hidden_stripdancesum > 0:
  930. 'You have danced <<stripdancesum+hidden_stripdancesum>> times in the stripclub, but you only remember <<stripdancesum>> times'
  931. end
  932. if profiDanceTime > 0: 'You danced <<profiDanceTime>> times professionally.'
  933. if SchoolAtestat = 1: 'You have finished school.'
  934. if diplom = 1: 'You graduated.'
  935. if teachlevel > 0: 'Your credibility as a teacher is <<teachlevel>>'
  936. !WD:FORMATING
  937. if (maxdamage + stripdancesum + profiDanceTime + SchoolAtestat + diplom + teachlevel) > 0:*nl
  938. '</td></tr></table></center>'
  939. end
  940. if $ARGS[0] = 'kidlist':
  941. kidnumber = ARGS[1]
  942. if kidage[kidnumber] < 1:
  943. if (month - monthkid[kidnumber]) < 1 and (day-daykid[kidnumber]) < 7:
  944. kiddaycalc[kidnumber] = day - daykid[kidnumber]
  945. if kiddaycalc[kidnumber] = 0:
  946. $kidagetext[kidnumber] = 'was born today'
  947. elseif kiddaycalc[kidnumber] = 1:
  948. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> day old'
  949. else
  950. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> days old'
  951. end
  952. elseif (month - monthkid[kidnumber]) < 1 :
  953. kiddaycalc[kidnumber] = (day - daykid[kidnumber]) / 7
  954. if kiddaycalc[kidnumber] = 1:
  955. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> week old'
  956. else
  957. $kidagetext[kidnumber] = 'is <<kiddaycalc[kidnumber]>> weeks old'
  958. end
  959. else
  960. kidmonthcalc[kidnumber] = (month - monthkid[kidnumber])
  961. if kidmonthcalc[kidnumber] = 1:
  962. $kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> month old'
  963. else
  964. $kidagetext[kidnumber] = 'is <<kidmonthcalc[kidnumber]>> months old'
  965. end
  966. end
  967. else
  968. if kidage[kidnumber] = 1:
  969. $kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> year old'
  970. else
  971. $kidagetext[kidnumber] = 'is <<kidage[kidnumber]>> years old'
  972. end
  973. end
  974. if polkid[kidnumber] = 0:
  975. $sdtext[kidnumber] = 'daughter'
  976. else
  977. $sdtext[kidnumber] = 'son'
  978. end
  979. if polkid[kidnumber] = 0:
  980. $kidPosProPN[kidnumber] = 'She'
  981. else
  982. $kidPosProPN[kidnumber] = 'He'
  983. end
  984. *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]>>'
  985. '.'
  986. *nl
  987. killvar 'kidnumber'
  988. end
  989. if $ARGS[0] = 'stats_sex':
  990. *clr & cla
  991. !'<center><img src="images/system/icon/statistics.png"><br></center>'
  992. '<center><h1>Sex Statistics</h1></center>'
  993. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  994. '<td width="50%" cellspacing="0" cellpadding="0" valign="top">'
  995. act 'Return to the statistics index': gt 'obj_din', 'stats'
  996. !Sex stats
  997. ! This is my suggestion, change it however you see fit, Sicaa
  998. if stat['kiss'] > 0: 'Times you have kissed someone: <<stat[''kiss'']>>'
  999. if mastr > 0 or stat['mast'] > 0: 'Times you have masturbated: <<stat[''mast'']>>'
  1000. if stat['porn'] > 0: 'Times you have watched porn: <<stat[''porn'']>>'
  1001. if stat['flashlite'] > 0 or stat['flash'] > 0: 'Times you have flashed: <<stat[''flashlite''] + stat[''flash'']>>'
  1002. ! This is my suggestion, change it however you see fit, Sicaa
  1003. if stat['voyeur'] > 0: 'Times you have watched people''s erotic displays: <<stat[''voyeur'']>>'
  1004. if stat['voyeur_sex'] > 0: 'Times you have watched other people fuck: <<stat[''voyeur_sex'']>>'
  1005. if spank > 0: 'You have had your ass spanked <<spank>> times'
  1006. ! This is my suggestion, change it however you see fit, Sicaa
  1007. if stat['BDSM'] > 0 or stat['BDSM_give'] > 0: 'Times you have participated in BDSM (sub/dom): <<stat[''BDSM'']>>/<<stat[''BDSM_give'']>>'
  1008. temp = func('shortgs','guy')
  1009. if guy+temp > 0 and hidden_guy = 0:
  1010. 'You had sex with <<guy+temp>> guys.'
  1011. elseif guy+temp = 0 and hidden_guy > 0:
  1012. 'You had sex with <<hidden_guy>> guys, but you do not have any recollection of it. You still think of yourself as a virgin.'
  1013. elseif guy+temp > 0 and hidden_guy > 0:
  1014. 'You had sex with <<guy+hidden_guy+temp>> guys, but you know only about <<guy+temp>> of them.'
  1015. end
  1016. temp = func('shortgs','girl')
  1017. if girl+temp > 0 and hidden_girl = 0:
  1018. 'You had sex with <<girl+temp>> girls.'
  1019. elseif girl+temp = 0 and hidden_girl > 0:
  1020. 'You had sex with <<hidden_girl>> girls, but you do not have any recollection of any of it.'
  1021. elseif girl+temp > 0 and hidden_girl > 0:
  1022. 'You had sex with <<girl+temp+hidden_girl>> girls, but you know only about <<girl+temp>> of them.'
  1023. end
  1024. if divorced > 0: 'You were married <<divorced>> times.'
  1025. if suprdolg > 0: 'You performed your conjugal duty for your husband <<suprdolg>> times'
  1026. if rape > 0 and hidden_rape = 0:
  1027. 'You have been raped <<rape>> times'
  1028. elseif rape = 0 and hidden_rape > 0:
  1029. 'You have been raped <<hidden_rape>> times, but you do not remember any of it'
  1030. elseif rape > 0 and hidden_rape > 0:
  1031. 'You have been raped <<rape+hidden_rape>> times, but you only remember <<rape>> of them'
  1032. end
  1033. *nl
  1034. if slutty > 0 or hidden_slutty > 0:
  1035. if bordelslutty = 0: 'Sold your body <<slutty>> times.'
  1036. if bordelslutty > 0: 'Sold your body <<slutty>> times, including <<bordelslutty>> times in a brothel.'
  1037. 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.'
  1038. end
  1039. if orgasm > 0: 'Experienced orgasm <<orgasm>> times.'
  1040. if analorgasm > 0 : 'You''ve had <<analorgasm>> anal orgasms.'
  1041. if swallow > 0: 'Sperm swallowed <<swallow>> times.'
  1042. if facial > 0: 'You have taken <<facial>> facials.'
  1043. if frot > 0 or hump > 0: 'Your clothes have been come on <<frot + hump>> times.'
  1044. ! This is my suggestion, change it however you see fit, Sicaa
  1045. if stat['pee_give'] > 0: 'You''ve peed on others <<stat[''pee_give'']>> times.'
  1046. if stat['pee'] > 0: 'You''ve been peed on <<stat[''pee'']>> times.'
  1047. if swallowpee > 0: 'You swallowed urine <<swallowpee>> times.'
  1048. !!!WD:FORMATING
  1049. if (slutty + pfilmSTOP + film + orgasm + analorgasm + swallow + facial + frot + stat['pee_give'] + stat['pee'] + swallowpee) > 0:*nl
  1050. !!!
  1051. gs 'obj_din', 'husb_cheat_count'
  1052. '</td><td width="50%" cellspacing="0" cellpadding="0" valign="top">'
  1053. if hj > 0 or stat['hj'] > 0 or stat['hidden_hj'] > 0:
  1054. 'Jerked men off (known/unknown): <<stat[''hj'']>>/<<stat[''hidden_hj'']>>'
  1055. if hja > 0: 'Jerked off your boyfriend: <<hja>>'
  1056. end
  1057. if stat['footjob'] > 0 or stat['hidden_footjob'] > 0: 'Jerked men off with your feet (known/unknown): <<stat[''footjob'']>>/<<stat[''hidden_footjob'']>>'
  1058. ! This is my suggestion, change it however you see fit, Sicaa
  1059. if stat['titjob'] > 0 or stat['hidden_titjob'] > 0: 'Pleasured men with your breasts (known/unknown): <<stat[''titjob'']>>/<<stat[''hidden_titjob'']>>'
  1060. if bj > 0 or stat['bj'] > 0 or stat['hidden_bj'] > 0:
  1061. 'Sucked cock (known/unknown): <<stat[''bj'']>>/<<stat[''hidden_bj'']>>'
  1062. if bja > 0: 'Sucked your boyfriends cock: <<bja>>'
  1063. if gloryhole > 0 or hidden_gloryhole > 0: 'Sucked cock in a gloryhole (known/unknown): <<gloryhole>>/<<hidden_gloryhole>>'
  1064. end
  1065. if sex > 0 or stat['vaginal'] > 0 or stat['hidden_vaginal'] > 0: 'Vaginal sex (known/unknown): <<stat[''vaginal'']>>/<<stat[''hidden_vaginal'']>>'
  1066. if sexa > 0: 'Vaginal sex with your boyfriend: <<sexa>>'
  1067. if (pcs_cp_safe_known + pcs_cp_notsafe_known + pcs_cp_risky_known) > 0:
  1068. ' Known vaginal creampies:'
  1069. if pcs_cp_safe_known > 0: ' Safe: <<pcs_cp_safe_known>>'
  1070. if pcs_cp_notsafe_known > 0: ' Likely safe: <<pcs_cp_notsafe_known>>'
  1071. if pcs_cp_risky_known > 0: ' Risky: <<pcs_cp_risky_known>>'
  1072. end
  1073. if (pcs_cp_safe_unknown + pcs_cp_notsafe_unknown + pcs_cp_risky_unknown) > 0:
  1074. ' Unknown vaginal creampies:'
  1075. if pcs_cp_safe_unknown > 0: ' Safe: <<pcs_cp_safe_unknown>>'
  1076. if pcs_cp_notsafe_unknown > 0: ' Likely safe: <<pcs_cp_notsafe_unknown>>'
  1077. if pcs_cp_risky_unknown > 0: ' Risky: <<pcs_cp_risky_unknown>>'
  1078. end
  1079. if lesbian > 0 or hidden_lesbian > 0:
  1080. if hidden_lesbian = 0: 'Lesbian sex (known/unknown): <<lesbian>>/<<hidden_lesbian>>'
  1081. end
  1082. if futa > 0 or hidden_futa > 0: 'Sex with tgirls (known/unknown): <<futa>>/<<hidden_futa>>'
  1083. if anal > 0 or stat['anal'] or stat['hidden_anal']:
  1084. 'Anal sex (known/unknown): <<stat[''anal'']>>/<<stat[''hidden_anal'']>>'
  1085. if anala > 0: 'Anal sex with your boyfriend: <<anala>>'
  1086. end
  1087. if pcs_acp_known > 0: ' Known anal creampies: <<pcs_acp_known>>'
  1088. if pcs_acp_unknown > 0: ' Unknown anal creampies: <<pcs_acp_unknown>>'
  1089. if gang > 0 or hidden_gang > 0: 'Group sex (known/unknown): <<gang>>/<<hidden_gang>>'
  1090. if kuni > 0 or stat['cuni'] > 0: 'Received cunnilingus: <<stat[''cuni'']>>'
  1091. if stat['vaginal_finger'] > 0: 'Fingered: <<stat[''vaginal_finger'']>>'
  1092. if stat['vaginal_fist'] > 0: 'Fisted: <<stat[''vaginal_fist'']>>'
  1093. if stat['vaginal_dildo'] > 0: 'Fucked a dildo: <<stat[''vaginal_dildo'']>>'
  1094. if stat['vaginal_strap'] > 0: 'Fucked with a strap-on: <<stat[''vaginal_strap'']>>'
  1095. if stat['vaginal_vibe'] > 0: 'Clitoral / Vaginal vibrator: <<stat[''vaginal_vibe'']>>'
  1096. if stat['trib'] > 0: 'Tribalism: <<stat[''trib'']>>'
  1097. if stat['anal_finger'] > 0: 'Anally fingered: <<stat[''anal_finger'']>>'
  1098. if stat['anal_fist'] > 0: 'Anally fisted: <<stat[''anal_fist'']>>'
  1099. if stat['rimming'] > 0: 'Ass rimmed: <<stat[''rimming'']>>'
  1100. if stat['anal_dildo'] > 0: 'Anal sex with a dildo: <<stat[''anal_dildo'']>>'
  1101. if stat['anal_strap'] > 0: 'Ass fucked with a strap-on: <<stat[''anal_strap'']>>'
  1102. if stat['anal_vibe'] > 0: 'Anal vibrator: <<stat[''anal_vibe'']>>'
  1103. *nl
  1104. if stat['cuni_give'] > 0: 'Performed cunnilingus: <<stat[''cuni_give'']>>'
  1105. if stat['vaginal_finger_give'] > 0: 'Fingered a girl: <<stat[''vaginal_finger_give'']>>'
  1106. if stat['vaginal_fist_give'] > 0: 'Fisted a girl: <<stat[''vaginal_fist_give'']>>'
  1107. if stat['vaginal_dildo_give'] > 0: 'Dildoed a girl: <<stat[''vaginal_dildo_give'']>>'
  1108. if stat['vaginal_strap_give'] > 0: 'Strap-on fucked a girl: <<stat[''vaginal_strap_give'']>>'
  1109. if stat['vaginal_vibe_give'] > 0: 'Used vibrator on a girl: <<stat[''vaginal_vibe_give'']>>'
  1110. if stat['rimming_give'] > 0: 'Rimmed someone: <<stat[''rimming_give'']>>'
  1111. if stat['anal_finger_give'] > 0: 'Fingered someone else''s ass: <<stat[''anal_finger_give'']>>'
  1112. if stat['anal_fist_give'] > 0: 'Fisted someone else''s ass: <<stat[''anal_fist_give'']>>'
  1113. if stat['anal_dildo_give'] > 0: 'Dildoed someone else''s ass: <<stat[''anal_dildo_give'']>>'
  1114. if stat['anal_vibe_give'] > 0: 'Used a vibrator on someone else''s ass: <<stat[''anal_vibe_give'']>>'
  1115. 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'']>>'
  1116. '</td></tr></table></center>'
  1117. end
  1118. if $ARGS[0] = 'stats_fetish':
  1119. *clr & cla
  1120. act 'Return to the statistics index': gt 'obj_din', 'stats'
  1121. !'<center><img src="images/system/icon/statistics.png"><br></center>'
  1122. '<center><h1>Fetishes</h1></center>'
  1123. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1124. '<td cellspacing="0" cellpadding="0" valign="top">'
  1125. 'Feet preference: <<feet[''pref'']>>'
  1126. 'Foot jobs / worship: <<feet[''exp'']>>'
  1127. 'Deepthroat preference: <<deepthroat[''pref'']>>'
  1128. 'Deepthroated: <<deepthroat[''exp'']>>'
  1129. 'Group preference: <<group[''pref'']>>'
  1130. 'Group sex: <<group[''exp'']>>'
  1131. 'Gangbang preference: <<gangbang[''pref'']>>'
  1132. 'Gangbangs: <<gangbang[''exp'']>>'
  1133. 'Humiliation preference: <<humiliation[''pref'']>>'
  1134. 'Humiliation experiences: <<humiliation[''exp'']>>'
  1135. 'Prostitution preference: <<prostitution[''pref'']>>'
  1136. 'Prostituted yourself: <<prostitution[''exp'']>>'
  1137. 'Bondage preference: <<bound[''pref'']>>'
  1138. 'Bondage play: <<bound[''exp'']>>'
  1139. 'Masochism preference: <<maso[''pref'']>>'
  1140. 'Masochism experiences: <<maso[''exp'']>>'
  1141. 'Bestiality encounters: <<beast[''pref'']>>'
  1142. 'Bestiality experience: <<beast[''exp'']>>'
  1143. 'Rough sex preference: <<rough[''pref'']>>'
  1144. 'Rough sex: <<rough[''exp'']>>'
  1145. 'Incest preference: <<incest[''pref'']>>'
  1146. 'Incestuous sex: <<incest[''exp'']>>'
  1147. '</td></tr></table></center>'
  1148. end
  1149. if $ARGS[0] = 'reputation':
  1150. *clr & cla
  1151. gs 'obj_din','chartabs'
  1152. !'<center><img src="images/system/icon/reputation.png"><br></center>'
  1153. '<center><h1>Renown</h1></center>'
  1154. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top">'
  1155. '<tr><td width="50%" cellspacing="0" cellpadding="0" valign="top">'
  1156. '<center>Family Renown</center>'
  1157. if Enable_family_Reputation = 0:
  1158. '<center><a href="exec:Enable_family_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1159. end
  1160. if Enable_family_Reputation = 1:
  1161. '<center><a href="exec:Enable_family_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1162. if rinslut > 0 or kavslut > 0:'In the residential area of ​​you are known as a whore that sleeps with Caucasians.'
  1163. if afra > 80: 'In the student hostel, you are known for bedding blacks.'
  1164. if opusk > 0 or gnewQW >= 5: 'In the residential area it is well known by all the guys that you are a whore.'
  1165. if StoryLine = 1:
  1166. *nl
  1167. if motherKnowSpravka > 0 and motherKnowWhore > 0:
  1168. 'Your mother knows, that you are sexually active and considers you a slut.'
  1169. elseif motherKnowWhore > 0:
  1170. 'Your mother thinks you are a whore.'
  1171. elseif motherKnowSpravka > 0:
  1172. 'Your mother knows that you are sexually active.'
  1173. else
  1174. 'Your mother thinks that you are a virgin.'
  1175. end
  1176. if evgenQW >= 4 and pav_slut >= 125:
  1177. 'Your brother thinks you are a total whore.'
  1178. elseif evgenQW >= 3:
  1179. 'Your brother thinks you are a slut.'
  1180. elseif brotherknowslut = 1:
  1181. 'Your brother saw semen on your body and thinks that you fuck around.'
  1182. elseif brotherknowslut >= 2:
  1183. 'Your brother saw you in the park screwing Gopniks.'
  1184. else
  1185. 'Your brother has a good opinion of you.'
  1186. end
  1187. if sisterknowslut > 1 and sisboypartyQW >= 2:
  1188. 'Your sister thinks you are a slut'
  1189. elseif sisterknowslut > 0:
  1190. 'Your sister knows that you sleep around.'
  1191. else
  1192. 'Your sister has a good opinion of you.'
  1193. end
  1194. if brothershowertalk > 0:'<<brothershowertalk>> - Number of conversations you''ve had with your brother in the shower.'
  1195. if brothershowerlook = 1:'You let your brother look at you when you''re shower'
  1196. if brothershave > 0:'<<brothershave>> - Number of times you''ve let your brother watch you shave your pussy'
  1197. if brotherkiss > 0: '<<brotherkiss>> - Number of times you and your brother have kissed'
  1198. if brotherbj > 0:'<<brotherbj>> - Number of times you''ve given your brother blowjobs'
  1199. if brotherfuck > 0:'<<brotherfuck>> - Number of times you''ve had sex with your brother'
  1200. end
  1201. *nl
  1202. end
  1203. '<center>Regional Renown</center>'
  1204. if Enable_glo_Reputation = 0:
  1205. '<center><a href="exec:Enable_glo_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1206. end
  1207. if Enable_glo_Reputation = 1:
  1208. '<center><a href="exec:Enable_glo_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1209. 'Regional renown as a performer = <<global_performer>>'
  1210. if global_performer = 0:
  1211. 'You are not famous enough as a performer to be known outside of any local areas.'
  1212. end
  1213. *nl
  1214. 'Regional renown in the sex industry = <<global_sexind>>'
  1215. if global_sexind = 0:
  1216. 'You are not famous enough in the industry to be known outside of any local areas.'
  1217. end
  1218. *nl
  1219. 'Regional renown as a slut = <<global_slut>>'
  1220. if global_slut = 0:
  1221. 'You are not famous enough as a slut to be known outside of any local areas.'
  1222. end
  1223. *nl
  1224. 'Regional renown in sports = <<global_sport>>'
  1225. if global_sport = 0:
  1226. 'You are not a famous enough athlete to be known outside of any local areas.'
  1227. end
  1228. *nl
  1229. 'Regional renown as an intellectual = <<global_int>>'
  1230. if global_int = 0:
  1231. 'You are not famous enough as an intellectual to be known outside of any local areas.'
  1232. end
  1233. *nl
  1234. 'Regional renown through social media = <<global_social>>'
  1235. if global_social = 0:
  1236. 'You are not famous enough on social media to be known outside of any local areas.'
  1237. end
  1238. end
  1239. '<center><table width="225" cellspacing="0" cellpadding="20" valign="top"><tr><td>'
  1240. '<center>Renown in Pavlovsk</center>'
  1241. if Enable_pav_Reputation = 0:
  1242. '<center><a href="exec:Enable_pav_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1243. end
  1244. if Enable_pav_Reputation = 1:
  1245. '<center><a href="exec:Enable_pav_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1246. '<b>Performer = <<pav_performer>></b>'
  1247. ' Actor = <<pav_acting>>'
  1248. ' Dancer = <<pav_dance>>'
  1249. ' Glamour model = <<pav_modelling>>'
  1250. ' Painter = <<pav_painting>>'
  1251. ' Musician = <<pav_music>>'
  1252. ' Ballet dancer = <<pav_ballet>>'
  1253. '<b>Sex Industry = <<pav_sexind>></b>'
  1254. ' Porn actor = <<pav_porn>>'
  1255. ' Stripper = <<pav_stripping>>'
  1256. '<b>Slut = <<pav_slut>></b>'
  1257. ' Sex = <<pav_sex>>'
  1258. ' Prostitution = <<pav_prostitute>>'
  1259. '<b>Sports = <<pav_sport>></b>'
  1260. ' Kickboxer = <<pav_kickboxing>>'
  1261. ' Runner = <<pav_running>>'
  1262. ' Volleyball player = <<pav_volleyball>>'
  1263. '<b>Intellectual = <<pav_int>></b>'
  1264. ' Chess player = <<pav_chess>>'
  1265. ' Teacher = <<pav_teaching>>'
  1266. '<b>Social = <<pav_social>></b>'
  1267. ' Social media = <<pav_media>>'
  1268. *nl
  1269. end
  1270. '<center>Renown in the city</center>'
  1271. if Enable_city_Reputation = 0:
  1272. '<center><a href="exec:Enable_city_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1273. end
  1274. if Enable_city_Reputation = 1:
  1275. '<center><a href="exec:Enable_city_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1276. '<b>Performer = <<city_performer>></b>'
  1277. ' Actor = <<city_acting>>'
  1278. ' Dancer = <<city_dance>>'
  1279. ' Glamour model = <<city_modelling>>'
  1280. ' Painter = <<city_painting>>'
  1281. ' Musician = <<city_music>>'
  1282. ' Ballet dancer = <<city_ballet>>'
  1283. '<b>Sex Industry = <<city_sexind>></b>'
  1284. ' Porn actor = <<city_porn>>'
  1285. ' Stripper = <<city_stripping>>'
  1286. '<b>Slut = <<city_slut>></b>'
  1287. ' Sex = <<city_sex>>'
  1288. ' Prostitution = <<city_prostitute>>'
  1289. '<b>Sports = <<city_sport>></b>'
  1290. ' Kickboxer = <<city_kickboxing>>'
  1291. ' Runner = <<city_running>>'
  1292. ' Volleyball player = <<city_volleyball>>'
  1293. '<b>Intellectual = <<city_int>></b>'
  1294. ' Chess player = <<city_chess>>'
  1295. ' Teacher = <<city_teaching>>'
  1296. '<b>Social = <<city_social>></b>'
  1297. ' Social media = <<city_media>>'
  1298. *nl
  1299. end
  1300. '<center>Renown in the old town</center>'
  1301. if Enable_oldtown_Reputation = 0:
  1302. '<center><a href="exec:Enable_oldtown_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1303. end
  1304. if Enable_oldtown_Reputation = 1:
  1305. '<center><a href="exec:Enable_oldtown_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1306. '<b>Performer = <<oldtown_performer>></b>'
  1307. ' Actor = <<oldtown_acting>>'
  1308. ' Dancer = <<oldtown_dance>>'
  1309. ' Glamour model = <<oldtown_modelling>>'
  1310. ' Painter = <<oldtown_painting>>'
  1311. ' Musician = <<oldtown_music>>'
  1312. ' Ballet dancer = <<oldtown_ballet>>'
  1313. '<b>Sex Industry = <<oldtown_sexind>></b>'
  1314. ' Porn actor = <<oldtown_porn>>'
  1315. ' Stripper = <<oldtown_stripping>>'
  1316. '<b>Slut = <<oldtown_slut>></b>'
  1317. ' Sex = <<oldtown_sex>>'
  1318. ' Prostitution = <<oldtown_prostitute>>'
  1319. '<b>Sports = <<oldtown_sport>></b>'
  1320. ' Kickboxer = <<oldtown_kickboxing>>'
  1321. ' Runner = <<oldtown_running>>'
  1322. ' Volleyball player = <<oldtown_volleyball>>'
  1323. '<b>Intellectual = <<oldtown_int>></b>'
  1324. ' Chess player = <<oldtown_chess>>'
  1325. ' Teacher = <<oldtown_teaching>>'
  1326. '<b>Social = <<oldtown_social>></b>'
  1327. ' Social media = <<oldtown_media>>'
  1328. *nl
  1329. end
  1330. '<center>Renown in the village</center>'
  1331. if Enable_village_Reputation = 0:
  1332. '<center><a href="exec:Enable_village_Reputation = 1 & gs ''obj_din'', ''reputation''">Show details</a></center>'
  1333. end
  1334. if Enable_village_Reputation = 1:
  1335. '<center><a href="exec:Enable_village_Reputation = 0 & gs ''obj_din'', ''reputation''">Hide details</a></center>'
  1336. '<b>Performer = <<village_performer>></b>'
  1337. ' Actor = <<village_acting>>'
  1338. ' Dancer = <<village_dance>>'
  1339. ' Glamour model = <<village_modelling>>'
  1340. ' Painter = <<village_painting>>'
  1341. ' Musician = <<village_music>>'
  1342. ' Ballet dancer = <<village_ballet>>'
  1343. '<b>Sex Industry = <<village_sexind>></b>'
  1344. ' Porn actor = <<village_porn>>'
  1345. ' Stripper = <<village_stripping>>'
  1346. '<b>Slut = <<village_slut>></b>'
  1347. ' Sex = <<village_sex>>'
  1348. ' Prostitution = <<village_prostitute>>'
  1349. '<b>Sports = <<village_sport>></b>'
  1350. ' Kickboxer = <<village_kickboxing>>'
  1351. ' Runner = <<village_running>>'
  1352. ' Volleyball player = <<village_volleyball>>'
  1353. '<b>Intellectual = <<village_int>></b>'
  1354. ' Chess player = <<village_chess>>'
  1355. ' Teacher = <<village_teaching>>'
  1356. '<b>Social = <<village_social>></b>'
  1357. ' Social media = <<village_media>>'
  1358. end
  1359. '</tr></td></table></center>'
  1360. '</td><td width="50%" cellspacing="0" cellpadding="0" valign="top">'
  1361. if film > 0:
  1362. '<b>Pornographic Filmography</b>'
  1363. gs 'pornhist', 'short'
  1364. if pfilmSTOP = 0:
  1365. *nl
  1366. '<font color="magenta"><<$pfname>></font> has starred in <b><<film>></b> porn films:'
  1367. *nl
  1368. else
  1369. *nl
  1370. '<font color="magenta"><<$pfname>></font> retired after <b><<film>></b> porn films:'
  1371. *nl
  1372. end
  1373. '<a href="exec:gs ''pornhist'', ''pdetail''">View detailed Filmography</a>'
  1374. *nl
  1375. *p '<<$pfilmhistory>>'
  1376. end
  1377. '</td></tr></table></center>'
  1378. end
  1379. if $ARGS[0] = 'magic':
  1380. *clr & cla
  1381. gs 'obj_din','chartabs'
  1382. '<center><h1>Magic</h1></center>'
  1383. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1384. '<td cellspacing="0" cellpadding="0" valign="top">'
  1385. if pcs_magik = 0:
  1386. 'You are unable to use magic.'
  1387. elseif pcs_magik > 0:
  1388. 'You have <<pcs_mana>> units of mana available to you.'
  1389. !!' Forces Rikudo available to you <<rikudo>> units'
  1390. *nl
  1391. $SpellListStr = "<center>
  1392. <h1>Combat Spells</h1><br>
  1393. <<func('spellBook','list','$combatSpells')>><br>
  1394. <h1>Non-Combat Spells</h1><br>
  1395. <<func('spellBook','list','$nonComSpells')>><br>
  1396. </center>"
  1397. *pl func('cleanHTML',$SpellListStr)
  1398. killvar 'i'
  1399. killvar '$ThisSpellName'
  1400. killvar '$SpellListStr'
  1401. end
  1402. if succubusflag = 1 and sucpcinfo >= 4 and sucskill >= 1:
  1403. '<center><b>Succubus Stats</b></center>'
  1404. *nl
  1405. 'Succubus Level = <<succublvl>>'
  1406. 'Succubus XP = <<succubxp>>'
  1407. '"Food" Energy Reserve = <<0 - succhungry>> day(s)'
  1408. 'Stored Sexual Energy = <<sucexcess>>'
  1409. 'Sexual Energy Storage Capacity = <<sucstorecap>>'
  1410. *nl
  1411. if sucskill >= 2: 'You have learned to increase your storage capacity and to store energy before using it.'
  1412. if sucskill >= 3: 'You have learned to be more efficient in your energy handling.'
  1413. if sucskill >= 4: 'You have learned the accommodation ability.'
  1414. *nl
  1415. !! More to come
  1416. end
  1417. '</td></tr></table></center>'
  1418. end
  1419. if $ARGS[0] = 'pain':
  1420. *clr & cla
  1421. gs 'obj_din','chartabs'
  1422. '<center><h1>Pain</h1></center>'
  1423. '<center><table cellspacing="0" cellpadding="20" valign="top"><tr>'
  1424. '<td cellspacing="0" cellpadding="0" valign="top">'
  1425. if pain['head'] > 0:
  1426. if pain['head'] > 70:
  1427. '<b><font color="red">Your head is in extreme pain.</font></b>'
  1428. elseif pain['head'] > 40:
  1429. 'Your head is very sore.'
  1430. else
  1431. 'Your head hurts.'
  1432. end
  1433. end
  1434. if pain['hair'] > 0:
  1435. if pain['hair'] > 70:
  1436. '<b><font color="red">Your scalp is in extreme pain.</font></b>'
  1437. elseif pain['hair'] > 40:
  1438. 'Your scalp is very sore.'
  1439. else
  1440. 'Your scalp hurts.'
  1441. end
  1442. end
  1443. if pain['ears'] > 0:
  1444. if pain['ears'] > 70:
  1445. '<b><font color="red">Your ears are in extreme pain.</font></b>'
  1446. elseif pain['ears'] > 40:
  1447. 'Your ears are very sore.'
  1448. else
  1449. 'Your ears hurt.'
  1450. end
  1451. end
  1452. if pain['eyebrows'] > 0:
  1453. if pain['eyebrows'] > 70:
  1454. '<b><font color="red">Your eyebrows are in extreme pain.</font></b>'
  1455. elseif pain['eyebrows'] > 40:
  1456. 'Your eyebrows are very sore.'
  1457. else
  1458. 'Your eyebrows hurt.'
  1459. end
  1460. end
  1461. if pain['eyes'] > 0:
  1462. if pain['eyes'] > 70:
  1463. '<b><font color="red">Your eyes are in extreme pain.</font></b>'
  1464. elseif pain['eyes'] > 40:
  1465. 'Your eyes are very sore.'
  1466. else
  1467. 'Your eyes hurt.'
  1468. end
  1469. end
  1470. if pain['cheeks'] > 0:
  1471. if pain['cheeks'] > 70:
  1472. '<b><font color="red">Your cheeks are in extreme pain.</font></b>'
  1473. elseif pain['cheeks'] > 40:
  1474. 'Your cheeks are very sore.'
  1475. else
  1476. 'Your cheeks hurt.'
  1477. end
  1478. end
  1479. if pain['nose'] > 0:
  1480. if pain['nose'] > 70:
  1481. '<b><font color="red">Your nose is in extreme pain.</font></b>'
  1482. elseif pain['nose'] > 40:
  1483. 'Your nose is very sore.'
  1484. else
  1485. 'Your nose hurts.'
  1486. end
  1487. end
  1488. if pain['mouth'] > 0:
  1489. if pain['mouth'] > 70:
  1490. '<b><font color="red">Your mouth is in extreme pain.</font></b>'
  1491. elseif pain['mouth'] > 40:
  1492. 'Your mouth is very sore.'
  1493. else
  1494. 'Your mouth hurts.'
  1495. end
  1496. end
  1497. if pain['lips'] > 0:
  1498. if pain['lips'] > 70:
  1499. '<b><font color="red">Your lips are in extreme pain.</font></b>'
  1500. elseif pain['lips'] > 40:
  1501. 'Your lips are very sore.'
  1502. else
  1503. 'Your lips hurt.'
  1504. end
  1505. end
  1506. if pain['tongue'] > 0:
  1507. if pain['tongue'] > 70:
  1508. '<b><font color="red">Your tongue is in extreme pain.</font></b>'
  1509. elseif pain['tongue'] > 40:
  1510. 'Your tongue is very sore.'
  1511. else
  1512. 'Your tongue hurts.'
  1513. end
  1514. end
  1515. if pain['throat'] > 0:
  1516. if pain['throat'] > 70:
  1517. '<b><font color="red">Your throat is in extreme pain.</font></b>'
  1518. elseif pain['throat'] > 40:
  1519. 'Your throat is very sore.'
  1520. else
  1521. 'Your throat hurts.'
  1522. end
  1523. end
  1524. if pain['neck'] > 0:
  1525. if pain['neck'] > 70:
  1526. '<b><font color="red">Your neck is in extreme pain.</font></b>'
  1527. elseif pain['neck'] > 40:
  1528. 'Your neck is very sore.'
  1529. else
  1530. 'Your neck hurts.'
  1531. end
  1532. end
  1533. if pain['back'] > 0:
  1534. if pain['back'] > 70:
  1535. '<b><font color="red">Your back is in extreme pain.</font></b>'
  1536. elseif pain['back'] > 40:
  1537. 'Your back is very sore.'
  1538. else
  1539. 'Your back hurts.'
  1540. end
  1541. end
  1542. if pain['asscheeks'] + (spanked * 24) > 0:
  1543. if pain['asscheeks'] + (spanked * 24) > 70:
  1544. '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass2.jpg''">asscheeks</a> are in extreme pain.</font></b>'
  1545. elseif pain['asscheeks'] + (spanked * 24) > 40:
  1546. '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass1.jpg''">asscheeks</a> are very sore.</font></b>'
  1547. else
  1548. '<b><font color="red">Your <a href="exec:view''images/pc/body/spankedass.jpg''">asscheeks</a> hurt.</font></b>'
  1549. end
  1550. end
  1551. if pain['asshole'] + (agape * 10) > 0:
  1552. if pain['asshole'] + (agape * 10) > 70:
  1553. '<b><font color="red">You an extremely sore anus and it is bleeding.</font></b>'
  1554. elseif pain['asshole'] + (agape * 10) > 40:
  1555. '<b><font color="red">You have a very sore anus.</font></b>'
  1556. else
  1557. '<b><font color="red">You have a sore and itchy anus.</font></b>'
  1558. end
  1559. end
  1560. if pain['hips'] > 0:
  1561. if pain['hips'] > 70:
  1562. '<b><font color="red">Your hips are in extreme pain.</font></b>'
  1563. elseif pain['hips'] > 40:
  1564. 'Your hips are very sore.'
  1565. else
  1566. 'Your hips hurt.'
  1567. end
  1568. end
  1569. if pain['thighs'] > 0:
  1570. if pain['thighs'] > 70:
  1571. '<b><font color="red">Your thighs are in extreme pain.</font></b>'
  1572. elseif pain['thighs'] > 40:
  1573. 'Your thighs are very sore.'
  1574. else
  1575. 'Your thighs hurt.'
  1576. end
  1577. end
  1578. if pain['legL'] > 0:
  1579. if pain['legL'] > 70:
  1580. '<b><font color="red">Your left leg is in extreme pain.</font></b>'
  1581. elseif pain['legL'] > 40:
  1582. 'Your left leg is very sore.'
  1583. else
  1584. 'Your left leg hurts.'
  1585. end
  1586. end
  1587. if pain['legR'] > 0:
  1588. if pain['legR'] > 70:
  1589. '<b><font color="red">Your right leg is in extreme pain.</font></b>'
  1590. elseif pain['legR'] > 40:
  1591. 'Your right leg is very sore.'
  1592. else
  1593. 'Your right leg hurts.'
  1594. end
  1595. end
  1596. if pain['feet'] > 0:
  1597. if pain['feet'] > 70:
  1598. '<b><font color="red">Your feet are in extreme pain.</font></b>'
  1599. elseif pain['feet'] > 40:
  1600. 'Your feet are very sore.'
  1601. else
  1602. 'Your feet hurt.'
  1603. end
  1604. end
  1605. if pain['toes'] > 0:
  1606. if pain['toes'] > 70:
  1607. '<b><font color="red">Your toes are in extreme pain.</font></b>'
  1608. elseif pain['toes'] > 40:
  1609. 'Your toes are very sore.'
  1610. else
  1611. 'Your toes foot hurt.'
  1612. end
  1613. end
  1614. if pain['shoulders'] > 0:
  1615. if pain['shoulders'] > 70:
  1616. '<b><font color="red">Your shoulders are in extreme pain.</font></b>'
  1617. elseif pain['shoulders'] > 40:
  1618. 'Your shoulders are very sore.'
  1619. else
  1620. 'Your shoulders hurt.'
  1621. end
  1622. end
  1623. if pain['armL'] > 0:
  1624. if pain['armL'] > 70:
  1625. '<b><font color="red">Your left arm is in extreme pain.</font></b>'
  1626. elseif pain['armL'] > 40:
  1627. 'Your left arm is very sore.'
  1628. else
  1629. 'Your left arm hurts.'
  1630. end
  1631. end
  1632. if pain['armR'] > 0:
  1633. if pain['armR'] > 70:
  1634. '<b><font color="red">Your right arm is in extreme pain.</font></b>'
  1635. elseif pain['armR'] > 40:
  1636. 'Your right arm is very sore.'
  1637. else
  1638. 'Your right arm hurts.'
  1639. end
  1640. end
  1641. if pain['hands'] > 0:
  1642. if pain['hands'] > 70:
  1643. '<b><font color="red">Your hands are in extreme pain.</font></b>'
  1644. elseif pain['hands'] > 40:
  1645. 'Your hands are very sore.'
  1646. else
  1647. 'Your hands hurt.'
  1648. end
  1649. end
  1650. if pain['fingers'] > 0:
  1651. if pain['fingers'] > 70:
  1652. '<b><font color="red">Your fingers are in extreme pain.</font></b>'
  1653. elseif pain['fingers'] > 40:
  1654. 'Your fingers are very sore.'
  1655. else
  1656. 'Your fingers hurt.'
  1657. end
  1658. end
  1659. if pain['chest'] > 0:
  1660. if pain['chest'] > 70:
  1661. '<b><font color="red">Your chest is in extreme pain.</font></b>'
  1662. elseif pain['chest'] > 40:
  1663. 'Your chest is very sore.'
  1664. else
  1665. 'Your chest hurts.'
  1666. end
  1667. end
  1668. if pain['breasts'] > 0:
  1669. if pain['breasts'] > 70:
  1670. '<b><font color="red">Your breasts are in extreme pain.</font></b>'
  1671. elseif pain['breasts'] > 40:
  1672. 'Your breasts are very sore.'
  1673. else
  1674. 'Your breasts hurt.'
  1675. end
  1676. end
  1677. if pain['nipples'] > 0:
  1678. if pain['nipples'] > 70:
  1679. '<b><font color="red">Your nipples are in extreme pain.</font></b>'
  1680. elseif pain['nipples'] > 40:
  1681. 'Your nipples are very sore.'
  1682. else
  1683. 'Your nipples hurt.'
  1684. end
  1685. end
  1686. if pain['ribs'] > 0:
  1687. if pain['ribs'] > 70:
  1688. '<b><font color="red">Your ribs are in extreme pain.</font></b>'
  1689. elseif pain['ribs'] > 40:
  1690. 'Your ribs are very sore.'
  1691. else
  1692. 'Your ribs hurt.'
  1693. end
  1694. end
  1695. if pain['tummy'] > 0:
  1696. if pain['tummy'] > 70:
  1697. '<b><font color="red">Your tummy is in extreme pain.</font></b>'
  1698. elseif pain['tummy'] > 40:
  1699. 'Your tummy is very sore.'
  1700. else
  1701. 'Your tummy hurts.'
  1702. end
  1703. end
  1704. if pain['pubic'] > 0:
  1705. if pain['pubic'] > 70:
  1706. '<b><font color="red">Your pubis is extremely painful.</font></b>'
  1707. elseif pain['pubic'] > 40:
  1708. 'Your pubis is very sore.'
  1709. else
  1710. 'Your pubis hurts.'
  1711. end
  1712. end
  1713. if pain['labia'] > 0:
  1714. if pain['labia'] > 70:
  1715. '<b><font color="red">Your labia is extremely painful.</font></b>'
  1716. elseif pain['labia'] > 40:
  1717. 'Your labia is very sore.'
  1718. else
  1719. 'Your labia hurts.'
  1720. end
  1721. end
  1722. if pain['vaginal'] + (vgape * 8) > 0:
  1723. if pain['vaginal'] + (vgape * 8) > 70:
  1724. '<b><font color="red">You have very sore vagina, you can hardly even walk, while trying to keep your feet apart.</font></b>'
  1725. elseif pain['vaginal'] + (vgape * 8) > 40:
  1726. '<b><font color="red">You have a very sore vagina and you can hardly keep your feet together.</font></b>'
  1727. else
  1728. '<b><font color="red">You have a sore vagina.</font></b>'
  1729. end
  1730. end
  1731. if pain['clitoris'] > 0:
  1732. if pain['clitoris'] > 70:
  1733. '<b><font color="red">Your clitoris is in extreme pain.</font></b>'
  1734. elseif pain['clitoris'] > 40:
  1735. 'Your clitoris is very sore.'
  1736. else
  1737. 'Your clitoris hurts.'
  1738. end
  1739. end
  1740. if pain['urethra'] > 0:
  1741. if pain['urethra'] > 70:
  1742. '<b><font color="red">Your urethra is extremely painful.</font></b>'
  1743. elseif pain['urethra'] > 40:
  1744. 'Your urethra is very sore.'
  1745. else
  1746. 'Your urethra hurts.'
  1747. end
  1748. end
  1749. if pain['cervix'] > 0:
  1750. if pain['cervix'] > 70:
  1751. '<b><font color="red">Your cervix is in extreme pain.</font></b>'
  1752. elseif pain['cervix'] > 40:
  1753. 'Your cervix is very sore.'
  1754. else
  1755. 'Your cervix hurts.'
  1756. end
  1757. end
  1758. '</td></tr></table></center>'
  1759. end
  1760. if $ARGS[0] = 'face':
  1761. !disay image and escription for menu
  1762. *clr
  1763. gs 'obj_din','bodytabs'
  1764. '<center><h1>Looks</h1></center>'
  1765. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1766. '<td cellspacing="0" cellpadding="0" valign="top">'
  1767. $img_temp = FUNC('$face_image')
  1768. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1769. killvar 'img_temp'
  1770. if avatar_hair = 1:
  1771. 'Your hair: <<$av_hair>>.'
  1772. else
  1773. '<<$hair>>'
  1774. end
  1775. if defcurly = 0 and curly > 0: 'Your curls are good for another <<curly>> days.'
  1776. if defcurly = 1 and straight > 0: 'Your hair should be straight for another <<straight>> days.'
  1777. *nl
  1778. '<<$lip>>'
  1779. '<<$pcs_throat>>'
  1780. '<<$skin>>'
  1781. '<<$glaza>>'
  1782. '<<$pcs_makeup>>.'
  1783. '</td></tr></table></center>'
  1784. end
  1785. if $ARGS[0] = 'body':
  1786. *clr
  1787. gs 'obj_din','bodytabs'
  1788. '<center><h1>Body</h1></center>'
  1789. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1790. '<td cellspacing="0" cellpadding="0" valign="top">'
  1791. !! This displays the body image; $bodimgsets[x9] is the folder name
  1792. !some in-game script may call this to display image, so leave it be
  1793. $img_temp = FUNC('$body_image','body')
  1794. if $modApi_body_image ! '':
  1795. $img_temp = $modApi_body_image
  1796. end
  1797. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1798. if $modApi_body_image_msg = '':
  1799. '<<$body_image_msg>>'
  1800. else
  1801. '<<$modApi_body_image_msg>>'
  1802. end
  1803. killvar 'img_temp'
  1804. killvar 'body_image_msg'
  1805. '</td></tr></table></center>'
  1806. end
  1807. if $ARGS[0] = 'clothes':
  1808. *clr
  1809. gs 'obj_din','bodytabs'
  1810. '<center><h1>Clothes</h1></center>'
  1811. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1812. '<td width="50%" cellspacing="0" cellpadding="20" valign="top">'
  1813. !move image define to $body_image
  1814. !display cloth
  1815. $img_temp = FUNC('$body_image','clothes')
  1816. if $modApi_clothes_image ! '':
  1817. $img_temp = $modApi_clothes_image
  1818. end
  1819. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1820. if $modApi_clothes_image_msg = '':
  1821. '<<$body_image_msg>>'
  1822. else
  1823. '<<$modApi_clothes_image_msg>>'
  1824. end
  1825. '</td><td width="50%" cellpadding="20" valign="top">'
  1826. !display coat
  1827. $img_temp = FUNC('$body_image','coat')
  1828. if $modApi_coat_image ! '':
  1829. $img_temp = $modApi_coat_image
  1830. end
  1831. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1832. if $modApi_coat_image_msg = '':
  1833. '<<$body_image_msg>>'
  1834. else
  1835. '<<$modApi_coat_image_msg>>'
  1836. end
  1837. '</td></tr>'
  1838. '</table></center>'
  1839. killvar 'img_temp'
  1840. killvar 'body_image_msg'
  1841. '</td></tr></table></center>'
  1842. end
  1843. if $ARGS[0] = 'panties':
  1844. *clr
  1845. gs 'obj_din','bodytabs'
  1846. '<center><h1>Panties</h1></center>'
  1847. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1848. '<td cellspacing="0" cellpadding="0" valign="top">'
  1849. $img_temp = FUNC('$body_image','panties')
  1850. if $modApi_panties_image ! '':
  1851. $img_temp = $modApi_panties_image
  1852. end
  1853. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1854. if $modApi_panties_image_msg = '':
  1855. '<<$body_image_msg>>'
  1856. else
  1857. '<<$modApi_panties_image_msg>>'
  1858. end
  1859. killvar 'img_temp'
  1860. killvar 'body_image_msg'
  1861. '</td></tr></table></center>'
  1862. end
  1863. if $ARGS[0] = 'bra':
  1864. *clr
  1865. gs 'obj_din','bodytabs'
  1866. '<center><h1>Bra</h1></center>'
  1867. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1868. '<td cellspacing="0" cellpadding="0" valign="top">'
  1869. $img_temp = FUNC('$body_image','bra')
  1870. if $modApi_bra_image ! '':
  1871. $img_temp = $modApi_bra_image
  1872. end
  1873. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1874. if $modApi_bra_image_msg = '':
  1875. '<<$body_image_msg>>'
  1876. else
  1877. '<<$modApi_bra_image_msg>>'
  1878. end
  1879. killvar 'img_temp'
  1880. killvar 'body_image_msg'
  1881. '</td></tr></table></center>'
  1882. end
  1883. if $ARGS[0] = 'show_tits':
  1884. view 'images/pc/body/tits/t<<tits>>.jpg'
  1885. end
  1886. if $ARGS[0] = 'show_body':
  1887. $img_temp = FUNC('$body_image','body')
  1888. view '<<$img_temp>>'
  1889. killvar 'img_temp'
  1890. end
  1891. if $ARGS[0] = 'shoes':
  1892. *clr
  1893. gs 'obj_din','bodytabs'
  1894. '<center><h1>Shoes</h1></center>'
  1895. '<center><table width="90%" cellspacing="0" cellpadding="20" valign="top"><tr>'
  1896. '<td cellspacing="0" cellpadding="0" valign="top">'
  1897. $img_temp = FUNC('$body_image','shoes')
  1898. if $modApi_shoes_image ! '':
  1899. $img_temp = $modApi_shoes_image
  1900. end
  1901. '<center><img <<$set_imgh>> src="<<$img_temp>>"></a></center>'
  1902. if $modApi_shoes_image_msg = '':
  1903. '<<$body_image_msg>>'
  1904. else
  1905. '<<$modApi_shoes_image_msg>>'
  1906. end
  1907. killvar 'img_temp'
  1908. killvar 'body_image_msg'
  1909. '</td></tr></table></center>'
  1910. end
  1911. if $ARGS[0] = 'tattoos':
  1912. *clr & cla
  1913. gs 'obj_din','bodytabs'
  1914. '<center><h1>Tattoos</h1></center>'
  1915. tatcounter = 0
  1916. '<center>'
  1917. *pl
  1918. if tatfce > 0:
  1919. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooface''">Face</a> | '
  1920. else
  1921. *p 'Face | '
  1922. end
  1923. if tatlip > 0:
  1924. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoolip''">Lip</a> | '
  1925. else
  1926. *p 'Lip | '
  1927. end
  1928. if tatneck > 0:
  1929. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooneck''">Neck</a> | '
  1930. else
  1931. *p 'Neck | '
  1932. end
  1933. if tatback > 0:
  1934. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooback''">Back</a> | '
  1935. else
  1936. *p 'Back | '
  1937. end
  1938. if tatlech > 0:
  1939. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooshoulder''">Shoulder</a> | '
  1940. else
  1941. *p 'Shoulder | '
  1942. end
  1943. if tatbrst > 0:
  1944. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoobreast''">Breast</a> | '
  1945. else
  1946. *p 'Breast | '
  1947. end
  1948. if tatunder > 0:
  1949. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoounder''">Under Breast</a> | '
  1950. else
  1951. *p 'Under Breast | '
  1952. end
  1953. if tatchst > 0:
  1954. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoochest''">Chest</a> | '
  1955. else
  1956. *p 'Chest | '
  1957. end
  1958. if tatside > 0:
  1959. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooside''">Side</a> | '
  1960. else
  1961. *p 'Side | '
  1962. end
  1963. if tatblly > 0:
  1964. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoobelly''">Belly</a>'
  1965. else
  1966. *p 'Belly'
  1967. end
  1968. *pl
  1969. if tatarm > 0:
  1970. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooarm''">Arm</a> | '
  1971. else
  1972. *p 'Arm | '
  1973. end
  1974. if tatwrist > 0:
  1975. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoowrist''">Wrist</a> | '
  1976. else
  1977. *p 'Wrist | '
  1978. end
  1979. if tathand > 0:
  1980. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoohand''">Hand</a> | '
  1981. else
  1982. *p 'Hand | '
  1983. end
  1984. if tatleg > 0:
  1985. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooleg''">Leg</a> | '
  1986. else
  1987. *p 'Leg | '
  1988. end
  1989. if tatankle > 0:
  1990. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoofoot''">Foot</a> | '
  1991. else
  1992. *p 'Foot | '
  1993. end
  1994. if tatupb > 0:
  1995. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattootramp''">"Tramp Stamp"</a> | '
  1996. else
  1997. *p 'Tramp Stamp | '
  1998. end
  1999. if tatass > 0:
  2000. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattooass''">Butt</a> | '
  2001. else
  2002. *p 'Butt | '
  2003. end
  2004. if tatvag > 0:
  2005. tatcounter = 1 & *p '<a href="exec: gs ''obj_din'', ''tattoovag''">Groin</a>'
  2006. else
  2007. *p 'Groin'
  2008. end
  2009. '</center>'
  2010. if tatcounter = 0:
  2011. 'You have a pristine body. Not in terms of debauchery, but in terms of tattoos.'
  2012. end
  2013. end
  2014. !!Image displays for tattoos
  2015. if $ARGS[0] = 'tattooarm':
  2016. *clr
  2017. gs 'obj_din', 'tattoos'
  2018. *nl
  2019. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/arms/tatarm<<tatarm>>.jpg"></center>'
  2020. end
  2021. if $ARGS[0] = 'tattooass':
  2022. *clr
  2023. gs 'obj_din', 'tattoos'
  2024. *nl
  2025. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/ass/tatass<<tatass>>.jpg"></center>'
  2026. end
  2027. if $ARGS[0] = 'tattooback':
  2028. *clr
  2029. gs 'obj_din', 'tattoos'
  2030. *nl
  2031. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/back/tatback<<tatback>>.jpg"></center>'
  2032. end
  2033. if $ARGS[0] = 'tattoobelly':
  2034. *clr
  2035. gs 'obj_din', 'tattoos'
  2036. *nl
  2037. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/belly/tatblly<<tatblly>>.jpg"></center>'
  2038. end
  2039. if $ARGS[0] = 'tattoobreast':
  2040. *clr
  2041. gs 'obj_din', 'tattoos'
  2042. *nl
  2043. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/breasts/tatbrst<<tatbrst>>.jpg"></center>'
  2044. end
  2045. if $ARGS[0] = 'tattoochest':
  2046. *clr
  2047. gs 'obj_din', 'tattoos'
  2048. *nl
  2049. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/chest/tatchst<<tatchst>>.jpg"></center>'
  2050. end
  2051. if $ARGS[0] = 'tattooface':
  2052. *clr
  2053. gs 'obj_din', 'tattoos'
  2054. *nl
  2055. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/face/tatfce<<tatfce>>.jpg"></center>'
  2056. end
  2057. if $ARGS[0] = 'tattoofoot':
  2058. *clr
  2059. gs 'obj_din', 'tattoos'
  2060. *nl
  2061. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/foot/tatankle<<tatankle>>.jpg"></center>'
  2062. end
  2063. if $ARGS[0] = 'tattooleg':
  2064. *clr
  2065. gs 'obj_din', 'tattoos'
  2066. *nl
  2067. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/legs/tatleg<<tatleg>>.jpg"></center>'
  2068. end
  2069. if $ARGS[0] = 'tattoolip':
  2070. *clr
  2071. gs 'obj_din', 'tattoos'
  2072. *nl
  2073. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/lip/tatlip<<tatlip>>.jpg"></center>'
  2074. end
  2075. if $ARGS[0] = 'tattooneck':
  2076. *clr
  2077. gs 'obj_din', 'tattoos'
  2078. *nl
  2079. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/neck/tatnck<<tatneck>>.jpg"></center>'
  2080. end
  2081. if $ARGS[0] = 'tattoovag':
  2082. *clr
  2083. gs 'obj_din', 'tattoos'
  2084. *nl
  2085. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/pubic/tatvag<<tatvag>>.jpg"></center>'
  2086. end
  2087. if $ARGS[0] = 'tattooshoulder':
  2088. *clr
  2089. gs 'obj_din', 'tattoos'
  2090. *nl
  2091. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/shoulder/tatshldr<<tatlech>>.jpg"></center>'
  2092. end
  2093. if $ARGS[0] = 'tattooside':
  2094. *clr
  2095. gs 'obj_din', 'tattoos'
  2096. *nl
  2097. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/side/tatside<<tatside>>.jpg"></center>'
  2098. end
  2099. if $ARGS[0] = 'tattootramp':
  2100. *clr
  2101. gs 'obj_din', 'tattoos'
  2102. *nl
  2103. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/trampstamp/tatlowbck<<tatupb>>.jpg"></center>'
  2104. end
  2105. if $ARGS[0] = 'tattoounder':
  2106. *clr
  2107. gs 'obj_din', 'tattoos'
  2108. *nl
  2109. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/underbreast/tatundbreast<<tatunder>>.jpg"></center>'
  2110. end
  2111. if $ARGS[0] = 'tattoowrist':
  2112. *clr
  2113. gs 'obj_din', 'tattoos'
  2114. *nl
  2115. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/wrists/tatwrst<<tatwrist>>.jpg"></center>'
  2116. end
  2117. if $ARGS[0] = 'tattoohand':
  2118. *clr
  2119. gs 'obj_din', 'tattoos'
  2120. *nl
  2121. '<center><img <<$set_imgh>> src="images/pc/body/tattoos/hand/tathnd<<tathand>>.jpg"></center>'
  2122. end
  2123. if $ARGS[0] = 'piercing':
  2124. *clr & cla
  2125. gs 'obj_din','bodytabs'
  2126. '<center><h1>Piercings</h1></center>'
  2127. '<center>'
  2128. 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:
  2129. 'You have no piercings.'
  2130. 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):
  2131. 'You are not wearing any piercings'
  2132. else
  2133. *pl
  2134. if pirsA > 0 and pirsA < 10000:
  2135. *p '<a href="exec:gs ''obj_din'', ''pirsA''">Tongue</a> | '
  2136. else
  2137. *p 'Tongue | '
  2138. end
  2139. if pirsB > 0 and pirsB < 10000:
  2140. *p '<a href="exec:gs ''obj_din'', ''pirsB''">Lips</a> | '
  2141. else
  2142. *p 'lips | '
  2143. end
  2144. if pirsC > 0 and pirsC < 10000:
  2145. *p '<a href="exec:gs ''obj_din'', ''pirsC''">Ears</a> | '
  2146. else
  2147. *p 'Ears | '
  2148. end
  2149. if pirsD > 0 and pirsD < 10000:
  2150. *p '<a href="exec:gs ''obj_din'', ''pirsD''">Nose</a> | '
  2151. else
  2152. *p 'Nose | '
  2153. end
  2154. if pirsE > 0 and pirsE < 10000:
  2155. *p '<a href="exec:gs ''obj_din'', ''pirsE''">Eyebrows</a> | '
  2156. else
  2157. *p 'Eyebrows | '
  2158. end
  2159. if pirsF > 0 and pirsF < 10000:
  2160. *p '<a href="exec:gs ''obj_din'', ''pirsF''">Nipples</a> | '
  2161. else
  2162. *p 'Nipples | '
  2163. end
  2164. if pirsN > 0 and pirsN < 10000:
  2165. *p '<a href="exec:gs ''obj_din'', ''pirsN''">Navel</a> | '
  2166. else
  2167. *p 'Navel | '
  2168. end
  2169. if pirsG > 0 and pirsG < 10000:
  2170. *p '<a href="exec:gs ''obj_din'', ''pirsG''">Pussy</a>'
  2171. else
  2172. *p 'Pussy'
  2173. end
  2174. end
  2175. '</center>'
  2176. end
  2177. !! piercing images.
  2178. if $ARGS[0] = 'pirsA':
  2179. *clr
  2180. gs 'obj_din', 'piercing'
  2181. *nl
  2182. '<center><img <<$set_imgh>> src="images/pc/body/piercings/a<<pirsA>>.jpg"></center>'
  2183. end
  2184. if $ARGS[0] = 'pirsB':
  2185. *clr
  2186. gs 'obj_din', 'piercing'
  2187. *nl
  2188. '<center><img <<$set_imgh>> src="images/pc/body/piercings/b<<pirsB>>.jpg"></center>'
  2189. end
  2190. if $ARGS[0] = 'pirsC':
  2191. *clr
  2192. gs 'obj_din', 'piercing'
  2193. *nl
  2194. '<center><img <<$set_imgh>> src="images/pc/body/piercings/c<<pirsC>>.jpg"></center>'
  2195. end
  2196. if $ARGS[0] = 'pirsD':
  2197. *clr
  2198. gs 'obj_din', 'piercing'
  2199. *nl
  2200. '<center><img <<$set_imgh>> src="images/pc/body/piercings/d<<pirsD>>.jpg"></center>'
  2201. end
  2202. if $ARGS[0] = 'pirsE':
  2203. *clr
  2204. gs 'obj_din', 'piercing'
  2205. *nl
  2206. '<center><img <<$set_imgh>> src="images/pc/body/piercings/e<<pirsE>>.jpg"></center>'
  2207. end
  2208. if $ARGS[0] = 'pirsF':
  2209. *clr
  2210. gs 'obj_din', 'piercing'
  2211. *nl
  2212. '<center><img <<$set_imgh>> src="images/pc/body/piercings/f<<pirsF>>.jpg"></center>'
  2213. end
  2214. if $ARGS[0] = 'pirsN':
  2215. *clr
  2216. gs 'obj_din', 'piercing'
  2217. *nl
  2218. '<center><img <<$set_imgh>> src="images/pc/body/piercings/n<<pirsN>>.jpg"></center>'
  2219. end
  2220. if $ARGS[0] = 'pirsG':
  2221. *clr
  2222. gs 'obj_din', 'piercing'
  2223. *nl
  2224. '<center><img <<$set_imgh>> src="images/pc/body/piercings/g<<pirsG>>.jpg"></center>'
  2225. end
  2226. if $ARGS[0] = 'records': gt 'journal', 'records'
  2227. if $ARGS[0] = 'emergency':
  2228. '<center><b>YOU JUST had to use emergency exit, this is only for use when you get a BLANK SCREEN.</b></center>'
  2229. *nl
  2230. '<center><b>DO NOT use this option without a good reason, doing so can cause instability and could damage your save game.</b></center>'
  2231. *nl
  2232. '<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>'
  2233. *nl
  2234. cla
  2235. if StoryLine = 1:act 'Go to Pavlovsk':gt 'pavResidential'
  2236. act 'Go to City Residental':gt 'street'
  2237. if $loc ! '' and $metka ! '':
  2238. act 'Cancel':gt $loc, $metka
  2239. elseif $loc ! '':
  2240. act 'Cancel':gt $loc
  2241. elseif $curloc ! '':
  2242. act 'Cancel':gt $curloc
  2243. end
  2244. end
  2245. !!quick time changes from the object menu
  2246. if $ARGS[0] = '-1 Hour':
  2247. hour -= 1
  2248. gs 'stat'
  2249. gt $loc, $metka
  2250. end
  2251. if $ARGS[0] = '+1 Hour':
  2252. hour += 1
  2253. gs 'stat'
  2254. gt $loc, $metka
  2255. end
  2256. ! remnants of old menu for testing
  2257. if $ARGS[0] = 'old':
  2258. killobj
  2259. oldobjmenu = 1
  2260. ! addobj '<center><font color = green>Character</font></center>'
  2261. ! addobj '<center>Skills</center>'
  2262. ! addobj '<center>Statistics</center>'
  2263. ! addobj '<center>Pain</center>'
  2264. ! addobj '<center>Traits</center>'
  2265. ! addobj '<center>Renown</center>'
  2266. ! if pcs_magik > 0:addobj '<center>Magic</center>'
  2267. ! addobj '<center>Face</center>'
  2268. ! addobj '<center>Body</center>'
  2269. ! addobj '<center>Clothing</center>'
  2270. ! addobj '<center>Panties</center>'
  2271. ! addobj '<center>Shoes</center>'
  2272. ! addobj '<center>Tattoos</center>'
  2273. ! addobj '<center>Piercing</center>'
  2274. ! addobj '<center>Phone</center>'
  2275. ! if bag > 0:addobj '<center>Purse</center>'
  2276. ! addobj '<center>Notebook</center>'
  2277. addobj '<center>Refresh</center>'
  2278. !addobj '<center>Settings</center>'
  2279. !addobj '<center>Cheats</center>'
  2280. if cheatConsole = 0: addobj '<center>Console</center>'
  2281. ! if disable_autosave = 1:
  2282. ! addobj '<center><font color = red><b>[</b></font>Autosave<font color = red><b>]</b></font></center>'
  2283. ! else
  2284. ! addobj '<center><font color = green><b>[</b></font>Autosave<font color = green><b>]</b></font></center>'
  2285. ! end
  2286. if cheatTime = 1:
  2287. addobj '<center>-1 Hour</center>'
  2288. addobj '<center>+1 Hour</center>'
  2289. end
  2290. addobj ''
  2291. addobj '<center><font color = red>Emergency</font></center>'
  2292. addobj ''
  2293. if debug_warning_closed = 0:
  2294. addobj '<center>This window is for debug only and can be safely closed.</center>'
  2295. addobj '<center>Remove debug info</center>'
  2296. end
  2297. end
  2298. if $ARGS[0] = 'wait':
  2299. cla
  2300. $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.")
  2301. waiting = 0
  2302. if $waitStr = '':
  2303. waiting = 15
  2304. elseif isnum($waitStr) = 0:
  2305. waiting = val(mid($waitStr, 1,2)) * 60 + val(mid($waitStr, 4,2)) - minut - hour * 60
  2306. else
  2307. waiting = val($waitStr)
  2308. end
  2309. if waiting > 0 and waiting <= 120:
  2310. minut += waiting
  2311. else
  2312. 'Invalid time.'
  2313. end
  2314. gs 'stat'
  2315. gt $loc, $metka
  2316. end
  2317. if $ARGS[0] = 'rest':
  2318. cla
  2319. waiting = input ("How long would you like to rest?<br>(Default 15 minutes, maximum 120 minutes)")
  2320. if waiting = '':
  2321. minut += 15
  2322. elseif waiting > 0 and waiting <= 120:
  2323. minut += waiting
  2324. pcs_mood += 10
  2325. if pcs_sleep < 90 and waiting >= 60:
  2326. pcs_sleep += 10
  2327. end
  2328. elseif waiting <= 0 or waiting > 120:
  2329. 'Invalid time.'
  2330. end
  2331. gs 'stat'
  2332. gt $loc, $metka
  2333. end
  2334. --- obj_din ---------------------------------