lager 896 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  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. if hour=10:
  33. 'Under the guidance counselor squad went to the river to bathe and sunbathe.'
  34. act'Go to the river':
  35. cls
  36. gs'stat'
  37. act'Escape':gt $curloc
  38. end
  39. end
  40. --- lager ---------------------------------