310_popu 821 B

123456789101112131415161718192021222324252627282930313233343536373839404142434445
  1. # popu
  2. <<<<<<< 310_popu
  3. if $ARGS[0] = 'start':
  4. =======
  5. if $ARGS[0]='start':
  6. >>>>>>> 310_popu
  7. cla
  8. *clr
  9. <<<<<<< 310_popu
  10. set minut += 5
  11. '<center><img src="images\zoo\parrot2.jpg"></center>'
  12. '<center><<$namepopu>> sitting in his cell.</center>'
  13. clr
  14. gs 'stat'
  15. fcolor = rgb(0,0,0)
  16. bcolor = rgb(255,255,255)
  17. =======
  18. set minut = minut + 5
  19. '<center><img src="zoo/1a640f07cc5c.jpg" ></center>'
  20. '<center><<$namepopu>> sits in his cage.</center>'
  21. clr
  22. gs'stat'
  23. fcolor=rgb(0,0,0)
  24. bcolor=rgb(255,255,255)
  25. >>>>>>> 310_popu
  26. LCOLOR = rgb(106,90,205)
  27. <<<<<<< 310_popu
  28. act 'Leave': gt 'korr'
  29. act 'Release window':
  30. set popugai = 0
  31. set minut += 10
  32. gt 'korr'
  33. end
  34. =======
  35. act 'Get_Away':gt'korr'
  36. act 'To release the window':
  37. set popugai=0
  38. set minut+=10
  39. gt'korr'
  40. end
  41. >>>>>>> 310_popu
  42. end
  43. --- popu ---------------------------------