Bladeren bron

moved aptek to pharmacy

morgolon 10 jaren geleden
bovenliggende
commit
76f62f9521
4 gewijzigde bestanden met toevoegingen van 159 en 315 verwijderingen
  1. 1 2
      glife.qproj
  2. BIN
      glife.txt
  3. 0 221
      locations/aptek
  4. 158 92
      locations/pharmacy

+ 1 - 2
glife.qproj

@@ -100,7 +100,6 @@
       <Location name="park"/>
       <Location name="parkdin"/>
       <Location name="parkivent"/>
-      <Location name="pharmacy"/>
       <Location name="poli"/>
       <Location name="rinok"/>
       <Location name="rinwork"/>
@@ -579,7 +578,7 @@
     <Location name="portmirror"/>
     <Location name="init_music"/>
     <Location name="dinSex2"/>
-    <Location name="aptek"/>
+    <Location name="pharmacy"/>
     <Location name="seeparentsex"/>
     <Location name="sistersleep"/>
     <Location name="sistersobir"/>

BIN
glife.txt


+ 0 - 221
locations/aptek

@@ -1,221 +0,0 @@
-# aptek
-!!!0.2.6 addition: Optimized flow of the code, updated descriptions - now lists everything the drugstore has to sell
-$regular_items = {
-	if money >= 200:
-		act 'Buy a pregnancy test (200 rubles)':
-			cla
-			*clr
-			set money -= 200
-			pregtest += 2
-			'<center><img src="images/pic/kassa.jpg"></center>'
-			'You bought a test and get paid in cash.'
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-	end
-
-	if money >= 500:
-		act 'Buy birth control pills (500 rubles)':
-			portion = input ("How many packages you want to buy?")
-
-			if portion * 500 > money:'You do not have enough money.'
-
-			if portion * 500 <= money:
-				set tabletki += portion * 28
-				set money -= portion * 500
-				'<center><img src="images/pic/kassa.jpg"></center>'
-				'You bought the pills and paid the money to the cashier.'
-			end
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-
-		if klisma = 0:
-			act 'Buy enema (500 rubles)':
-				cla
-				*clr
-				set klisma = 1
-				set money -= 500
-				'<center><img src="images/pic/kassa.jpg"></center>'
-				'You bought an enema and paid the money to the cashier.'
-
-				act 'Move away from the counter':gt 'aptek', 'start'
-			end
-		end
-
-		act 'Buy <b>medicine</b> (500 rubles) <<iif(lekarstvo > 0, ''[left:<b>'' + lekarstvo + ''</b>]'', '''')>>':
-			cla
-			*clr
-			portion = input ("How many packages you want to buy?")
-
-			if portion * 500 <= money:
-				set lekarstvo += portion * 10
-				set money -= portion * 500
-				'<center><img src="images/pic/kassa.jpg"></center>'
-				'You bought drugs and paid the money to the cashier.'
-			else
-				'You do not have enough money.'
-			end
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		 end
-
-		act 'Buy <b>vitamins</b> (500 rubles) <<iif(vitamin > 0, ''[left:<b>'' + vitamin + ''</b>]'', '''')>>':
-			cla
-			*clr
-			portion = input ("How many packages you want to buy?")
-
-			if portion * 500 <= money:
-				set vitamin += portion * 20
-				set money -= portion * 500
-				'<center><img src="images/etogame/kassa.jpg"></center>'
-				'You bought vitamins and paid the money to the cashier.'
-			else
-				'You do not have enough money.'
-			end
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-	end
-
-	if money >= 600:
-		act 'Buy <b>ointment for corns</b> (600 rubles) <<iif(mosolmaz > 0, ''[left:<b>'' + mosolmaz + ''</b>]'', '''')>>':
-			cla
-			*clr
-			set money -= 600
-			mosolmaz += 10
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought tablets and paid the money to the cashier.'
-
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		 end
-	end
-
-	if money >= 1000:
-		act 'Buy <b>moisturizing lip balm</b> (1,000 rubles) <<iif(lipbalm > 0, ''[left:<b>'' + lipbalm + ''</b>]'', '''')>>':
-			cla
-			*clr
-			set lipbalm += 25
-			set money -= 1000
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought some lip balm and paid the money to the cashier.'
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-	end
-
-	if money >= 1500:
-		act '<b>Buy fat burners</b> (1,500 rubles) <<iif(fatdel > 0, ''[left:<b>'' + fatdel + ''</b>]'', '''')>>':
-			cla
-			*clr
-			set fatdel += 1
-			set money -= 1500
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought a fat burning capsule and paid the money to the cashier.'
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		 end
-
-		if KandidNapr = 1:
-			act 'Buy cure pills for yeast infection (1,500 rubles)':
-				cla
-				*clr
-				set money -= 1500
-				Kandidoz = 0
-				'<center><img src="images/pic/kassa.jpg"></center>'
-				'You bought tablets and paid the money to the cashier.'
-				'Immediately about cash you drink tablet.'
-
-				act 'Move away from the counter':gt 'aptek', 'start'
-			end
-		end
-	end
-}
-
-if $ARGS[0] = 'start':
-	cla
-	*clr
-	set minut += 5
-	'<center><b><font color="maroon">Pharmacy</font></b></center>'
-	*nl
-	'<center><img src="images/community/pharmacy.jpg"></center>'
-	'Condoms - 100 rubles' & nl
-	'Pregnancy test - 200 rubles' & nl
-	'Birth control pills - 500 rubles' & nl
-	'Enema - 500 rubles' & nl
-	'Medicine - 500 rubles' & nl
-	'Vitamins - 500 rubles' & nl
-	'Ointment from corns - 600 rubles' & nl
-	'Moisturizing Lip Balm 1,000 rubles' & nl
-	'Fat burners - 1,500 rubles' & nl
-	'Cure pills for yeast infection - 1,500 rubles'
-	clr
-	gs 'stat'
-	gs 'time'
-
-	if money >= 100:
-		act 'Buy <b>condoms</b> (100 rubles) <<iif(prezik > 0, ''[left:<b>'' + prezik + ''</b>]'', '''')>>':
-			portion = input ("How many packages you want to buy?")
-
-			if portion * 100 <= money:
-				set prezik += portion * 5
-				set money -= portion * 100
-				'<center><img src="images/etogame/kassa.jpg"></center>'
-				'You bought condoms and paid the money to the cashier.'
-			else
-				'You do not have enough money.'
-			end
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-	end
-
-	if money >= 200:
-		act 'Buy a <b>pregnancy test</b> (200 rubles) <<iif(pregtest > 0, ''[left:<b>'' + pregtest + ''</b>]'', '''')>>':
-			cla
-			*clr
-			set money -= 200
-			pregtest += 2
-			'<center><img src="images/pic/kassa.jpg"></center>'
-			'You bought two pregnancy tests and paid the money to the cashier.'
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-	end
-
-	if money >= 500:
-		act 'Buy birth control pills (500 rubles) <<iif(tabletki > 0, ''[left:<b>'' + tabletki + ''</b>]'', '''')>>':
-			portion = input ("How many packages you want to buy?")
-
-			if portion * 500 <= money:
-				set tabletki += portion * 28
-				set money -= portion * 500
-				'<center><img src="images/etogame/kassa.jpg"></center>'
-				'You bought the pills and paid the money to the cashier.'
-			else
-				'You do not have enough money.'
-			end
-
-			act 'Move away from the counter':gt 'aptek', 'start'
-		end
-
-		if klisma = 0:
-			act 'Buy <b>enema</b> (500 rubles)':
-				cla
-				*clr
-				set klisma = 1
-				set money -= 500
-				'<center><img src="images/etogame/kassa.jpg"></center>'
-				'You bought an enema and paid the money to the cashier.'
-
-				act 'Move away from the counter':gt 'aptek', 'start'
-			end
-		end
-	end
-
-	dynamic $regular_items
-end
-act 'Leave':gt $loc
-
---- aptek ---------------------------------

+ 158 - 92
locations/pharmacy

@@ -1,87 +1,134 @@
 # pharmacy
+!!!0.2.6 addition: Optimized flow of the code, updated descriptions - now lists everything the drugstore has to sell
 $regular_items = {
-	act 'Buy <b>fat burners</b> (1500 rubles) <<iif(fatdel>0,''[left:<b>''+fatdel+''</b>]'','''')>>':
-		if money >= 1500:
+	if money >= 200:
+		act 'Buy a pregnancy test (200 rubles)':
 			cla
 			*clr
-			set fatdel += 1
-			set money -= 1500
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought a fat burning capsule and paid the money to the cashier.'
-		else
-			'You do not have enough money.'
+			set money -= 200
+			pregtest += 2
+			'<center><img src="images/pic/kassa.jpg"></center>'
+			'You bought a test and get paid in cash.'
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
 		end
-		act 'Move away from the counter': gt 'pharmacy','start'
 	end
 
-	act 'Buy <b>medicine</b> (500 rubles) <<iif(lekarstvo>0,''[left:<b>''+lekarstvo+''</b>]'','''')>>':
-		cla
-		*clr
-		portion = input ("How many packages you want to buy?")
-		if portion*500 <= money:
-			set lekarstvo+= portion * 10
-			set money -= portion * 500
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought drugs and paid the money to the cashier.'
-		else
-			'You do not have enough money.'
+	if money >= 500:
+		act 'Buy birth control pills (500 rubles)':
+			portion = input ("How many packages you want to buy?")
+
+			if portion * 500 > money:'You do not have enough money.'
+
+			if portion * 500 <= money:
+				set tabletki += portion * 28
+				set money -= portion * 500
+				'<center><img src="images/pic/kassa.jpg"></center>'
+				'You bought the pills and paid the money to the cashier.'
+			end
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
 		end
-		act 'Move away from the counter': gt 'pharmacy','start'
-	end
 
-	act 'Buy <b>vitamins</b> (500 rubles) <<iif(vitamin>0,''[left:<b>''+vitamin+''</b>]'','''')>>':
-		cla
-		*clr
-		portion = input ("How many packages you want to buy?")
-		if portion*500 <= money:
-			set vitamin+= portion * 20
-			set money -= portion * 500
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought vitamins and paid the money to the cashier.'
-		else
-			'You do not have enough money.'
+		if klisma = 0:
+			act 'Buy enema (500 rubles)':
+				cla
+				*clr
+				set klisma = 1
+				set money -= 500
+				'<center><img src="images/pic/kassa.jpg"></center>'
+				'You bought an enema and paid the money to the cashier.'
+
+				act 'Move away from the counter':gt 'pharmacy', 'start'
+			end
 		end
-		act 'Move away from the counter': gt 'pharmacy','start'
-	end
 
-	act 'Buy <b>moisturizing lip balm</b> (1000 rubles) <<iif(lipbalm>0,''[left:<b>''+lipbalm+''</b>]'','''')>>':
-		if money >= 1000:
+		act 'Buy <b>medicine</b> (500 rubles) <<iif(lekarstvo > 0, ''[left:<b>'' + lekarstvo + ''</b>]'', '''')>>':
 			cla
 			*clr
-			set lipbalm+= 25
-			set money -= 1000
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought some lip balm and paid the money to the cashier.'
-		else
-			'You do not have enough money.'
+			portion = input ("How many packages you want to buy?")
+
+			if portion * 500 <= money:
+				set lekarstvo += portion * 10
+				set money -= portion * 500
+				'<center><img src="images/pic/kassa.jpg"></center>'
+				'You bought drugs and paid the money to the cashier.'
+			else
+				'You do not have enough money.'
+			end
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
+		 end
+
+		act 'Buy <b>vitamins</b> (500 rubles) <<iif(vitamin > 0, ''[left:<b>'' + vitamin + ''</b>]'', '''')>>':
+			cla
+			*clr
+			portion = input ("How many packages you want to buy?")
+
+			if portion * 500 <= money:
+				set vitamin += portion * 20
+				set money -= portion * 500
+				'<center><img src="images/etogame/kassa.jpg"></center>'
+				'You bought vitamins and paid the money to the cashier.'
+			else
+				'You do not have enough money.'
+			end
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
 		end
-		act 'Move away from the counter': gt 'pharmacy','start'
 	end
 
-	act 'Buy <b>ointment for corns</b> (600 rubles) <<iif(mosolmaz>0,''[left:<b>''+mosolmaz+''</b>]'','''')>>':
-		if money >= 600:
+	if money >= 600:
+		act 'Buy <b>ointment for corns</b> (600 rubles) <<iif(mosolmaz > 0, ''[left:<b>'' + mosolmaz + ''</b>]'', '''')>>':
 			cla
 			*clr
 			set money -= 600
 			mosolmaz += 10
 			'<center><img src="images/etogame/kassa.jpg"></center>'
 			'You bought tablets and paid the money to the cashier.'
-		else
-			'You do not have enough money.'
+
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
+		 end
+	end
+
+	if money >= 1000:
+		act 'Buy <b>moisturizing lip balm</b> (1,000 rubles) <<iif(lipbalm > 0, ''[left:<b>'' + lipbalm + ''</b>]'', '''')>>':
+			cla
+			*clr
+			set lipbalm += 25
+			set money -= 1000
+			'<center><img src="images/etogame/kassa.jpg"></center>'
+			'You bought some lip balm and paid the money to the cashier.'
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
 		end
-		act 'Move away from the counter': gt 'pharmacy','start'
 	end
 
-	if money >= 1500 and KandidNapr = 1:
-		act 'Buy <b>pills from yeast</b> (1500 rubles)':
+	if money >= 1500:
+		act '<b>Buy fat burners</b> (1,500 rubles) <<iif(fatdel > 0, ''[left:<b>'' + fatdel + ''</b>]'', '''')>>':
 			cla
 			*clr
+			set fatdel += 1
 			set money -= 1500
-			Kandidoz = 0
 			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought tablets and paid the money to the cashier.'
-			'Immediately about cash you drank tablet.'
-			act 'Move away from the counter': gt 'pharmacy','start'
+			'You bought a fat burning capsule and paid the money to the cashier.'
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
+		 end
+
+		if KandidNapr = 1:
+			act 'Buy cure pills for yeast infection (1,500 rubles)':
+				cla
+				*clr
+				set money -= 1500
+				Kandidoz = 0
+				'<center><img src="images/pic/kassa.jpg"></center>'
+				'You bought tablets and paid the money to the cashier.'
+				'Immediately about cash you drink tablet.'
+
+				act 'Move away from the counter':gt 'pharmacy', 'start'
+			end
 		end
 	end
 }
@@ -90,66 +137,85 @@ if $ARGS[0] = 'start':
 	cla
 	*clr
 	set minut += 5
-	'<center><B><font color = maroon>Pharmacy</font></B></center>'
+	'<center><b><font color="maroon">Pharmacy</font></b></center>'
 	*nl
 	'<center><img src="images/community/pharmacy.jpg"></center>'
-
+	'Condoms - 100 rubles' & nl
+	'Pregnancy test - 200 rubles' & nl
+	'Birth control pills - 500 rubles' & nl
+	'Enema - 500 rubles' & nl
+	'Medicine - 500 rubles' & nl
+	'Vitamins - 500 rubles' & nl
+	'Ointment from corns - 600 rubles' & nl
+	'Moisturizing Lip Balm 1,000 rubles' & nl
+	'Fat burners - 1,500 rubles' & nl
+	'Cure pills for yeast infection - 1,500 rubles'
 	clr
 	gs 'stat'
 	gs 'time'
 
-	act 'Buy <b>condoms</b> (100 rubles) <<iif(prezik>0,''[left:<b>''+prezik+''</b>]'','''')>>':
-		cla
-		*clr
-		portion = input ("How many packages you want to buy?")
-		if portion*100 <= money:
-			set prezik += portion * 5
-			set money -= portion * 100
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought condoms and paid the money to the cashier.'
-		else
-			'You do not have enough money.'
-		end
+	if money >= 100:
+		act 'Buy <b>condoms</b> (100 rubles) <<iif(prezik > 0, ''[left:<b>'' + prezik + ''</b>]'', '''')>>':
+			portion = input ("How many packages you want to buy?")
 
-		act 'Move away from the counter': gt 'pharmacy','start'
-	end
+			if portion * 100 <= money:
+				set prezik += portion * 5
+				set money -= portion * 100
+				'<center><img src="images/etogame/kassa.jpg"></center>'
+				'You bought condoms and paid the money to the cashier.'
+			else
+				'You do not have enough money.'
+			end
 
-	act 'Buy <b>birth control pills</b> (500 rubles) <<iif(tabletki>0,''[left:<b>''+tabletki+''</b>]'','''')>>':
-		cla
-		*clr
-		portion = input ("How many packages you want to buy?")
-		if portion*500 <= money:
-			set tabletki += portion * 28
-			set money -= portion * 500
-			'<center><img src="images/etogame/kassa.jpg"></center>'
-			'You bought the pill and get paid in cash.'
-		else
-			'You do not have enough money.'
+			act 'Move away from the counter':gt 'pharmacy', 'start'
 		end
+	end
+
+	if money >= 200:
+		act 'Buy a <b>pregnancy test</b> (200 rubles) <<iif(pregtest > 0, ''[left:<b>'' + pregtest + ''</b>]'', '''')>>':
+			cla
+			*clr
+			set money -= 200
+			pregtest += 2
+			'<center><img src="images/pic/kassa.jpg"></center>'
+			'You bought two pregnancy tests and paid the money to the cashier.'
 
-		act 'Move away from the counter': gt 'pharmacy','start'
+			act 'Move away from the counter':gt 'pharmacy', 'start'
+		end
 	end
 
-	if klisma = 0:
-		act 'Buy <b>enema</b> (500 rubles)':
-			if money >= 500:
+	if money >= 500:
+		act 'Buy birth control pills (500 rubles) <<iif(tabletki > 0, ''[left:<b>'' + tabletki + ''</b>]'', '''')>>':
+			portion = input ("How many packages you want to buy?")
+
+			if portion * 500 <= money:
+				set tabletki += portion * 28
+				set money -= portion * 500
+				'<center><img src="images/etogame/kassa.jpg"></center>'
+				'You bought the pills and paid the money to the cashier.'
+			else
+				'You do not have enough money.'
+			end
+
+			act 'Move away from the counter':gt 'pharmacy', 'start'
+		end
+
+		if klisma = 0:
+			act 'Buy <b>enema</b> (500 rubles)':
 				cla
 				*clr
 				set klisma = 1
 				set money -= 500
 				'<center><img src="images/etogame/kassa.jpg"></center>'
 				'You bought an enema and paid the money to the cashier.'
-			else
-				'You do not have enough money.'
+
+				act 'Move away from the counter':gt 'pharmacy', 'start'
 			end
-			act 'Move away from the counter': gt 'pharmacy','start'
 		end
 	end
 
 	dynamic $regular_items
-
 end
+act 'Leave':gt $loc
 
-act 'Quit': gt $loc
 --- pharmacy ---------------------------------
-