zoomagazine 2.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102
  1. # zoomagazine
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. if night_mode = 1:
  9. fcolor = rgb(255, 255, 255)
  10. bcolor = rgb(0, 0, 0)
  11. lcolor = rgb(106, 90, 205)
  12. else
  13. fcolor = rgb(0, 0, 0)
  14. bcolor = rgb(255, 255, 255)
  15. lcolor = rgb(106, 90, 205)
  16. end
  17. '<center><b><font color="maroon">Pet Shop</font></b></center>'
  18. '<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"</center>'
  19. 'Dog - 3000 <b>₽</b>'
  20. 'Rabbit - 2000 <b>₽</b>'
  21. 'Parrot - 3000 <b>₽</b>'
  22. if money >= 3000 and sobaka = 0:
  23. act 'Buy a dog (3000 <b>₽</b>)':
  24. cla
  25. *clr
  26. '<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"></center>'
  27. act 'Hello, I would like to get a dog':
  28. cla
  29. *clr
  30. '<center><img <<$set_imgh>> src="images/beast/zoo/695_small.jpg"></center>'
  31. '<center><b>Sorry, but we only have male dogs.</center></b>'
  32. act 'Buy a dog':
  33. cla
  34. *clr
  35. minut += 10
  36. sobaka += 1
  37. money -= 3000
  38. '<center><img <<$set_imgh>> src="images/beast/zoo/dog1.jpg" width = 600 height = 500 ></center>'
  39. '<center><b>You bought a Dalmatian dog.</center></b>'
  40. $namesob = input ('I''ll call the dog ...')
  41. if $namesob = '':$namesob = 'Spot'
  42. gs 'npcgeneratec', 0, $namesob, rand(1,4)
  43. gs 'npcpreservec', $npclastgenerated
  44. $petID = $npclastsaved
  45. $npc_firstname[$npclastsaved] = $namesob
  46. $npc_nickname[$npclastsaved] = $namesob
  47. $npc_lastname[$npclastsaved] = $namesob
  48. $npc_usedname[$npclastsaved] = $namesob
  49. $npc_notes[$npclastsaved] = 'Your dog you purchased from the pet shop.'
  50. npc_spermpot[$npclastsaved] = -1
  51. $npc_thdick[$npclastsaved] = 'knotted'
  52. npc_dick[$npclastsaved] = 7
  53. npc_sexskill[$npclastsaved] = 0
  54. act 'Move away from the counter':gt 'zoomagazine', 'start'
  55. end
  56. act 'Leave':gt 'zoomagazine', 'start'
  57. end
  58. end
  59. end
  60. if money >= 2000 and krolik = 0:
  61. act 'Buy a rabbit (2000 <b>₽</b>)':
  62. cla
  63. *clr
  64. minut += 10
  65. krolik += 1
  66. money -= 2000
  67. '<center><img <<$set_imgh>> src="images/beast/zoo/x_2b1d398b.jpg"></center>'
  68. '<center><b>You bought a rabbit.</center></b>'
  69. $namekrol = input ("I call rabbit ...")
  70. if $namekrol = '':$namekrol = 'Bugs'
  71. act 'Move away from the counter':gt 'zoomagazine', 'start'
  72. end
  73. end
  74. if money >= 3000 and popugai = 0:
  75. act 'Buy a parrot (3000 <b>₽</b>)':
  76. cla
  77. *clr
  78. minut += 10
  79. popugai += 1
  80. money -= 3000
  81. '<center><img <<$set_imgh>> src="images/beast/zoo/parrot1.jpg"></center>'
  82. '<center><b>You bought a parrot.</center></b>'
  83. $namepopu = input ("I call parrot ...")
  84. if $namepopu = '':$namepopu = 'Polly'
  85. act 'Move away from the counter':gt 'zoomagazine', 'start'
  86. end
  87. end
  88. act 'Leave':gt 'torgcentr'
  89. end
  90. --- zoomagazine ---------------------------------