TigorCat/locations/mod_public_WC_rab_gun_rob.qsrc

# mod_public_WC_rab_gun_rob
if $ARGS[0] = 'start':
	*clr & cla
	minut += rand(15,30)
	gs 'stat'
	'I try to find victim'
	if $loc = 'road':
		'I walk along the road trying to entice drivers of cars that drive by.'
	elseif $loc = 'city_center' or $loc = 'city_residential' or $loc = 'pav_residential':
		'Try to seduce some gut, entice passerby to my dark corner.'
	end

	if pcs_apprnc >= rand(110,200):
		bcil = 0
		if $loc = 'road':
			if month >= 11 or month <= 3:
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/barginw1.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/bargin' + rand(1,3) + '.jpg"></center>'
			end
		elseif $loc = 'city_center' or $loc = 'city_residential' or $loc = 'pav_residential':
			if month >= 11 or month <= 3:
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/workingw1.jpg"></center>'
			else
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/working' + rand(1,4) + '.jpg"></center>'
			end
		end
		inhib_exp += rand(3,6)
		gs 'stat'

		if $loc = 'road':
			'Some car stoped near me, and ask:"What do you offer?"'
		else
			'Some guy came to me, and ask:"What do you offer?"'
		end

		temp = rand(0,3)
		ztemp = rand(0,3)
		'The guy looks like...'
		if temp = 1:
			'stuffy'
			bcil += rand(0,40)
		elseif temp = 2:
			'average'
			bcil += rand(40,60)
		else
			'brutal'
			bcil += rand(60,100)
		end

		if ztep = 1:
			'weak man'
			bcil -= rand(0,30)
		elseif ztemp = 2:
			'man'
			bcil += rand(0,20)
		else
			'strong man'
			bcil += rand(20,50)
		end
		if bcil <= 0: bcil = 10
		ztemp = 0


		act 'Show him my tits':
			*clr & cla
			inhib_exp += rand(1,2)
			gs 'stat'
			'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/street/showtits.mp4"></video></center>'
			'Well, well, girl'
			if $loc = 'road':
				'Ok, sit up in my car"'
			else
				'Ok, Where we will do this?'
			end

			act 'Agree. *I think I will pleased him*': gt 'mod_public_WC_rab_gun_rob', 'sex'

			gs 'willpower', 'crime', 'self', 'medium'
			if will_cost <= pcs_willpwr:
				act 'Agree *I planed to rob him!* (<<will_cost>> Willpower)':
					*clr & cla
					gs 'willpower', 'pay', 'self'
					gs 'stat'

					gt 'mod_public_WC_rab_gun_rob', 'rob'
				end
			else
				act 'Agree *I planed to rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		end
		act 'go away': gt $loc, $loc_arg

	else
		'Noone intrested in  me.'
		temp = rand(1,2)
		'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/street/walk (<<temp>>).mp4"></video></center>'
		inhib_exp += rand(1,2)
		act 'Continue trying': gt 'mod_public_WC_rab_gun_rob','start'
		act 'Stop trying':  gt $loc, $loc_arg
	end
end



