Browse Source

[fixed] I've placed the top part into an if $ARGS[0] = '' to make it possible to use gs inside the file. Now if the amount Sveta earns from prostitution ever chances the code doesn't need to be edited in so many places.
Tested it and it worked.

CroWke 5 years ago
parent
commit
e241353849
1 changed files with 147 additions and 150 deletions
  1. 147 150
      locations/hotel_resep.qsrc

+ 147 - 150
locations/hotel_resep.qsrc

@@ -1,163 +1,165 @@
 # hotel_resep
-*clr & cla
-$menu_loc = 'hotel_resep'
-$menu_arg = ''
-menu_off = 0
-gs'stat'
-'<center><H4>Hotel reception</H4></center>'
-'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-'The same cute brunette as always is manning the reception desk. You wonder if she ever takes a break at all.'
-
-act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-
-act'Rent a room':
-	menu_off = 1
+if $ARGS[0] = '':
 	*clr & cla
+	$menu_loc = 'hotel_resep'
+	$menu_arg = ''
+	menu_off = 0
 	gs'stat'
+	'<center><H4>Hotel reception</H4></center>'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-	'The girl behind the desk smiles at you and asks: "Hello miss! Would you like to rent a room?"'
-	if hotelroom>0:
-		*clr
-		cla
+	'The same cute brunette as always is manning the reception desk. You wonder if she ever takes a break at all.'
+
+	act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+
+	act'Rent a room':
+		menu_off = 1
+		*clr & cla
+		gs'stat'
 		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-		'She looks in the computer: "I see you already have a room here. As it is already booked and paid for the only way to change it to a different room, would be to cancel your existing booking. To do so without notice would forfeit your payment, I would advise against this, but you may do so if you wish."'
-		act'Yes, cancel your booking':hotelroom=0 & gt'HotelHole'
-		act'No':gt'HotelHole'
-	end
-	if hotelroom = 0:
-		act'Yes':
+		'The girl behind the desk smiles at you and asks: "Hello miss! Would you like to rent a room?"'
+		if hotelroom>0:
 			*clr
 			cla
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-			'She smiles at you happily: "Excellent! We have the following rooms available right now:"'
-			'Standard room - 500 <b>₽</b> / night;'
-			'Luxury room - 1500 <b>₽</b> / night;'
-			'and the Royal Suite - 10000 <b>₽</b> / night.'
-			act'Normal room':
+			'She looks in the computer: "I see you already have a room here. As it is already booked and paid for the only way to change it to a different room, would be to cancel your existing booking. To do so without notice would forfeit your payment, I would advise against this, but you may do so if you wish."'
+			act'Yes, cancel your booking':hotelroom=0 & gt'HotelHole'
+			act'No':gt'HotelHole'
+		end
+		if hotelroom = 0:
+			act'Yes':
 				*clr
 				cla
-				hotelroom1day=input ("For how long would you like to stay?")
-				if hotelroom1day<0:set hotelroom1day=0
-				if hotelroom1day*500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
-				if hotelroom1day*500<=money and hotelroom1day ! 0:
-					money-=hotelroom1day*500
-					hotelroom=1
-					hotelroom1day = daystart + hotelroom1day
-					'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
-					act'Step away from the reception desk':gt'HotelHole'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+				'She smiles at you happily: "Excellent! We have the following rooms available right now:"'
+				'Standard room - 500 <b>₽</b> / night;'
+				'Luxury room - 1500 <b>₽</b> / night;'
+				'and the Royal Suite - 10000 <b>₽</b> / night.'
+				act'Normal room':
+					*clr
+					cla
+					hotelroom1day=input ("For how long would you like to stay?")
+					if hotelroom1day<0:set hotelroom1day=0
+					if hotelroom1day*500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
+					if hotelroom1day*500<=money and hotelroom1day ! 0:
+						money-=hotelroom1day*500
+						hotelroom=1
+						hotelroom1day = daystart + hotelroom1day
+						'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
+						act'Step away from the reception desk':gt'HotelHole'
+					end
+					if hotelroom1day = 0:gt'HotelHole'
 				end
