lager 903 B

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647
  1. # lager
  2. $metka = $ARGS[0]
  3. $loc = $CURLOC
  4. $metkaM = $ARGS[0]
  5. $locM = $CURLOC
  6. $metkaStreet = $ARGS[0]
  7. $locStreet = $CURLOC
  8. cla
  9. *clr
  10. alkoblock = 0
  11. boynumBlock = 0
  12. music_on = 0
  13. '<center><H4>Pionerlager</H4></center>'
  14. '<center><img src="images/qwest/lager/lager.jpg"></center>'
  15. if hour=8:
  16. 'Now the camp ruler and all lined up at the site until the counsellor checks everything is in place.'
  17. act'On the line':
  18. cls
  19. minut+=60
  20. gs'stat'
  21. minut=0
  22. 'You, too, have risen along with all, Squad leader is checked. Finally, the test is over.'
  23. act'Move away':gt $curloc
  24. end
  25. end
  26. if hour=9:
  27. 'Now the camp began Breakfast.'
  28. act'Go for breakfast':
  29. minut += 30
  30. gs 'food', 'm_meal'
  31. end
  32. end
  33. if hour=10:
  34. 'Under the guidance counselor squad went to the river to bathe and sunbathe.'
  35. act'Go to the river':
  36. cls
  37. gs'stat'
  38. act'Escape':gt $curloc
  39. end
  40. end
  41. --- lager ---------------------------------