glife/locations/road

# road
CLOSE ALL
$polustanok = {
	cls
	gs 'stat'
	'Ordinary railway platform.'

	act 'Leave':minut += 10 & nroad = 5 & gt 'road'

	if money >= 150:
		act 'Buy a ticket to the town (150 <b>₽</b>)':
			cls
			money -= 150
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped at the station.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped at the station.'

				act 'To go further':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images/etogame/electri.jpg"></center>'
					'After 15 minutes the train stopped in the Township.'

					act 'Leave':minut += 20 & nroad = 20 & gt 'vokzalperG'
				end

				act 'Leave':minut += 15 & nroad = 15 & gt 'road'
			end

			act 'Leave':minut += 10 & nroad = 10 & gt 'road'
		end
	end

	if money >= 50:
		act 'Buy a ticket to the Centre (50 <b>₽</b>)':
			cls
			money -= 50
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped at the Centre.'

			act 'Leave':minut += 5 & nroad = 0 & gt 'vokzalper'
		end
	end
}

$polustanok2 = {
	cls
	gs 'stat'
	'Ordinary railway platform.'

	act 'Leave':minut += 10 & nroad = 10 & gt 'road'

	if money >= 100:
		act 'Buy a ticket to the town (100 <b>₽</b>)':
			cls
			money -= 100
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped at the station.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped in the Township.'

				act 'Leave':minut += 20 & nroad = 20 & gt 'vokzalperG'
			end

			act 'Leave':minut += 10 & nroad = 15 & gt 'road'
		end
	end

	if money >= 100:
		act 'Buy a ticket to the Center (100 <b>₽</b>)':
			cls
			money -= 100
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped at the Centre.'

				act 'Leave':minut += 5 & nroad = 0 & gt 'vokzalper'
			end

			act 'Leave':minut += 20 & nroad = 5 & gt 'road'
		end
	end
}

$polustanok3 = {
	cls
	gs 'stat'
	'Ordinary railway platform.'

	act 'Leave':minut += 15 & nroad = 15 & gt 'road'

	if money >= 50:
		act 'Buy a ticket to the town (50 <b>₽</b>)':
			cls
			money -= 100
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'
			'After 15 minutes the train stopped in the Township.'

			act 'Leave':minut += 20 & nroad = 20 & gt 'vokzalperG'
		end
	end

	if money >= 150:
		act 'Buy a ticket to the Center (150 <b>₽</b>)':
			cls
			money -= 150
			minut += 15
			gs 'stat'
			'<center><img src="images/etogame/electri.jpg"></center>'
			'You paid for the ticket and boarded the train going in the town.'

			act 'To go further':
				cls
				minut += 15
				gs 'stat'
				'<center><img src="images/etogame/electri.jpg"></center>'
				'After 15 minutes the train stopped at the station.'

				act 'To go further':
					cls
					minut += 15
					gs 'stat'
					'<center><img src="images/etogame/electri.jpg"></center>'
					'After 15 minutes the train stopped at the Centre.'

					act 'Leave':minut += 5 & nroad = 0 & gt 'vokzalper'
				end

				act 'Leave':minut += 5 & nroad = 5 & gt 'road'
			end

			act 'Leave':minut += 20 & nroad = 10 & gt 'road'
		end
	end
}

$drive_sex[1] = {
	cla
	cls
	gs'stat'
	horny += RAND(20,30)
	guy += 1
	bj += 1
	hja += 1
	swallow += 1
	spafinloc = 12
	gs 'cum_manage'
	if $road_textrand0 = 'Gadyukino':
        minut+=15
        nroad=15
	elseif $road_textrand0 = 'Pavlovsky':
        minut+=15
        nroad=20
	elseif $road_textrand0 = 'Cities':
        minut+=15
        nroad=0
    end
	'<center><B>Highway M-7</B></center>'
	'<center><img src="images/pic/city/road/bj (1).gif" width="1000" height="562"></center>'
    'Once you get in the car, silently without waiting for the Invitation are starting to unbutton his pants and pulled out a member.'
    dick = RAND(14,22)
    if throat < dick: throat += 1
    if dick >= 14 and dick < 16: $raod_text_sex = 'not very big'
    if dick >= 16 and dick < 18: $raod_text_sex = 'normal size'
    if dick >= 18 and dick < 20: $raod_text_sex = 'quite large'
    if dick >= 20: $raod_text_sex = 'just huge'
    'His cock was <<$raod_text_sex>>, centimeters <<dick>>. With a little work handles, You brought him in a standing position, He lowered his head and around his lips.'
    'You admitted assiduously sucking, swallowing and caress his tongue. The piquancy of the suction stranger you are not a joke and you filed with undisguised pleasure began to swallow it as deep as possible.'
    'Shortly, your efforts come to fruition and a member began erupting right in your mouth with warm sperm, you regularly swallowed whole.'
    act'To go further': dynamic $autospot_drive
}