-				if hotelroom1day = 0:gt'HotelHole'
-			end
 
-			act'Luxury room':
-				*clr
-				cla
-				hotelroom1day=input ("For how long would you like to stay?")
-				if hotelroom1day<0:set hotelroom1day=0
-				if hotelroom1day*1500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
-				if hotelroom1day*1500<=money and hotelroom1day ! 0:
-					money-=hotelroom1day*1500
-					hotelroom=2
-					hotelroom1day = daystart + hotelroom1day
-					'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
-					act'Step away from the reception desk':gt'HotelHole'
+				act'Luxury room':
+					*clr
+					cla
+					hotelroom1day=input ("For how long would you like to stay?")
+					if hotelroom1day<0:set hotelroom1day=0
+					if hotelroom1day*1500>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
+					if hotelroom1day*1500<=money and hotelroom1day ! 0:
+						money-=hotelroom1day*1500
+						hotelroom=2
+						hotelroom1day = daystart + hotelroom1day
+						'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
+						act'Step away from the reception desk':gt'HotelHole'
+					end
+					if hotelroom1day = 0:gt'HotelHole'
 				end
-				if hotelroom1day = 0:gt'HotelHole'
-			end
 
-			act'Royal suite':
-				*clr
-				cla
-				hotelroom1day=input ("For how long would you like to stay?")
-				if hotelroom1day<0:set hotelroom1day=0
-				if hotelroom1day*10000>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
-				if hotelroom1day*10000<=money and hotelroom1day ! 0:
-					money-=hotelroom1day*10000
-					hotelroom=3
-					hotelroom1day = daystart + hotelroom1day
-					'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
-					act'Step away from the reception desk':gt'HotelHole'
+				act'Royal suite':
+					*clr
+					cla
+					hotelroom1day=input ("For how long would you like to stay?")
+					if hotelroom1day<0:set hotelroom1day=0
+					if hotelroom1day*10000>money:msg'You can''t afford to stay in the hotel for that long.'&gt'HotelHole'
+					if hotelroom1day*10000<=money and hotelroom1day ! 0:
+						money-=hotelroom1day*10000
+						hotelroom=3
+						hotelroom1day = daystart + hotelroom1day
+						'You count the money and give it to her, and she gives you the key to your room in return. She says happily: "Thank you miss, I hope you enjoy your stay!"'
+						act'Step away from the reception desk':gt'HotelHole'
+					end
+					if hotelroom1day = 0:gt'HotelHole'
 				end
-				if hotelroom1day = 0:gt'HotelHole'
+				act 'Step away from the reception desk':gt'HotelHole'
 			end
-			act 'Step away from the reception desk':gt'HotelHole'
+			act'No, thank you':gt'HotelHole'
 		end
-		act'No, thank you':gt'HotelHole'
 	end
-end
-
-if hotelcollect > 0:
-	hotelcollect = 0
-	money+=maidtime*250
-	'The brunette quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
-	maidtime=0
-end
-
-If GermanQW < 1:
-	act 'Ask about the maid job':
-		menu_off = 1
-		*clr & cla
-		if GermanQW = 0:GermanQW = 1
-		gs'stat'
-		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-		'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
-		'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
 
-		act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+	if hotelcollect > 0:
+		hotelcollect = 0
+		money+=maidtime*250
+		'The brunette quickly checks the computer and then gives you <<maidtime*250>> <b>₽</b> for all the shifts you worked in the hotel.'
+		maidtime=0
 	end
-end
 
-if proshotelopen = 1 and proshotelday ! daystart:
-	act'Ask for "The Peacock"':
-		menu_off = 1
-		if pavhotprosQW = 6:
-			pavhotprosQW = 7
-			PavlinQW = 1
-		end
-		*clr & cla
-		gs'stat'
-		
-		if pavlevent = 1:
-			'You are too scared of Pavlin at the moment to meet him in a private place.'
-			act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-			exit
-		end
-		
-		if pcs_makeup <= 1 or pcs_hairbsh < 1 or pcs_sweat > 26:
+	If GermanQW < 1:
+		act 'Ask about the maid job':
+			menu_off = 1
+			*clr & cla
+			if GermanQW = 0:GermanQW = 1
+			gs'stat'
 			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-			'"Pavlin expects you to be clean, made-up and with your hair looking nice. I can''t let you go up looking like this," she says.'
