229_popu 391 B

12345678910111213141516171819202122
  1. # popu
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. set minut += 5
  6. '<center><img src="images\zoo\parrot2.jpg"></center>'
  7. '<center><<$namepopu>> sitting in his cell.</center>'
  8. clr
  9. gs 'stat'
  10. fcolor = rgb(0,0,0)
  11. bcolor = rgb(255,255,255)
  12. LCOLOR = rgb(106,90,205)
  13. act 'Leave': gt 'korr'
  14. act 'Release window':
  15. set popugai = 0
  16. set minut += 10
  17. gt 'korr'
  18. end
  19. end
  20. --- popu ---------------------------------