$drive_sex[2] = {
	cla
	cls
	gs'stat'
	horny += RAND(20,30)
	guy += 1
	hja += 1
	spafinloc = 7
	gs 'cum_manage'
	if $road_textrand0 = 'Gadyukino':
        minut+=15
        nroad=15
	elseif $road_textrand0 = 'Pavlovsky':
        minut+=15
        nroad=20
	elseif $road_textrand0 = 'Cities':
        minut+=15
        nroad=0
    end
	'<center><B>Highway M-7</B></center>'
	'<center><img src="images/pic/city/road/HJ (1).gif" width="800" height="448"></center>'
    'Once you get in the car, silently without waiting for the Invitation are starting to unbutton his pants and pulled out a member.'
    dick = RAND(14,22)
    if dick >= 14 and dick < 16: $raod_text_sex = 'not very big'
    if dick >= 16 and dick < 18: $raod_text_sex = 'normal size'
    if dick >= 18 and dick < 20: $raod_text_sex = 'quite large'
    if dick >= 20: $raod_text_sex = 'just huge'
    'His cock was <<$raod_text_sex>>, centimeters <<dick>>. With a little work handles, You brought him in a standing position.'
    'You took it hard nadrachivat and a little crush palm. The piquancy of the situation, you are not a joke and you filed with undisguised diligence he began nadrachivat.'
    'Shortly, your efforts come to fruition and a member began erupting right at you, getting on clothes.'
    act'To go further': dynamic $autospot_drive
}

$autospot_drive = {
	cla
	cls
	gs'stat'
	money -= autostop_price*100
	if $road_textrand0 = 'Gadyukino':
        minut+=15
        nroad=15
	elseif $road_textrand0 = 'Pavlovsky':
        minut+=15
        nroad=20
	elseif $road_textrand0 = 'Cities':
        minut+=15
        nroad=0
    end
	picrand = RAND(1,2)
    if truck_drive = 1:
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/truck_drive (<<picrand>>).jpg" ></center>'
    elseif bandit_drive = 1:
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/drive (<<picrand>>).jpg" ></center>'
    else
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/drive (<<picrand>>).jpg" ></center>'
    end
    act'Get out of the car':gt $curloc
}

$autostpo_money = {
	cla
	gs'stat'
	autostop_price = RAND(3,6)
	textrand = RAND(1,5)
	if textrand = 1:$road_textrand4 = 'For <<autostop_price*100>> I`ll take.'
	if textrand = 2:$road_textrand4 = '<<autostop_price*100>> and went.'
	if textrand = 3:$road_textrand4 = '<<autostop_price*100>>.'
	if textrand = 4:$road_textrand4 = 'Come for <<autostop_price*100>>.'
	if textrand = 5:$road_textrand4 = '<<autostop_price*100>> <b>₽</b> and drove.'
    if truck_drive = 1:
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/truck_guy (<<picrand>>).jpg" ></center>'
    elseif bandit_drive = 1:
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/guy (1).jpg" ></center>'
    else
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/guy (<<picrand>>).jpg" ></center>'
    end
	'You have to ask for a ride <<$road_textrand0>>'
	'The driver looks you an appraising look and said,:'
	vnerand = RAND(0,1200) 
	if vnerand <= vnesh:
		cla
		'- I can free, but only if the exhaust.'
		'- How? - you ask.'
		'- You know yourself, an adult girl.'
		act'Can mouth work':
			cla
			drive_sex[1] = 1
			'After much thought, you are responsible:'
			'- Good, I can work out the mouth'
			'- Come on, out to be.'
			act'Sit in the car':dynamic $drive_sex[1]
		end
		act'Can, but only handles':
			cla
			drive_sex[2] = 1
			'After much thought, you are responsible:'
			'- Good, but only handles.'
			'- This is what? Brezguesh?'
			'- No... - not knowing, the answer you squeeze.'
			'After some hesitation he responds:'
			'- Okay, out to be.'
			act'Sit in the car':dynamic $drive_sex[2]
		end
		exit
	else 
		'- <<$road_textrand4>>'
	end
	if money > autostop_price*100:
		act'Agree': dynamic $autospot_drive
	end
	act'Takeout':
		cla
		'- Sorry, but it`s too expensive for me - you say , and leave your car.'
		act 'Further':gt $curloc
	end
	act'Ask for lower price':
		cla
		textrand = RAND(1,4)
		if textrand = 1:$road_textrand5 = '- Bley-and-Ying, so expensive... and maybe you can like-the cheaper?'
		if textrand = 2:$road_textrand5 = '- Man, I completely broke... You can just-slightly cheaper?'
		if textrand = 3:$road_textrand5 = '- Maybe both-some agree?'
		if textrand = 4:$road_textrand5 = '- It can reduce the price a little bit for me?'
		'You coyly playing hair and eyes shooting to reduce the asking price:'
		'<<$road_textrand5>>'
		'He once again appreciatively examining you and says,:'
		vnerand = RAND(0,400)
		if vnerand <= vnesh:
			cla
			'- Can all free, but only if the exhaust.'
			'- How? - you ask.'
			'- You know yourself, an adult girl.'
			act'Can mouth work':
				cla
				drive_sex[1] = 1
				'After much thought, you are responsible:'
				'- Good, I can work out the mouth'
				'- Come on, out to be.'
				act'Sit in the car':dynamic $drive_sex[1]
			end
			act'Can, but only handles':
				cla
				drive_sex[2] = 1
				'After much thought, you are responsible:'
				'- Good, but only handles.'
				'- This is what? Brezguesh?'
				'- No... - not knowing, the answer you squeeze.'
				'After some hesitation he responds:'
				'- Okay, out to be.'
				act'Sit in the car':dynamic $drive_sex[2]
			end
		else 
			ivrand = RAND(1,2)
			autostop_price -= ivrand
			'- Okay, Fine. you throw off <<ivrand*100>> <b>₽</b>. For <<autostop_price*100>> I`ll take.'
			
			if money > autostop_price*100:
				act'Agree':
					!trip
					dynamic $autospot_drive
				end
			end
			act'Takeout':
				cla
				'- Sorry, it`s still too expensive for me.'
				act 'Further':gt $curloc
			end
			act'Offer him a blowjob':
				cla
				drive_sex[1] = 1
				'- Or maybe I`m with you-then by-another burst into tears? - you say licking your lips.'
				'- Huh... Come on, then get in the car.'
				act'Sit in the car':dynamic $drive_sex[1]
			end
		end
	end
	
}

