farmhomeride 779 B

12345678910111213141516171819202122232425262728
  1. # farmhomeride
  2. onceridePerDay=daystart
  3. indorf = 0
  4. if month = 6 or month = 7 or month = 8:
  5. 'Mom asks you "Well, <<$pcs_nickname>>, do you want to come home with us or spend summer in the village?"'
  6. act'Go home with your parents':
  7. cls
  8. if hour < 20: hour = 20 & minut = 0
  9. gs'stat'
  10. minut += 60
  11. gs'stat'
  12. 'You leave the village by the Volga River with your family and an hour later you have returned to Paulovo.'
  13. act 'Going home':gt'korrPar'
  14. end
  15. act'Stay in village':gt'Gadhouse'
  16. else
  17. if hour < 20: hour = 20 & minut = 0
  18. gs 'stat'
  19. minut += 60
  20. gs 'stat'
  21. 'You leave the village by the Volga River with your family and an hour later you have returned to Paulovo.'
  22. act 'Go home':gt 'korrPar'
  23. end
  24. --- farmhomeride ---------------------------------