|
@@ -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 ---------------------------------
|
|
|
-
|