goplust.qsrc 4.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199
  1. # goplust
  2. GLust = 0
  3. killvar 'namgop'
  4. VasanLust = rand(0, 100)
  5. if VasanLust >= 50 and VasanTut = 1:
  6. GLust += 1
  7. $gopV = 'Vasan looks at you greedily'
  8. $namgop[1] = 'Vasan'
  9. gopV = 1
  10. VasanTut = 2
  11. elseif VasanLust < 80 and VasanTut = 1:
  12. $gopV = 'Vasan is happy to just chat with you'
  13. gopV = 1
  14. elseif VasanTut = 0:
  15. $gopV = ''
  16. gopV = 0
  17. end
  18. BerezaLust = rand(0, 100)
  19. if BerezaLust >= 60 and BerezaTut = 1:
  20. GLust += 1
  21. $gopB = 'Bereza rubs his groin and looks at you with interest'
  22. $namgop[2] = 'Bereza'
  23. namgop[2] = 1
  24. gopB = 1
  25. BerezaTut = 2
  26. elseif BerezaLust < 95 and BerezaTut = 1:
  27. $gopB = 'Bereza ignores you and chats with his friends'
  28. gopB = 1
  29. elseif BerezaTut = 0:
  30. $gopB = ''
  31. gopB = 0
  32. end
  33. VitekLust = rand(0, 100)
  34. if VitekLust >= 60 and VitekTut = 1:
  35. GLust += 1
  36. $gopVi = 'Konstantin can''t take his eyes off your boobs'
  37. $namgop[3] = 'Konstantin'
  38. namgop[3] = 1
  39. gopVi = 1
  40. VitekTut = 2
  41. elseif VitekLust < 90 and VitekTut = 1:
  42. $gopVi = 'Konstantin is mostly playing with his phone'
  43. gopVi = 1
  44. elseif VitekTut = 0:
  45. $gopVi = ''
  46. gopVi = 0
  47. end
  48. KotilLust = rand(0, 100)
  49. if KotilLust >= 70 and KostilTut = 1:
  50. GLust += 1
  51. $gopK = 'Kostil occasionally touches your thigh'
  52. $namgop[4] = 'Kostil'
  53. namgop[4] = 1
  54. gopK = 1
  55. KostilTut = 2
  56. elseif KotilLust < 90 and KostilTut = 1:
  57. $gopK = 'Kostil is in a deep conversation with one of his friends'
  58. gopK = 1
  59. elseif KostilTut = 0:
  60. $gopK = ''
  61. gopK = 0
  62. end
  63. UdmurtLust = rand(0, 100)
  64. if UdmurtLust >= 80 and UdmurtTut = 1:
  65. GLust += 1
  66. $gopU = 'Udmurt stares intently at you. You can see the bulge in his pants grow'
  67. $namgop[5] = 'Udmurt'
  68. namgop[5] = 1
  69. gopU = 1
  70. UdmurtTut = 2
  71. elseif UdmurtLust < 90 and UdmurtTut = 1:
  72. $gopU = 'Udmurt squats and spits on the ground, fully focused on his sunflower seeds'
  73. gopU = 1
  74. elseif UdmurtTut = 0:
  75. $gopU = ''
  76. gopU = 0
  77. end
  78. SeriLust = rand(0, 100)
  79. if SeriLust >= 90 and SeriTut = 1:
  80. GLust += 1
  81. $gopS = 'Gray grins mischievously at you, revealing his gold teeth. His eyes are focused on your feet'
  82. $namgop[6] = 'Gray'
  83. namgop[6] = 1
  84. gopS = 1
  85. SeriTut = 2
  86. elseif SeriLust < 95 and SeriTut = 1:
  87. $gopS = 'Gray is talking to someone on the phone'
  88. gopS = 1
  89. elseif SeriTut = 0:
  90. $gopS = ''
  91. gopS = 0
  92. end
  93. $namgop[0] = ''
  94. $gopnik = ''
  95. if gopV = 1:
  96. $gopnik += '<<$gopV>>'
  97. if gopB + gopVi + gopK + gopU + gopS > 1:
  98. $gopnik += ', '
  99. elseif gopB + gopVi + gopK + gopU + gopS = 1:
  100. $gopnik += ' and '
  101. end
  102. end
  103. if $namgop[1] ! '':
  104. $namgop[0] += '<<$namgop[1]>>'
  105. if namgop[2] + namgop[3] + namgop[4] + namgop[5] + namgop[6] > 1:
  106. $namgop[0] += ', '
  107. elseif namgop[2] + namgop[3] + namgop[4] + namgop[5] + namgop[6] = 1:
  108. $namgop[0] += ' and '
  109. end
  110. end
  111. if gopB = 1:
  112. $gopnik += '<<$gopB>>'
  113. if gopVi + gopK + gopU + gopS > 1:
  114. $gopnik += ', '
  115. elseif gopVi + gopK + gopU + gopS = 1:
  116. $gopnik += ' and '
  117. end
  118. end
  119. if $namgop[2] ! '':
  120. $namgop[0] += '<<$namgop[2]>>'
  121. if namgop[3] + namgop[4] + namgop[5] + namgop[6] > 1:
  122. $namgop[0] += ', '
  123. elseif namgop[3] + namgop[4] + namgop[5] + namgop[6] = 1:
  124. $namgop[0] += ' and '
  125. end
  126. end
  127. if gopVi = 1:
  128. $gopnik += '<<$gopVi>>'
  129. if gopK + gopU + gopS > 1:
  130. $gopnik += ', '
  131. elseif gopK + gopU + gopS = 1:
  132. $gopnik += ' and '
  133. end
  134. end
  135. if namgop[3] ! '':
  136. $namgop[0] += '<<$namgop[3]>>'
  137. if namgop[4] + namgop[5] + namgop[6] > 1:
  138. $namgop[0] += ', '
  139. elseif namgop[4] + namgop[5] + namgop[6] = 1:
  140. $namgop[0] += ' and '
  141. end
  142. end
  143. if gopK = 1:
  144. $gopnik += '<<$gopK>>'
  145. if gopU + gopS > 1:
  146. $gopnik += ', '
  147. elseif gopU + gopS = 1:
  148. $gopnik += ' and '
  149. end
  150. end
  151. if namgop[4] ! '':
  152. $namgop[0] += '<<$namgop[4]>>'
  153. if namgop[5] + namgop[6] > 1:
  154. $namgop[0] += ', '
  155. elseif namgop[5] + namgop[6] = 1:
  156. $namgop[0] += ' and '
  157. end
  158. end
  159. if gopU = 1:
  160. $gopnik += '<<$gopU>>'
  161. if gopS = 1:$gopnik += ' and '
  162. end
  163. if namgop[5] ! '':
  164. $namgop[0] += '<<$namgop[5]>>'
  165. if namgop[6] = 1:$gopnik += ' and '
  166. end
  167. if gopS = 1:$gopnik += '<<$gopS>>'
  168. if namgop[6] ! '':$namgop[0] += '<<$namgop[6]>>'
  169. $namgop[0] += ' strip off your clothes and get out their members'
  170. --- goplust ---------------------------------