bicycle.tw 8.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221
  1. :: bicycle[mod mod_gad]
  2. <<set $here = 'bicycle'>>
  3. <<set $ARGS = $location_var[$here]>>
  4. <!-- ! BikeLoc - tells us where bicycle is currently located-->
  5. <!-- !------------------------------------------------>
  6. <!-- ! BikeLoc = 1 'gadsarai' ''-->
  7. <!-- ! BikeLoc = 2 'gadforest' 'forest_edge'-->
  8. <!-- ! BikeLoc = 3 'swamp_yard' 'start'-->
  9. <!-- !------------------------------------------------>
  10. <!-- ! this gs handles biking for Sveta in the various locations of gadukino-->
  11. <!-- ! will only display bicycle actions if the BikeLoc is correct for the location passed in-->
  12. <!-- ! $larg(0) - location where this is called from-->
  13. <!-- ! Example: gs 'bicycle', 'gadsarai'-->
  14. <<if ($location_var[$here][0] == 'gadsarai' and getvar("$BikeLoc") == 1) or ($location_var[$here][0] == 'gadforest' and getvar("$BikeLoc") == 2) or ($location_var[$here][0] == 'swamp_yard' and getvar("$BikeLoc") == 3)>>
  15. <<actCLA 'Ride your bicycle'>>
  16. <<set $menu_off = 1>>
  17. <<if $wardrobe.clothingworntype == 'nude'>>
  18. <<image "locations/gadukino/village/findvel_nude.jpg">>
  19. <<else>>
  20. <<image "locations/gadukino/village/findvel.jpg">>
  21. <</if>>
  22. You see your old bike. It looks like it's still in good condition. You can probably ride it without any trouble.
  23. <<if getvar("$BikeLoc") == 1>>
  24. <<act 'Leave your bike alone'>>
  25. <<gt 'gadsarai'>>
  26. <</act>>
  27. <<elseif getvar("$BikeLoc") == 2>>
  28. <<act 'Leave your bike alone'>>
  29. <<gt 'gadforest' 'forest_edge'>>
  30. <</act>>
  31. <<elseif getvar("$BikeLoc") == 3>>
  32. <<act 'Leave your bike alone'>>
  33. <<gt 'swamp_yard' 'start'>>
  34. <</act>>
  35. <</if>>
  36. <<if getvar("$BikeLoc") == 1 and $time.hour >= 6 and $time.hour < 20 and !$weather.isRaining and $time.month >= 4 and $time.month <= 10 and $gadbikeday != $time.daystart>>
  37. <<actCLA 'Bike around the village (1:00)'>>
  38. <<set $menu_off = 1>>
  39. <<set $time.minutes += 60>>
  40. <<run $pc.skillExperienceGain('run',rand(0,2))>>
  41. <<run $pc.skillExperienceGain('strength',rand(0,2))>>
  42. <<set $pc.fat -= 2>>
  43. <<set $pc.mood += 10>>
  44. <<set $pc.pcs_sweat += 2>>
  45. <<set $gadbikeday = $time.daystart>>
  46. <<if $wardrobe.clothingworntype == 'nude'>>
  47. <<set $pc.horny += 15>>
  48. <<set $pc.mood += 15>>
  49. <<if $pc.pcs_inhib < 50>>
  50. <<run $pc.skillExperienceGain('inhibition',rand(0,2))>>
  51. <</if>>
  52. <<arouse 'flash' 5 >>
  53. <<image "locations/gadukino/village/bike_nude.jpg">>
  54. 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.
  55. <<elseif $wardrobe.PCloSkirt > 0>>
  56. <<set $bikerand = rand(0,10)>>
  57. <<if getvar("$bikerand") >= 8>>
  58. <<if $wardrobe.isWearingPanties>>
  59. <<set $pc.horny += 5>>
  60. <<set $pc.mood += 5>>
  61. <<if $pc.pcs_inhib < 20>>
  62. <<run $pc.skillExperienceGain('inhibition',rand(0,2))>>
  63. <</if>>
  64. <<arouse 'flash' 5 >>
  65. <<image "locations/gadukino/village/bike_tanga_1.jpg">>
  66. You lift your skirt several times during your ride, showing a glimpse of your panties to a few lucky villagers passing by.
  67. <<else>>
  68. <<set $pc.horny += 10>>
  69. <<set $pc.mood += 10>>
  70. <<if $pc.pcs_inhib < 30>>
  71. <<run $pc.skillExperienceGain('inhibition',rand(0,2))>>
  72. <</if>>
  73. <<arouse 'flash' 5 >>
  74. <<image "locations/gadukino/village/bike_tanga_2.jpg">>
  75. You lift your skirt several times during your ride, showing your bare ass to a few lucky villagers passing by.
  76. <</if>>
  77. <<else>>
  78. <<set $pc.mood += 5>>
  79. <<image "locations/gadukino/village/bike_2.jpg">>
  80. You enjoy the breath of fresh air from riding your bike by the seemingly endless fields of the village.
  81. <</if>>
  82. <<elseif $wardrobe.PCloSkirt == 0>>
  83. <<set $pc.mood += 5>>
  84. <<image "locations/gadukino/village/bike.jpg">>
  85. You ride your bike, enjoying the surrounding countryside.
  86. <</if>>
  87. <<act 'Finish your ride'>>
  88. <<gt 'gadsarai'>>
  89. <</act>>
  90. <</actCLA>>
  91. <</if>>
  92. <<if getvar("$BikeLoc") != 1>>
  93. <<if getvar("$BikeLoc") == 2>>
  94. <<set $bikeaction = 'Bike to your grandparents' barn (0:12)'>>
  95. <<elseif getvar("$BikeLoc") == 3>>
  96. <<set $bikeaction = 'Bike to your grandparents' barn (0:44)'>>
  97. <</if>>
  98. <<actCLA '$bikeaction'>>
  99. <<set $menu_off = 1>>
  100. <<if getvar("$BikeLoc") == 2>>
  101. <<set $time.minutes += 12>>
  102. <<run $pc.skillExperienceGain('run',rand(0,1))>>
  103. <<run $pc.skillExperienceGain('strength',rand(0,1))>>
  104. <<set $pc.fat -= 1>>
  105. <<set $pc.mood += 5>>
  106. <<set $pc.pcs_sweat += 1>>
  107. <<if getvar("$swamp_clothes") == 1>>
  108. You remove the terrible excuse for clothing the hunters gave you. You're sure you can find something better to wear at your grandparents'' house.
  109. <<gs 'clothing' 'strip' 'gadforest'>>
  110. <<gs 'clothing' 'swamp_clothes' 0>>
  111. <</if>>
  112. <<elseif getvar("$BikeLoc") == 3>>
  113. <<set $time.minutes += 44>>
  114. <<run $pc.skillExperienceGain('run',rand(0,3))>>
  115. <<run $pc.skillExperienceGain('strength',rand(0,3))>>
  116. <<set $pc.fat -= 3>>
  117. <<set $pc.mood += 15>>
  118. <<set $pc.pcs_sweat += 3>>
  119. <<if getvar("$swamp_clothes") == 1>>
  120. You remove the terrible excuse for clothing the hunters gave you. You're sure you can find something better to wear at your grandparents'' house.
  121. <<gs 'clothing' 'strip' 'gadforest'>>
  122. <<gs 'clothing' 'swamp_clothes' 0>>
  123. <</if>>
  124. <</if>>
  125. <<set $BikeLoc = 1>>
  126. <<gs 'bicycle' 'clothes'>>
  127. You jump onto your bike and ride to your grandparents'' barn.
  128. <<act 'Finish your ride'>>
  129. <<gt 'gadsarai'>>
  130. <</act>>
  131. <</actCLA>>
  132. <</if>>
  133. <<if getvar("$BikeLoc") != 2 and $pc.skillLevel("bushcraft") > 10>>
  134. <<if getvar("$BikeLoc") == 1>>
  135. <<set $bikeaction = 'Bike to the forest edge (0:12)'>>
  136. <<elseif getvar("$BikeLoc") == 3>>
  137. <<set $bikeaction = 'Bike to the forest edge (0:32)'>>
  138. <</if>>
  139. <<actCLA '$bikeaction'>>
  140. <<set $menu_off = 1>>
  141. <<if getvar("$BikeLoc") == 1>>
  142. <<set $time.minutes += 12>>
  143. <<run $pc.skillExperienceGain('run',rand(0,1))>>
  144. <<run $pc.skillExperienceGain('strength',rand(0,1))>>
  145. <<set $pc.fat -= 1>>
  146. <<set $pc.mood += 5>>
  147. <<set $pc.pcs_sweat += 1>>
  148. <<elseif getvar("$BikeLoc") == 3>>
  149. <<set $time.minutes += 32>>
  150. <<run $pc.skillExperienceGain('run',rand(0,2))>>
  151. <<run $pc.skillExperienceGain('strength',rand(0,2))>>
  152. <<set $pc.fat -= 2>>
  153. <<set $pc.mood += 0>>
  154. <<set $pc.pcs_sweat += 2>>
  155. <</if>>
  156. <<set $BikeLoc = 2>>
  157. <<gs 'bicycle' 'clothes'>>
  158. You jump onto your bike and ride to the edge of the forest.
  159. <<act 'Finish your ride'>>
  160. <<gt 'gadforest' 'forest_edge'>>
  161. <</act>>
  162. <</actCLA>>
  163. <</if>>
  164. <<if getvar("$BikeLoc") != 3 and getvar("$hunterscabin") == 1 and getvar("$hunters_were_met") == 1>>
  165. <<if getvar("$BikeLoc") == 1>>
  166. <<set $bikeaction = 'Bike to the hunters cabin (0:44)'>>
  167. <<elseif getvar("$BikeLoc") == 2>>
  168. <<set $bikeaction = 'Bike to the hunters cabin (0:32)'>>
  169. <</if>>
  170. <<actCLA '$bikeaction'>>
  171. <<set $menu_off = 1>>
  172. <<if getvar("$BikeLoc") == 1>>
  173. <<set $time.minutes += 44>>
  174. <<run $pc.skillExperienceGain('run',rand(0,3))>>
  175. <<run $pc.skillExperienceGain('strength',rand(0,3))>>
  176. <<set $pc.fat -= 3>>
  177. <<set $pc.mood += 15>>
  178. <<set $pc.pcs_sweat += 3>>
  179. <<elseif getvar("$BikeLoc") == 2>>
  180. <<set $time.minutes += 32>>
  181. <<run $pc.skillExperienceGain('run',rand(0,2))>>
  182. <<run $pc.skillExperienceGain('strength',rand(0,2))>>
  183. <<set $pc.fat -= 2>>
  184. <<set $pc.mood += 10>>
  185. <<set $pc.pcs_sweat += 2>>
  186. <</if>>
  187. <<set $BikeLoc = 3>>
  188. <<gs 'bicycle' 'clothes'>>
  189. You jump onto your bike and ride to the hunters'' cabin.
  190. <<act 'Finish your ride'>>
  191. <<gt 'swamp_yard' 'start'>>
  192. <</act>>
  193. <</actCLA>>
  194. <</if>>
  195. <</actCLA>>
  196. <</if>>
  197. <!-- ! this gs handles images for biking for Sveta in the various locations of gadukino-->
  198. <!-- ! Example: gs 'bicycle', 'clothes'-->
  199. <<if $location_var[$here][0] == 'clothes'>>
  200. <!-- !need images for biking during snow/rain/winter/nighttime: currently only have summer daytime images-->
  201. <!-- !if sunWeather = 0 and (month < 4 or month > 10): snowing-->
  202. <!-- !else sunWeather = 0 and month >= 4 and month <= 10: raining-->
  203. <!-- !elseif month < 4 or month > 10 and hour < 6 or hour >= 22: winter nighttime-->
  204. <!-- !elseif month < 4 or month > 10: winter daytme-->
  205. <!-- !elseif hour < 6 or hour >= 22: summer nighttime-->
  206. <!-- !else summer daytime-->
  207. <<if $wardrobe.clothingworntype == 'nude'>>
  208. <<image "locations/gadukino/village/bike_nude.jpg">>
  209. <<elseif $wardrobe.PCloSkirt > 0>>
  210. <<image "locations/gadukino/village/bike_2.jpg">>
  211. <<else>>
  212. <<image "locations/gadukino/village/bike.jpg">>
  213. <</if>>
  214. <!-- !end-->
  215. <</if>>