1
0

gadmarket 1.7 KB

1234567891011121314151617181920212223242526272829303132333435363738394041
  1. # gadmarket
  2. $location_type = 'public_indoors'
  3. $CURLOC = 'gadmarket'
  4. cls
  5. frost = 0
  6. set minut += 5
  7. *pl '<center><h1><font color="maroon">Village Shop</font></h1></center>'
  8. *pl '<center><img src="images/locations/gadukino/village/market.jpg"></center>'
  9. 'You walk into the small shop with four narrow aisles with chest high shelves crammed full of food and other household goods. There is little variety in the selections, just the essentials.'
  10. 'Slowly you browse the aisles looking for something to buy.'
  11. *nl
  12. 'Next to the clerk is a rack full of magazines, cigarettes, and a few hygienic items.'
  13. *nl
  14. *pl '<center><table align="center">' + _
  15. FUNC ('$stock_item', 10, 'Package of Cookies', 300, 'pranik', 'gadmarket') + _
  16. FUNC ('$stock_item', 20, 'Cigarettes', 50, 'siga', 'gadmarket') + _
  17. FUNC ('$single_stock_item', 1, 'Fashion magazine', 50, 'fashmag', 'gadmarket') + _
  18. FUNC ('$single_stock_item', 1, 'Computer magazine', 50, 'compmag', 'gadmarket') + _
  19. FUNC ('$single_stock_item', 1, 'Biographical magazine', 50, 'biomag', 'gadmarket') + _
  20. FUNC ('$single_stock_item', 1, 'Cooking magazine', 50, 'cookmag', 'gadmarket') + _
  21. FUNC ('$single_stock_item', 1, 'Knitting magazine', 50, 'knitmag', 'gadmarket') + _
  22. FUNC ('$stock_item', 5, 'condoms', 100, 'prezik', 'gadmarket') + _
  23. FUNC ('$stock_item', 20, 'Tampons', 200, 'tampon', 'gadmarket') + _
  24. FUNC ('$stock_item', 1, 'Underwear', 300, 'clrbelo', 'gadmarket') + _
  25. FUNC ('$single_stock_item', 1, 'Sandwich', 200, 'buterbrod', 'gadmarket') + _
  26. FUNC ('$single_stock_item', 1, 'Bottle of wine', 200, 'wine', 'gadmarket') + _
  27. '</table></center>'
  28. *pl
  29. clr
  30. gs 'stat'
  31. act 'Leave the market': gt $loc
  32. --- gadmarket ---------------------------------