mirror 2.0 KB

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