popu.qsrc 1011 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/parrot_home.jpg"></center>'
  9. '<center><<$ParrotQW[''Name1'']>> sitting in his cage.</center>'
  10. act 'Leave':dynamic $brodila
  11. act 'Open a window and release your parrot':
  12. ParrotQW['Owned1'] = 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/parrot_home.jpg"></center>'
  23. '<center><<$ParrotQW[''Name2'']>> sitting in his cage.</center>'
  24. act 'Leave':gt $loc, $loc_arg
  25. act 'Open a window and release your parrot':
  26. if daystart - ParrotQW['BuyDate'] > 30:
  27. 'You have become too attached to <<$ParrotQW[''Name2'']>>. You can''t bring yourself to release him'
  28. else
  29. 'You say goodbye to <<$ParrotQW[''Name2'']>> and release him'
  30. ParrotQW['Owned2'] = 0
  31. minut += 10
  32. end
  33. end
  34. end
  35. --- popu ---------------------------------