304_obekt 716 B

123456789101112131415161718192021222324252627282930313233
  1. # obekt
  2. '<center><H4>An object</H4></center>'
  3. '<center><img src="images\etogame\obekt.jpg"></center>'
  4. 'Construction at the site is stopped and the territory silence, only the guard walks.'
  5. clr
  6. gs 'stat'
  7. gs 'time'
  8. if car > 0 and cardrive = 12:
  9. set cardrive = 12
  10. 'In the parking stands <a href="exec:GS ''carF'',''start''">your <<$car>></a>.'
  11. end
  12. act 'Penetrate to the construction site':
  13. cls
  14. minut += 5
  15. gs 'stat'
  16. if ObjektOpen = 0:
  17. if ObjektBil = 0: ObjektBil = 1
  18. 'Construction guarded very carefully, just not be able to enter.'
  19. act 'Leave': gt $curloc
  20. else
  21. gt 'obekt2'
  22. end
  23. end
  24. if ObjektBil = 1:
  25. end
  26. act 'Go on the road': minut += 15 & nroad = 16 & gt 'road'
  27. --- obekt ---------------------------------