krol.qsrc 706 B

1234567891011121314151617181920212223242526272829303132333435
  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. elseif night_mode = 2:
  13. fcolor = rgb(255, 255, 255)
  14. bcolor = rgb(20, 20, 20)
  15. lcolor = rgb(106, 90, 205)
  16. else
  17. fcolor = rgb(0, 0, 0)
  18. bcolor = rgb(255, 255, 255)
  19. lcolor = rgb(106, 90, 205)
  20. end
  21. '<center><img <<$set_imgh>> src="images/beast/zoo/1791_640.jpg"></center>'
  22. '<center><<$namekrol>> rests.</center>'
  23. act 'Leave':dynamic $brodila
  24. act 'Make a delicious rabbit pie and sell it to the local cafe':
  25. krolik = 0
  26. minut += 60
  27. money += 200
  28. dynamic $brodila
  29. end
  30. end
  31. --- krol ---------------------------------