1
0

pharmacy 1.4 KB

12345678910111213141516171819202122232425262728293031323334
  1. # pharmacy
  2. !!!0.2.6 addition: Optimized flow of the code, updated descriptions - now lists everything the drugstore has to sell
  3. !! now lists everything the drugstore has to sell
  4. set minut += 5
  5. *pl '<center><b><font color="maroon">Pharmacy</font></b></center>'
  6. *pl '<center><img src="images/community/pharmacy.jpg"></center>'
  7. !! output for purchased item
  8. *p iif($ARGS[0] = 'start' or $ARGS[0] = '' or $ARGS[0] = 'move', '<br/>', '<center><<$ARGS[0]>></center>')
  9. *pl '<center><table align="center">' + _
  10. FUNC ('$stock_item', 5, 'condoms', 100, 'prezik', $CURLOC) + _
  11. FUNC ('$stock_item', 1, 'pregnancy test', 200, 'pregtest', $CURLOC) + _
  12. FUNC ('$stock_item', 28, 'birth control pills', 500, 'tabletki', $CURLOC) + _
  13. FUNC ('$single_stock_item', 1, 'enema kit', 500, 'klisma', $CURLOC) + _
  14. FUNC ('$stock_item', 10, 'antibiotics', 500, 'lekarstvo', $CURLOC) + _
  15. FUNC ('$stock_item', 20, 'vitamin drinks', 500, 'vitamin', $CURLOC) + _
  16. FUNC ('$stock_item', 10, 'ointments for chafing', 600, 'mosolmaz', $CURLOC) + _
  17. FUNC ('$stock_item', 25, 'lip balm', 100, 'lipbalm', $CURLOC) + _
  18. FUNC ('$stock_item', 1, 'weight loss pill', 2000, 'fatdel', $CURLOC) + _
  19. FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', $CURLOC) + _
  20. FUNC ('$stock_item', 20, 'Sanitary napkins', 200, 'sanpad', $CURLOC) + _
  21. '</table></center>'
  22. !!gs '$stock_item', 1, 'antifungal pills', 600, 'mosolmaz', $CURLOC
  23. *nl
  24. clr
  25. gs 'stat'
  26. gs 'outdoors'
  27. act 'Leave': gt $loc
  28. --- pharmacy ---------------------------------