billiard.qsrc 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190
  1. # billiard
  2. $sexloc = 'billiard'
  3. $menu_loc = 'billiard'
  4. $menu_arg = ''
  5. menu_off = 0
  6. $location_type = 'public_indoors'
  7. cla
  8. *clr
  9. gs 'stat'
  10. '<center><b>Pool</b></center>'
  11. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/bil.jpg"></center>'
  12. 'Quite a large billiard room, there are plenty of tables in the main hall, but there are some tables in individual cubicles.'
  13. act 'Leave':gt 'torgcentr'
  14. if hour >= 8 and hour <= 20:
  15. if money >= 125:
  16. act 'Play (125 <b>₽</b>) (1:00)':
  17. menu_off = 1
  18. money -= 125
  19. minut += 60
  20. billvar = 0
  21. pool_exp += rand(0,3)
  22. billrand = rand(0,5)
  23. gs 'stat'
  24. if billrand = 0:
  25. cla
  26. 'You play one of the guys here and he asks if you want to make it more interesting.'
  27. if money >= 1000:act 'Bet on the game (1000 <b>₽</b>)':billvar = 0 & gt 'billiard', 'randwin'
  28. if strapon = 1:act 'Play for his ass, sex if you lose':billvar = 1 & gt 'billiard', 'randwin'
  29. gs 'willpower', 'anal', 'resist'
  30. if will_cost <= pcs_willpwr:
  31. act 'Stick to practice games (<<will_cost>> Willpower)':
  32. gs 'willpower', 'anal', 'resist'
  33. gs 'willpower', 'pay', 'resist'
  34. gs 'stat'
  35. gt 'billiard'
  36. end
  37. else
  38. act 'Stick to practice games (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
  39. end
  40. act 'Let him have the table instead':
  41. money += 125
  42. pool_exp -= rand(0,3)
  43. gs 'stat'
  44. gt 'billiard'
  45. end
  46. elseif billrand = 1:
  47. cla
  48. 'You play a couple of the guys here and they ask if you want to make it more interesting.'
  49. if money >= 1000:act 'Bet on the game (1000 <b>₽</b>)':billvar = 0 & gt 'billiard', 'randwin'
  50. if strapon = 1:act 'Play for their asses, sex if you lose':billvar = 2 & gt 'billiard', 'randwin'
  51. gs 'willpower', 'anal', 'resist', 'hard'
  52. if will_cost <= pcs_willpwr:
  53. act 'Stick to practice games (<<will_cost>> Willpower)':
  54. gs 'willpower', 'anal', 'resist', 'hard'
  55. gs 'willpower', 'pay', 'resist'
  56. gs 'stat'
  57. gt 'billiard'
  58. end
  59. else
  60. act 'Stick to practice games (<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 'Let him have the table instead':
  63. money += 125
  64. pool_exp -= rand(0,3)
  65. gs 'stat'
  66. gt 'billiard'
  67. end
  68. elseif billrand >= 2:
  69. cla
  70. 'You played billiards by yourself.'
  71. act 'Leave':gt 'billiard'
  72. end
  73. end
  74. end
  75. if money >= 250:
  76. act 'Play for money (250 <b>₽</b>)':
  77. menu_off = 1
  78. minut += 60
  79. pool_exp += rand(0,1)
  80. billvar = 3
  81. gt 'billiard', 'randwin'
  82. end
  83. end
  84. end
  85. if $ARGS[0] = 'randwin':
  86. cla
  87. menu_off = 1
  88. if pcs_pool < 10:billwin = rand(0, 10)
  89. if pcs_pool >= 10 and pcs_pool < 20:billwin = rand(0, 12)
  90. if pcs_pool >= 20 and pcs_pool < 30:billwin = rand(0, 14)
  91. if pcs_pool >= 30 and pcs_pool < 40:billwin = rand(0, 16)
  92. if pcs_pool >= 40 and pcs_pool < 50:billwin = rand(0, 18)
  93. if pcs_pool >= 50 and pcs_pool < 60:billwin = rand(0, 20)
  94. if pcs_pool >= 60 and pcs_pool < 70:billwin = rand(0, 22)
  95. if pcs_pool >= 70 and pcs_pool < 80:billwin = rand(0, 24)
  96. if pcs_pool >= 80 and pcs_pool < 90:billwin = rand(0, 26)
  97. if pcs_pool >= 90:billwin = rand(0, 28)
  98. if billwin > 10 and billvar = 0:
  99. money += 1000
  100. 'You won and received 1,000 <b>₽</b>.'
  101. act 'Leave':gt 'billiard'
  102. elseif billwin > 10 and billvar = 1:
  103. *clr
  104. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/strapon.jpg"></center>'
  105. 'You win, put your strapon, and look at the guy, "Well bend over, today you''re my bitch."'
  106. 'The guy drops his pants and bends over, you peg that butt.'
  107. gs 'arousal', 'anal_strap_give', 10, 'dom'
  108. gs 'arousal', 'end'
  109. gs 'stat'
  110. act 'Leave':gt 'billiard'
  111. elseif billwin > 10 and billvar = 2:
  112. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/strapon.jpg"></center>'
  113. 'You win, put your strapon, and look at the guys, "Come on girls panties down and asses up, now I''m going to fuck this whole harem."'
  114. 'You fuck them all in turn.'
  115. gs 'arousal', 'anal_strap_give', 10, 'dom'
  116. gs 'arousal', 'end'
  117. gs 'stat'
  118. act 'Leave':gt 'billiard'
  119. elseif billwin > 10 and billvar = 3:
  120. money += 250
  121. 'You won and received 250 <b>₽</b>.'
  122. act 'Get_Away':gt 'billiard'
  123. elseif billwin <= 10 and billvar = 0:
  124. money -= 1000
  125. 'You lost and paid 1,000 <b>₽</b>.'
  126. act 'Leave':gt 'billiard'
  127. elseif billwin <= 10 and billvar = 1:
  128. 'You lose, open those legs.'
  129. picrand = 16
  130. act 'Pay':xgt 'sex', 'var'
  131. elseif billwin <= 10 and billvar = 2:
  132. 'You lose, open those legs.'
  133. killvar '$boy'
  134. gs 'npcgeneratec', 0, 'Billiard Player', rand(18,40)
  135. gs 'boyStat', $npclastgenerated
  136. gs 'npcgeneratec', 0, 'Billiard Player', rand(18,40)
  137. gs 'boyStat', $npclastgenerated,'1'
  138. gs 'npcgeneratec', 0, 'Billiard Player', rand(18,40)
  139. gs 'boyStat', $npclastgenerated,'2'
  140. picrand = 12
  141. act 'Pay':gt 'paysex', 'var'
  142. elseif billwin <= 10 and billvar = 3:
  143. money -= 300
  144. 'You lost and paid 300 <b>₽</b>.'
  145. act 'Leave':gt 'billiard'
  146. else
  147. money -= 300
  148. 'You lost and paid 300 <b>₽</b>.'
  149. act 'Leave':gt 'billiard'
  150. end
  151. end
  152. if $ARGS[0] = 'start':
  153. $menu_loc = 'billiard'
  154. $menu_arg = 'start'
  155. menu_off = 0
  156. '<center><b>Pool</b></center>'
  157. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/bil.jpg"></center>'
  158. act 'Leave':gt 'billiard'
  159. end
  160. --- billiard ---------------------------------