1
0

obj_din.qsrc 127 KB

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