ソースを参照

[merged] elevator, maria1, number1, number2, number3 and number 4 into hotel

julzor 5 年 前
コミット
5b0d2326cb

+ 0 - 6
glife.qproj

@@ -928,12 +928,6 @@
 		<Location name="casino"/>
 		<Location name="mqroom"/>
 		<Location name="hotel"/>
-		<Location name="elevator"/>
-		<Location name="Maria1"/>
-		<Location name="number1"/>
-		<Location name="number2"/>
-		<Location name="number3"/>
-		<Location name="number4"/>
 		<Location name="deckShuffle"/>
 	</Folder>
 	<Folder name="Menu">

+ 0 - 130
locations/Maria1.qsrc

@@ -1,130 +0,0 @@
-# Maria1
-clr
-menu_off = 1
-minut += 1
-'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></right>'
-'You walk up to the front reception and get greeted by a smiling young woman behind the counter.'
-'"How can I help you?" she asks.'
-
-act 'See the room descriptions':
-	cla
-	minut += 2 
-	'There are 4 types of rooms available:'
-	'1. Budget rooms, our most simplest rooms for the ones that just want a bed to sleep the night. There''s a public bathroom shared with the rest of the floor.'
-	'2. Standard rooms, our reasonably priced rooms. Every room has a private bathroom and a TV.'
-	'3. Suites, our luxurious room. Beside a private bathroom there''s also an extra livingroom.'
-	'4. Presidential Suite, our most prized room with all the modern necessities. Free room service included.'
-
-	act 'Finish reading':gt 'Maria1'
-end
-
-if nom_1 = 0:
-	act 'Flirt':
-		cla
-		minut += 1
-		'You smile at her and ask, "What are you doing tonight?"'
-		'She looks at you, "Having dinner with my husband. Anything else you wanted to know?"'
-
-		act 'Move away':gt 'Maria1'
-	end
-
-	if tobiQW = 2000:
-		act 'Why is the hotel so crowded?':
-			cla
-			tobiQW = 2001
-			minut += 1
-			'"Why so the hotel so crowded today?" you ask.'
-			'"There''s an conference on indigenous languages, they meet every year and complain about their disappearing languages." she says laughing.'
-
-			act 'Move away':gt 'Maria1'
-		end
-	end
-end
-
-if nomer = 0:
-
-	act 'Rent a room':
-		cla
-		minut += 1 
-		'"I would like to rent a room." you tell the girl at the counter.'
-		'"Unfortunately, we have no rooms available." she replies.'
-		act 'Walk away':gt'Maria1'
-!{		'- Good, What would you like to?'
-
-		act 'Cheapest room':
-			nomer = 1
-			nom_1 = 1
-
-			'"I''ll take the cheapest room."'
-
-			gt'Maria1'
-		end
-		act 'Standard room':
-			nomer = 2
-			nom_1 = 1
-
-			'"I''ll take the standard room."'
-
-			gt'Maria1'
-		end
-		act 'Suite':
-			nomer = 3
-			nom_1 = 1
-
-			'"I''ll take the suite."'
-
-			gt'Maria1'
-		end
-		act 'Presidential Suite':
-			nomer = 4
-			nom_1 = 1
-
-			'"I''ll take the presidential suite."'
-
-			gt'Maria1'
-		end}
-	end
-end
-
-act 'Move away': minut += 1 & gt 'hotel'
-
-!{
-if nom_1 = 1 and flag = 0:
-	cla
-	*clr
-	sto_nom = nom_o[nomer]
-	'"I''ll stay for one night." you tell her.'
-	'"That will be <<sto_nom>>."'
-
-	act 'Pay':
-		if sto_nom > money:
-			msg 'You don''t have enough money'
-			srokarend = 0
-			nomer = 0
-			nom_1 = 0
-			gt 'maria1'
-		end
-
-		cla
-		money -= sto_nom
-		flag = 1
-		nom_1 = 0
-		nom_nom = rand(1, 1000)
-		'"Thank you for staying at our hotel. Your room number is <<nom_nom>>."'
-
-		act 'Goodbye': minut += 1 & gt 'hotel'
-	end
-
-	act 'Change Your Mind':
-		nomer = 0
-		nom_1 = 0
-		gt 'maria1'
-	end
-end
-
-if nom_1 = 0:
-	act 'Move away': minut += 1 & gt 'hotel'
-end
-}
---- Maria1 ---------------------------------
-

+ 1 - 1
locations/down.qsrc

