popu 400 B

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