$autostop_d = {
	cls
	cla
	gs'stat'
	truck_drive = 0
    bandit_drive = 0
    drive_sex[1] = 0
    drive_sex[2] = 0
	textrand = RAND(1,5)
	if textrand = 1:$road_textrand1 = '- Girl, Where are you keeping?'
	if textrand = 2:$road_textrand1 = '- Hey, beauty, let `ll drop?'
	if textrand = 3:$road_textrand1 = '- Girl, you ride?'
	if textrand = 4:$road_textrand1 = '- Where are you?'
	if textrand = 5:$road_textrand1 = '- Girl, You know how dangerous it is one that`s so middle of the road stand?'
	textrand = RAND(1,5)
	if textrand = 1:$road_textrand2 = 'perfectly clean and shiny'
	if textrand = 2:$road_textrand2 = 'dirty'
	if textrand = 3:$road_textrand2 = 'dusty'
	if textrand = 4:$road_textrand2 = 'slightly dusty'
	if textrand = 5:$road_textrand2 = 'very dirty'
	textrand = RAND(1,5)
	if textrand = 1:$road_textrand3 = 'black'
	if textrand = 2:$road_textrand3 = 'white'
	if textrand = 3:$road_textrand3 = 'red'
	if textrand = 4:$road_textrand3 = 'blue'
	if textrand = 5:$road_textrand3 = 'gray'
	!wagon and sedan
	ivrand = RAND(1,2)
	if ivrand = 1:
		!gangsters or not
		ivrand = RAND(1,4)
		if ivrand > 1:
			picrand = RAND(2,4)
			bandit_drive = 1
			'<center><B>Highway M-7</B></center>'
			'<center><img src="images/pic/city/road/guy (<<picrand>>).jpg" ></center>'
			'Near you stopped <<$road_textrand3>>, <<$road_textrand2>> car and the window looked out on you man:'
			if vnesh < 60:'- Woman, where you?'
			if vnesh >= 60:'<<$road_textrand1>>'
		elseif ivrand = 1:
        	'<center><B>Highway M-7</B></center>'
			'<center><img src="images/pic/city/road/guy (1).jpg" ></center>'
			'Near you stopped black, tinted windows of the car and looked out at you 2 like the bandits man, dressed in leather:'
			'- Listen, Malykha, zachalivay Us - We drove to the right place!'
		end
	elseif ivrand = 2:
		picrand = RAND(1,3)
		truck_drive = 1
		'<center><B>Highway M-7</B></center>'
		'<center><img src="images/pic/city/road/truck_guy (<<picrand>>).jpg" ></center>'
		'Near You stopped a huge <<$road_textrand3>>, <<$road_textrand2>> furans and from the window you looked out of the man:'
		if vnesh < 60:'- Woman, where you?'
		if vnesh >= 60:'<<$road_textrand>>'
	end
}