if $ARGS[0] = 'rob':
	*clr & cla
	crime += 1
	if ztemp = 214:
		'I pull out my gun and aim it on his head.'
		minut += 5
	else
		if $loc ! 'road':
			'I promise, I will do anything you dream of!'
			minut += 10
			'There is a good place not to far, go with me.'
			'I take him to secludet place. Show him my tits to distract and than pull out my gun and aim to his head.'
		else
			'I promise, I will do anything you want!'
			minut += 10
			'After 10 mins ride we stoped. I go out the car, undress and ask him to come clother. When hi closed the door behind himself I pull out my gun and aim it on his head.'
		end
	end
	gs 'stat'
	ztemp = 0
	temp = rand(1,4)
	'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/gun aim<<temp>>.mp4"></video></center>'
	act 'aim at him and run away':
		minut += 15
		gs 'stat'
		gt $loc, $loc_arg
	end
	gs 'willpower', 'crime', 'self', 'medium'
	if will_cost <= pcs_willpwr and ammo > 0:
		act 'shoot (<<will_cost>> Willpower)':
			*clr & cla
			temp=rand(1,2)
			'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
			'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
			gs 'willpower', 'pay', 'self'
			gs 'stat'
			killed +=1
			ammo -= 1
			willpowermax += 5
			pcs_mood -= 40
			pcs_mood += killed
			shoot_exp += 1
			'He even make no sound. The dead body fell on the ground'
			crime += 5
			'I take all his money and leave'
			temp = rand(0,11)
			if temp <= 3:
				money += rand(0,100)
				'This bastard wasn''t going to pay me, there are almost no money'
			elseif temp <= 10:
				money += rand(750,2500)
				'Nice.'
			else
				money += rand(3000,7000)
				'Woow, it''s a lot of money'
			end
			gs 'stat'
			act 'go away': gt $loc, $loc_arg
		end
	else
		act 'shoot (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
	end
	act 'give me your money':
		persuas_exp += rand(1,2)
		if bcil <= (70 + pcs_persuas/10):
			cla
			'With shaking in hand he, pull out his wallet and gibe it to you.'
			act 'take a wallet and leave':
				cla
				temp = rand(1,21)
				if temp <= 6:
					money += rand(0,100)
					'This bastard wasn''t going to pay me, there are almost no money'
				elseif temp <= 20:
					money += rand(750,2500)
					'Nice.'
				else
					money += rand(3000,7000)
					'Woow, it''s a lot of money'
				end
				act 'continue':
					gt $loc, $loc_arg
				end
			end
			gs 'willpower', 'crime', 'self', 'medium'
			if will_cost <= pcs_willpwr and ammo > 0:
				act 'shoot (<<will_cost>> Willpower)':
					*clr & cla
					temp=rand(1,2)
					'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
					'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					killed +=1
					ammo -= 1
					willpowermax += 5
					pcs_mood -= 40
					pcs_mood += killed
					shoot_exp += 1
					'He even make no sound. The dead body fell on the ground'
					crime += 5
					'I take all his money and leave'
					temp = rand(0,11)
					if temp <= 3:
						money += rand(0,100)
						'This bastard wasn''t going to pay me, there are almost no money'
					elseif temp <= 10:
						money += rand(750,2500)
						'Nice.'
					else
						money += rand(3000,7000)
						'Woow, it''s a lot of money'
					end
					act 'go away': gt $loc, $loc_arg
				end
			else
				act 'shoot (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		elseif bcil >= (100 + pcs_persuas/10):
			cla
			'Are you crazy, bitch!'
			'No, I am not going to do that!'

			act 'aim at him and run away':
				minut += 15
				gs 'stat'
				gt $loc, $loc_arg
			end

			act 'hit him with a gun: "Give the money or I kill you!"':
				gt 'mod_public_WC_rab_gun_rob', 'hit'
			end
			gs 'willpower', 'crime', 'self', 'medium'
			if will_cost <= pcs_willpwr and ammo > 0:
				act 'shoot (<<will_cost>> Willpower)':
					*clr & cla
					temp=rand(1,2)
					'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
					'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
					gs 'willpower', 'pay', 'self'
					gs 'stat'
					killed +=1
					ammo -= 1
					willpowermax += 5
					pcs_mood -= 40
					pcs_mood += killed
					shoot_exp += 1
					'He even make no sound. The dead body fell on the ground'
					crime += 5
					'I take all his money and leave'
					temp = rand(0,11)
					if temp <= 3:
						money += rand(0,100)
						'This bastard wasn''t going to pay me, there are almost no money'
					elseif temp <= 10:
						money += rand(750,2500)
						'Nice.'
					else
						money += rand(3000,7000)
						'Woow, it''s a lot of money'
					end
					act 'go away': gt $loc, $loc_arg
				end
			else
				act 'shoot (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
			end
		else
			cla
			temp = rand(1,2)
			if temp = 1:
				'Are you crazy, bitch!'
				'No, I am not going to do that!'
				'He comes to close to me'
				act 'hit him with a gun: "Give the moneu or I kill you!"':
					gt 'mod_public_WC_rab_gun_rob', 'hit'
				end
				act 'Try to shoot him':
					cla
					temp=rand(1,2)
					'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
					ammo -= 1
					shoot_exp += rand(1,3)
					if pcs_shoot >= bcil/2 or pcs_agil >= (bcil - 50):
						'I hit him!'
						temp = rand(1,10)
						if temp <= 9:
							'He scream and fall on the ground.'
							pcs_mood -= 5
							'He is bleading'

							act 'Take his wallet and call an ambulance':
								crime += 2
								temp = rand(0,21)
								if temp <= 6:
									money += rand(0,100)
									'This bastard wasn''t going to pay me, there are almost no money'
								elseif temp <= 20:
									money += rand(750,2500)
									'Nice.'
								else
									money += rand(3000,7000)
									'Woow, it''s a lot of money'
								end
								gt $loc, $loc_arg
							end

							act 'run away':
								crime += 1
								minut += 15
								gt $loc, $loc_arg
							end

							act 'run away and call ambulance':
								crime += 2
								minut += 15
								gt $loc, $loc_arg
							end
							gs 'willpower', 'crime', 'self', 'medium'
							if will_cost <= pcs_willpwr:
								act 'Finish him (<<will_cost>> Willpower)':
									*clr & cla
									temp=rand(1,2)
									'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
									'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
									gs 'willpower', 'pay', 'self'
									gs 'stat'
									killed +=1
									ammo -= 1
									willpowermax += 5
									pcs_mood -= 40
									pcs_mood += killed
									shoot_exp += 1
									'He even make no sound. The dead body fell on the ground'
									crime += 5
									'I take all his money and leave'
									temp = rand(0,11)
									if temp <= 3:
										money += rand(0,100)
										'This bastard wasn''t going to pay me, there are almost no money'
									elseif temp <= 10:
										money += rand(750,2500)
										'Nice.'
									else
										money += rand(3000,7000)
										'Woow, it''s a lot of money'
									end
									act 'go away': gt $loc, $loc_arg
								end
							else
								act 'Finish him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
						else
							'He stoped and fall on the ground in scilense.'
							temp=rand(1,2)
							'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
							killed +=1
							willpowermax += 5
							pcs_mood -= 40
							pcs_mood += killed
							shoot_exp += 1
							crime += 5
							'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
							act 'run away': gt $loc, $loc_arg
							act 'take the wallet and run away':
								'I take all his money and leave'
								temp = rand(0,21)
								if temp <= 6:
									money += rand(0,100)
									'This bastard wasn''t going to pay me, there are almost no money'
								elseif temp <= 20:
									money += rand(750,2500)
									'Nice.'
								else
									money += rand(3000,7000)
									'Woow, it''s a lot of money'
								end
								gt $loc, $loc_arg
							end
						end

					else
						cla
						'I have not enought time to aim and shoot somewhere. He hit me... hard, becouse of pain I dropped the gun.'
						'he hit me one more time and I fall to the ground'
						gs 'pain', 10, 'head', 'kick'
						gs 'pain', 10, 'lips', 'kick'
						gs 'pain', 10, 'nose', 'kick'
						gs 'pain', 10, 'armR', 'kick'
						gs 'pain', 10, 'tummy', 'kick'
						gs 'stat'
						gun = 0
						act 'try not to lose consciousness': gt 'mod_public_WC_rab_gun_rob', 'rape'
					end
				end
			else
				'He make a step aside and try to hit me'
				act 'Try to avoid the hit and run away':
					cla
					if bcil/2 < pcs_stren or bcil/2 < pcs_agil or bcil/2 < pcs_pool or bcil/3 < pcs_def :

						'He missed, and I run very quick!'
						act 'stop and look around':
							minut += rand(10,15)
							gs 'stat'
							gt $loc, $loc_arg
						end
					else
						cla
						'He hit my hands and knocked the gun out.'
						gun = 0
						gs 'pain', 9, 'armR', 'kick'
						gs 'stat'
						act 'run to the gun': gt 'mod_public_WC_rab_gun_rob', 'runtogun'
						act 'run away': gt 'mod_public_WC_rab_gun_rob', 'runaway'
						act 'fight with him': gt 'mod_public_WC_rab_gun_rob', 'fight'
						act 'surrender': gt 'mod_public_WC_rab_gun_rob', 'surrender'
					end
				end
				act 'Try to shoot him':
					cla
					temp=rand(1,2)
					'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
					ammo -= 1
					shoot_exp += rand(1,3)
					if pcs_shoot >= bcil/2 or pcs_agil >= (bcil - 50):
						'I hit him!'
						temp = rand(1,10)
						if temp <= 9:
							'He scream and fall on the ground.'
							pcs_mood -= 5
							'He is bleading'

							act 'Take his wallet and call an ambulance':
								crime += 2
								temp = rand(0,21)
								if temp <= 6:
									money += rand(0,100)
									'This bastard wasn''t going to pay me, there are almost no money'
								elseif temp <= 20:
									money += rand(750,2500)
									'Nice.'
								else
									money += rand(3000,7000)
									'Woow, it''s a lot of money'
								end
								gt $loc, $loc_arg
							end

							act 'run away':
								crime += 1
								minut += 15
								gt $loc, $loc_arg
							end

							act 'run away and call ambulance':
								crime += 2
								minut += 15
								gt $loc, $loc_arg
							end
							gs 'willpower', 'crime', 'self', 'medium'
							if will_cost <= pcs_willpwr:
								act 'Finish him (<<will_cost>> Willpower)':
									*clr & cla
									temp=rand(1,2)
									'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
									'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
									gs 'willpower', 'pay', 'self'
									gs 'stat'
									killed +=1
									ammo -= 1
									willpowermax += 5
									pcs_mood -= 40
									pcs_mood += killed
									shoot_exp += 1
									'He even make no sound. The dead body fell on the ground'
									crime += 5
									'I take all his money and leave'
									temp = rand(0,11)
									if temp <= 3:
										money += rand(0,100)
										'This bastard wasn''t going to pay me, there are almost no money'
									elseif temp <= 10:
										money += rand(750,2500)
										'Nice.'
									else
										money += rand(3000,7000)
										'Woow, it''s a lot of money'
									end
									act 'go away': gt $loc, $loc_arg
								end
							else
								act 'Finish him (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
							end
						else
							'He stoped and fall on the ground in scilense.'
							temp=rand(1,2)
							'<center><video autoplay loop src="mod/public_WC/lisrab/r_events/11/gunshoot<<temp>>.mp4"></video></center>'
							killed +=1
							willpowermax += 5
							pcs_mood -= 40
							pcs_mood += killed
							shoot_exp += 1
							crime += 5
							'<center><img <<$set_imgh>> src="mod/public_WC/lisrab/r_events/11/body.jpg"></center>'
							act 'run away': gt $loc, $loc_arg
							act 'take the wallet and run away':
								'I take all his money and leave'
								temp = rand(0,21)
								if temp <= 6:
									money += rand(0,100)
									'This bastard wasn''t going to pay me, there are almost no money'
								elseif temp <= 20:
									money += rand(750,2500)
									'Nice.'
								else
									money += rand(3000,7000)
									'Woow, it''s a lot of money'
								end
								gt $loc, $loc_arg
							end
						end
					else
						cla
						'I have not enought time to aim and shoot somewhere. He hit me... hard, becouse of pain I dropped the gun.'
						'he hit me one more time and I fall to the ground'
						gs 'pain', 10, 'head', 'kick'
						gs 'pain', 10, 'lips', 'kick'
						gs 'pain', 10, 'nose', 'kick'
						gs 'pain', 10, 'armR', 'kick'
						gs 'pain', 10, 'tummy', 'kick'
						gs 'stat'
						gun = 0
						act 'try not to lose consciousness': gt 'mod_public_WC_rab_gun_rob', 'rape'
					end
				end

			end
		end
	end
