1
0

bicycle.qsrc 6.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256
  1. # bicycle
  2. $location_type = 'event_outdoors'
  3. if $ARGS[0] = 'sarai':
  4. $metka = $ARGS[0]
  5. $loc = $CURLOC
  6. cla
  7. *clr
  8. minut += 1
  9. gs 'gadukino_event', 'sound'
  10. gs 'stat'
  11. !gs'time'
  12. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
  13. if sunWeather = 0:
  14. 'You notice an old bike. You would love to take a ride with it but you decide not to while it''s raining.'
  15. else
  16. 'You notice an old bike. It looks like it''s still in a good condition, you can probably ride it without any trouble.'
  17. end
  18. if hour >= 6 and hour <= 20 and sunWeather = 1 and month >= 4 and month <= 10:
  19. if findvelday ! daystart:
  20. act 'Ride the bike (1:00)':
  21. cls
  22. findvelday = daystart
  23. minut += 60
  24. run_exp += RAND(0,2)
  25. stren_exp += rand(0,2)
  26. fat -= 5
  27. pcs_mood += 5
  28. pcs_sweat += 2
  29. findvelrand = RAND(0,100)
  30. if $clothingworntype = 'nude':
  31. pcs_horny += 20
  32. pcs_willpwr += 10
  33. gs 'stat'
  34. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_nude.jpg"></center>'
  35. 'You ride nude, avoiding crowded places, exulting from this newfound courage. It''s hard to say what excites you more, fear or desire to be noticed.'
  36. act 'Finish the trip':gt $loc, $metka
  37. exit
  38. end
  39. if CloSkirtShortness > 0 and findvelrand > 70:
  40. if $pantyworntype ! 'none':
  41. pcs_willpwr+=5
  42. gs'stat'
  43. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_tanga_1.jpg"></center>'
  44. 'During your ride you lift your skirt several times, showing a glimpse of your panties to the passers-by.'
  45. gs 'arousal', 'voyeur', 5, 'exhibitionism'
  46. gs 'stat'
  47. else
  48. pcs_willpwr += 10
  49. gs'stat'
  50. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_tanga_2.jpg"></center>'
  51. 'During your ride you lift your skirt several times, showing your bare ass to the passers-by.'
  52. gs 'arousal', 'voyeur', 10, 'exhibitionism'
  53. minut -= 5
  54. gs 'stat'
  55. end
  56. act 'Finish the ride':gt $loc, $metka
  57. gs 'arousal', 'end'
  58. gs 'stat'
  59. exit
  60. end
  61. if CloSkirtShortness > 0 and findvelrand <= 70:
  62. pcs_willpwr += 5
  63. gs'stat'
  64. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_2.jpg"></center>'
  65. 'You take out the old bike for a ride. You ride by the endless fields enjoying the freedom you''re experiencing.'
  66. act 'Finish the ride':gt $loc, $metka
  67. exit
  68. end
  69. if CloSkirtShortness = 0:
  70. pcs_willpwr += 5
  71. gs'stat'
  72. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike.jpg"></center>'
  73. 'You ride your bike, enjoying the surrounding country-side.'
  74. act 'Finish the trip':gt $loc, $metka
  75. exit
  76. end
  77. end
  78. end
  79. end
  80. if goforest > 0 and sunWeather = 1 and month >= 4 and month <= 10:
  81. act 'Bike to the forest (0:25)':
  82. cls
  83. minut += 25
  84. pcs_mood += 5
  85. findvel = 2
  86. gs'stat'
  87. gs 'bicycle', 'clothes_findvel'
  88. 'You jump onto the bike and ride to the forest.'
  89. gs 'bicycle', 'ridego', 'gadforest','1'
  90. end
  91. end
  92. if goswamp = 1 and sunWeather = 1 and month >= 4 and month <= 10:
  93. act 'Bike to the swamp (1:15)':
  94. cls
  95. minut += 75
  96. run_exp += RAND(0,1)
  97. stren_exp += rand(0,1)
  98. fat -= 1
  99. pcs_mood += 5
  100. pcs_sweat += 1
  101. findvel = 3
  102. gs'stat'
  103. !gs'time'
  104. gs 'bicycle', 'clothes_findvel'
  105. 'You get on the bike and ride it to the swamp.'
  106. gs 'bicycle', 'ridego', 'swamp_yard'
  107. end
  108. end
  109. act 'Put the bike away': gt'Gadsarai'
  110. end
  111. if $ARGS[0] = 'forest':
  112. $metka = $ARGS[0]
  113. $loc = $CURLOC
  114. cla
  115. *clr
  116. minut += 1
  117. gs 'gadukino_event', 'sound'
  118. gs 'stat'
  119. !gs'time'
  120. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
  121. act 'Bike to the village (0:25)':
  122. dirtyclothes = 0
  123. gs 'clothing', 'swamp_clothes', 0
  124. if $clothingworntype ! 'nude' or pcs_inhib > 50:
  125. cls
  126. pcs_mood += 10
  127. findvel = 1
  128. minut += 25
  129. inhib_exp += 4
  130. gs 'bicycle', 'clothes_findvel'
  131. 'You ride your bike out of the forest and return to the village.'
  132. gs 'bicycle', 'ridego', 'Gaddvor'
  133. gs'stat'
  134. else
  135. cls
  136. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
  137. 'You take off your clothes and jump on your bike and ride through the forest. You would never be able to do this in the village.'
  138. act 'Further':gt'gadforest','1'
  139. end
  140. end
  141. if goswamp = 1:
  142. act 'Bike to the swamp (0:50)':
  143. cls
  144. minut += 50
  145. pcs_mood += 5
  146. findvel = 3
  147. gs'stat'
  148. !gs'time'
  149. gs 'bicycle', 'clothes_findvel'
  150. 'You ride your bike to the edge of the swamp.'
  151. gs 'bicycle', 'ridego', 'swamp_yard'
  152. end
  153. end
  154. act 'Put the bike aside': gt'gadforest','1'
  155. end
  156. if $ARGS[0] = 'swamp':
  157. $metka = $ARGS[0]
  158. $loc = $CURLOC
  159. cla
  160. *clr
  161. minut += 1
  162. gs 'gadukino_event', 'sound'
  163. gs 'stat'
  164. !gs'time'
  165. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
  166. act 'Bike to the village (1:15)':
  167. dirtyclothes = 0
  168. gs 'clothing', 'swamp_clothes', 0
  169. if $clothingworntype ! 'nude' or pcs_inhib > 50:
  170. cls
  171. minut += 75
  172. run_exp += RAND(0,1)
  173. stren_exp += rand(0,1)
  174. fat -= 1
  175. pcs_sweat += 1
  176. pcs_mood += 10
  177. findvel = 1
  178. hanters = 0
  179. inhib_exp += 4
  180. !gs'time'
  181. gs 'bicycle', 'clothes_findvel'
  182. 'You ride your bike out of the swamp and return to the village.'
  183. gs 'bicycle', 'ridego', 'Gaddvor'
  184. gs'stat'
  185. else
  186. cls
  187. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
  188. 'You take off your clothes and jump on your bike and ride through the swamp. You would never be able to do this in the village.'
  189. act 'Further':gt'swamp_yard'
  190. end
  191. end
  192. act 'Bike to the forest (0:50)':
  193. cls
  194. minut += 50
  195. pcs_mood += 5
  196. hanters = 0
  197. findvel = 2
  198. !gs'time'
  199. gs 'bicycle', 'clothes_findvel'
  200. 'You jump onto your bike and ride to the forest.'
  201. gs 'bicycle', 'ridego', 'gadforest','1'
  202. gs'stat'
  203. end
  204. act 'Put the bike aside': gt'swamp_yard'
  205. end
  206. if $ARGS[0] = 'clothes_findvel':
  207. if $clothingworntype = 'nude':
  208. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_nude.jpg"></center>'
  209. elseif CloSkirtShortness > 0:
  210. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_2.jpg"></center>'
  211. else
  212. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike.jpg"></center>'
  213. end
  214. end
  215. if $ARGS[0] = 'ridego':
  216. !make this args, add a warning, and allow 30% alive by illume
  217. $metka = $ARGS[2]
  218. $loc = $ARGS[1]
  219. if hour >= 6 and hour < 22:
  220. act 'Further':gt $loc, $metka
  221. else
  222. '<B><font color=red>Are You sure? It''s still quite dark outside.</font></B>'
  223. act '<font color=red>Yes, Let''s go!</font>':
  224. if rand(1,10)>3:
  225. over = 12 & gt'gameover'
  226. else
  227. gt $loc, $metka
  228. end
  229. end
  230. act 'Put the bike away': gt $loc, $metka
  231. end
  232. end
  233. --- bicycle ---------------------------------