@@ -199,7 +199,7 @@ if hour >= 8 and hour <= 18:
 else
 	$desc_txt5 = '<a href="exec:msg ''The National Library of Russia is closed and will reopen at 8:00''">National Library of Russia</a>'
 end
-'Next door is the <<$desc_txt1>> followed by a <<$desc_txt2>> and <<$desc_txt3>> and the 5-star <a href="exec: minut += 5 & gt ''hotel''">Hotel Indigo</a> for your housing needs. Lastly, the local <<$desc_txt4>> and <<$desc_txt5>> can be found at the end of the road.'
+'Next door is the <<$desc_txt1>> followed by a <<$desc_txt2>> and <<$desc_txt3>> and the 5-star <a href="exec: minut += 5 & gt ''hotel'', ''foyer''">Hotel Indigo</a> for your housing needs. Lastly, the local <<$desc_txt4>> and <<$desc_txt5>> can be found at the end of the road.'
 *nl
 if week < 6 and hour >= 9 and hour <= 17:
 	$desc_txt6 = '<a href="exec: minut += 5 & gt ''sentence'',''start''">The Regional Courthouse</a>'

+ 0 - 25
locations/elevator.qsrc

@@ -1,25 +0,0 @@
-# elevator
-act 'Back': minut += 1 & gt 'hotel'
-
-act 'Go to your room':
-	msg 'Excuse me, but the elevator is not working'
-	gt 'elevator'
-
-!'
-	if nomer = 0:
-		msg 'You have not paid for a room'
-		gt 'elevator'
-	elseif nomer = 1:
-		gt 'number1'
-	elseif nomer = 2:
-		gt 'number2'
-	elseif nomer = 3:
-		gt 'number3'
-	elseif nomer = 4:
-		gt 'number4'
-	end
-'!
-end
-
---- elevator ---------------------------------
-

+ 88 - 31
locations/hotel.qsrc

@@ -1,38 +1,95 @@
 # hotel
-clr
-nom_o[1] = 100
-nom_o[2] = 1000
-nom_o[3] = 10000
-nom_o[4] = 100000
-gs 'stat'
-'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></center>'
-
-if tobiQW < 2000:'The hotel lobby is deserted and you only notice an alone bored girl standing at the reception desk.'
-if tobiQW >= 2000 and tobiQW < 2100:'The hotel lobby is very crowded. You notice there''s a swarm of comely old men dressed in scanty jackets with elbow patches.'
-
-if tobiQW = 2001:
-	'One of the visitors of the hotel, grabs your attention as he''s sitting in a chair, reading a book. It''s written in squiggles, which reminds you to the scroll you read earlier.'
-	act 'Excuse me':
-		cla
-		*clr
-		minut += 5
-		'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/oldman.jpg"></center>'
-		'"I didn''t mean to disturb you, but what language is the book written in?" you ask the man.'
-		'The man stops, looks up to you and cheerfully answers, "This book right here is written in old Japanese language. Why do you ask?" the man asks curiously.'
-		'"Well, I was handed this book, in which the characters are very similarly written." you answer.'
-		'The man gasps, "By the gods! Can I take a look?"'
-		'"I don''t really know if it''s okay..." you hesitantly answer.'
-		'The man is taken aback a little by your answer, "Oh yes, it''s no wonder you''re being careful, where are my manners, I should introduce myself. My name is Plato Aristarkhovich, and you are?"'
-		'"My name is <<$pcs_firstname>> <<$pcs_lastname>>." you answer.'
-		'"I hope this doesn''t sound too creepy but would you please follow me to my room?" Plato asks you.'
-
-		act 'Go with Plato': minut += 1 & gt 'mqroom'
+
+if $ARGS[0] = 'foyer':
+	*clr & cla
+	nom_o[1] = 100
+	nom_o[2] = 1000
+	nom_o[3] = 10000
+	nom_o[4] = 100000
+	gs 'stat'
+	'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></center>'
+
+	if tobiQW < 2000:'The hotel lobby is deserted and you only notice an alone bored girl standing at the reception desk.'
+	if tobiQW >= 2000 and tobiQW < 2100:'The hotel lobby is very crowded. You notice there''s a swarm of comely old men dressed in scanty jackets with elbow patches.'
+
+	if tobiQW = 2001:
+		'One of the visitors of the hotel, grabs your attention as he''s sitting in a chair, reading a book. It''s written in squiggles, which reminds you to the scroll you read earlier.'
+		act 'Excuse me':
+			*clr & cla
+			minut += 5
+			gs 'stat'
+			'<center><img <<$set_imgh>> src="images/locations/city/industrial/casino/oldman.jpg"></center>'
+			'"I didn''t mean to disturb you, but what language is the book written in?" you ask the man.'
+			'The man stops, looks up to you and cheerfully answers, "This book right here is written in old Japanese language. Why do you ask?" the man asks curiously.'
+			'"Well, I was handed this book, in which the characters are very similarly written." you answer.'
+			'The man gasps, "By the gods! Can I take a look?"'
+			'"I don''t really know if it''s okay..." you hesitantly answer.'
+			'The man is taken aback a little by your answer, "Oh yes, it''s no wonder you''re being careful, where are my manners, I should introduce myself. My name is Plato Aristarkhovich, and you are?"'
+			'"My name is <<$pcs_firstname>> <<$pcs_lastname>>." you answer.'
+			'"I hope this doesn''t sound too creepy but would you please follow me to my room?" Plato asks you.'
+
+			act 'Go with Plato': minut += 1 & gt 'mqroom'
+		end
+	end
+
+	act 'Leave': minut += 5 & gt 'down'
+
+	act 'Go to the reception desk': gt 'hotel', 'reception'
+	
+	act 'Go to the lift': 
+		*clr & cla
+		minut += 1
+		gs 'stat'
+		msg 'Excuse me, but the elevator is not working'
+		gt 'hotel', 'foyer'
 	end
 end
 
