Ver código fonte

Moved kiosk to its own location, added magazines and updated purchase system.

KevinSmarts 8 anos atrás
pai
commit
11816e76c9
8 arquivos alterados com 161 adições e 160 exclusões
  1. 8 5
      glife.qproj
  2. 1 1
      locations/Nord
  3. 0 150
      locations/dina
  4. 1 2
      locations/down
  5. 148 0
      locations/kiosk
  6. 0 1
      locations/pavCommercial
  7. 2 0
      locations/pavResidential
  8. 1 1
      locations/street

+ 8 - 5
glife.qproj

@@ -124,6 +124,14 @@
       <Location name="enderKik"/>
       <Location name="razrKik"/>
     </Folder>
+    <Folder name="Shared locations">
+      <Location name="shop"/>
+      <Location name="bank"/>
+      <Location name="kiosk"/>
+      <Location name="taxi"/>
+      <Location name="metro"/>
+      <Location name="street_event"/>
+    </Folder>
     <Folder name="Home Street - Locations">
       <Location name="street"/>
       <Location name="pharmacy"/>
@@ -138,7 +146,6 @@
       <Location name="klofdomhouse"/>
       <Location name="lake"/>
       <Location name="dort"/>
-      <Location name="metro"/>
       <Location name="narkopriton"/>
       <Location name="bobka"/>
       <Location name="park"/>
@@ -153,11 +160,9 @@
       <Location name="saunaroom"/>
       <Location name="saunawhore"/>
       <Location name="saunawork"/>
-      <Location name="shop"/>
       <Location name="trashplace"/>
       <Location name="musorkaexh"/>
       <Location name="RynokHoz"/>
-      <Location name="taxi"/>
     </Folder>
     <Folder name="BDSM_Club">
       <Location name="BDSM_Club"/>
@@ -533,7 +538,6 @@
     <Folder name="City Center">
       <Location name="down"/>
       <Location name="agentned"/>
-      <Location name="bank"/>
       <Location name="kameraKPZ"/>
       <Location name="bass"/>
       <Location name="burger"/>
@@ -906,7 +910,6 @@
     <Location name="lager"/>
     <Location name="LBZhouse"/>
     <Location name="femcyc"/>
-    <Location name="street_event"/>
     <Location name="show_table"/>
     <Location name="BanSexType"/>
   </Structure>

+ 1 - 1
locations/Nord

@@ -45,7 +45,7 @@ end
 
 'The towns <a href="exec:hour += 1 & gt ''park'', ''start''">central park</a> is an hours walk from here.'
 
-if hour >= 8 and hour <= 22:'A kiosk is selling <a href="exec:dynamic $kiosksig">cigarettes</a>.'
+if hour >= 8 and hour <= 22:'You can see the <a href="exec:gt ''kiosk'', ''start''">kiosk</a> selling cigarettes and magazines.'
 
 '<a href="exec:minut += 15 & gt ''vokzal''">Train Station</a> to get to the small Town.'
 

+ 0 - 150
locations/dina

@@ -151,156 +151,6 @@ $gladbelo = {
 	act 'Leave':gt $curloc
 }
 