end


if $ARGS[0] = 'hit':
	gt 'mod_public_WC_rab_gun_rob2', 'hit'
end


if $ARGS[0] = 'surrender':
	gt 'mod_public_WC_rab_gun_rob2', 'surrender'
end


if $ARGS[0] = 'fight':
	*clr & cla
	gun = 3
	gs 'stat'
	gs 'fight','initFight'

	gs 'fight_npcdata', 'rapist'

	gt 'fight', 'start'
end


if $ARGS[0] = 'runaway':
	gt 'mod_public_WC_rab_gun_rob2', 'runaway'
end



if $ARGS[0] = 'runtogun':
	gt 'mod_public_WC_rab_gun_rob2', 'runtogun'
end



if $ARGS[0] = 'rape':
	gt 'mod_public_WC_rab_gun_rob2', 'rape'
end





if $ARGS[0] = 'sex':
	cla
	ztemp = 214
	if rand(0,1) = 0:
		'He decides he wants a blowjob.'
		act 'Accept':
			gt 'mod_public_WC_rab_gun_rob', 'blowjob'
		end
	elseif rand(0,1) = 0:
		'He decides he wants a fuck.'
		act 'Accept':
			gt 'mod_public_WC_rab_gun_rob', 'vaginal'
		end
	else
		'He decides he wants to fuck you first and finish with anal.'
		act 'Accept':
			gt 'mod_public_WC_rab_gun_rob', 'anal'
		end
	end
