# gas_station_gp_117
!! NOTE: #mod_wlife_highway was the original file
!! TODO: Transferring the gas station mechanism and location from WLife
!! TODO Potentially turn it into a normal gas station and lock the prostitution content behind some
!! The Gazpromneft 117 gas station on the M11 a bit north-east of Pavlovsk
$loc = 'gas_station_gp_117'
$locM = 'gas_station_gp_117'
$menu_loc = 'gas_station_gp_117'
! [x] First check over
if $ARGS[0] = 'outside':
!! TODO: this is called every time Sveta arrives at the location whether from somewhere else or back from a client.
gs 'gas_station_gp_117', 'event_check'
CLOSE ALL
if sound = 0:PLAY 'sound/highway.mp3',20
$loc_arg = 'outside'
$menu_arg = 'outside'
menu_off = 0
$location_type = 'public_outdoors'
*clr & cla
'
> src="images/locations/highway/gas_station_gp_117/gas_'+iif(month > 10 or month < 4, 'winter', '')+iif(daystage = 5, 'night', 'day')+'.jpg">'
'The gas station is modern and clean in comparison to other gas stations in the area. To the south of the station is the highway M-10 that goes from St. Petersburg to Moscow. To the north there are small villages and towns similar to Pavlovsk which is even further south than the highway.'
*nl
'There is a small shop were you can buy something to eat or to drink and a public restroom is also nearby.'
*nl
if car > 0 and cardrive = 29: gs 'gas_station_gp_117', 'gas'
*nl
if prostitutep'blocked'] = 0 and prostitute['gas_station'] = 1 and prostitute['earnings_day'] > 0:
'
You have earned <> ₽ today.'+iif(prostitute['payment_method'] = 0, ' Your share is <> ₽'+iif(prostitute['debt_amount'] > 0, ', but your pimp will keep <> ₽ to pay down your debt.', '.'), '')
end
'
You can take a bus to the '+iif(money < 75, 'train station', 'train station')+' in Pavlovsk. The bus ride and a short walk to the bus station will take and hour and a half minutes and cost 75 ₽.'+iif(money < 75, ' You don''t have enough money.', '')
gs 'stat'
act 'Go inside the gas station': minut += 1 & gt 'gas_station_gp_117', 'shop'
act 'Go to the public restroom': minut += 1 & gt 'gas_station_gp_117', 'restroom'
if prostitute['blocked'] = 0: act 'Go to work': gt 'gas_station_gp_117', 'work'
act 'Wait': gs 'obj_din', 'wait'
end
! [x] First check over
if $ARGS[0] = 'shop' or $gas_shop_inside = 'yes':
CLOSE ALL
if sound = 0:PLAY 'sound/highway.mp3',5
$loc_arg = 'shop'
$menu_arg = 'shop'
menu_off = 0
$location_type = 'public_indoors'
$gas_shop_inside = 'yes'
*clr & cla
'> src="images/locations/highway/gas_station_gp_117/gas_interior.jpg">'
'The shop is stacked with some magazines, cigarettes, different things to eat and drink.'
*nl
if prostitute['tomas_timer'] = daystart:
'Behind the counter stands Tomas. He''s talking to another customer right now.'
elseif week < 7:
!!'Behind the counter stands '+iif(prostitute['tomas'] = 0, 'a plump man', 'Tomas')+'.'
'Behind the counter stands '+iif(prostitute['tomas'] = 0, 'a plump man.', 'Tomas.')
elseif prostitute['tomas'] > 0 and week = 7:
'Tomas isn''t working on Sundays. Another guy you don''t know is standing behind the counter.'
end
*nl
$prostitute_shop_tab = ''
$prostitute_shop_tab += func ('$stock_item', 20, 'Cigarettes', 115, 'siga', $curloc)
$prostitute_shop_tab += func ('$single_stock_item', 1, 'Fashion magazine', 430, 'fashmag', $curloc)
$prostitute_shop_tab += func ('$single_stock_item', 1, 'Computer magazine', 430, 'compmag', $curloc)
$prostitute_shop_tab += func ('$single_stock_item', 1, 'Biographical magazine', 430, 'biomag', $curloc)
$prostitute_shop_tab += func ('$single_stock_item', 1, 'Cooking magazine', 430, 'cookmag', $curloc)
$prostitute_shop_tab += func ('$single_stock_item', 1, 'Knitting magazine', 430, 'knitmag', $curloc)
$prostitute_shop_tab += func ('$single_stock_item', 1, 'Fitness magazine', 430, 'fitmag', $curloc)
$prostitute_shop_tab += func ('$stock_item', 10, 'Wipes', 50, 'salfetka', $curloc, '', iif(bag > 0, 0, 1), 'You need a purse')
$prostitute_shop_tab += func ('$stock_item', 20, 'Tampons', 200, 'tampon', $curloc)
if umbrella = 0: $prostitute_shop_tab += func ('$single_stock_item', 1, 'Umbrella', 1000, 'umbrella', $curloc, '', iif(bag > 0, 0, 1), 'You need a purse')
$prostitute_shop_tab += '
'
*pl $prostitute_shop_tab
killvar '$prostitute_shop_tab'
gs 'stat'
act 'Go outside': $gas_shop_inside = 'no' & minut += 1 & gt 'gas_station_gp_117', 'outside'
act 'Buy and eat a snack (100 ₽ and 0:05)':
*clr & cla
menu_off = 1
minut += 5
money -= 100
pcs_health += 5
pcs_mood += 40
fat += 6
pcs_energy += 60
if pcs_hydra >= 100:
pcs_hydra += 10
else
pcs_hydra += 20
end
cumspclnt = 2
gs 'cum_cleanup'
pcs_breath = 0
gs 'stat'
'> src="images/locations/highway/gas_station_gp_117/food.jpg">'
'You enjoy a tasty snack.'
act 'Continue': gt 'gas_station_gp_117', 'shop'
end
act 'Buy and eat a healthy snack (100 ₽ and 0:05)':
*clr & cla
menu_off = 1
minut += 5
money -= 100
pcs_health += 40
pcs_mood += 10
fat += 2
pcs_energy += 60
if pcs_hydra >= 100:
pcs_hydra += 10
else
pcs_hydra += 20
end
pcs_breath = 0
cumspclnt = 2
gs 'cum_cleanup'
gs 'stat'
'> src="images/locations/highway/gas_station_gp_117/food.jpg">'
'You enjoy a healthy snack.'
act 'Continue': gt 'gas_station_gp_117', 'shop'
end
act 'Buy and drink some water (40 ₽ and 0:05)':
*clr & cla
menu_off = 1
frost = 1
if alko > 0: alko -= 1
minut += 5
money -= 40
pcs_health += 10
pcs_energy += 4
if pcs_hydra >= 100:
pcs_hydra += 25
else
pcs_hydra += 75
end
pcs_breath = 0
cumspclnt = 2
gs 'cum_cleanup'
gs 'stat'
'> src="images/locations/highway/gas_station_gp_117/water.jpg">'
'You enjoy a drink of water'
act 'Continue': gt 'gas_station_gp_117', 'shop'
end
end
! [x] First check over
if $ARGS[0] = 'restroom':
CLOSE ALL
if sound = 0:PLAY 'sound/highway.mp3',10
$loc_arg = 'restroom'
$menu_arg = 'restroom'
menu_off = 0
$location_type = 'public_outdoors'
*clr & cla
'> src="images/locations/highway/gas_station_gp_117/restroom_'+iif(daystage = 5, 'night', 'day')+'.jpg">'
'The gas station has a public bathroom. '+iif(prostitute_status['restroom_chip'] = 0, 'It costs 10 ₽ to use it.', 'You have an employee chip and can use it for free.')+' On the right side of the restroom is a condom dispenser.'
gs 'stat'
act 'Go back': minut += 1 & gt 'gas_station_gp_117', 'outside'
if money >= 10 and prostitute_status['restroom_chip'] = 0:
act 'Enter the female restroom': money -= 10 & minut += 1 & gt 'gas_station_gp_117', 'restroom_female'
act 'Enter the male restroom': money -= 10 & minut += 1 & gt 'gas_station_gp_117', 'restroom_male'
else
'
You don''t have enough money to use the restroom.'
end
if joint > 0:
act 'Smoke a joint':
*clr & cla
menu_off = 1
minut += 5
'> src="images/shared/drugs/joint_smoking.jpg">'
'You go behind the restrooms and pull a joint out of your purse and light it up. Not before long you''re starting to feel the relaxing effects as you''re getting high.'
gs 'drugs', 'joint'
gs 'stat'
act 'Go back': gt 'gas_station_gp_117', 'restroom'
end
end
end
! [x] First check over
if $ARGS[0] = 'condom_dispenser':
CLOSE ALL
if sound = 0:PLAY 'sound/highway.mp3',10
$loc_arg = 'condom_dispenser'
$menu_arg = 'condom_dispenser'
menu_off = 0
*clr & cla
'> src="images/locations/highway/gas_station_gp_117/condoms.jpg">'
'A condom costs 60 ₽ and you have <> condoms.'
gs 'stat'
act 'Go back': minut += 1 & gt 'gas_station_gp_117', 'restroom'
if money >= 60:
act 'Buy a condom (60 ₽)':
minut += 1
money -= 60
if preziktype = 0: prezik += 1
if preziktype = 1 or preziktype = 2: prezikcount += 1
gt 'gas_station_gp_117', 'condom_dispenser'
end
end
if money >= 300:
act 'Buy five condoms (300 ₽)':
minut += 1
money -= 300
if preziktype = 0: prezik += 5
if preziktype = 1 or preziktype = 2: prezikcount += 5
gt 'gas_station_gp_117', 'condom_dispenser'
end
end
if money >= 600:
act 'Buy ten condoms (600 ₽)':
minut += 1
money -= 600
if preziktype = 0: prezik += 10
if preziktype = 1 or preziktype = 2: prezikcount += 10
gt 'gas_station_gp_117', 'condom_dispenser'
end
end
end
! [x] First check over
if $ARGS[0] = 'restroom_female':
CLOSE ALL
*clr & cla
if sound = 0:PLAY 'sound/highway.mp3',5
$loc_arg = 'restroom_female'
$locM_arg = 'restroom_female'
$menu_arg = 'restroom_female'
menu_off = 0
$location_type = 'bathroom'
gs 'stat'
'> src="images/locations/highway/gas_station_gp_117/restroom_female.jpg">'
'The female restroom is relatively clean. It has has three bathroom stalls which over only a little privacy.'
*nl
'A mirror, where you can ' + iif(pcs_hairbsh = 0,'brush','brush') + ' your hair hangs over each sink.'
act 'Go outside': minut += 1 & gt 'gas_station_gp_117', 'restroom'
gs 'prostitution_functions', 'cocaine'
dynamic $tampon
dynamic $quickwash
dynamic $basin
dynamic $publicpan
end
! [x]: First check over
if $ARGS[0] = 'restroom_male':
CLOSE ALL
*clr & cla
if sound = 0:PLAY 'sound/highway.mp3',5
$loc_arg = 'restroom_male'
$locM_arg = 'restroom_male'
$menu_arg = 'restroom_male'
menu_off = 0
$location_type = 'bathroom'
gs 'stat'
'> src="images/locations/highway/gas_station_gp_117/restroom_male.jpg">'
'The male restroom is dirty and smells like urine. It has has three bathroom stalls which over only a little privacy.'
*nl
'A mirror, where you can ' + iif(pcs_hairbsh = 0,'brush','brush') + ' your hair hangs over each sink.'
act 'Go outside': minut += 1 & gt 'gas_station_gp_117', 'restroom'
if dur > 0 and narkday ! daystart:
act 'Do a line of cocaine (0:05)':
*clr & cla
menu_off = 1
narkday = daystart
gs 'drugs', 'cocaine'
minut += 5
gs 'stat'
'> src="images/shared/drugs/cocaine.jpg">'
'You snort some cocaine, feeling dizzy for just a moment. After that you feel fantastic, horny and full of energy.'
act 'Continue': gt $loc, $loc_arg
end
end
dynamic $tampon
dynamic $quickwash
dynamic $basin
dynamic $publicpan
end
if $ARGS[0] = 'gas':
'Your <<$car>> is parked here.'
*nl
'You can buy petrol for your car, the price is 30 ₽ per liter.'
if kanistra < 5:
act 'Buy a canister and fill it with 5 liters of gasoline for 150 ₽':
cla
kanistra += 1
money -= 150
'You buy a canister of gasoline. (It will automatically be put in the trunk of your car)'
act 'Disengage from the pump': gt 'gas_station_gp_117', 'outside'
end
end
if benz < 50:
zprbenz = 50 - benz
if zprbenz * 30 <= money:
act 'Fill the tank with petrol':
cla
*clr
benz = 50
zprpay = zprbenz * 30
money -= zprpay
! WD: Uninitialised ~ 'pol'
! if pol > 0:'> src="images/locations/shared/gas/zapr1.jpg">'
'> src="images/locations/shared/gas/zapr1.jpg">'
'You fill the tank and pay <> ₽.'
act 'Disengage from the pump':gt 'gas_station_gp_117', 'outside'
end
else
'You do not have enough money to refuel your car.'
end
end
end
! [x] First check over
! NOTE: The functions relating to Tomas are removed for now, the attendant doesn''t make seses at the moment. Not really integral to the WLife story, so could be
! scavenged and used later if needed.
!!------ Prostitution ------
! [x] First check over
! NOTE: The first function - work - is location dependent, so this needs to be left here, and every location will need a similar one.
if $ARGS[0] = 'work':
CLOSE ALL
if sound = 0:PLAY 'sound/highway.mp3',20
*clr & cla
$loc_arg = 'work'
$menu_arg = 'work'
menu_off = 0
gs 'stat'
gs 'prostitution_functions', 'parameters'
if $prostitute_names['street'] = '':
'If you want, you can tell your clients a different name.'
$prostitute_names['street'] = input("What name do you want to tell your clients? (Leave blank for <<$pcs_nickname>>)")
if $prostitute_names['street'] = '': $prostitute_names['street'] = $pcs_nickname
end
''
'You are walking near the gas station waiting for a client. On a scale from 1 to 10 you look like a <>. A good looking girl will always earn more money.'+iif(pcs_makeup < 2, ' You should '+iif(pcs_makeup = 0, 'fix your make-up', 'wear make-up')+' to increase your earnings.', ' Wearing make-up is a good way to increase your earnings.')+iif(pirsA > 0 and pirsA < 10000, ' Your tongue piercing will make a blowjob more enjoyable for most men, that could bring in a small bonus.', '')+iif($pantyworntype = 'sexshop' and CloSkirtShortness > 4, ' Wearing such a short skirt reveals your slutty panties to your potential customers.', '')+iif(pcs_apprnc = -10, ' You don''t look healthy and should seek treatment for your STD. There is a high chance that a guy won''t touch you without a condom.', '')
if prostitute['enema'] = 0: '
Nearly all men won''t like dirty anal sex, even with a condom, and it''s probably a safe bet that they won''t pay a lot for it. You should start giving yourself an enema before going to work.'
if mesec > 0: '
You are having your period, most men will pay less for vaginal sex during that time of the month.'
if prostitute['cum_dressed'] = 1: '
You have visible cum stains on you. Most clients won''t like that and will offer less money.'
if prostitute['earnings_day'] > 0: 'You have earned <> ₽ today.'+iif(prostitute['payment_method'] = 0, ' Your share is <> ₽'+iif(prostitute['debt_amount'] > 0, ', but your pimp will keep <> ₽ to pay down your debt.', '.'), '')
if prostitute['payment_method'] = 0: gs 'gas_station_gp_117', 'event_check'
act 'Stop working': gt 'gas_station_gp_117', 'outside'
gs 'willpower', 'prostitution', 'self', 'medium'
if will_cost <= pcs_willpwr:
act 'Look for a client (0:30 and <> Willpower)':
gs 'willpower', 'pay', 'self'
gt 'prostitution_car_negotiation', 'look_client'
end
elseif will_cost > pcs_willpwr:
act 'Look for a client (0:30 and <> Willpower)': '
You don''t have enough willpower to use this action.'
end
if salfetka > 0 and (prostitute['cum_dressed'] = 1 or prostitute['cum_undressed'] = 1 or prostitute['cum_vaginal_mod'] = 1 or prostitute['cum_anal_mod'] = 1):
act 'Remove the cum from your body (0:02)':
minut += 2
salfetka -= 1
cumspclnt = 20
gs 'cum_cleanup'
gt 'gas_station_gp_117', 'work'
end
elseif salfetka = 0:
'
You don''t have any tissues with you to remove cum from your body.'
end
!! NOTE: This is where the working/negotiationg part begins in the original file. Moved to a separate file.
!! This call just displays the explanation and the "config" of the negotiations on the page.
gs 'prostitution_car_negotiation', 'general_description'
end
if $ARGS[0] = 'event_check':
!! TODO: Originally this was checking for story events. Now it should check for police raid or just check, attack, or anything else.
!! If this is used in the city, then the initial pimp visits should be checked here too.
!! gt 'mod_wlife_story', 'police'
end
! [x] First check over
if $ARGS[0] = 'bus_end':
minut += 87
money -= 75
!!NOTE: Removed the checking for acceptance
prostitute['earnings_day'] = 0
prostitute['customer_day'] = 0
gt 'pav_market'
end
--- gas_station_gp_117 ---------------------------------