LakeBoyZ.qsrc 6.1 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145
  1. # LakeBoyZ
  2. $gL_boy_z = {
  3. act '<<$pcs_nickname>>':
  4. *clr & cla
  5. gs 'stat'
  6. if $clothingworntype = 'nude':
  7. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathe_nudelake.jpg"></center>'
  8. else
  9. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/sunbathe_lake.jpg"></center>'
  10. end
  11. 'He seems nice enough so you decide to give him your name.'
  12. randvnesh = rand(40,120)
  13. if rand(0,10) = 0 and pcs_apprnc >= randvnesh:
  14. '<<$boydesc>> smiles as he says, "You''re a pretty cool girl. Maybe we can hang out again?"'
  15. gs 'willpower', 'misc', 'resist', 'easy'
  16. if will_cost <= pcs_willpwr:
  17. act 'Smile and leave (<<will_cost>> Willpower)':
  18. gs 'willpower', 'pay', 'resist'
  19. gt 'glake'
  20. end
  21. else
  22. act 'Smile and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  23. end
  24. act 'Give him your phone number':
  25. *clr & cla
  26. pcs_mood += 10
  27. gs 'boy', 'details'
  28. if rand(0,2) = 0: gs 'boyfrend','start'
  29. minut += 5
  30. bmFrend[Tboynum] = 1
  31. gs 'stat'
  32. 'You give <<$boydesc>> your phone number and he adds it to his contact list.'
  33. 'He then excuses himself and leaves, promising to call you.'
  34. act 'Return': gt 'glake'
  35. end
  36. else
  37. '<<$boydesc>> sits closer to you and offers you a cold beer.'
  38. gs 'willpower', 'drink', 'resist', 'easy'
  39. if will_cost <= pcs_willpwr:
  40. act 'Smile and leave (<<will_cost>> Willpower)':
  41. gs 'willpower', 'pay', 'resist'
  42. gt 'glake'
  43. end
  44. else
  45. act 'Smile and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  46. end
  47. act 'Drink beer':
  48. *clr & cla
  49. minut += 15
  50. gs 'drugs', 'alcohol', 'beer', 1
  51. gs 'stat'
  52. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg"></center>'
  53. 'You drink beer with the guy, and the two of you chat for a while.'
  54. 'Suddenly, he puts his hand on your thigh.'
  55. '"Another beer, <<$pcs_nickname>>?"'
  56. gs 'willpower', 'drink', 'resist', 'easy'
  57. if will_cost <= pcs_willpwr:
  58. act 'Thank him for the beer and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
  59. else
  60. act 'Thank him for the beer and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  61. end
  62. act 'Drink some more beer':
  63. *clr & cla
  64. gs 'drugs', 'alcohol', 'beer', 1
  65. gs 'arousal', 'foreplay', 5
  66. gs 'stat'
  67. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg"></center>'
  68. 'You drink more beer with <<$boydesc>>. He begins stroking your leg and puts his hand on your chest as he leans into you.'
  69. if rand(1,100) <= 20:
  70. 'Leaned in he whispers to you, "I need to taste those lips."'
  71. gs 'willpower', 'kiss', 'resist', 'easy'
  72. if will_cost <= pcs_willpwr:
  73. act 'Push him away and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
  74. else
  75. act 'Push him away and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  76. end
  77. act 'Kiss him':
  78. *clr & cla
  79. gs 'arousal', 'kiss', 5
  80. gs 'arousal', 'end'
  81. gs 'stat'
  82. if $clothingworntype = 'nude':
  83. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/kissnude.jpg"></center>'
  84. else
  85. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/kissboy.jpg"></center>'
  86. end
  87. 'You passionately kiss <<$boydesc>>, as he continues to caress your body, paying particular interest to your breasts.'
  88. '<<$boydesc>> invites you to his house.'
  89. gs 'willpower', 'sex', 'resist', 'easy'
  90. if will_cost <= pcs_willpwr:
  91. act 'Call it a day and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
  92. else
  93. act 'Call it a day and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  94. end
  95. act 'Follow him to his house':
  96. if $clothingworntype = 'nude':
  97. gs 'clothing', 'wear_last_worn'
  98. gs 'underwear', 'wear'
  99. if PCloswimwear = 1:gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  100. gt 'LBZhouse'
  101. else
  102. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  103. gs 'underwear', 'wear'
  104. gt 'LBZhouse'
  105. end
  106. end
  107. end
  108. else
  109. '<<$boydesc>> smiles and suggests that the two of you go for a walk.'
  110. act 'Reject and leave':gt'glake'
  111. act 'Agree':
  112. *clr & cla
  113. minut += 15
  114. if $clothingworntype = 'nude':
  115. gs 'clothing', 'wear_last_worn'
  116. gs 'underwear', 'wear'
  117. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/changenude.jpg"></center>'
  118. if PCloswimwear = 1:
  119. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  120. gs 'underwear', 'wear'
  121. end
  122. else
  123. gs 'clothing', 'wear', $normalclothingworntype, normalclothingwornno
  124. gs 'underwear', 'wear'
  125. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/changebikini.jpg"></center>'
  126. end
  127. gs'stat'
  128. 'You quickly get changed into your regular clothes and go for a walk with <<$boydesc>>.'
  129. '<<$boydesc>> invites you over to his house.'
  130. gs 'willpower', 'sex', 'resist', 'easy'
  131. if will_cost <= pcs_willpwr:
  132. act 'Call it a day and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'glake'
  133. else
  134. act 'Call it a day and leave (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  135. end
  136. act 'Follow him to his house':gt'LBZhouse'
  137. end
  138. end
  139. end
  140. end
  141. end
  142. end
  143. }
  144. --- LakeBoyZ ---------------------------------