1
0

wardrobe 3.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104
  1. # wardrobe
  2. if ward_img_hgt = 0:ward_img_hgt = 250
  3. '<center><B><U>Outfit overview - Click on an item to change it</U></B></center>'
  4. '<center><table border=0 cellspacing=<<ward_img_hgt/25>> cellpadding=5>'
  5. *p '<TH>Bra worn</TH><TH>Outfit worn</TH><TH>Coat (only worn outside when cold)</TH>'
  6. *P '<TR><TD><center><a href="exec:gt ''bras'', ''view_bra_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''bra'')>>"></a></center></TD><TD><center><a href="exec:gt ''clothing_QV'', ''list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'',''clothes'')>>"></a></center></TD><TD><center>'
  7. if defaultcoat = 0:
  8. '<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="images/pc/noitemdh.png"></a>'
  9. else
  10. '<a href="exec:gt ''cloakroom'', ''view_coat_list''"><img Height = <<ward_img_hgt * 2>> src="<<FUNC(''$body_image'', ''coat'')>>"></a>'
  11. end
  12. '</center></TD>'
  13. '<TR><TD><center>'
  14. if $braworntype ! 'none':
  15. '<a href="exec:gs ''bras'', ''remove'' & gt ''wardrobe''">Remove</a>'
  16. else
  17. 'Remove'
  18. end
  19. '</center></TD><TD><center>'
  20. if $clothingworntype ! 'nude':
  21. '<a href="exec:gs ''clothing'', ''strip'' & gt ''wardrobe''">Remove</a>'
  22. else
  23. 'Remove'
  24. end
  25. '</center></TD><TD><center>'
  26. if defaultcoat ! 0:
  27. '<a href="exec:defaultcoat_warmth = 0 & defaultcoat = 0 & gt ''wardrobe''">Remove</a>'
  28. else
  29. 'Remove'
  30. end
  31. '</center></TD>'
  32. *p '<TR><TH>Panties worn</TH><TH>Shoes (Only worn outside)</TH><TH>Purse worn</TH>'
  33. *P '<TR><TD><center><a href="exec:gt ''panties'', ''view_panty_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'',''panties'')>>"></a></center></TD><TD><center><a href="exec:gt ''shoes'', ''view_shoe_list'', ''wardrobe''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$body_image'', ''shoes'')>>"></a></center></TD><TD><center>'
  34. if bag = 1:
  35. '<a href="exec:gt ''purses'', ''view_purse_list''"><img Height = <<ward_img_hgt>> src="<<FUNC(''$purse_image'', $currentpursetype, currentpursenumber)>>"></a>'
  36. else
  37. '<a href="exec:gt ''purses'', ''view_purse_list''"><img Height = <<ward_img_hgt>> src="images/pc/noitem.png"></a>'
  38. end
  39. '</center></TD>'
  40. '<TR><TD><center>'
  41. if $pantyworntype ! 'none':
  42. '<a href="exec:gs ''panties'', ''remove'' & gt ''wardrobe''">Remove</a>'
  43. else
  44. 'Remove'
  45. end
  46. '</center></TD><TD><center>'
  47. if $shoeworntype ! 'none':
  48. '<a href="exec:gs ''shoes'', ''strip'' & gt ''wardrobe''">Remove</a>'
  49. else
  50. 'Remove'
  51. end
  52. '</center></TD><TD><center>'
  53. if bag = 1:
  54. '<a href="exec:gs ''purses'', ''remove'' & gt ''wardrobe''">Remove</a>'
  55. else
  56. 'Remove'
  57. end
  58. '</center></TD>'
  59. '</table></center>'
  60. act 'Leave': gt $Loc, $Metka
  61. act 'Strip all clothes/shoes':
  62. gs 'bras', 'remove'
  63. gs 'clothing', 'strip'
  64. gs 'panties', 'remove'
  65. gs 'shoes', 'strip'
  66. gt 'wardrobe'
  67. end
  68. act 'Remove everything':
  69. gs 'bras', 'remove'
  70. gs 'clothing', 'strip'
  71. defaultcoat = 0
  72. gs 'panties', 'remove'
  73. gs 'shoes', 'strip'
  74. gs 'purses', 'remove'
  75. gt 'wardrobe'
  76. end
  77. act 'Set outfit as a default': gt 'clothing', 'default_set'
  78. act 'Choose a default outfit': gt 'clothing', 'default'
  79. act 'Set image height for this view':
  80. cla
  81. *clr
  82. 'The default is 250px'
  83. ward_img_hgt = input("Enter height in pixels you want for images on this page (min 100, max 500)")
  84. if ward_img_hgt < 100:
  85. ward_img_hgt = 100
  86. elseif ward_img_hgt > 500:
  87. ward_img_hgt = 500
  88. end
  89. act 'Return': gt 'wardrobe'
  90. end
  91. --- wardrobe ---------------------------------