krol.qsrc 596 B

12345678910111213141516171819202122232425262728293031
  1. # krol
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. *clr
  6. minut += 5
  7. gs 'stat'
  8. if night_mode = 1:
  9. fcolor = rgb(255, 255, 255)
  10. bcolor = rgb(0, 0, 0)
  11. lcolor = rgb(106, 90, 205)
  12. else
  13. fcolor = rgb(0, 0, 0)
  14. bcolor = rgb(255, 255, 255)
  15. lcolor = rgb(106, 90, 205)
  16. end
  17. '<center><img <<$set_imgh>> src="images/beast/zoo/1791_640.jpg"></center>'
  18. '<center><<$namekrol>> rests.</center>'
  19. act 'Leave':dynamic $brodila
  20. act 'Make a delicious rabbit pie and sell it to the local cafe':
  21. krolik = 0
  22. minut += 60
  23. money += 200
  24. dynamic $brodila
  25. end
  26. end
  27. --- krol ---------------------------------