popu.qsrc 887 B

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