-!!WD: Kioks event replaced with new code from Przemar!Przemar:** KIOSK ** ver 02
-!!Przemar:IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 <b>₽</b>'
-!!WD:"SUB >= 15" for act - Will need balancing / playtesting
-$kiosksig = {
-	cls
-	gs 'stat'
-	'<center><img src="images/community/kiosk.jpg"></center>'
-	'A pack of cigarettes costs 50 <b>₽</b>.'
-	*pl
-
-	if money >= 50:
-		if hour >= 12 and hour <= 15:
-			'<center><img src="images/community/queue.jpg"></center>'
-			'There''s a long line in front of the kiosk.'
-
-			act 'Wait in line and buy cigarettes (30 Minutes)':
-				minut += 30
-				siga += 20
-				money -= 50
-				gt $curloc
-
-				act 'Leave':gt $curloc
-			end
-
-			if exhibi >= 4:
-				act 'Flash both your tits and your pussy':
-					cls
-					gs 'stat'
-					minut += 10
-					siga += 20
-					money -= 50
-
-					if kioskflash = 0:
-						exhibi += 1
-						kioskflash = 1
-					end
-					'<center><img src="images/community/flash_tits_pus.jpg"></center>'
-					'The people in front of you are shocked, as they see you flashing your tits and your pussy. As a small thank you, some of them let you move further up in the line.'
-
-					act 'Buy and leave':gt $curloc
-				end
-			end
-
-			if exhibi >= 3:
-				act 'Flash your pussy':
-					cls
-					gs 'stat'
-					minut += 10
-					siga += 20
-					money -= 50
-
-					if kioskflash = 0:
-						exhibi += 1
-						kioskflash = 1
-					end
-
-					if lobok >= 2:'<center><img src="images/community/flash_hairy.jpg"></center>'
-					if lobok <= 2:'<center><img src="images/community/flash_nohairy.jpg"></center>'
-
-					'The people in front of you are shocked, as they see you flashing your pussy. As a small thank you, some of them let you move further up in the line.'
-
-					act 'Buy and leave':gt $curloc
-				end
-			end
-
-			if exhibi >= 2:
-				act 'Flash your tits':
-					cls
-					gs 'stat'
-					minut += 10
-					siga += 20
-					money -= 50
-
-					if kioskflash = 0:
-						exhibi += 1
-						kioskflash = 1
-					end
-
-					'<center><img src="images/community/flash_tits.jpg"></center>'
-					'The people in front of you are shocked, as they see you flashing your tits. As a small thank you, some of them let you move further up in the line.'
-
-					act 'Buy and leave':gt $curloc
-				end
-			end
-
-			if SUB >= 15:
-				act 'Suggest to blow someone in front of you':
-					cls
-					gs 'stat'
-					minut += 10
-					siga += 20
-					money -= 50
-					throat += 1
-					bj += 1
-					$boy = 'Stranger'
-
-					if spdirtyb = 0 and spdirtyv = 0:
-						'<center><img src="images/community/kiosk_blowjob.jpg"></center>'
-						'A man agrees to your suggestion and let you move in front of him.'
-
-						act 'Cum on your face':
-							cls
-							'<center><img src="images/body/cumface.jpg"></center>'
-							'The man cums on your face.'
-							spafinloc = 11
-							gs 'cum_manage'
-
-							act 'Go away and buy cigarettes':gt $curloc
-						end
-
-						act 'Cum on your mouth':
-							cls
-							'<center><img src="images/etogame/cumlip.jpg"></center>'
-							'The man cums inside your mouth.'
-							spafinloc = 12
-							gs 'cum_manage'
-
-							act 'Go away and buy cigarettes':gt $curloc
-						end
-					else
-						!!Przemar:IMAGE NEEDED
-						$ImageNeededPlacholder
-						!! '<center><img src="images/community/Image_needed.png"></center>'
-
-						'The Man punches you and says <font color="#0D42C0"> " Go away bitch, your mouth is full of sperm "</font> - in this case you are made to wait 4 hours and pays 200 <b>₽</b>.'
-						minut += 240
-						siga += 20
-						money -= 200
-
-						act 'Leave':gt $curloc
-					end
-				end
-			end
-		else
-			act 'Buy a pack of cigarettes':
-				siga += 20
-				money -= 50
-				minut += 5
-				gt $curloc
-			end
-		end
-	else
-		'You don''t have enough money to buy cigarettes.'
-	end
-
-	act 'Leave':gt $curloc
-
-	exit
-}
-
 $margoroomdiDush = {
 	cls
 	minut += 15

+ 1 - 2
locations/down

@@ -89,8 +89,7 @@ end
 
 gs 'taxi'
 
-
-if hour >= 8 and hour <= 22:'A kiosk is selling <a href="exec:dynamic $kiosksig">cigarettes</a>.'
+if hour >= 8 and hour <= 22:'You can see the <a href="exec:gt ''kiosk'', ''start''">kiosk</a> selling cigarettes and magazines.'
 
 if Enable_tablemap = 0:
 	if tanya > 0 and tanwork = 0 and hour >= 16 and hour <= 21 and tanday ! daystart:'<a href="exec:gt ''tanhouse''">Apartment where Tanya lives</a>'

+ 148 - 0
locations/kiosk

@@ -0,0 +1,148 @@
+# kiosk
+
+!!Przemar:IMAGE NEEDED 'Man punched you and say " Go away bitch your mouth full of sperm " at this rate you needed to wait 4 hours and paid 200 <b>₽</b>'
+!!WD:"SUB >= 15" for act - Will need balancing / playtesting
+if $ARGS[0] = 'start':
+	$kioskloc = ''
+	if hour >= 12 and hour <= 15:
+		cls
+		gs 'stat'
+		'<center><img src="images/community/queue.jpg"></center>'
+		'It is currently very busy and looks like you''ll have to wait to get to the counter.'
+		act 'Wait in line (30 Minutes)':
+			minut += 30
+			siga += 20
+			money -= 50
+			$kioskloc = 'counter' & gt 'kiosk'
+		end
+
+		act 'Leave':gt $locM
+
+		if exhibi >= 4:
+			act 'Flash both your tits and your pussy':
+				cls
+				gs 'stat'
+				minut += 10
+
+				if kioskflash = 0:
+					exhibi += 1
+					kioskflash = 1
+				end
+				'<center><img src="images/community/flash_tits_pus.jpg"></center>'
+				'The people in front of you are shocked, as they see you flashing your tits and your pussy. As a small thank you, some of them let you move further up in the line.'
+
+				act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
+			end
+		end
+
+		if exhibi >= 3:
+			act 'Flash your pussy':
+				cls
+				gs 'stat'
+				minut += 10
+
+				if kioskflash = 0:
+					exhibi += 1
+					kioskflash = 1
+				end
+
+				if lobok >= 2:'<center><img src="images/community/flash_hairy.jpg"></center>'
+				if lobok <= 2:'<center><img src="images/community/flash_nohairy.jpg"></center>'
+
+				'The people in front of you are shocked, as they see you flashing your pussy. As a small thank you, some of them let you move further up in the line.'
+
+				act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
+			end
+		end
+
+		if exhibi >= 2:
+			act 'Flash your tits':
+				cls
+				gs 'stat'
+				minut += 10
+
+				if kioskflash = 0:
+					exhibi += 1
+					kioskflash = 1
+				end
+
+				'<center><img src="images/community/flash_tits.jpg"></center>'
+				'The people in front of you are shocked, as they see you flashing your tits. As a small thank you, some of them let you move further up in the line.'
+
+				act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
+			end
+		end
+
+		if SUB >= 15:
+			act 'Suggest a blowjob in exchange for jumping the queue':
+				cls
+				gs 'stat'
+				minut += 10
+				throat += 1
+				bj += 1
+				$boy = 'Stranger'
+
+				if spdirtyb = 0 and spdirtyv = 0:
+					'<center><img src="images/community/kiosk_blowjob.jpg"></center>'
+					'A man agrees to your suggestion and lets you move in front of him.'
+
+					act 'Cum on your face':
+						cls
+						'<center><img src="images/body/cumface.jpg"></center>'
+						'The man cums on your face.'
+						spafinloc = 11
+						gs 'cum_manage'
+
+						act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
+					end
+
+					act 'Cum on your mouth':
+						cls
+						'<center><img src="images/etogame/cumlip.jpg"></center>'
+						'The man cums inside your mouth.'
+						spafinloc = 12
+						gs 'cum_manage'
+
+						act 'Go to the counter':$kioskloc = 'counter' & gt 'kiosk'
+					end
+				else
+					!!Przemar:IMAGE NEEDED
+					$ImageNeededPlacholder
+					!! '<center><img src="images/community/Image_needed.png"></center>'
+
+					'The Man punches you in the gut and says, <font color="#0D42C0">"Go away bitch, your mouth is full of sperm."</font> You stagger away from the kiosk and spend 2 hours curled up in a ball.'
+					minut += 120
+					gs 'pain', 4, 'tummy', 'hit'
+
+					act 'Recover':gt $locM
+				end
+			end
+		end
+	else
+		$kioskloc = 'counter' & gt 'kiosk'
+	end
+end
+
+if $kioskloc = 'counter':
+	cls
+	gs 'stat'
+	
+	'<center><img src="images/community/kiosk.jpg"></center>'
+	
+	*pl '<center><table align="center">' + _
+	FUNC ('$stock_item', 20, 'Cigarettes', 50, 'siga', 'kiosk') + _
+	FUNC ('$single_stock_item', 1, 'Fashion magazine', 50, 'fashmag', 'kiosk') + _
+	FUNC ('$single_stock_item', 1, 'Computer magazine', 50, 'compmag', 'kiosk') + _
+	FUNC ('$single_stock_item', 1, 'Biographical magazine', 50, 'biomag', 'kiosk') + _
+	FUNC ('$single_stock_item', 1, 'Cooking magazine', 50, 'cookmag', 'kiosk') + _
+	FUNC ('$single_stock_item', 1, 'Knitting magazine', 50, 'knitmag', 'kiosk') + _
+	FUNC ('$single_stock_item', 1, 'Fitness magazine', 50, 'fitmag', 'kiosk') + _
+	'</table></center>'
+	*pl
+
+	act 'Leave':minut += 5 & gt $locM
+
+end
+
+--- kiosk ---------------------------------
+

+ 0 - 1
locations/pavCommercial

@@ -81,7 +81,6 @@ end
 
 if hour >= 8 and hour <= 17:'The local <a href="exec: minut += 3 & gt ''barbershop'', ''start''">barbershop</a> is within walking distance, merely a few minutes away.'
 if hour >= 7 and hour <= 18:'Pavlovsk has a <a href="exec:gt ''etoexhib'', ''pos20''">vocational school</a>, where young adults can learn a trade.'
-if hour >= 8 and hour <= 22:'Right outside your apartment, a <a href="exec:dynamic $kiosksig">kiosk</a> sells cigarettes and magazines.'
 if hour >= 8 and hour <= 20:'There is a big chain <a href="exec:gt ''shop'', ''start''">supermarket</a> nearby.'
 if week < 6 and hour >= 9 and hour <= 18:'You can see the most important <a href="exec:bankloc = 0 & gt ''bank'', ''start''">Bank</a> in the city from here.'
 

+ 2 - 0
locations/pavResidential

@@ -109,6 +109,8 @@ if rexCar = 1 and rexCarDay = daystart and hour = 21 and rexSisTalk = 4:
 	act 'Join Rex in his car':gt'reks','avto2'
 end
 
+if hour >= 8 and hour <= 22:'You can see the <a href="exec:gt ''kiosk'', ''start''">kiosk</a> selling cigarettes and magazines.'
+
 if SchoolBlock = 0:
 	$schoolname = ' and the local <a href="exec:gt ''gschool'', ''start''">school</a>.'
 else

+ 1 - 1
locations/street

@@ -85,7 +85,7 @@ end
 
 gs 'taxi'
 
-if hour >= 8 and hour <= 22:'The kiosk selling <a href="exec:dynamic $kiosksig">cigarettes</a>'
+if hour >= 8 and hour <= 22:'You can see the <a href="exec:gt ''kiosk'', ''start''">kiosk</a> selling cigarettes and magazines.'
 if Enable_tablemap = 0:
 	if katkey = 1:'<a href="exec:gt ''katspalnya'', ''start''">Katies</a> apartment'
 	if IrinaQW >= 1:'<a href="exec:gt ''IrinaRoom'', ''start''">Irenes</a> apartment is not far away from yours.'