1
0

mirror 1.9 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495
  1. # mirror
  2. if $ARGS[0] = 'start':
  3. cla
  4. clr
  5. gs 'stat'
  6. if mirror_steam ! hour: mirror_steam = 100
  7. if $loc = 'vanrPar' and mirror_steam = hour or $loc = 'vanr' and mirror_steam = hour or $loc = 'yvan'and mirror_steam = hour: gt'mirror','steam'
  8. if player_avatar = 1:
  9. '<center><img src="avatar.jpg"></center>'
  10. end
  11. gs 'portmirror'
  12. $gt1 = 'mirror'
  13. $gt2 = 'fin'
  14. dynamic $portmirror
  15. act 'Move away from the mirror':
  16. cla
  17. gt '<<$gt1>>', '<<$gt2>>'
  18. end
  19. end
  20. if $ARGS[0] = 'fin':
  21. cla
  22. gt $locM, $metkaM
  23. !'
  24. if housr = 1 and housrA = 1 and housrMir = 0 and fitMir = 0 and saunaYouRoom = 0:
  25. housrA = 0
  26. gt 'korr'
  27. end
  28. if housr = 1 and housrA = 1 and housrMir = 1 and fitMir = 0 and saunaYouRoom = 0:
  29. housrA = 0
  30. housrMir = 0
  31. gt 'bedr'
  32. end
  33. if housrA = 0 and fitMir = 1 and saunaYouRoom = 0:
  34. fitMir = 0
  35. ! WD: Argument is 'dressing room'
  36. gt 'fit', 'dressing room'
  37. end
  38. if housrA = 0 and stripMir = 1 and saunaYouRoom = 0:
  39. stripMir = 0
  40. gt 'stwork', 'start'
  41. end
  42. if housrA = 0 and palMir = 1 and saunaYouRoom = 0:
  43. palMir = 0
  44. gt 'palatka', 'start'
  45. end
  46. if saunaYouRoom = 1:
  47. saunaYouRoom = 0
  48. gt $locBroom, $metkaBroom
  49. end
  50. if housrA = 0 and obMir = 1:
  51. obMir = 0
  52. gt 'obroom', 'start'
  53. end
  54. if housrA = 0 and borMir = 1:
  55. borMir = 0
  56. gt 'bordel', 'start'
  57. end
  58. if housrA = 0 and tanhouse1 = 1:
  59. tanhouse1 = 0
  60. gt 'spalnya'
  61. end
  62. '!
  63. end
  64. if $ARGS[0] = 'steam':
  65. cla
  66. clr
  67. gs'stat'
  68. '<center><img src="images/pic/mirror1.jpg"></center>'
  69. '<center>Mirror heavily misted. It must wipe or leave to cool.</center>'
  70. act 'Wipe the mirror':
  71. cls
  72. minut+=1
  73. mirror_steam = 100
  74. gs'stat'
  75. '<center><img src="images/pic/mirror2.jpg"></center>'
  76. '<center>You wiped the mirror with a towel.</center>'
  77. act 'Look in the mirror':gt'mirror','start'
  78. end
  79. act '<b>Move away from the mirror</b>':gt'mirror','fin'
  80. end
  81. --- mirror ---------------------------------