AddedFlavour/locations/mod_addedflavour_pav_depot.qsrc

# mod_addedflavour_pav_depot
	if $ARGS[0] = 'start' or '':
		*clr & cla
		CLOSE ALL
		$loc_arg = 'start'
		$loc = 'mod_addedflavour_pav_depot'
		$location_type = 'public_outdoors'
		$menu_loc = 'mod_addedflavour_pav_depot'
		$menu_arg = 'start'
		menu_off = 0
		if hour >= 19 or hour < 6:
			$modVar_AF_TempStr = 'N'
		else
			$modVar_AF_TempStr = ''
		end
		gs 'mod_addedflavour_charsche' , 'chkschedule'
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',28)] = $loc and $charsche_character_CurActLoc[arrpos('charsche_charlist',704)] = $loc and modVar_AF_DeliveryJob['State'] = 2 and modVar_AF_DeliveryJob['KnowValeri'] = 0:
			gt 'mod_addedflavour_A28_Events' , 'A28-WorkEv-X2'
		end
		gs 'stat'
		'<center><h2>Pavlovsk Delivery Depot</h2></center>'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/pavlovsk/pav_depot<<$modVar_AF_TempStr>>.jpg"></center>'
		*nl
		'This is the Delivery Depot servicing Pavlovsk and the surrounding region.  All deliveries intending to reach somewhere local will be sent here first before a delivery agent transports it to it intended recipient.'
		*nl
		'Opening hours are Monday through Saturday:'
		'08:00 to 16:00'
		*nl
		'<b>People Present:</b>'
		modVar_AF_Temp = 0
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',28)] = $loc and $charsche_character_CurActDesc[arrpos('charsche_charlist',28)] = 'Working':
			modVar_AF_Temp += 1
			'You can see your Stepfather here loading up the Gazelle'
		end
		if $charsche_character_CurActLoc[arrpos('charsche_charlist',704)] = $loc and $charsche_character_CurActDesc[arrpos('charsche_charlist',704)] = 'Working':
			modVar_AF_Temp += 1
			'You can see Valeri here loading up his Van'
		end
		if hour >= 8 and hour < 16:
			modVar_AF_Temp += 1
			'You can see the ' + iif(modVar_AF_DeliveryJob['State'] = 1 or modVar_AF_DeliveryJob['State'] = 3 or modVar_AF_DeliveryJob['Receipts'] > 0,'<a href="exec: gt ''mod_addedflavour_pav_depot'' , ''depotadmin'' ">Depot Administrator</a>','Depot Administrator') + ' here at the Front Desk'
		end
		if modVar_AF_Temp = 0:
			'You cannot see anyone here'
		end
		if modVar_AF_DeliveryJob['State'] = 2 and hour >= 8 and hour < 16 and week <= 6:
			*nl
			'<b>Courier Jobs Available:</b>'
			if modArr_AF_DeliveryLocActive[modVar_AF_DepotJobArrpos[0]] = 1:
				'Delivery Location = <<$modArr_AF_DeliveryLocName[modVar_AF_DepotJobArrpos[0]]>> - Commission = <<modArr_AF_DeliveryLocEarn[modVar_AF_DepotJobArrpos[0]]>>₽ - <a href="exec: modArr_AF_DeliveryLocActive[modVar_AF_DepotJobArrpos[0]] = 2 & $modArr_AF_DeliveryJobTaken[] = $modArr_AF_DeliveryFootOptions[modVar_AF_DepotJobArrpos[0]] & gt ''mod_addedflavour_pav_depot'' , ''start'' ">Take Delivery Job</a>'
			end
			if modArr_AF_DeliveryLocActive[modVar_AF_DepotJobArrpos[1]] = 1:
				'Delivery Location = <<$modArr_AF_DeliveryLocName[modVar_AF_DepotJobArrpos[1]]>> - Commission = <<modArr_AF_DeliveryLocEarn[modVar_AF_DepotJobArrpos[1]]>>₽ - <a href="exec: modArr_AF_DeliveryLocActive[modVar_AF_DepotJobArrpos[1]] = 2 & $modArr_AF_DeliveryJobTaken[] = $modArr_AF_DeliveryFootOptions[modVar_AF_DepotJobArrpos[1]] & gt ''mod_addedflavour_pav_depot'' , ''start'' ">Take Delivery Job</a>'
			end
			if modArr_AF_DeliveryLocActive[modVar_AF_DepotJobArrpos[2]] = 1:
				'Delivery Location = <<$modArr_AF_DeliveryLocName[modVar_AF_DepotJobArrpos[2]]>> - Commission = <<modArr_AF_DeliveryLocEarn[modVar_AF_DepotJobArrpos[2]]>>₽ - <a href="exec: modArr_AF_DeliveryLocActive[modVar_AF_DepotJobArrpos[2]] = 2 & $modArr_AF_DeliveryJobTaken[] = $modArr_AF_DeliveryFootOptions[modVar_AF_DepotJobArrpos[2]] & gt ''mod_addedflavour_pav_depot'' , ''start'' ">Take Delivery Job</a>'
			end
		end
		act 'Leave' : minut += 5 & gt 'pav_industrial'
	end
	
	if $ARGS[0] = 'setupvanlocs':
		modVar_AF_DeliveryVanSetup = daystart
		modVar_AF_DeliveryVanHour = 8
		modVar_AF_EventLock['A28-WorkEv-SeenWorking'] = 0
		modVar_AF_EventLock['A704-WorkEv-SeenWorking'] = 0
		KILLVAR '$modArr_AF_DeliveryVanOptions'
		KILLVAR '$modArr_AF_DeliveryVanOptionsDaily'
		$modArr_AF_DeliveryVanOptions[] = 'pav_complex'
		$modArr_AF_DeliveryVanOptions[] = 'pav_residential'
		$modArr_AF_DeliveryVanOptions[] = 'pav_industrial'
		$modArr_AF_DeliveryVanOptions[] = 'pav_commercial'
		$modArr_AF_DeliveryVanOptions[] = 'pav_train'
		$modArr_AF_DeliveryVanOptions[] = 'liam'
		$modArr_AF_DeliveryVanOptions[] = 'ParChurch'
		$modArr_AF_DeliveryVanOptions[] = 'pav_commcenter'
		$modArr_AF_DeliveryVanOptions[] = 'dachi'
		$modArr_AF_DeliveryVanOptions[] = 'gadukino'
		$modArr_AF_DeliveryVanOptions[] = 'motel'
		$modArr_AF_DeliveryVanOptions[] = 'OutofTown'
		$modArr_AF_DeliveryVanOptions[] = 'OutofTown'
		$modArr_AF_DeliveryVanOptions[] = 'OutofTown'
		$modArr_AF_DeliveryVanOptions[] = 'OutofTown'
		copyarr '$modArr_AF_DeliveryVanOptionsDaily' , '$modArr_AF_DeliveryVanOptions'
	end
	
	if $ARGS[0] = 'setupdeliveries':
		KILLVAR '$modArr_AF_DeliveryFootOptions'
		KILLVAR '$modArr_AF_DeliveryLocName'
		KILLVAR 'modArr_AF_DeliveryLocEarn'
		KILLVAR 'modArr_AF_DeliveryLocActive'
		$modArr_AF_DeliveryFootOptions[] = 'pod_ezd'
		$modArr_AF_DeliveryLocName[] = 'Five Eight Apartment Complex'
		modArr_AF_DeliveryLocEarn[] = 55
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'pav_clinic'
		$modArr_AF_DeliveryLocName[] = 'Pavlovsk Clinic'
		modArr_AF_DeliveryLocEarn[] = 75
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'gkafe'
		$modArr_AF_DeliveryLocName[] = 'Pavlovsk Train Station Cafe'
		modArr_AF_DeliveryLocEarn[] = 125
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'HotelHole'
		$modArr_AF_DeliveryLocName[] = 'Pavlovsk Train Station Hotel'
		modArr_AF_DeliveryLocEarn[] = 115
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'pav_pharmacy'
		$modArr_AF_DeliveryLocName[] = 'Pavlovsk Pharmacy'
		modArr_AF_DeliveryLocEarn[] = 75
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'etoexhib'
		$modArr_AF_DeliveryLocName[] = 'Vocational School'
		modArr_AF_DeliveryLocEarn[] = 125
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'gadmarket'
		$modArr_AF_DeliveryLocName[] = 'Gadukino Shop'
		modArr_AF_DeliveryLocEarn[] = 440
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'liamelkafe'
		$modArr_AF_DeliveryLocName[] = 'Liamel Cafe'
		modArr_AF_DeliveryLocEarn[] = 300
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'cafe_parco'
		$modArr_AF_DeliveryLocName[] = 'Cafe del Parco'
		modArr_AF_DeliveryLocEarn[] = 75
		modArr_AF_DeliveryLocActive[] = 0
		$modArr_AF_DeliveryFootOptions[] = 'brothel'
		$modArr_AF_DeliveryLocName[] = 'Highway Hotel'
		modArr_AF_DeliveryLocEarn[] = 175
		modArr_AF_DeliveryLocActive[] = 0
	end
	
	if $ARGS[0] = 'generatejobs':
		modVar_AF_DeliveryJob['Issued'] = daystart
		modVar_AF_CheckJobLoop = 0
		:CheckJobLoopStart
		if modVar_AF_CheckJobLoop = arrsize('modArr_AF_DeliveryLocActive'):
			jump 'CheckJobLoopEnd'
		end
		if modArr_AF_DeliveryLocActive[modVar_AF_CheckJobLoop] = 2:
			modVar_AF_DeliveryJob['State'] = 3
		end
		modArr_AF_DeliveryLocActive[modVar_AF_CheckJobLoop] = 0
		modVar_AF_CheckJobLoop += 1
		jump 'CheckJobLoopStart'
		:CheckJobLoopEnd
		KILLVAR 'modVar_AF_DepotJobArrpos'
		if modVar_AF_DeliveryJob['State'] = 2:
			KILLVAR '$modArr_AF_DeliveryJobTaken'
			modVar_AF_ActivateJobLoop = 0
			modVar_AF_ErrorLoop = 0
			:ActivateJobLoopStart
			if modVar_AF_ActivateJobLoop = 3:
				jump 'ActivateJobLoopEnd'
			end
			if modVar_AF_ErrorLoop = 100:
				KILLVAR 'modVar_AF_DepotJobArrpos'
				modArr_AF_DeliveryLocActive[0] = 1
				modVar_AF_DepotJobArrpos[] = 0
				modArr_AF_DeliveryLocActive[1] = 1
				modVar_AF_DepotJobArrpos[] = 1
				modArr_AF_DeliveryLocActive[2] = 1
				modVar_AF_DepotJobArrpos[] = 2
				$modVar_AF_LoopErrorLoc = 'ActivateJobLoop'
				jump 'ActivateJobLoopEnd'
			end
			modVar_AF_ErrorLoop += 1
			modVar_AF_Rand = rand(1,arrsize('modArr_AF_DeliveryLocActive')) - 1
			if modArr_AF_DeliveryLocActive[modVar_AF_Rand] = 0:
				modArr_AF_DeliveryLocActive[modVar_AF_Rand] = 1
				modVar_AF_DepotJobArrpos[] = modVar_AF_Rand
				modVar_AF_ActivateJobLoop += 1
				jump 'ActivateJobLoopStart'
			else
				jump 'ActivateJobLoopStart'
			end
			:ActivateJobLoopEnd
		end
	end
	
	if $ARGS[0] = 'CheckJobsRemaining':
		modVar_AF_Temp = 0
		modVar_AF_CheckJobAlertLoop = 0
		:CheckJobAlertLoopStart
		if modVar_AF_CheckJobAlertLoop >= arrsize('modArr_AF_DeliveryLocActive'):
			jump 'CheckJobAlertLoopEnd'
		end
		if modArr_AF_DeliveryLocActive[modVar_AF_CheckJobAlertLoop] = 2:
			modVar_AF_Temp = 1
		end
		modVar_AF_CheckJobAlertLoop += 1
		jump 'CheckJobAlertLoopStart'
		:CheckJobAlertLoopEnd
		if modVar_AF_Temp = 1:
			*nl
			'<b><font color="Red">You still have Delivery Jobs Remaining (Check Journal to see what they are)!</font></b>'
		end
	end
	
	if $ARGS[0] = 'deliverylocation':
		act 'Deliver Package' :
			*clr & cla
			minut += rand(3,5)
			modVar_AF_DeliveryJob['Receipts'] += modArr_AF_DeliveryLocEarn[arrpos('$modArr_AF_DeliveryFootOptions',$loc)]
			modArr_AF_DeliveryLocActive[arrpos('$modArr_AF_DeliveryFootOptions',$loc)] = 0
			modVar_AF_Temp = arrpos('$modArr_AF_DeliveryJobTaken',$loc)
			KILLVAR '$modArr_AF_DeliveryJobTaken' , modVar_AF_Temp
			gs 'stat'
			modVar_AF_Rand = rand(1,10) + hotcat + (5 - difficulty)
			if modVar_AF_Rand > 15 and modVar_AF_EventLock['DJB-BlowjobEv'] ! daystart and $loc ! 'brothel':
				modVar_AF_EventLock['DJB-BlowjobEv'] = daystart
				'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/pavlovsk/DeliveryJobBJ1' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
				*nl
				'You knock to deliver the package when a handsome man answers the door.  You try to hide your infatuation and start acting professional but you think the gentleman is picking up on it...'
				act 'Sweet talk him' : gt 'mod_addedflavour_pav_depot' , 'DJB-BlowjobEv-1'
				act 'Quickly collect the receipt' : gt $loc, $loc_arg
			else
				'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/pavlovsk/DeliveryJob(<<rand(1,4)>>).jpg"></center>'
				*nl
				'You deliver the package to it''s intended recipient.'
				if $loc = 'brothel':			
					act 'Collect receipt' : gt 'brothel' , 'lobby'
				else
					act 'Collect receipt' : gt $loc, $loc_arg
				end
			end
		end
	end
	
	if $ARGS[0] = 'depotadmin':
		*clr & cla
		minut += rand(1,3)
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/pavlovsk/depotadmin.jpg"></center>'
		*nl
		'You see an old man sitting at the Depot Administrator''s desk.  He isn''t overly focused on his work but you are guessing this isn''t a particularly busy job.'
		*nl
		'<font color="Olive">"Hi, do you need anything?"</font>'
		if modVar_AF_DeliveryJob['State'] = 1:
			act 'Ask about Courier Job' : gt 'mod_addedflavour_pav_depot' , 'getjob'
		end
		if modVar_AF_DeliveryJob['State'] = 3:
			gt 'mod_addedflavour_pav_depot' , 'fired'
		end
		if modVar_AF_DeliveryJob['Receipts'] > 0:
			act 'Hand in Receipts' : gt 'mod_addedflavour_pav_depot' , 'getpaid'
		end
		act 'Leave' : gt 'mod_addedflavour_pav_depot' , 'start'
	end
	
	if $ARGS[0] = 'getjob':
		*clr & cla
		gs 'mod_addedflavour_pav_depot' , 'getjobcode'
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/pavlovsk/depotadmin.jpg"></center>'
		*nl
		'"Sir, my father told me that there is work I could get here so I would like to take you up on that offer."'
		*nl
		'<font color="Olive">"Ah yes, <<$npc_firstname[''A28'']>> told me about you.  Well of course, we are glad to have you on board, I''ll tell you everything you need to know."</font>'
		*nl
		'<font color="Olive">"The job is actually quite basic and flexible:  simply come into the depot during the day to see what Courier jobs are available, then take the jobs you can do and deliver the packages to their delivery location.  For each delivery you make you will get a commission; you just need to bring the receipts to me and I will give you it all in cash.  There is one important thing you should know though; we are putting a lot of trust in you so if you should fail to deliver any of your packages before the end of the day then we will be forced to fire you immediately with your guarantor getting a severe reprimand, so take this job seriously!"</font>'
		*nl
		'"I will, and thank you so much for this opportunity!"'
		*nl
		'<font color="Olive">"I know you will, I have every faith in you.  Your father is a good man after all."</font>'
		act 'Leave' : gt 'mod_addedflavour_pav_depot' , 'start'
	end
	
	if $ARGS[0] = 'getjobcode':
		modVar_AF_DeliveryJob['State'] = 2
		gs 'mod_addedflavour_pav_depot' , 'setupdeliveries'
		gs 'mod_addedflavour_pav_depot' , 'generatejobs'
	end
	
	if $ARGS[0] = 'fired':
		*clr & cla
		modVar_AF_DeliveryJob['State'] = 4
		npc_rel['A28'] -= 50
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/pavlovsk/depotadmin.jpg"></center>'
		*nl
		'<font color="Olive">"What are you doing here <<$pcs_firstname>>?  You have let us down and your father has been reprimanded; now leave."</font>'
		act 'Leave' : gt 'mod_addedflavour_pav_depot' , 'start'
	end
	
	if $ARGS[0] = 'getpaid':
		*clr & cla
		money += modVar_AF_DeliveryJob['Receipts']
		gs 'stat'
		'<center><img style="<<$modVar_AF_ImageRestrictions>>" src="mod/addedflavour/images/locations/pavlovsk/depotadmin.jpg"></center>'
		*nl
		'<font color="Olive">"Well done <<$pcs_firstname>>, here is your <<modVar_AF_DeliveryJob[''Receipts'']>>₽ commission; keep up the good work!"</font>'
		modVar_AF_DeliveryJob['Receipts'] = 0
		act 'Leave' : gt 'mod_addedflavour_pav_depot' , 'start'
	end
	
	if $ARGS[0] = 'DJB-BlowjobEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/pavlovsk/DeliveryJobBJ2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Thank you for signing for the delivery; I hope I was able to provide a satisfactory experience for you..."'
		*nl
		'The man looks you over and is clearly very pleased with what he see''s.'
		*nl
		'<font color="Olive">"Certainly, its not everyday you are given something by someone as attractive as you are.  In fact, as you are so dedicated to providing satisfaction, there is something you could do to earn yourself a nice bonus..."</font>'
		*nl
		'He is clearly hinting at something sexual; he has barely been able to move his gaze from your lips the entire time.'
		act 'Take him up on his offer' : gt 'mod_addedflavour_pav_depot' , 'DJB-BlowjobEv-2'
		act 'Smile and leave with your receipt' : gt $loc , $loc_arg
	end
	
	if $ARGS[0] = 'DJB-BlowjobEv-1':
		*clr & cla
		minut += rand(1,2)
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/pavlovsk/DeliveryJobBJ2' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'"Thank you for signing for the delivery; I hope I was able to provide a satisfactory experience for you..."'
		*nl
		'The man looks you over and is clearly very pleased with what he see''s.'
		*nl
		'<font color="Olive">"Certainly, its not everyday you are given something by someone as attractive as you are.  In fact, as you are so dedicated to providing satisfaction, there is something you could do to earn yourself a nice bonus..."</font>'
		*nl
		'He is clearly hinting at something sexual; he has barely been able to move his gaze from your lips the entire time.'
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'chkpossible' , 1
		if modVar_AF_Inhib['Result'] = 1:
			act 'Take him up on his offer' : gt 'mod_addedflavour_pav_depot' , 'DJB-BlowjobEv-2'
		end
		act 'Smile and leave with your receipt' : gt $loc , $loc_arg
	end
	
	if $ARGS[0] = 'DJB-BlowjobEv-2':
		*clr & cla
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/pavlovsk/DeliveryJobBJ3' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You walk into his house; a look of eagerness on your face and a look of lust on his...'
		*nl
		'No sooner than you are through the door he has his trousers off and his impressive cock ready for your attention.'
		act 'Suck some cock' : gt 'mod_addedflavour_pav_depot' , 'DJB-BlowjobEv-3'
	end
	
	if $ARGS[0] = 'DJB-BlowjobEv-3':
		*clr & cla
		minut += rand(5,15)
		gs 'mod_addedflavour_Functions' , 'pcs_reticence' , 'Player_BlowJob_Give'
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/pavlovsk/DeliveryJobBJ(<<rand(1,3)>>)' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'You put the man''s shaft into your mouth and suck enthusiastically along its''s length.  He is completely lost to the moment as you pleasure him with your lips.'
		*nl
		'You continue to suck him off with every moment drawing an explosive orgasm to the fore, and soon enough you hear him scream that he is ready to blow!'
		act 'Take his load' : gt 'mod_addedflavour_pav_depot' , 'DJB-BlowjobEv-4'
	end
	
	if $ARGS[0] = 'DJB-BlowjobEv-4':
		*clr & cla
		minut += rand(2,5)
		modVar_AF_Temp = rand(20,50) * 10
		money += modVar_AF_Temp
		gs 'stat'
		'<center><video style="<<$modVar_AF_VideoRestrictions>>" autoplay loop src="mod/addedflavour/images/locations/pavlovsk/DeliveryJobBJ4' + iif(modVar_AF_QSPVer = 1,'.mp4','.webm') + '"></video></center>'
		*nl
		'He blasts his load in between your waiting lips, the taste reminding you of the bonus coming your way.'
		*nl
		'<font color="Olive">"That was fantastic; you certainly earned your bonus."</font>'
		*nl
		'He hands you <<modVar_AF_Temp>>₽; for which you smile, let a finger run along the outline of your mouth then turn to leave.'
		act 'Leave him' : gt $loc , $loc_arg
	end

--- mod_addedflavour_pav_depot ---------------------------------