1
0

obj_din.qsrc 118 KB

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