+			'You approach the reception desk, and ask the girl: "Excuse me... I hear you are often looking for maids? I would like to come work as a maid here."'
+			'She nods understandingly, and takes a quick look at your figure: "We do often need maids, that''s true. I''d hire you in an instant, but unfortunately it''s not up to me. You should go see Herman Leonidovich, the hotel manager. He''s usually in his office between 12:00 and 14:00. I bet he will hire you! Good luck when you go see him!"'
+
 			act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
-			exit
 		end
-		
-		'You approach the receptionist and ask for ''The Peacock''.'
-		if hour >= 12 and hour < 20:
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
-			'She nods and waves to Pavlin who is sitting in the lobby'
-			'Pavlin comes over and greets you.'
-			'"Are you ready to do some work <<$pcs_firstname>>?"'
-			'Without bothering to wait for you to respond he takes out his phone and calls a client.'
-			'"OK, let''s go to the room"'
-		else
-			'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
-			'She picks up the phone and says: "Pavlin, there is another one here for you... Sure I''ll send her right up."'
-			'She gives you a subtle smile and tells you Pavlin is waiting for you in room 305'
-		end
-		act 'Go to room 305':
+	end
+
+	if proshotelopen = 1 and proshotelday ! daystart:
+		act'Ask for "The Peacock"':
+			menu_off = 1
+			if pavhotprosQW = 6:
+				pavhotprosQW = 7
+				PavlinQW = 1
+			end
 			*clr & cla
 			gs'stat'
-			'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
+			
+			if pavlevent = 1:
+				'You are too scared of Pavlin at the moment to meet him in a private place.'
+				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+				exit
+			end
+			
+			if pcs_makeup <= 1 or pcs_hairbsh < 1 or pcs_sweat > 26:
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+				'"Pavlin expects you to be clean, made-up and with your hair looking nice. I can''t let you go up looking like this," she says.'
+				act 'Step away from the reception desk':gt'HotelHole','skip_resepevent'
+				exit
+			end
+			
+			'You approach the receptionist and ask for ''The Peacock''.'
 			if hour >= 12 and hour < 20:
-				'You enter the room with Pavlin.'
-				'"You just sit down on the bed; the client will be here in a few minutes."'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
+				'She nods and waves to Pavlin who is sitting in the lobby'
+				'Pavlin comes over and greets you.'
+				'"Are you ready to do some work <<$pcs_firstname>>?"'
+				'Without bothering to wait for you to respond he takes out his phone and calls a client.'
+				'"OK, let''s go to the room"'
 			else
-				'You go to the room and knock on the door. Pavlin opens the door.'
-				'He lets you enter the room and offers you to sit down on the couch.'
-				'"When the girl at the desk called me I informed the customer straight away, they will be here shortly."'
+				'<center><img <<$set_imgh>> src="images/locations/pavlovsk/hotel/resep.girl0,'+rand(0,10)+'.jpg"></center>'
+				'She picks up the phone and says: "Pavlin, there is another one here for you... Sure I''ll send her right up."'
+				'She gives you a subtle smile and tells you Pavlin is waiting for you in room 305'
+			end
+			act 'Go to room 305':
+				*clr & cla
+				gs'stat'
+				'<center><img <<$set_imgh>> src="images/characters/pavlovsk/pavlin/pavlin.jpg"></center>'
+				if hour >= 12 and hour < 20:
+					'You enter the room with Pavlin.'
+					'"You just sit down on the bed; the client will be here in a few minutes."'
+				else
+					'You go to the room and knock on the door. Pavlin opens the door.'
+					'He lets you enter the room and offers you to sit down on the couch.'
+					'"When the girl at the desk called me I informed the customer straight away, they will be here shortly."'
+				end
+				'Indeed not one minute later there was a knock on the door, Pavlin opened up and had a short conversation with the customer. The customer handed him a wad of cash and entered the room.'
+				'"I''ll be waiting in the hotel bar, meet me there when you are done girl," said Pavlin while he left the room.'
+				act 'Perform your duty':gt 'hotel_resep', 'pavgenpros'
 			end