$metka = $ARGS[0]
$loc = $CURLOC
clr
gs 'stat'
gs 'outdoors'
'<center><h4>Northern Highway</h4></center>'
'<center><img src="images/etogame/road.jpg"></center>'
'<center><<nroad>> km</center>'
'Highway which carried cars at high speed, with the hum of the wind enveloping sweep wagon.'

if car > 0 and cardrive = 19 and ncarroad = nroad:'Standing on the sidelines <a href="exec:gs ''carF'', ''start''">your <<$car>></a>.'
if nroad = 0:act 'Go to town':minut += 60 & gt 'nord'
if nroad = 16:act 'Go to object':minut += 60 & gt 'obekt'
if nroad = 20:act 'Go to town':minut += 60 & gt 'pavCommercial'
if nroad < 20:act 'Go north':minut += 60 & nroad += 1 & gt $curloc
if nroad > 0:act 'Go south':minut += 60 & nroad -= 1 & gt $curloc
if nroad>0 and nroad<20:
    act'Vote toward Pavlovsk':
		cls
		minut+=15
		gs'stat'
		gorand=rand(1,100)
        if gorand<=60:
			picrand = RAND(1,3)
			'<center><B>Highway M-7</B></center>'
			'<center><img src="images/pic/city/road/autostop (<<picrand>>).jpg" ></center>'
			'You vote but the cars rush by simply not paying any attention to you.'
			act 'Further':gt $curloc
        elseif gorand>60:
			dynamic $autostop_d
            if nroad<15:
                act 'Ask to take you to Gadyukino':
					cls
					$road_textrand0 = 'Gadyukino'
					dynamic $autostpo_money
                end
            end
            act 'Ask to take you to Pavlovsky':
				cls
				$road_textrand0 = 'Pavlovsky'
				dynamic $autostpo_money
			end
        end
    end
    act'Vote in the direction of the city':
		cls
		minut+=15
		gs'stat'
		gorand=rand(1,100)
        if gorand<=60:
			picrand = RAND(1,3)
			'<center><B>Highway M-7</B></center>'
			'<center><img src="images/pic/city/road/autostop (<<picrand>>).jpg" ></center>'
			'You vote but the cars rush by simply not paying any attention to you.'
			act 'Further':gt $curloc
        elseif gorand>60:
			dynamic $autostop_d
            if nroad>15:
                act 'Ask to take you to Gadyukino':
					cls
					$road_textrand0 = 'Gadyukino'
					dynamic $autostpo_money
				end
            end
			act 'Ask to take you to the City':
				cls
				$road_textrand0 = 'Cities'
				dynamic $autostpo_money
			end
        end
    end
end

if nroad = 0:
	'Outskirts of the town which brought sad ramshackle huts of kryazhestyh trees.'
	'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
elseif nroad = 1:
	'Not podaleku from the city could be seen <a href="exec:minut += 15 & gt ''locmansion''">houses</a>.'
elseif nroad = 2:
	''
elseif nroad = 3:
	'Podaleku not seen from the road <a href="exec:minut += 15 & gt ''graveyard''">cemetery</a>.'
elseif nroad = 4:
	''
elseif nroad = 5:
	'Not podaleku from the road is <a href="exec:dynamic $polustanok">railway stop</a> next to which is <a href="exec:minut += 15 & gt ''dachi''">cottage cooperative</a>.'
elseif nroad = 6:
	''
elseif nroad = 7:
	''
elseif nroad = 8:
	''
elseif nroad = 9:
	''
elseif nroad = 10:
	'Not podaleku from the road is <a href="exec:dynamic $polustanok2">railway stop</a>.'
elseif nroad = 11:
	''
elseif nroad = 12:
	''
elseif nroad = 13:
	''
elseif nroad = 14:
	'Near the road is <a href="exec:minut += 15 & gt ''motel''">motel</a>'
elseif nroad = 15:
	'Not podaleku from the road is <a href="exec:dynamic $polustanok3">railway stop</a>. From the little station leads to a dirt road <a href="exec:minut += 30 & gt ''gadukino''">Village Gadyukino</a>'
elseif nroad = 16:
	'Not podaleku is seen from the road abandoned building.'
elseif nroad = 17:
	''
elseif nroad = 18:
	''
elseif nroad = 19:
	''
elseif nroad = 20:
	'Highway abuts the old provincial town.'
	'At a roadside stand <a href="exec:minut+=5&GT ''furi''">Lorry</a>'
end

--- road ---------------------------------