popu.qsrc 930 B

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