# bicycle
$location_type = 'event_outdoors'
if $ARGS[0] = 'sarai':
$metka = $ARGS[0]
$loc = $CURLOC
$menu_loc = 'bicycle'
$menu_arg = 'sarai'
menu_off = 0
cla
*clr
minut += 1
gs 'gadukino_event', 'sound'
gs 'stat'
!gs'time'
'
> src="images/locations/gadukino/village/findvel.jpg">'
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.'
else
'You notice an old bike. It looks like it''s still in a good condition, you can probably ride it without any trouble.'
end
if hour >= 6 and hour <= 20 and sunWeather = 1 and month >= 4 and month <= 10:
if findvelday ! daystart:
act 'Ride the bike (1:00)':
*clr & cla
menu_off = 1
findvelday = daystart
minut += 60
run_exp += RAND(0,2)
stren_exp += rand(0,2)
fat -= 5
pcs_mood += 5
gs 'sweat', 'add', 2
findvelrand = RAND(0,100)
if $clothingworntype = 'nude':
pcs_horny += 20
pcs_mood += 10
gs 'stat'
'
> src="images/locations/gadukino/village/bike_nude.jpg">'
'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.'
act 'Finish the trip':gt $loc, $metka
exit
end
if CloSkirtShortness > 0 and findvelrand > 70:
if $pantyworntype ! 'none':
pcs_mood+=5
gs'stat'
'
> src="images/locations/gadukino/village/bike_tanga_1.jpg">'
'During your ride you lift your skirt several times, showing a glimpse of your panties to the passers-by.'
gs 'arousal', 'voyeur', 5, 'exhibitionism'
gs 'stat'
else
pcs_mood += 10
gs'stat'
'
> src="images/locations/gadukino/village/bike_tanga_2.jpg">'
'During your ride you lift your skirt several times, showing your bare ass to the passers-by.'
gs 'arousal', 'voyeur', 10, 'exhibitionism'
minut -= 5
gs 'stat'
end
act 'Finish the ride':gt $loc, $metka
gs 'arousal', 'end'
gs 'stat'
exit
end
if CloSkirtShortness > 0 and findvelrand <= 70:
pcs_mood += 5
gs'stat'
'
> src="images/locations/gadukino/village/bike_2.jpg">'
'You take out the old bike for a ride. You ride by the endless fields enjoying the freedom you''re experiencing.'
act 'Finish the ride':gt $loc, $metka
exit
end
if CloSkirtShortness = 0:
pcs_mood += 5
gs'stat'
'
> src="images/locations/gadukino/village/bike.jpg">'
'You ride your bike, enjoying the surrounding country-side.'
act 'Finish the trip':gt $loc, $metka
exit
end
end
end
end
if goforest > 0 and sunWeather = 1 and month >= 4 and month <= 10:
act 'Bike to the forest (0:25)':
*clr & cla
menu_off = 1
minut += 25
pcs_mood += 5
findvel = 2
gs'stat'
gs 'bicycle', 'clothes_findvel'
'You jump onto the bike and ride to the forest.'
gs 'bicycle', 'ridego', 'gadforest','1'
end
end
if goswamp = 1 and sunWeather = 1 and month >= 4 and month <= 10:
act 'Bike to the swamp (1:15)':
*clr & cla
menu_off = 1
minut += 75
run_exp += RAND(0,1)
stren_exp += rand(0,1)
fat -= 1
pcs_mood += 5
gs 'sweat', 'add', 1
findvel = 3
gs'stat'
!gs'time'
gs 'bicycle', 'clothes_findvel'
'You get on the bike and ride it to the swamp.'
gs 'bicycle', 'ridego', 'swamp_yard'
end
end
act 'Put the bike away': gt'Gadsarai'
end
if $ARGS[0] = 'forest':
$metka = $ARGS[0]
$loc = $CURLOC
$menu_loc = 'bicycle'
$menu_arg = 'forest'
menu_off = 0
cla
*clr
minut += 1
gs 'gadukino_event', 'sound'
gs 'stat'
!gs'time'
'
> src="images/locations/gadukino/village/findvel.jpg">'
act 'Bike to the village (0:25)':
menu_off = 1
gs 'clothing', 'swamp_clothes', 0
if $clothingworntype ! 'nude' or pcs_inhib > 50:
*clr & cla
pcs_mood += 10
findvel = 1
minut += 25
inhib_exp += 4
gs 'bicycle', 'clothes_findvel'
'You ride your bike out of the forest and return to the village.'
gs 'bicycle', 'ridego', 'Gaddvor'
gs'stat'
else
*clr & cla
'
> src="images/locations/gadukino/village/findvel_nude.jpg">'
'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.'
act 'Further':gt'gadforest','1'
end
end
if goswamp = 1:
act 'Bike to the swamp (0:50)':
*clr & cla
menu_off = 1
minut += 50
pcs_mood += 5
findvel = 3
gs'stat'
!gs'time'
gs 'bicycle', 'clothes_findvel'
'You ride your bike to the edge of the swamp.'
gs 'bicycle', 'ridego', 'swamp_yard'
end
end
act 'Put the bike aside': gt'gadforest','1'
end
if $ARGS[0] = 'swamp':
$metka = $ARGS[0]
$loc = $CURLOC
$menu_loc = 'bicycle'
$menu_arg = 'swamp'
menu_off = 0
cla
*clr
minut += 1
gs 'gadukino_event', 'sound'
gs 'stat'
!gs'time'
'
> src="images/locations/gadukino/village/findvel.jpg">'
act 'Bike to the village (1:15)':
menu_off = 1
gs 'clothing', 'swamp_clothes', 0
if $clothingworntype ! 'nude' or pcs_inhib > 50:
*clr & cla
minut += 75
run_exp += RAND(0,1)
stren_exp += rand(0,1)
fat -= 1
gs 'sweat', 'add', 1
pcs_mood += 10
findvel = 1
hunters = 0
inhib_exp += 4
!gs'time'
gs 'bicycle', 'clothes_findvel'
'You ride your bike out of the swamp and return to the village.'
gs 'bicycle', 'ridego', 'Gaddvor'
gs'stat'
else
*clr & cla
'
> src="images/locations/gadukino/village/findvel_nude.jpg">'
'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.'
act 'Further':gt'swamp_yard'
end
end
act 'Bike to the forest (0:50)':
*clr & cla
menu_off = 1
minut += 50
pcs_mood += 5
hunters = 0
findvel = 2
!gs'time'
gs 'bicycle', 'clothes_findvel'
'You jump onto your bike and ride to the forest.'
gs 'bicycle', 'ridego', 'gadforest','1'
gs'stat'
end
act 'Put the bike aside': gt'swamp_yard'
end
if $ARGS[0] = 'clothes_findvel':
if $clothingworntype = 'nude':
'
> src="images/locations/gadukino/village/bike_nude.jpg">'
elseif CloSkirtShortness > 0:
'
> src="images/locations/gadukino/village/bike_2.jpg">'
else
'
> src="images/locations/gadukino/village/bike.jpg">'
end
end
if $ARGS[0] = 'ridego':
menu_off = 1
!make this args, add a warning, and allow 30% alive by illume
$metka = $ARGS[2]
$loc = $ARGS[1]
if hour >= 6 and hour < 22:
act 'Further':gt $loc, $metka
else
'It''s too dark outside to go for a ride.'
act 'Put the bike away': gt $loc, $metka
end
end
--- bicycle ---------------------------------