瀏覽代碼

add new location and fix the storyline variable

rachels 2 年之前
父節點
當前提交
7211916aa5
共有 3 個文件被更改,包括 104 次插入3 次删除
  1. 3 3
      locations/mod_IbizaCabin.qsrc
  2. 81 0
      locations/mod_Ibiza_nightclubToilet.qsrc
  3. 20 0
      locations/mod_Ibiza_options.qsrc

+ 3 - 3
locations/mod_IbizaCabin.qsrc

@@ -44,10 +44,10 @@ if $args[0] = '':
 				gs 'underwear', 'wear'
 			end
 			if disable_autosave = 0:
-				if StoryLine = 0:
-					savegame 'autosave.sav'
-				else
+				if mid($start_type,1,2) = 'sg':
 					savegame 'autosave_alt.sav'
+				else
+					savegame 'autosave.sav'
 				end
 			end
 			if $clothingworntype ! 'nude':

+ 81 - 0
locations/mod_Ibiza_nightclubToilet.qsrc

@@ -0,0 +1,81 @@
+# mod_Ibiza_nightclubToilet
+
+if $ARGS[0] = 'start':
+	$location_type = 'public_indoors'
+	$loc = 'mod_Ibiza_nightclubToilet'
+	$loc_arg = 'start'
+	$menu_loc = 'mod_Ibiza_nightclubToilet'
+	$menu_arg = 'start'
+	gs 'themes', 'indoors'
+	killvar '$locclass'
+	menu_off = 0
+	gs 'stat'
+	*clr & cla
+
+	'<center><b><font color="maroon">Nightclub-Restroom</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/toiletwalkway.jpg"></center>'
+	gs 'willpower', 'exhib', 'self'
+		if will_cost <= pcs_willpwr:
+			act 'Enter the men''s restroom (<<will_cost>> Willpower)':
+				gs 'willpower', 'exhib', 'self'
+				gs 'willpower', 'pay', 'self'
+				gs 'stat'
+				gt 'mod_Ibiza_nightclubToilet', 'clubtoilet_men'
+			end
+		else
+			act 'Enter the men''s restroom (<font color="red"><<will_cost>> Willpower</font>)': '<br><font color="red">You don''t have enough willpower to use this action.</font>'
+		end
+	act 'Enter the women''s restroom': gt 'mod_Ibiza_nightclubToilet', 'clubtoilet_women'
+	act 'Return to the dance floor': gt 'city_nightclub', 'inside'
+end
+
+if $ARGS[0] = 'clubtoilet_men':
+	$loc = 'mod_Ibiza_nightclubToilet'
+	$loc_arg = 'clubtoilet_men'
+	$locM = 'mod_Ibiza_nightclubToilet'
+	$locM_arg = 'clubtoilet_men'
+	$menu_loc = 'mod_Ibiza_nightclubToilet'
+	$menu_arg = 'clubtoilet_men'
+	menu_off = 0
+	$location_type = 'bathroom'
+	$locclass = 'restroom'
+
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">Nightclub-Men''s Room</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/mentoilet.jpg"></center>'
+	'You walk in to the men''s restroom. You see some sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>.'
+
+	act 'Leave': gt 'mod_Ibiza_nightclubToilet', 'start'
+
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin
+end
+
+if $ARGS[0] = 'clubtoilet_women':
+	$loc = 'mod_Ibiza_nightclubToilet'
+	$loc_arg = 'clubtoilet_women'
+	$locM = 'mod_Ibiza_nightclubToilet'
+	$locM_arg = 'clubtoilet_women'
+	$menu_loc = 'mod_Ibiza_nightclubToilet'
+	$menu_arg = 'clubtoilet_women'
+	menu_off = 0
+	$location_type = 'bathroom'
+	$locclass = 'restroom'
+
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">Nightclub-Women''s Room</font></b></center>'
+	'<center><img <<$set_imgh>> src="images/locations/city/citycenter/nightclub/womentoilet.jpg"></center>'
+	'You walk in to the women''s restroom. You see some sinks and <a href="exec:gt ''mirror'', ''start''">mirrors</a>. You notice the last stall has its door wide open.'
+
+	act 'Leave': gt 'mod_Ibiza_nightclubToilet', 'start'
+	act 'Go to the last stall': gt 'gloryhole', 'start'
+
+	dynamic $tampon
+	dynamic $quickwash
+	dynamic $basin
+end
+
+--- mod_Ibiza_nightclubToilet ---------------------------------

+ 20 - 0
locations/mod_Ibiza_options.qsrc

@@ -0,0 +1,20 @@
+# mod_Ibiza_options
+*clr & cla
+if $ARGS[0] = '':
+	*pl 'You can set here the color of some part of the text, namely of the the direct speech.'
+	*pl 'Also you can set and reset test mode of the mod. Curently it is set to <<ibizatest>>'
+
+act 'Set color fonts': gs 'mod_IbizaStart','cfonts'
+act 'Set black fonts': gs 'mod_IbizaStart','bwfonts'
+
+	if ibizatest = 0:
+		act 'Cheat (set ibizatest to 1)': ibizatest = 1 & gt 'mod_Ibiza_options'
+	end
+	if ibizatest = 1:
+		act 'End test': ibizatest = 0 & gt 'mod_Ibiza_options'
+	end
+
+	act 'Return': gt 'mod_setting'
+end
+
+--- mod_Ibiza_options ---------------------------------