zoomagazine 2.1 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485
  1. # zoomagazine
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. fcolor = rgb(0, 0, 0)
  9. bcolor = rgb(255, 255, 255)
  10. lcolor = rgb(106, 90, 205)
  11. '<center><b><font color="maroon">Pet Shop</font></b></center>'
  12. '<center><img src="images/zoo/1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
  13. 'Dog - 3000 <b>₽</b>'
  14. 'Rabbit - 2000 <b>₽</b>'
  15. 'Parrot - 3000 <b>₽</b>'
  16. if money >= 3000 and sobaka = 0:
  17. act 'Buy a dog (3000 <b>₽</b>)':
  18. cla
  19. *clr
  20. '<center><img src="images/zoo/1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
  21. act 'Hello, I would like to get a dog':
  22. cla
  23. *clr
  24. '<center><img src="images/zoo/1277894267_dsc_0544.jpg" width = 650 height = 450 ></center>'
  25. '<center><b>Sorry, but we only have male dogs.</center></b>'
  26. act 'Buy a dog':
  27. cla
  28. *clr
  29. minut += 10
  30. sobaka += 1
  31. money -= 3000
  32. '<center><img src="images/zoo/dog1.jpg" width = 600 height = 500 ></center>'
  33. '<center><b>You bought a Dalmatian dog.</center></b>'
  34. $namesob = input ('I''ll call the dog ...')
  35. if $namesob = '':$namesob = 'Spot'
  36. act 'Move away from the counter':gt 'zoomagazine', 'start'
  37. end
  38. act 'Leave':gt 'zoomagazine', 'start'
  39. end
  40. end
  41. end
  42. if money >= 2000 and krolik = 0:
  43. act 'Buy a rabbit (2000 <b>₽</b>)':
  44. cla
  45. *clr
  46. minut += 10
  47. krolik += 1
  48. money -= 2000
  49. '<center><img src="images/zoo/x_2b1d398b.jpg"></center>'
  50. '<center><b>You bought a rabbit.</center></b>'
  51. $namekrol = input ("I call rabbit ...")
  52. if $namekrol = '':$namekrol = 'Bugs'
  53. act 'Move away from the counter':gt 'zoomagazine', 'start'
  54. end
  55. end
  56. if money >= 3000 and popugai = 0:
  57. act 'Buy a parrot (3000 <b>₽</b>)':
  58. cla
  59. *clr
  60. minut += 10
  61. popugai += 1
  62. money -= 3000
  63. '<center><img src="images/zoo/parrot1.jpg"></center>'
  64. '<center><b>You bought a parrot.</center></b>'
  65. $namepopu = input ("I call parrot ...")
  66. if $namepopu = '':$namepopu = 'Polly'
  67. act 'Move away from the counter':gt 'zoomagazine', 'start'
  68. end
  69. end
  70. act 'Leave':gt 'torgcentr'
  71. end
  72. --- zoomagazine ---------------------------------