Parcourir la source

[fixed] added the storage and unwanted locations to bags so those in limbo can be saved and tidied up a code snipet in placer_sex

KevinSmarts il y a 4 ans
Parent
commit
bc2471bf5c
2 fichiers modifiés avec 17 ajouts et 4 suppressions
  1. 2 4
      locations/placer_sex.qsrc
  2. 15 0
      locations/purses.qsrc

+ 2 - 4
locations/placer_sex.qsrc

@@ -1419,9 +1419,7 @@ if $args[0] = 'stay':
 	gs'stat'
 	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/park/sex/placer_sex29.jpg"></center>'
 	'The guys are happy that you decided to stay the night, and <<$boydesc2>> goes to another room to fetch a guitar. He''s fairly good at playing it, and you all happily sing along to the songs he''s plays. Afterwards, you all enjoy another glass of vodka while you exchange stories. Before you know it, it''s getting late.'
-	act 'Go to bed':
-		gt 'placer_sex', 'sleep'
-	end
+	act 'Go to bed': gt 'placer_sex', 'sleep'
 end
 
 if $args[0] = 'sleep':
@@ -1432,7 +1430,7 @@ if $args[0] = 'sleep':
 			SAVEGAME 'autosave_alt.sav'
 		end
 	end
-	cls
+	*clr & cla
 	clr
 	notathomesleep=0
 	pcs_health += 5

+ 15 - 0
locations/purses.qsrc

@@ -18,6 +18,21 @@ if $ARGS[0] = 'view_purse_list':
 	end
 
 	act 'Return' :gt 'wardrobe', 'start'
+	
+	$clothing_header = '<center><table border=1>'
+	if $ARGS[1] ! 'wardrobe': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''wardrobe'', ''<<$ARGS[1]>>''">Switch to wardrobe list</a></TH>'
+	if $ARGS[1] ! 'store': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''store'', ''<<$$ARGS[2]>>''">Switch to stored clothing list</a></TH>'
+	if $ARGS[1] ! 'unwanted': $clothing_header += '<TH><a href="exec:gt ''purses'', ''view_purse_list'', ''unwanted'', ''<<$$ARGS[3]>>''">Switch to unwanted clothing list</a></TH></center>'
+
+	if $ARGS[1] = 'wardrobe':
+		'<h3><center><b><font color="maroon">Wardrobe list</font></b></center></h3>'
+	elseif $ARGS[1] = 'store':
+		'<h3><center><b><font color="maroon">Stored purses list</font></b></center></h3>'
+	elseif $ARGS[1] = 'unwanted':
+		'<h3><center><b><font color="maroon">Unwanted purses list</font></b></center></h3>'
+	elseif $ARGS[1] = 'sell':
+		'<h3><center><b><font color="maroon">Choose an item to sell</font></b></center></h3>'
+	end
 
 	'<center><img src="images/locations/city/island/dolls.png"></center>'