1
0

mirror 1.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970
  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. !'
  19. if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
  20. housrA = 0
  21. gt 'korr'
  22. end
  23. if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
  24. housrA = 0
  25. housrMir = 0
  26. gt 'bedr'
  27. end
  28. if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
  29. fitMir = 0
  30. ! WD: Argument is 'dressing room'
  31. gt 'fit', 'dressing room'
  32. end
  33. if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
  34. stripMir = 0
  35. gt 'stwork', 'start'
  36. end
  37. if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
  38. palMir = 0
  39. gt 'palatka', 'start'
  40. end
  41. if saunaYouRoom = 1:
  42. saunaYouRoom = 0
  43. gt $locBroom, $metkaBroom
  44. end
  45. if housrA = 0 and obMir = 1:
  46. obMir = 0
  47. gt 'obroom', 'start'
  48. end
  49. if housrA = 0 and borMir = 1:
  50. borMir = 0
  51. gt 'bordel', 'start'
  52. end
  53. if housrA = 0 and tanhouse1 = 1:
  54. tanhouse1 = 0
  55. gt 'spalnya'
  56. end
  57. '!
  58. end
  59. --- mirror ---------------------------------