krol 428 B

123456789101112131415161718192021222324
  1. # krol
  2. if $ARGS[0] = 'start':
  3. cla
  4. *clr
  5. set minut += 5
  6. '<center><img src="images/zoo/1791_640.jpg"></center>'
  7. '<center><<$namekrol>> rests.</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 'Grant on skewers for meat':
  15. set krolik = 0
  16. set minut += 60
  17. set money += 200
  18. gt 'korr'
  19. end
  20. end
  21. --- krol ---------------------------------