add new location

locations/mod_IbizaCabin.qsrc

@@ -0,0 +1,192 @@
+# mod_IbizaCabin
+
+$loc = 'mod_IbizaCabin'
+$locM = 'mod_IbizaCabin'
+$menu_loc = 'mod_IbizaCabin'
+gs 'stat'
+gs 'themes', 'indoors'
+if $args[1] ! '': $OutLoc = $args[1]
+
+if $args[0] = '':
+	$location_type = 'private'
+	$metka = ''
+	$metkaM = ''
+	$menu_arg = ''
+	menu_off = 0
+	killvar '$locclass'
+	*clr & cla
+	gs 'stat'
+	'<center><b><font color="maroon">Cabin</font></b></center>'
+	'<center><img <<$set_imgh>> src="mod/ibiza/locations/city/citycenter/nightclub/trip01/cabin.jpg"></center>'
+	'Your cabin on the yacht.'
+	*nl
+    if $args[1] = 'day two': 'You arrive in your cabin with the only desire to shower and go to bed to sleep. Tomorrow will be another day...' 
+    *nl 
+
+	'There is a <a href="exec:gt ''bed'', ''start''">bed</a> against one wall. Next to it is a <a href="exec:gt ''wardrobe'', ''start''">wardrobe</a> (where you can choose outfits and organize your clothing). On the other side of the bed is a table and a <a href="exec:gt ''mirror'', ''start''">mirror</a>'
+	*nl
+	'You can access your <a href="exec: quick_dress = 1 & gt ''wardrobe'', ''default''">default clothing</a> options directly.' 
+	*nl
+
+
+	if pcs_sleep <= 80:
+		if $clothingworntype = 'nude':
+			$sleep_txt = 'Go to bed'
+		else
+			$sleep_txt = 'Undress and go to bed'
+		end
+		act '<<$sleep_txt>>':
+			menu_off = 1
+			if bedPanty = 2:
+				gs 'underwear', 'remove'
+			elseif bedPanty = 1:
+				gs 'underwear', 'wear'
+			end
+			if disable_autosave = 0:
+				if StoryLine = 0:
+					savegame 'autosave.sav'
+				else
+					savegame 'autosave_alt.sav'
+				end
+			end
+			if $clothingworntype ! 'nude':
+				strip_here = 1
+				gs 'clothing', 'strip'
+			end
+			gt 'mod_IbizaCabin', 'sleep'
+		end
+		killvar '$sleep_txt'
+	end
+
+
+	act 'Take a shower (0:15)':
+		cla
+		*clr
+		minut += 15
+		pcs_horny += 1
+		pcs_hairbsh = 0
+		pcs_makeup = 1
+		inhib_exp += 1
+		dynamic $showerdin
+		'<center><video autoplay loop src="images/shared/home/bathroom/dush.mp4"></video></center>'
+		'You go into a stall and turn on the shower. You lather your body and wash.'
+		if deodorant_on = 1: gs 'sweat', 'remove_deo' & '<br>Your deodorant gets washed away in the shower.'
+		act 'Use the shower head on your pussy':
+			cla
+			*clr
+			'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
+			*nl
+			cumspclnt = 8
+			gs 'cum_cleanup'
+			act 'Get out of the shower': gt 'mod_IbizaCabin'
+		end
+		act 'Get out of the shower': gt 'mod_IbizaCabin'
+	end
+	if hour > 5 and hour < 18 : 
+	   act 'Go Out':
+          if $OutLoc = 'day two': gt 'mod_IbizaDay2', 'day two'
+	   end 
+	end  
+end
+
+if $args[0] = 'sleep':
+	*clr & cla
+	menu_off = 1
+	slept_in = 0
+	if $clothingworntype ! 'nude':
+		'<center><img <<$set_imgh>> src="images/shared/home/bed.jpg"></center>'
+	else
+		'<center><img <<$set_imgh>> src="images/shared/home/bedroom/son.jpg"></center>'
+	end
+	gs 'stat'
+	*nl
+	'You run through your regular nightly routine, not bothering to setting your alarm, you undress, and prepare for sleep:'
+	pcs_hairbsh = 0
+	cloth_vid = 0
+	pain['killer'] = 0
+	if bedPanty = 1 and $pantyworntype = 'none' and $braworntype = 'none':
+		*nl
+		'You put on your bra and panties.'
+	elseif bedPanty = 1 and $pantyworntype ! 'none' and $braworntype = 'none':
+		*nl
+		'You put on your bra.'
+	elseif bedPanty = 1 and $pantyworntype ! 'none' and $braworntype ! 'none':
+		*nl
+		'You put on your panties.'
+	elseif bedPanty = 1:
+		*nl
+		'You change your bra and panties.'
+	elseif bedPanty = 2:
+		*nl
+		'You remove your bra and panties.'
+	else
+		*nl
+		'You were too tired to worry about your underwear, so for tonight you left it as is.'
+	end
+	if hscrunchw = 1:
+		*nl
+		'<<$hscrunch>>.'
+	elseif hscrunchw = 2:
+		*nl
+		'<<$hpigtail>>'
+	elseif hpingripw > 0:
+		*nl
+		'<<$hpingrip>>'
+	elseif hbraids > 0:
+		*nl
+		'<<$hbraids>>'
+	else
+		*nl
+		'Your hair is loose and free.'
+	end
+	if pcs_makeup > 1:
+		pcs_makeup = 0
+		vidageday -= 1
+		*nl
+		'You went to bed wearing your makeup, which will smear your face as you sleep; your skin will age faster from this!'
+	end
+	if fat > 5 and stringimplant = 1: silicone += 1 & fat -= 5
+	act 'Sleep...': gt 'mod_IbizaCabin','dream'
+end
+
+if $ARGS[0] = 'dream':
+
+	if $loc = 'nichBedroomServant':
+		gs 'nichBedroomServant', 'sleepEvents'
+	end
+
+	*clr & cla
+	menu_off = 1
+	InSleep = 1
+	gs 'stat'
+	gs 'dreams', 'start'
+    alarm_set = 500 + rand(60)
+
+	:loopsoncabin
+	minut += 1
+	stime += 1
+	if recuperation = 0:pcs_health += 5
+
+	if stime >= 60:
+		stime = 0
+		pcs_sleep += 15
+		gs 'stat'
+	end
+
+	alarm_now = hour * 60 + minut
+
+	if alarm_now = alarm_set:
+		gs 'stat'
+		$waketext = 'You wake up at <b><<$mid(100+hour,2,2)>>:<<$mid(100+minut,2,2)>></b>, after sleeping-in a little longer than planned, but at least you''ve had plenty of sleep.'
+		gs 'bed2', 'wake'
+	else
+		jump 'loopsoncabin'
+	end
+	*nl
+	'<<$waketext>>'
+end
+
+
+
+
+--- mod_IbizaCabin  --------------------------------