bicycle.qsrc 6.9 KB

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