mirror 1.9 KB

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