1
0

bicycle.qsrc 6.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254
  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. gs 'clothing', 'swamp_clothes', 0
  123. if $clothingworntype ! 'nude' or pcs_inhib > 50:
  124. cls
  125. pcs_mood += 10
  126. findvel = 1
  127. minut += 25
  128. inhib_exp += 4
  129. gs 'bicycle', 'clothes_findvel'
  130. 'You ride your bike out of the forest and return to the village.'
  131. gs 'bicycle', 'ridego', 'Gaddvor'
  132. gs'stat'
  133. else
  134. cls
  135. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
  136. '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.'
  137. act 'Further':gt'gadforest','1'
  138. end
  139. end
  140. if goswamp = 1:
  141. act 'Bike to the swamp (0:50)':
  142. cls
  143. minut += 50
  144. pcs_mood += 5
  145. findvel = 3
  146. gs'stat'
  147. !gs'time'
  148. gs 'bicycle', 'clothes_findvel'
  149. 'You ride your bike to the edge of the swamp.'
  150. gs 'bicycle', 'ridego', 'swamp_yard'
  151. end
  152. end
  153. act 'Put the bike aside': gt'gadforest','1'
  154. end
  155. if $ARGS[0] = 'swamp':
  156. $metka = $ARGS[0]
  157. $loc = $CURLOC
  158. cla
  159. *clr
  160. minut += 1
  161. gs 'gadukino_event', 'sound'
  162. gs 'stat'
  163. !gs'time'
  164. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel.jpg"></center>'
  165. act 'Bike to the village (1:15)':
  166. gs 'clothing', 'swamp_clothes', 0
  167. if $clothingworntype ! 'nude' or pcs_inhib > 50:
  168. cls
  169. minut += 75
  170. run_exp += RAND(0,1)
  171. stren_exp += rand(0,1)
  172. fat -= 1
  173. pcs_sweat += 1
  174. pcs_mood += 10
  175. findvel = 1
  176. hanters = 0
  177. inhib_exp += 4
  178. !gs'time'
  179. gs 'bicycle', 'clothes_findvel'
  180. 'You ride your bike out of the swamp and return to the village.'
  181. gs 'bicycle', 'ridego', 'Gaddvor'
  182. gs'stat'
  183. else
  184. cls
  185. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/findvel_nude.jpg"></center>'
  186. '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.'
  187. act 'Further':gt'swamp_yard'
  188. end
  189. end
  190. act 'Bike to the forest (0:50)':
  191. cls
  192. minut += 50
  193. pcs_mood += 5
  194. hanters = 0
  195. findvel = 2
  196. !gs'time'
  197. gs 'bicycle', 'clothes_findvel'
  198. 'You jump onto your bike and ride to the forest.'
  199. gs 'bicycle', 'ridego', 'gadforest','1'
  200. gs'stat'
  201. end
  202. act 'Put the bike aside': gt'swamp_yard'
  203. end
  204. if $ARGS[0] = 'clothes_findvel':
  205. if $clothingworntype = 'nude':
  206. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_nude.jpg"></center>'
  207. elseif CloSkirtShortness > 0:
  208. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike_2.jpg"></center>'
  209. else
  210. '<center><img <<$set_imgh>> src="images/locations/gadukino/village/bike.jpg"></center>'
  211. end
  212. end
  213. if $ARGS[0] = 'ridego':
  214. !make this args, add a warning, and allow 30% alive by illume
  215. $metka = $ARGS[2]
  216. $loc = $ARGS[1]
  217. if hour >= 6 and hour < 22:
  218. act 'Further':gt $loc, $metka
  219. else
  220. '<B><font color=red>Are You sure? It''s still quite dark outside.</font></B>'
  221. act '<font color=red>Yes, Let''s go!</font>':
  222. if rand(1,10)>3:
  223. over = 12 & gt'gameover'
  224. else
  225. gt $loc, $metka
  226. end
  227. end
  228. act 'Put the bike away': gt $loc, $metka
  229. end
  230. end
  231. --- bicycle ---------------------------------