add new days, dreams

locations/mod_IbizaCabin.qsrc

@@ -5,6 +5,7 @@ $locM = 'mod_IbizaCabin'
 $menu_loc = 'mod_IbizaCabin'
 gs 'stat'
 gs 'themes', 'indoors'
+close all
 if $args[1] ! '': $OutLoc = $args[1]
 
 if $args[0] = '':
@@ -20,7 +21,7 @@ if $args[0] = '':
 	'<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...' 
+    $args[2] 
     *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>'
@@ -57,36 +58,97 @@ if $args[0] = '':
 		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':
+	
+	if pcs_sweat > 20:
+		act 'Take a shower (0:15)':
 			cla
 			*clr
-			'<center><video autoplay loop src="images/shared/home/bathroom/wash2.mp4"></video></center>'
-			*nl
-			cumspclnt = 8
-			gs 'cum_cleanup'
+			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
-		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  
+
+    if (week = 2) and (hour > 22): 
+		act 'Relieve yourself':
+			*clr 
+			'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/day3/overflowing3.mp4"></video></center>'
+			'You go to the bathroom to relieve yourself before heading to bed. While you''re pissing some sperm splatter falls from your bulging pussy on the toilet.'
+			'<<$OpenInnerThought>> «Fuck! Those bastards have completely filled me up!»<<$CloseInnerThought>> you think to yourself, <<$OpenInnerThought>> «I can''t deal with this anymore, I must sleep...»<<$CloseInnerThought>>'
+		end
+	end
+
+
+
+
+
+    act 'Go Out':
+		if week = 7: 
+		   MSG 'You are not in the mood to go out!'
+		else
+			if pcs_sweat > 30:
+				MSG 'You are too dirty to go out!'
+				gt 'mod_IbizaCabin'
+			else
+				if (pcs_makeup < 2) and (PCloSkirt < 3 and PCloPants < 5):
+					MSG 'Do you makeup and wear something sexy!'
+					gt 'mod_IbizaCabin'
+				elseif (pcs_makeup < 2) and (PCloSkirt > 2 or PCloPants > 4):
+					MSG 'Do you makeup!'
+					gt 'mod_IbizaCabin'
+				elseif (pcs_makeup > 1) and (PCloSkirt < 3 and PCloPants < 5):
+					MSG 'Wear something sexy!'
+					gt 'mod_IbizaCabin'
+				else
+					if week = 1:
+						if hour < 18 : gt 'mod_IbizaDay2', $OutLoc
+					end
+					if week = 2:
+						if hour < 18 : gt 'mod_IbizaDay3', $OutLoc
+					end
+					if week = 3:
+						if hour < 18 : gt 'mod_IbizaDay4', $OutLoc
+					end
+					if week = 4:
+						if hour < 18 : gt 'mod_IbizaDay5', $OutLoc
+					end
+					if week = 5:
+						if hour < 18 : gt 'mod_IbizaDay6', $OutLoc
+					end
+					if week = 6:
+						if hour < 18 : gt 'mod_IbizaDay7', $OutLoc
+					end
+				end
+			end
+		end
+	end
+	dynamic $basin
+	
+	if (week = 2) and ((PCloSkirt > 2) or (PCloPants > 4)) and (pcs_makeup > 1) and (hour < 11) :
+		PLAY 'sound/knocking.mp3',30
+		*nl
+		'You hear someone knocking on the door.'
+
+		act 'Open the door': gt 'mod_IbizaDay3', 'day three'	
+	end
+	
+	
 end
 
 if $args[0] = 'sleep':
@@ -151,15 +213,30 @@ end
 
 if $ARGS[0] = 'dream':
 
-	if $loc = 'nichBedroomServant':
-		gs 'nichBedroomServant', 'sleepEvents'
-	end
-
 	*clr & cla
 	menu_off = 1
 	InSleep = 1
 	gs 'stat'
-	gs 'dreams', 'start'
+
+    if (week = 2 ) : 
+       !The next sequences are a dream of the player. These must be treated like a dream of the player (bed2 )
+		'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/day3/dsleep7.mp4"></video></center>'
+		'You are awoken by a thud, someone has entered your cabin. Your sense a sweet and masculine perfume that envelops the environment. That someone separates your legs but you''re too exhausted that you can''t even fight back...'
+		wait 1000
+        *clr 		
+		'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/day3/dsleep3.mp4"></video></center>'
+        'You feel his cock penetrating you, thrusting deep inside of you. Even being fucked can''t keep you awake as you fall asleep while being abused by the intruder...'
+    elseif (week = 3):
+		!The next sequences are a dream of the player. These must be treated like a dream of the player (bed2 )
+		'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/day4/dsleep4.mp4"></video></center><br>'
+		'You are lightly sleeping as you once again hear someone enter your cabin. You sense a sweet and masculine perfume that envelops the environment. They grab hold of your legs and separate them. You want to open your eyes to see who it is but you''re too exhausted to...'
+		wait 1000
+		'<center><video autoplay src="mod/ibiza/locations/city/citycenter/nightclub/trip01/day4/dsleep5.mp4"></video></center><br>'
+		'After a few thrusts you force yourself to open your eyes slightly to see that it''s Christian, who''s thrusting you with all his might. Christian accelerates his pace and causes whole your body to stiffen... Suddenly you hear a loud groan and you feel his cock twitching from the pounding and before you know it, he fills you with his sperm...'
+	else
+		gs 'dreams', 'start'
+	end	
+
     alarm_set = 500 + rand(60)
 
 	:loopsoncabin
@@ -177,13 +254,35 @@ if $ARGS[0] = 'dream':
 
 	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>>'
+	if week = 1:
+!! day 2 intro
+		'Yesterday was hard. You think about what happened and your whole body trembles as you remember it. Santorini scares you and you know that he is a dangerous person, very dangerous. You could never have imagined that Erick had a partner like that, but he has him and he''s the greatest despot you''ve ever known. <<$OpenInnerThought>>«Before I leave the cabin, I''d better take a shower. I wonder what awaits me today?»<<$CloseInnerThought>> – you think worried- You look at the purple bracelet on your wrist ... <<$OpenInnerThought>> «This color ... What does it mean? Well, anyway <<$pcs_nickname>>,  you''ve come here to make money, right? Well, work it, baby! »<<$CloseInnerThought>> You encourage yourself'
+	end
+	if week = 2:
+!! day 3 intro
+		'A new day dawns. You feel rested but can''t shake the feeling that you''re here because of your beauty; simply belonging to a dance troupe named Purple Girls, that''s actually a front for a prostitution ring.'
+		'<<$OpenInnerThought>> «I should take a shower and do my makeup before I head out.»<<$CloseInnerThought>>'
+	end
+	if week = 3:
+!! day 4 intro
+    'Check This Text 4!'
+	end
+	if week = 4:
+!! day 5 intro
+    'Check This Text 5!'
+	end
+	if week = 5:
+!! day 6 intro
+    'Check This Text 6!'
+	end
+
+
+
 end