popu.qsrc 902 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748
  1. # popu
  2. menu_off = 1
  3. if $ARGS[0] = 'start':
  4. cla
  5. *clr
  6. clr
  7. minut += 5
  8. gs 'stat'
  9. gs 'themes', 'indoors'
  10. '<center><img <<$set_imgh>> src="images/beast/zoo/parrot2.jpg"></center>'
  11. '<center><<$namepopu>> sitting in his cell.</center>'
  12. act 'Leave':dynamic $brodila
  13. act 'Release window':
  14. popugai = 0
  15. minut += 10
  16. dynamic $brodila
  17. end
  18. end
  19. if $ARGS[0] = 'start2':
  20. cla
  21. *clr
  22. clr
  23. minut += 5
  24. gs 'stat'
  25. gs 'themes', 'indoors'
  26. '<center><img <<$set_imgh>> src="images/beast/zoo/parrot2.jpg"></center>'
  27. '<center><<$namepopu2>> sitting in his cell.</center>'
  28. act 'Leave':gt $loc, $metka
  29. act 'Release window':
  30. if daystart - parbuydate > 30:
  31. 'You have become too attached to <<$namepopu2>>. You can''t bring yourself to release him'
  32. else
  33. 'You say goodbye to <<$namepopu2>> and release him'
  34. popugai2 = 0
  35. minut += 10
  36. end
  37. end
  38. end
  39. --- popu ---------------------------------