bicycle 6.7 KB

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