-act 'Leave': minut += 5 & gt 'down'
-act 'Go to the reception desk': minut += 1 & gt 'Maria1'
-act 'Go to the lift': minut += 1 & gt 'elevator'
+if $ARGS[0] = 'reception':
+	*clr & cla
+	menu_off = 1
+	minut += 1
+	gs 'stat'
+	'<right><img <<$set_imgh>> src="images/locations/city/industrial/casino/metrd.jpg"></right>'
+	'You walk up to the front reception and get greeted by a smiling young woman behind the counter.'
+	'"How can I help you?" she asks.'
+
+	act 'Go back to the foyer': minut += 1 & gt 'hotel'
+	
+	act 'See the room descriptions':
+		cla
+		minut += 1
+		gs 'stat'
+		'There are 4 types of rooms available:'
+		'1. Budget rooms, our most simplest rooms for the ones that just want a bed to sleep the night. There''s a public bathroom shared with the rest of the floor.'
+		'2. Standard rooms, our reasonably priced rooms. Every room has a private bathroom and a TV.'
+		'3. Suites, our luxurious room. Beside a private bathroom there''s also an extra livingroom.'
+		'4. Presidential Suite, our most prized room with all the modern necessities. Free room service included.'
+
+		act 'Continue': gt 'hotel', 'reception'
+	end
+
+	if tobiQW = 2000:
+		act 'Why is the hotel so crowded?':
+			cla
+			tobiQW = 2001
+			minut += 1
+			'"Why so the hotel so crowded today?" you ask.'
+			'"There''s an conference on indigenous languages, they meet every year and complain about their disappearing languages." she says laughing.'
+				act 'Move away': gt 'hotel'
+		end
+	end
+
+	act 'Rent a room':
+		cla
+		minut += 1
+		gs 'stat'
+		*nl
+		'"I would like to rent a room." you tell the girl at the counter.'
+		'"Unfortunately, we have no rooms available." she replies.'
+		act 'Move away': gt 'hotel'
+	end
+end
 
 
 --- hotel ---------------------------------

+ 0 - 6
locations/number1.qsrc

@@ -1,6 +0,0 @@
-# number1
-'bedroom'
-'toilet-shower'
-
---- number1 ---------------------------------
-

+ 0 - 7
locations/number2.qsrc

@@ -1,7 +0,0 @@
-# number2
-'lounge'
-'bedroom'
-'toilet-shower'
-
---- number2 ---------------------------------
-

+ 0 - 8
locations/number3.qsrc

@@ -1,8 +0,0 @@
-# number3
-'lounge'
-'bathroom'
-'bar'
-'bedroom'
-
---- number3 ---------------------------------
-

+ 0 - 10
locations/number4.qsrc

@@ -1,10 +0,0 @@
-# number4
-'pool'
-'jacuzzi'
-'bar'
-'bedroom'
-'bathroom'
-'lounge'
-
---- number4 ---------------------------------
-