end

if $ARGS[0] = 'blowjob':
	*clr & cla
	minut += 10
	gs 'stat'
	if $loc = 'road':
		*clr & cla
		'We ride for 10 minutes, I undress my top clothes'
		'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/bj1.jpg"></center>'
		'I lean over and slowly start to unbutton his pants, teasing him a little. I can already see his pants start to bulge and you can feel his hardness under you fingers as you work his buttons. I open his fly wide and pull his underwear down enough, as his hard dick springs free. I smile at him as you wrap you hands around his cock and start stroking him, he starts to moan softly almost at once.'
		gs 'arousal', 'hj', 5, 'prostitution'
		stat['hj'] += 1

		stat['bj'] += 1
		gs 'sweat', 'add', 5
		gs 'stat'
		gs 'willpower', 'crime', 'self', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Rob him!* (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'self'
				gs 'stat'

				gt 'mod_public_WC_rab_gun_rob', 'rob'
			end
		else
			act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Suck his dick':
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/bj2.jpg"></center>'
			'He starts to get antsy obviously wanting more, I can feel the head of his dick already getting slick with his precum. I lean over and slowly take his cock into your mouth, you start sucking his dick as you keep stroking it. I feel his hand roughly pull up your shirt and being pawing and squeezing at your breasts as you do.'
			gs 'arousal', 'bj', 5, 'prostitution'
			gs 'stat'
			act 'Keep sucking':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/bj3.jpg"></center>'
				'Keeping my lips locked around his shaft, I bob your head up and down sucking his dick. Slowly I work him deeper into your mouth, eventually removing my hand so I can take him as deeply as I can down your throat.'
				gs 'arousal', 'bj', 5, 'prostitution'
				gs 'stat'
				act 'Finish him':
					swallow  += 1
					*clr & cla
					money += 500
					gs 'cum_call', 'mouth', 'a prostitution client', 1
					'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/bj4.jpg"></center>'
					'As I suck him, I feel the hot splash of cum hit my tongue, as spurt after spurt of it fills my mouth. He moans loudly as he sperm fills my mouth, I keep sucking until there is no more hot spurts. I raise up showing him his own cum and then swallow it. He gives me a brief smile, then quickly slips his dick away and rebuttons his pants. Sliding the seat back forward he pulls out a wad of cash and hands it to you.'
					'I spend a few moments straighten up your clothes and checking my makeup as he drives me back to the street corner he picked me up on, he pulled up to the curb and stops. Now he seems impatient for you to get out, as he looks around to see if anyone is watching. I sigh and get out of the car, closing the door. With that he quickly pulls away.'
					gs 'arousal', 'bj', 5, 'prostitution'
					gs 'arousal', 'end'
					gs 'stat'
					act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
				end
			end
		end
	else
		'I promise, I will do anything you dream of!'
		gs 'arousal', 'bj', 10
		stat['bj'] += 1
		gs 'sweat', 'add', 5

		'There is a good place not to far, go with me.'
		'I take him to secludet place.'
		gs 'willpower', 'crime', 'self', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Rob him!* (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'mod_public_WC_rab_gun_rob', 'rob'
			end
		else
			act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'I go on my knee and start to suck his dick':
			gs 'arousal', 'bj', 5, 'prostitution'
			gs 'stat'
			temp = rand(1,7)
			'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/bj/bj (<<temp>>).mp4"></video></center>'
			act 'Finish him':
				swallow  += 1
				facial += 1
				*clr & cla
				'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/cum/cumbj.mp4"></video></center>'
				money += 500
				gs 'cum_call', 'mouth', 'a prostitution client', 1
				gs 'cum_call', 'face', 'a prostitution client', 1
				gs 'arousal', 'bj', 5, 'prostitution'
				gs 'arousal', 'end'
				gs 'stat'
				act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
			end
		end
	end
end

if $ARGS[0] = 'vaginal':
	*clr & cla
	minut += 1
	if $loc = 'road':
		*clr & cla
		'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/fuck1.jpg"></center>'
		'You wait to let him take control of the situation, you know most guys like that. After a few moments of him looking around to make sure no one is around he starts to unbutton his pants, pulling them down. He reaches over and grabs you by the hair and pulls your head down to his dick, you open your mouth and take his still mostly flaccid cock in your mouth, while your hand strokes the shaft.'
		gs 'stat'
		gs 'willpower', 'crime', 'self', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Rob him!* (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'mod_public_WC_rab_gun_rob', 'rob'
			end
		else
			act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'Suck his dick':
			*clr & cla
			dick = rand(14,30)
			npc_dick[$npclastgenerated] = dick
			gs 'arousal', 'bj', rand(5, 15)
			stat['bj'] += 1
			gs 'sweat', 'add', 5
			'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/fuck2.jpg"></center>'
			'Between your mouth and hand it doesn''t take you to long to get him hard. He starts to moan a bit, "Yeah that''s it suck my cock you dirty whore." He seems to enjoy talking to you, you don''t mind it pays all the same. You keep sucking as he continues you verbally degrade you.'
			gs 'arousal', 'bj', 5, 'prostitution'
			gs 'stat'
			act 'Let him fuck you':
				*clr & cla


				gs 'arousal', 'vaginal', rand(20,40)
				stat['vaginal'] += 1
				guy += 1

				gs 'sweat', 'add', 5
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/fuck3.jpg"></center>'
				'He pulls your head off his dick and says "Get undressed and lay back." You quickly undress and lay on the seat on your back, spreading your legs. As you do you see him sliding a condom on, with both the condom and you in place he moves over and slides on top of you. He quickly and roughly shoves his dick inside of your pussy, the lubrication from the condom helps. Then he starts fucking you, as hard and fast as he can, grunting the whole time, occasionally banging your head or shoulder against the arm rest on the door. Not the most comfortable of places to have sex, but then comfort isn''t why you are here.'
				gs 'arousal', 'vaginal', 10, 'prostitution'
				gs 'stat'
				act 'Finish him':
					*clr & cla
					money += 1200
					gs 'cum_call', 'breasts', 'a prostitution client', 1
					'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/fuck4.jpg"></center>'
					'He suddenly pulls out of you and tears the condom off. Followed him by him climbing further on you, as he starts jerking off. With in seconds his hot cum starts flying landing all over your breasts, as he moans loudly. Once finally finished he climbs off you and starts to get dressed, stopping briefly to hand you a wad of cash.'
					'You spend a few moments getting cleaned up and dressed, as you do he gets out and gets back into the drivers seat and drives you back to the street corner he picked you up on, he pulled up to the curb and stops. Now he seems impatient for you to get out, as he looks around to see if anyone is watching. You sigh and get out of the car, closing the door. With that he quickly pulls away.'
					gs 'arousal', 'foreplay', 5, 'prostitution'
					gs 'arousal', 'end'
					gs 'stat'
					act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
				end
			end
		end
	else
		'I promise, I will do anything you dream of!'
		minut += 10
		'There is a good place not to far, go with me.'
		'I take him to secludet place.'
		gs 'willpower', 'crime', 'self', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Rob him!* (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'mod_public_WC_rab_gun_rob', 'rob'
			end
		else
			act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'bend over':
			gs 'arousal', 'vaginal', 10, 'prostitution'
			gs 'stat'
			temp =rand(1,7)
			dick = rand(14,30)
			npc_dick[$npclastgenerated] = dick

			gs 'arousal', 'vaginal', rand(20,40)
			stat['vaginal'] += 1
			guy += 1

			gs 'sweat', 'add', 5
			'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/sex/sex (<<temp>>).mp4"></video></center>'
			act 'Finish him':
				*clr & cla
				money += 1200
				temp = rand(1,3)
				if temp = 1:
					spafinloc = 0
					'He cums in me'
					gs 'cum_manage'
					'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/cum/cumpuss.mp4"></video></center>'
				else
					'He cums in the condom, and than spray cum all over mt back'
					'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/cum/cumcon.mp4"></video></center>'
					spafinloc = 17
					gs 'cum_manage'
					spafinloc = 4
					gs 'cum_manage'
					spafinloc = 7
					gs 'cum_manage'
					spafinloc = 8
					gs 'cum_manage'
				end
				gs 'stat'
				act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
			end
		end
	end
end

if $ARGS[0] = 'anal':
	*clr & cla
	temp = rand(1,2)
	if $loc = 'road':
		if temp = 1:
			*clr & cla
			minut += 1
			gs 'stat'
			*clr & cla
			'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/rideback.jpg"></center>'
			'Then pulls away from the curb and drives for a little bit till he finds a pretty deserted area and stops the car and says. "This looks good." Then he gets out of the car and walks to the back door, you slide over giving him room as he gets in the back with you.'
			act 'Get Undressed':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analo2.jpg"></center>'
				'He looks you over a moment. "Can you undress" When you start to he quickly adds. "Slowly" You smile to him and make a show of slowly getting naked for him, you can see him already licking his lips. Once you are fully naked you slowly unbutton his pants, pulling them and his underwear down.'
				gs 'arousal', 'flash', 2, 'prostitution'
				gs 'stat'
				gs 'willpower', 'crime', 'self', 'medium'
				if will_cost <= pcs_willpwr:
					act 'Rob him!* (<<will_cost>> Willpower)':
						*clr & cla
						gs 'willpower', 'pay', 'self'
						gs 'stat'
						gt 'mod_public_WC_rab_gun_rob', 'rob'
					end
				else
					act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
				end
				act 'Suck his dick':
					*clr & cla
					dick = rand(14,30)
					npc_dick[$npclastgenerated] = dick
					gs 'arousal', 'bj', rand(5, 15)
					stat['bj'] += 1
					gs 'sweat', 'add', 5
					'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analo3.jpg"></center>'
					'With his hard dick standing tall to get your attention, you lean over and take his dick into your mouth and start sucking his cock, working the shaft or his balls with one of your hands. He just leans back and moans softly obviously enjoying what you are doing.'
					gs 'arousal', 'bj', 5, 'prostitution'
					gs 'stat'
					act 'Get fucked':
						*clr & cla


						gs 'arousal', 'vaginal', rand(20,40)
						stat['vaginal'] += 1
						guy += 1

						gs 'sweat', 'add', 5
						'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analo4.jpg"></center>'
						'After a time he speaks up. "Lay back, I want to fuck you." You raise up and then lay back in the seat spreading your legs as you do. He moves between your legs, he rubs your clit a bit to get you wetter, once he feels you are wet enough he slides his dick inside of you and starts to slowly fuck you. The wetter you get the faster he starts to fuck you.'
						gs 'arousal', 'vaginal', 10, 'prostitution'
						gs 'stat'
						act 'Take it in the ass':
							*clr & cla

							stat['anal'] += 1
							'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analo5.jpg"></center>'
							'When he pulls out he starts to use his hands to help you roll over as he says "Roll over and get on your knee''s I want to fuck that pretty little ass of yours now." With his help you quickly roll over and get on your elbows and knees, with your ass up for him. You feel him press his dick against your anus before he slides it in. When you tense up a bit, he stops to give you a moment to get us to it before he slides it the rest of the way in.'
							'He slowly works his way balls deep into your ass, taking his time. It is sweet of him but not really necessary, you are use to being fucked and you are here for the money. Moaning loudly, like you are loving it, you know guys like that. He picks up the pace and starts fucking your ass harder.'
							gs 'arousal', 'anal', 5, 'prostitution'
							gs 'stat'
							act 'Finish him':
								*clr & cla
								money += 1500
								gs 'cum_call','face', 'a prostitution client', 1
								'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analo6.jpg"></center>'
								'He grunts out, "I''m about to cum" As he pulls out of your ass, you turn around and start jerking him off with your hand, aiming his cock right at your face. Within moment hot sprays of cum start splattering against your face, you keep jerking him until you have milked him of every last drop.'
								'You spend a few moments getting cleaned up and dressed, as you do he gets out of the back and gets back into the drivers seat. He waits for you to finish getting dressed, cleaned up and put your seat belt back on before he drives you back to the street corner he picked you up on, he pulled up to the curb and stops. Once stopped he passes you back a wad of cash, as you get out of the car he opens his window and says. "I had a great time, maybe I will see you again." With that he rolls up his window and drives off.'
								gs 'arousal', 'hj', 5, 'prostitution'
								gs 'arousal', 'end'
								gs 'stat'
								act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
							end
						end
					end
				end
			end
		else
			*clr & cla
			minut += 1
			gs 'stat'
			'I step back to the back door and slide into the backseat behind him. He looks at you in the review mirror and eyes you up and down. You smile to him and lean back to give him a good look.'
			gs 'arousal', 'foreplay', 10, 'unknown'
			gs 'stat'
			act 'Go for a ride':
				*clr & cla
				'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/rideback.jpg"></center>'
				'Then pulls away from the curb and drives for a little bit till he finds a pretty deserted area and stops the car and says. "This looks good." Then he gets out of the car and walks to the back door, you slide over giving him room as he gets in the back with you.'
				act 'Get Undressed':
					*clr & cla
					'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analy2.jpg"></center>'
					'He looks you over a moment. "Get undressed I want to see what I am paying for." You smile to him and make a show of slowly getting naked for him, you can see him already licking his lips. Once you are fully naked you slowly unbutton his pants, pulling them and his underwear down.'
					gs 'arousal', 'flash', 2, 'prostitution'
					gs 'stat'
					gs 'willpower', 'crime', 'self', 'medium'
					if will_cost <= pcs_willpwr:
						act 'Rob him!* (<<will_cost>> Willpower)':
							*clr & cla
							gs 'willpower', 'pay', 'self'
							gs 'stat'
							gt 'mod_public_WC_rab_gun_rob', 'rob'
						end
					else
						act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
					end
					act 'Suck his dick':
						*clr & cla
						dick = rand(14,30)
						npc_dick[$npclastgenerated] = dick
						gs 'arousal', 'bj', rand(5, 15)
						stat['bj'] += 1
						gs 'sweat', 'add', 5
						'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analy3.jpg"></center>'
						'With his hard dick standing tall to get your attention, you lean over and take his dick into your mouth and start sucking his cock, working the shaft or his balls with one of your hands. He just leans back and moans softly obviously enjoying what you are doing. You feel his hand slap you on the ass a few times, before he slides a finger into your pussy to get it nice and wet, then slides his finger into your ass and finders your ass as you blow him.'
						gs 'arousal', 'bj', 5, 'prostitution'
						gs 'stat'
						act 'Get fucked':
							*clr & cla


							gs 'arousal', 'vaginal', rand(20,40)
							stat['vaginal'] += 1
							guy += 1

							gs 'sweat', 'add', 5
							'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analy4.jpg"></center>'
							'After a time he speaks up. "Lay back, I want to fuck you." You raise up and then lay back in the seat spreading your legs as you do. He moves between your legs and his dick inside of you and starts to fuck you. He slowly picks up his pace fucking you faster, then he pulls out and slaps you on the hip. "Roll over bitch, I want to fuck your ass."'
							gs 'arousal', 'vaginal', 10, 'prostitution'
							gs 'stat'
							act 'Take it in the ass':
								*clr & cla

								stat['anal'] += 1
								'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analy5.jpg"></center>'
								'You roll over and get on your elbows and knees, with your ass up for him. You feel him press his dick against your anus before he shoves it in. When you tense up a bit, he grabs ahold of your hips so you can''t pull away and shoves it the rest of the way into your ass..'
								'He pounds his way balls deep into your ass, he picks up the pace and starts fucking your ass harder. He starts slapping your ass, as he pounds it as hard and fast as he can.'
								gs 'arousal', 'anal', 5, 'prostitution'
								gs 'stat'
								act 'Finish him':
									*clr & cla
									money += 1500
									gs 'cum_call','breasts', 'a prostitution client', 1
									'<center><img <<$set_imgh>> src="images/locations/city/shared/streetwalker/sex/analy6.jpg"></center>'
									'He grunts out, "I''m about to cum" As he pulls out of your ass, he roughly flips you over and straddles you, as he starts jerking off. Soon his cum is flying landing all over you breasts.'
									'You spend a few moments getting cleaned up and dressed, as you do he gets out of the back and gets back into the drivers seat. He doesn''t even wait for you to finish getting cleaned up and dressed. During the drive back he tosses a wad of cash back, most of it ending up on the floor. You quickly gather it all up as he stops at the same curb he picked you up from. You barely even close the door after you get out before he pulls away.'
									gs 'arousal', 'foreplay', 5, 'prostitution'
									gs 'arousal', 'end'
									gs 'stat'
									act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
								end
							end
						end
					end
				end
			end
		end
	else
		'I promise, I will do anything you dream of!'
		minut += 10
		'There is a good place not to far, go with me.'
		'I take him to secludet place.'
		gs 'willpower', 'crime', 'self', 'medium'
		if will_cost <= pcs_willpwr:
			act 'Rob him!* (<<will_cost>> Willpower)':
				*clr & cla
				gs 'willpower', 'pay', 'self'
				gs 'stat'
				gt 'mod_public_WC_rab_gun_rob', 'rob'
			end
		else
			act 'Rob him!* (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
		end
		act 'bend over':
			gs 'arousal', 'vaginal', 10, 'prostitution'
			gs 'stat'
			temp =rand(1,7)
			dick = rand(14,30)
			npc_dick[$npclastgenerated] = dick

			gs 'arousal', 'vaginal', rand(20,40)
			stat['vaginal'] += 1
			guy += 1

			gs 'sweat', 'add', 5
			'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/sex/sex (<<temp>>).mp4"></video></center>'
			act 'Take it in the ass':
				*clr & cla
				'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/anal/anal.mp4"></video></center>'

				stat['anal'] += 1
				gs 'arousal', 'anal', 5, 'prostitution'
				gs 'stat'
				act 'Finish him':
					*clr & cla
					money += 1200
					spafinloc = 3
					'He cums in my ass'
					'<center><video autoplay loop src="mod/public_WC/lisrab//r_events/11/street/cum/cumass.mp4"></video></center>'
					gs 'cum_manage'
					gs 'stat'
					act 'Get dropped off': gt 'mod_public_WC_rab_gun_rob', 'start'
				end
			end
		end
	end
end

--- mod_public_WC_rab_gun_rob ---------------------------------