mod_addedflavour_SFLA_Bedr4.qsrc 3.9 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. # mod_addedflavour_SFLA_Bedr4
  2. if $ARGS[0] = 'start' or $ARGS[0] = '':
  3. CLOSE ALL
  4. $locM = 'mod_addedflavour_SFLA_Bedr4'
  5. $locM_arg = 'start'
  6. $loc = 'mod_addedflavour_SFLA_Bedr4'
  7. $loc_arg = 'start'
  8. $locclass = 'bedr'
  9. $menu_loc = 'mod_addedflavour_SFLA_Bedr4'
  10. $menu_arg = 'start'
  11. menu_off = 0
  12. $location_type = 'private'
  13. gs 'themes', 'indoors'
  14. gs 'mod_addedflavour_charsche' , 'chkschedule'
  15. gs 'mod_addedflavour_SFLA_Functions' , 'whoelse' , 'SFLA' , 'Any'
  16. if arrsize('modArr_AF_SFLA_SharedActPeopleArray') = 2 : gs 'mod_addedflavour_SFLA_Functions' , 'SFLA-InterNPC-Sex'
  17. gs 'stat'
  18. *clr & cla
  19. if sound = 0 : gs 'mod_addedflavour_SFLA_Functions' , 'soundgen'
  20. if pcs_sleep >= 50 and modVar_AF_EventOpen['A34-AptSleepEv'] = (daystart - 1):
  21. if modVar_AF_SFLA_AptState['SpareRoomOccupied'] = 2 and modVar_AF_SFLA_AptState['GuestID'] = 34:
  22. gs 'mod_addedflavour_SFLA_SexFunctions' , 'chksextriggers' , 34
  23. else
  24. modVar_AF_EventOpen['A34-AptSleepEv'] = 0
  25. end
  26. end
  27. if pcs_sleep < 50:
  28. modVar_AF_EventOpen['A34-AptSleepEv'] = daystart
  29. else
  30. modVar_AF_EventOpen['A34-AptSleepEv'] = 0
  31. end
  32. if modVar_AF_SFLA_AptRProg['Bedr4'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
  33. $modVar_AF_TempStr = 'Lv2'
  34. else
  35. $modVar_AF_TempStr = 'Lv1'
  36. end
  37. '<center><b><font color="maroon"><<$pcs_nickname>>''s Room</font></b></center>'
  38. '<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/city/citycenter/SharedFLApartment/Bedr4<<$modVar_AF_TempStr>>.jpg"></center>'
  39. gs 'mod_addedflavour_SFLA_Functions' , 'SFLA-UpgradeRoom-Check' , 'Bedr4'
  40. if modVar_AF_SFLA_AptRProg['Bedr4'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
  41. 'You are standing in your Bedroom which is open and welcoming with smooth colours and comfotable furniture.'
  42. else
  43. 'You are standing in your Bedroom which is simple but functional with second-hand furniture.'
  44. end
  45. gs 'mod_addedflavour_SFLA_Functions' , 'SFLA-PeoplePresent-Display' , 'mod_addedflavour_SFLA_Bedr4'
  46. *nl
  47. '<b>Furniture:</b>'
  48. 'A <a href="exec: gt ''bed'', ''start'' ">Bed</a> for doing Bed Things.'
  49. act 'Go to Bed' : gt 'bed', 'start'
  50. 'An <a href="exec: gt ''budilnik'', ''start''">Alarm Clock</a> which is currently turned ' + iif(budilnikOn = 0,'<font color="red">OFF</font>','<font color="green">ON</font>')
  51. 'A <a href="exec: gt ''wardrobe'', ''start''">wardrobe</a> where you can choose outfits and organise your clothing.'
  52. act 'Open Wardrobe' : gt 'wardrobe', 'start'
  53. if modVar_AF_SFLA_AptRProg['Bedr4'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
  54. 'A Table with a few Chairs you can use to use ' + iif(student > 0 and komp = 1,'your <a href="exec: gt ''Komp'' , ''start'' ">Laptop</a>','a Laptop') + ' on'
  55. else
  56. 'A Chair you could use ' + iif(student > 0 and komp = 1,'your <a href="exec: gt ''Komp'' , ''start'' ">Laptop</a>','a Laptop') + ' on.'
  57. end
  58. if modVar_AF_SFLA_AptRProg['Bedr4'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
  59. 'A Full-Length <a href="exec: gt ''mirror'',''start'' ">Mirror</a> for Personal use'
  60. end
  61. if pornMagazine > 0:
  62. 'A Secret hidey hole under your bed containing <i>"Special Interest Literature"</i>.'
  63. gs 'events' , 'read_porn'
  64. end
  65. if modVar_AF_SFLA_AptRProg['Bedr4'] >= modVar_AF_SFLA_AptRProg['Lv2Req']:
  66. 'A space set aside for ' + iif(sewing_kit = 1,'<a href="exec: gt ''sewing'' , ''start'' ">Sewing</a>','Sewing')
  67. 'A desk with enough room to setup a ' + iif(komp = 1,'<a href="exec: gt ''Komp'' , ''start'' ">Laptop</a>','Laptop')
  68. 'A Bookcase for storing your <a href="exec: gt ''mod_addedflavour_SFLA_Events'' , ''read'' ">Books</a>'
  69. if sewing_kit = 1:
  70. act 'Start Sewing' : gt 'sewing','start'
  71. end
  72. act 'Read Something' : gt 'mod_addedflavour_SFLA_Events' , 'read'
  73. end
  74. act 'Relax (0:30)' : gt 'mod_addedflavour_SFLA_Events' , 'relax' , 30
  75. act '<b>Go To Living Room</b>' : minut += 1 & gt 'mod_addedflavour_SFLA_Sitr' , 'start'
  76. end
  77. --- mod_addedflavour_SFLA_Bedr4 ---------------------------------