-			'Indeed not one minute later there was a knock on the door, Pavlin opened up and had a short conversation with the customer. The customer handed him a wad of cash and entered the room.'
-			'"I''ll be waiting in the hotel bar, meet me there when you are done girl," said Pavlin while he left the room.'
-			act 'Perform your duty':gt 'hotel_resep', 'pavgenpros'
 		end
 	end
 end
@@ -175,9 +177,9 @@ if $ARGS[0] = 'pavlbar':
 		'He hands you 750 <b>₽</b>.'
 	end
 	if npc_rel['A217'] = -1:
-		money += 750
+		gs 'hotel_resep', 'getpaidpros'
 		gs 'stat'
-		'You refuse to even take a look at him, you swipe the 750 <b>₽</b> from his hand and walk away.'
+		'You refuse to even take a look at him. You swipe the money from his hand and walk away.'
 		act'Go back to the hotel lobby':gt'HotelHole','skip_resepevent'
 		exit
 	end
@@ -185,7 +187,7 @@ if $ARGS[0] = 'pavlbar':
 		minut += 10
 		PavlinQW = 8
 		npc_rel['A217'] = 20
-		money += 750
+		gs 'hotel_resep', 'getpaidpros'
 		gs 'stat'
 		'You tell Pavlin that you were basically assraped by the client.'
 		'"What the fuck, he did not pay for that!!!"'
@@ -203,11 +205,7 @@ if $ARGS[0] = 'pavlbar':
 	end
 
 	if npc_rel['A217'] > 6:
-		if pavprosmmf = 1:
-			money += 1200
-		else
-			money += 750
-		end
+		gs 'hotel_resep', 'getpaidpros'
 		gs 'stat'
 		'"This was not what we agreed to." You say. "I need more..."'
 		'"Sure, you can have more, but you need to do some extra work for that."'
@@ -253,11 +251,7 @@ if $ARGS[0] = 'pavlbar':
 		'You are sure the money he received from the customer was more than double this amount but you don''t feel like arguing.'
 		'You thank him and go back to the hotel lobby'
 		npc_rel['A217'] += 1
-		if pavprosmmf = 1:
-			money += 1200
-		else
-			money += 750
-		end
+		gs 'hotel_resep', 'getpaidpros'
 		gs 'stat'
 		act'Go back to the hotel lobby':gt'HotelHole','skip_resepevent'
 		exit
@@ -274,11 +268,7 @@ if $ARGS[0] = 'pavlbar':
 		act 'Take no chances, accept the amount for today':
 			*clr & cla
 			PavlinQW = 2
-			if pavprosmmf = 1:
-				money += 1200
-			else
-				money += 750
-			end
+			gs 'hotel_resep', 'getpaidpros'
 			gs 'stat'
 			'<br>"Actually, I have no time for this today, I have a doctor''s appointment in a few minutes. Next time I will expect that bonus."'
 			'"Sure <<$pcs_firstname>>, no problem."'
@@ -328,6 +318,14 @@ if $ARGS[0] = 'pavlbar':
 	exit
 end
 
+if $ARGS[0] = 'getpaidpros':
+	if pavprosmmf = 1:
+		money += 1200
+	else
+		money += 750
+	end
+end
+
 if $ARGS[0] = 'pavgenpros':
 	pavprosmmf = 0
 	if pavproscount < 20:
@@ -517,6 +515,5 @@ if $ARGS[0] = 'pavgenprosmmf':
 	end
 end
 
-
 --- hotel_resep ---------------------------------