popu.qsrc 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. # popu
  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><img <<$set_imgh>> src="images/beast/zoo/parrot2.jpg"></center>'
  18. '<center><<$namepopu>> sitting in his cell.</center>'
  19. act 'Leave':dynamic $brodila
  20. act 'Release window':
  21. popugai = 0
  22. minut += 10
  23. dynamic $brodila
  24. end
  25. end
  26. if $ARGS[0] = 'start2':
  27. cla
  28. *clr
  29. clr
  30. minut += 5
  31. gs 'stat'
  32. if night_mode = 1:
  33. fcolor = rgb(255, 255, 255)
  34. bcolor = rgb(0, 0, 0)
  35. lcolor = rgb(106, 90, 205)
  36. else
  37. fcolor = rgb(0, 0, 0)
  38. bcolor = rgb(255, 255, 255)
  39. lcolor = rgb(106, 90, 205)
  40. end
  41. '<center><img <<$set_imgh>> src="images/beast/zoo/parrot2.jpg"></center>'
  42. '<center><<$namepopu2>> sitting in his cell.</center>'
  43. act 'Leave':gt $loc, $metka
  44. act 'Release window':
  45. if daystart - parbuydate > 30:
  46. 'You have become too attached to <<$namepopu2>>. You can''t bring yourself to release him'
  47. else
  48. 'You say goodbye to <<$namepopu2>> and release him'
  49. popugai2 = 0
  50. minut += 10
  51. end
  52. end
  53. end
  54. --- popu ---------------------------------