billiard.qsrc 4.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165
  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 >= 250:
  16. act 'Play (250 <b>₽</b>) (1:00)':
  17. menu_off = 1
  18. money -= 250
  19. minut += 60
  20. billvar = 0
  21. pool_exp += rand(0, 3)
  22. billrand = rand(0, 5)
  23. if billrand = 0:
  24. cla
  25. 'You play one of the guys here and he asks if you want to make it more interesting.'
  26. if money >= 1000:act 'Bet on the game (1000 <b>₽</b>)':billvar = 0 & gt 'billiard', 'randwin'
  27. if pcs_dom > 20 and strapon = 1:
  28. act 'Play for his ass, sex if you lose':
  29. billvar = 1
  30. gt 'billiard', 'randwin'
  31. end
  32. end
  33. act 'Stick to practice games':gt 'billiard'
  34. elseif billrand = 1:
  35. cla
  36. 'You play a couple of the guys here and they ask if you want to make it more interesting.'
  37. if money >= 1000:act 'Bet on the game (1000 <b>₽</b>)':billvar = 0 & gt 'billiard', 'randwin'
  38. if pcs_dom > 20 and strapon = 1:
  39. act 'Play for his ass, sex if you lose':
  40. billvar = 2
  41. gt 'billiard', 'randwin'
  42. end
  43. end
  44. act 'Stick to practice games':gt 'billiard'
  45. elseif billrand > 1:
  46. cla
  47. 'You played billiards.'
  48. act 'Leave':gt 'billiard'
  49. end
  50. end
  51. end
  52. if money >= 300:
  53. act 'Play for money (300 <b>₽</b>)':
  54. menu_off = 1
  55. minut += 60
  56. pool_exp += rand(0, 1)
  57. billvar = 3
  58. gt 'billiard', 'randwin'
  59. end
  60. end
  61. end
  62. if $ARGS[0] = 'randwin':
  63. cla
  64. menu_off = 1
  65. if pcs_pool < 10:billwin = rand(0, 10)
  66. if pcs_pool >= 10 and pcs_pool < 20:billwin = rand(0, 12)
  67. if pcs_pool >= 20 and pcs_pool < 30:billwin = rand(0, 14)
  68. if pcs_pool >= 30 and pcs_pool < 40:billwin = rand(0, 16)
  69. if pcs_pool >= 40 and pcs_pool < 50:billwin = rand(0, 18)
  70. if pcs_pool >= 50 and pcs_pool < 60:billwin = rand(0, 20)
  71. if pcs_pool >= 60 and pcs_pool < 70:billwin = rand(0, 22)
  72. if pcs_pool >= 70 and pcs_pool < 80:billwin = rand(0, 24)
  73. if pcs_pool >= 80 and pcs_pool < 90:billwin = rand(0, 26)
  74. if pcs_pool >= 90:billwin = rand(0, 28)
  75. if billwin > 10 and billvar = 0:
  76. money += 1000
  77. 'You won and received 1,000 <b>₽</b>.'
  78. act 'Leave':gt 'billiard'
  79. elseif billwin > 10 and billvar = 1:
  80. *clr
  81. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/strapon.jpg"></center>'
  82. 'You win, put your strapon, and look at the guy, "Well bend over, today you''re my bitch."'
  83. 'The guy drops his pants and bends over, you peg that butt.'
  84. gs 'arousal', 'anal_strap_give', 10, 'dom'
  85. gs 'arousal', 'end'
  86. gs 'stat'
  87. act 'Leave':gt 'billiard'
  88. elseif billwin > 10 and billvar = 2:
  89. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/sex/strapon.jpg"></center>'
  90. '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."'
  91. 'You fuck them all in turn.'
  92. gs 'arousal', 'anal_strap_give', 10, 'dom'
  93. gs 'arousal', 'end'
  94. gs 'stat'
  95. act 'Leave':gt 'billiard'
  96. elseif billwin > 10 and billvar = 3:
  97. money += 300
  98. 'You won and received 300 <b>₽</b>.'
  99. act 'Get_Away':gt 'billiard'
  100. elseif billwin <= 10 and billvar = 0:
  101. money -= 1000
  102. 'You lost and paid 1,000 <b>₽</b>.'
  103. act 'Leave':gt 'billiard'
  104. elseif billwin <= 10 and billvar = 1:
  105. 'You lose, open those legs.'
  106. picrand = 16
  107. act 'Pay':xgt 'sex', 'var'
  108. elseif billwin <= 10 and billvar = 2:
  109. 'You lose, open those legs.'
  110. killvar '$boy'
  111. gs 'npcgeneratec', 0, 'Billiard Player', rand(18,40)
  112. gs 'boyStat', $npclastgenerated
  113. gs 'npcgeneratec', 0, 'Billiard Player', rand(18,40)
  114. gs 'boyStat', $npclastgenerated,'1'
  115. gs 'npcgeneratec', 0, 'Billiard Player', rand(18,40)
  116. gs 'boyStat', $npclastgenerated,'2'
  117. picrand = 12
  118. act 'Pay':gt 'paysex', 'var'
  119. elseif billwin <= 10 and billvar = 3:
  120. money -= 300
  121. 'You lost and paid 300 <b>₽</b>.'
  122. act 'Leave':gt 'billiard'
  123. else
  124. money -= 300
  125. 'You lost and paid 300 <b>₽</b>.'
  126. act 'Leave':gt 'billiard'
  127. end
  128. end
  129. if $ARGS[0] = 'start':
  130. $menu_loc = 'billiard'
  131. $menu_arg = 'start'
  132. menu_off = 0
  133. '<center><b>Pool</b></center>'
  134. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/pool/bil.jpg"></center>'
  135. act 'Leave':gt 'billiard'
  136. end
  137. --- billiard ---------------------------------