1
0

mirror 1.1 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768
  1. # mirror
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. gs 'stat'
  6. gs 'portmirror'
  7. $gt1 = 'mirror'
  8. $gt2 = 'fin'
  9. dynamic $portmirror
  10. act 'Move away from the mirror':
  11. cla
  12. gt '<<$gt1>>', '<<$gt2>>'
  13. end
  14. end
  15. if $ARGS[0] = 'fin':
  16. cla
  17. gt $locM, $metkaM
  18. !'if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
  19. housrA = 0
  20. gt 'korr'
  21. end
  22. if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
  23. housrA = 0
  24. housrMir = 0
  25. gt 'bedr'
  26. end
  27. if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
  28. fitMir = 0
  29. gt 'fit', 'razd'
  30. end
  31. if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
  32. stripMir = 0
  33. gt 'stwork', 'start'
  34. end
  35. if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
  36. palMir = 0
  37. gt 'palatka', 'start'
  38. end
  39. if saunaYouRoom = 1:
  40. saunaYouRoom = 0
  41. gt $locBroom, $metkaBroom
  42. end
  43. if housrA = 0 and obMir = 1:
  44. obMir = 0
  45. gt 'obroom', 'start'
  46. end
  47. if housrA = 0 and borMir = 1:
  48. borMir = 0
  49. gt 'bordel', 'start'
  50. end
  51. if housrA = 0 and tanhouse1 = 1:
  52. tanhouse1 = 0
  53. gt 'spalnya'
  54. end'!
  55. end
  56. --- mirror ---------------------------------