1
0

obj_din.qsrc 129 KB

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