LakeBoyZ.qsrc 6.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136
  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 'pav_lake'
  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. if rand(0,2) = 0: gs 'boyfrend','start'
  28. minut += 5
  29. bmFrend[Tboynum] = 1
  30. gs 'stat'
  31. 'You give <<$boydesc>> your phone number and he adds it to his contact list.'
  32. 'He then excuses himself and leaves, promising to call you.'
  33. act 'Return': gt 'pav_lake'
  34. end
  35. else
  36. '<<$boydesc>> sits closer to you and offers you a cold beer.'
  37. gs 'willpower', 'drink', 'resist', 'easy'
  38. if will_cost <= pcs_willpwr:
  39. act 'Smile and leave (<<will_cost>> Willpower)':
  40. gs 'willpower', 'pay', 'resist'
  41. gt 'pav_lake'
  42. end
  43. else
  44. 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>'
  45. end
  46. act 'Drink beer':
  47. *clr & cla
  48. minut += 15
  49. gs 'drugs', 'alcohol', 'beer', 1
  50. gs 'stat'
  51. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg"></center>'
  52. 'You drink beer with the guy, and the two of you chat for a while.'
  53. 'Suddenly, he puts his hand on your thigh.'
  54. '"Another beer, <<$pcs_nickname>>?"'
  55. gs 'willpower', 'drink', 'resist', 'easy'
  56. if will_cost <= pcs_willpwr:
  57. act 'Thank him for the beer and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'pav_lake'
  58. else
  59. 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>'
  60. end
  61. act 'Drink some more beer':
  62. *clr & cla
  63. gs 'drugs', 'alcohol', 'beer', 1
  64. gs 'arousal', 'foreplay', 5
  65. gs 'stat'
  66. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/drinkbeer.jpg"></center>'
  67. 'You drink more beer with <<$boydesc>>. He begins stroking your leg and puts his hand on your chest as he leans into you.'
  68. if rand(1,100) <= 20:
  69. 'Leaned in he whispers to you, "I need to taste those lips."'
  70. gs 'willpower', 'kiss', 'resist', 'easy'
  71. if will_cost <= pcs_willpwr:
  72. act 'Push him away and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'pav_lake'
  73. else
  74. 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>'
  75. end
  76. act 'Kiss him':
  77. *clr & cla
  78. gs 'arousal', 'kiss', 5
  79. gs 'arousal', 'end'
  80. gs 'stat'
  81. if $clothingworntype = 'nude':
  82. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/kissnude.jpg"></center>'
  83. else
  84. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/kissboy.jpg"></center>'
  85. end
  86. 'You passionately kiss <<$boydesc>>, as he continues to caress your body, paying particular interest to your breasts.'
  87. '<<$boydesc>> invites you to his house.'
  88. gs 'willpower', 'sex', 'resist', 'easy'
  89. if will_cost <= pcs_willpwr:
  90. act 'Call it a day and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'pav_lake'
  91. else
  92. 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>'
  93. end
  94. act 'Follow him to his house':
  95. gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
  96. gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
  97. gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
  98. gt 'LBZhouse'
  99. end
  100. end
  101. else
  102. '<<$boydesc>> smiles and suggests that the two of you go for a walk.'
  103. act 'Reject and leave':gt'pav_lake'
  104. act 'Agree':
  105. *clr & cla
  106. minut += 15
  107. if $clothingworntype = 'nude':
  108. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/changenude.jpg"></center>'
  109. gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
  110. gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
  111. gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
  112. else
  113. '<center><img <<$set_imgh>> src="images/locations/pavlovsk/lake/event/changebikini.jpg"></center>'
  114. gs 'clothing', 'wear', $lastwornclothingtype['swim'], lastwornclothingnumber['swim']
  115. gs 'panties', 'wear', $lastwornpantytype['swim'], lastwornpantynumber['swim']
  116. gs 'bras', 'wear', $lastwornbratype['swim'], lastwornbranumber['swim']
  117. end
  118. gs'stat'
  119. 'You quickly get changed into your regular clothes and go for a walk with <<$boydesc>>.'
  120. '<<$boydesc>> invites you over to his house.'
  121. gs 'willpower', 'sex', 'resist', 'easy'
  122. if will_cost <= pcs_willpwr:
  123. act 'Call it a day and leave (<<will_cost>> Willpower)': gs 'willpower', 'pay', 'resist' & gt 'pav_lake'
  124. else
  125. 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>'
  126. end
  127. act 'Follow him to his house':gt'LBZhouse'
  128. end
  129. end
  130. end
  131. end
  132. end
  133. end
  134. }
  135. --- LakeBoyZ ---------------------------------