1
0

obj_din.qsrc 117 KB

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