NewCloShop.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383
  1. # NewCloShop
  2. $location_type = 'event'
  3. if $ARGS[0] = 'start':
  4. $metka = 'start'
  5. $loc = 'NewCloShop'
  6. $menu_loc = 'NewCloShop'
  7. $menu_arg = 'start'
  8. menu_off = 0
  9. !!Variable for buying underwear for Natasha so it only procs once per changingroom event
  10. NatbelQW['underwearShop'] = 0
  11. gs 'stat'
  12. gs 'themes', 'indoors'
  13. '<center><b><font color="maroon">Fashionista</font></b></center>'
  14. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/fashinista.jpg"</center>'
  15. 'This shop features many big name brands and designer clothing. Even their bags look cool.'
  16. act 'Leave':
  17. minut += 3
  18. view
  19. gt 'torgcentr'
  20. end
  21. act 'View clothing': minut += 5 & gt 'NewCloShop', 'clothes'
  22. act 'View panties': minut += 5 & gt 'NewCloShop', 'panties'
  23. act 'View bras': minut += 5 & gt 'NewCloShop', 'bras'
  24. act 'View purses': minut += 5 & gt 'NewCloShop', 'purses'
  25. act 'Try on some clothes': gt 'NewCloShop', 'changingroom'
  26. end
  27. if $ARGS[0] = 'changingroom':
  28. $locclass = 'changingroom'
  29. $metka = 'changingroom'
  30. $loc = 'NewCloShop'
  31. $menu_loc = 'NewCloShop'
  32. $menu_arg = 'changingroom'
  33. gs 'stat'
  34. menu_off = 0
  35. *clr & cla
  36. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/changingroom.jpg"</center>'
  37. 'As you walk through the store you notice that there''s nobody in the changing rooms. Feeling a bit bored you go look at some clothes and grab several items to try on before heading into one of the changing rooms.'
  38. if $clothingworntype = 'nude':
  39. act 'Try on clothes': gt 'NewCloShop', 'dressingclothes'
  40. act 'Try on bra':
  41. if NatbelQW['seethrough'] = 0 and NatbelQW['QWstage'] > 5 and NatbelQW['underwearShop'] = 0:
  42. *clr & cla
  43. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/nude.jpg"</center>'
  44. 'As you try on a particularly spicy set of seethrough underwear you notice that it doesn''t quite fit you.'
  45. '"This should fit Natasha perfectly though. And it only costs 750 <b>₽</b>." You think to yourself, imagining the look on her face if you make her wear it.'
  46. act 'Buy it':
  47. *clr & cla
  48. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/nude.jpg"</center>'
  49. 'You put the underwear aside for now so that you can take it to the register with you.'
  50. money -= 750
  51. NatbelQW['seethrough'] = 1
  52. act 'Stay in the changingroom': gt 'NewCloShop', 'changingroom'
  53. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  54. end
  55. act 'Don''t buy it':
  56. *clr & cla
  57. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/nude.jpg"</center>'
  58. 'Deciding against it, you look through the rest of the underwear for something that would fit you better.'
  59. NatbelQW['underwearShop'] = 1
  60. act 'Stay in the changingroom': gt 'NewCloShop', 'changingroom'
  61. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  62. end
  63. else
  64. gt 'NewCloShop', 'dressingbra'
  65. !*clr & cla
  66. !clorand = rand(1, 38)
  67. !gt 'bras', 'view_bra_item', 'shop', 'fashionista',clorand, 750
  68. end
  69. end
  70. act 'Try on panties': gt 'NewCloShop', 'dressingpanties'
  71. !*clr & cla
  72. !clorand = rand(1, 75)
  73. !gt 'panties', 'view_panty_item', 'shop', 'fashionista',clorand, 750
  74. !end
  75. end
  76. if $clothingworntype = 'nude':
  77. act 'Put on clothes':
  78. *clr & cla
  79. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/dressed.jpg"</center>'
  80. gs 'clothing', 'wear_last_worn'
  81. act 'Stay in the changingroom': gt 'NewCloShop', 'changingroom'
  82. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  83. end
  84. end
  85. if $clothingworntype ! 'nude' and $pantyworntype ! 'none':
  86. act 'Strip to your underwear':
  87. *clr & cla
  88. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/underwear.jpg"</center>'
  89. gs 'clothing', 'strip'
  90. act 'Stay in the changingroom': gt 'NewCloShop', 'changingroom'
  91. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  92. end
  93. end
  94. if $clothingworntype = 'nude' and $pantyworntype = 'none':
  95. act 'Put on underwear':
  96. *clr & cla
  97. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/underwear.jpg"</center>'
  98. gs 'underwear', 'wear'
  99. act 'Stay in the changingroom': gt 'NewCloShop', 'changingroom'
  100. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  101. end
  102. end
  103. if $clothingworntype ! 'nude' or $pantyworntype ! 'none':
  104. act 'Get naked':
  105. *clr & cla
  106. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/fashionista/nude.jpg"</center>'
  107. gs 'clothing', 'strip'
  108. gs 'underwear', 'remove'
  109. act 'Stay in the changingroom': gt 'NewCloShop', 'changingroom'
  110. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  111. end
  112. end
  113. if $clothingworntype = 'nude':
  114. act 'Get dressed and go back to the store': gt 'NewCloShop', 'changingend'
  115. else
  116. act 'Go back to the store': gt 'NewCloShop', 'changingend'
  117. end
  118. end
  119. if $ARGS[0] = 'dressingclothes':
  120. *clr & cla
  121. $metka = 'dressingclothes'
  122. $loc = 'NewCloShop'
  123. !clorand = rand(1,ARRSIZE('expensive'))
  124. !gt 'clothing', 'view_clothing_item', 'shop', 'expensive', clorand, 8000
  125. menu_off = 1
  126. *clr & cla
  127. gs'stat'
  128. '<center><b><font color="maroon">Viewing Fashionista clothing</font></b></center>'
  129. *nl
  130. gs 'clothing_QV', 'shop_header'
  131. act 'Return':
  132. minut += 1
  133. gt 'NewCloShop', 'changingroom'
  134. end
  135. i = Clothingstock +1
  136. if Clothingstock - 12 > 0:i -= 12
  137. :loopexpensive2
  138. if expensive[i] = 0:
  139. gs 'clothing_attributes', 'expensive', i
  140. gs 'clothing_QV', 'shop_filter'
  141. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''dressingshmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a> '
  142. end
  143. i += 12
  144. if i <= 433:jump 'loopexpensive2'
  145. end
  146. if $ARGS[0] = 'dressingshmotmag':
  147. cla
  148. if expensive[i] ! 0:
  149. msg 'You already own these clothes.'
  150. gt 'NewCloShop', 'dressingclothes'
  151. end
  152. gt 'clothing', 'view_clothing_item', 'shop', 'expensive',i, 8000
  153. end
  154. if $ARGS[0] = 'dressingbra':
  155. $metka = 'dressingbra'
  156. $loc = 'NewCloShop'
  157. menu_off = 1
  158. *clr & cla
  159. gs'stat'
  160. act 'Return':
  161. cla
  162. minut += 1
  163. gt 'NewCloShop', 'changingroom'
  164. end
  165. i = 1
  166. :loopfashionista_bras2
  167. if fashionista_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''dressingbras2''"><img src="images/pc/bras/fashionista/<<i>>.jpg" height="150" /></a> '
  168. i += 1
  169. if i <= 38:jump 'loopfashionista_bras2'
  170. end
  171. if $ARGS[0] = 'dressingbras2':
  172. cla
  173. if fashionista_bras[i] ! 0:
  174. msg 'You already own this bra.'
  175. gt 'NewCloShop', 'bras'
  176. end
  177. gt 'bras', 'view_bra_item', 'shop', 'fashionista',i, 750
  178. end
  179. if $ARGS[0] = 'changingend':
  180. !! Sveta dresses again
  181. gs 'underwear', 'wear'
  182. gs 'clothing', 'wear_last_worn'
  183. gt 'NewCloShop', 'start'
  184. end
  185. if $ARGS[0] = 'dressingpanties':
  186. $metka = 'dressingpanties'
  187. $loc = 'NewCloShop'
  188. menu_off = 1
  189. *clr & cla
  190. gs'stat'
  191. act 'Return':
  192. cla
  193. minut += 1
  194. gt 'NewCloShop', 'changingroom'
  195. end
  196. i = 1
  197. :loopfashionista_panties2
  198. if fashionista_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''dressingpanties2''"><img src="images/pc/panties/fashionista/<<i>>.jpg" height="150" /></a> '
  199. i += 1
  200. if i <= 75:jump 'loopfashionista_panties2'
  201. end
  202. if $ARGS[0] = 'dressingpanties2':
  203. cla
  204. if fashionista_panties[i] ! 0:
  205. msg 'You already own these panties.'
  206. gt 'NewCloShop', 'dressingpanties'
  207. end
  208. gt 'panties', 'view_panty_item', 'shop', 'fashionista',i, 750
  209. end
  210. !! Old code
  211. if $ARGS[0] = 'clothes':
  212. $metka = 'clothes'
  213. $loc = 'NewCloShop'
  214. menu_off = 1
  215. *clr & cla
  216. gs'stat'
  217. '<center><b><font color="maroon">Viewing Fashionista clothing</font></b></center>'
  218. *nl
  219. gs 'clothing_QV', 'shop_header'
  220. act 'Return':
  221. cla
  222. minut += 1
  223. gt 'NewCloShop', 'start'
  224. end
  225. i = Clothingstock +1
  226. if Clothingstock - 12 > 0:i -= 12
  227. :loopexpensive
  228. if expensive[i] = 0:
  229. gs 'clothing_attributes', 'expensive', i
  230. gs 'clothing_QV', 'shop_filter'
  231. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''shmotmag''"><img src="images/pc/clothing/3expensive/<<i>>.jpg" height="250" /></a>'
  232. end
  233. i += 12
  234. if i <= 425:jump 'loopexpensive'
  235. end
  236. if $ARGS[0] = 'shmotmag':
  237. cla
  238. if expensive[i] ! 0:
  239. msg 'You already own these clothes.'
  240. gt 'NewCloShop', 'clothes'
  241. end
  242. gt 'clothing', 'view_clothing_item', 'shop', 'expensive',i, 8000
  243. end
  244. if $ARGS[0] = 'panties':
  245. $metka = 'panties'
  246. $loc = 'NewCloShop'
  247. menu_off = 1
  248. *clr & cla
  249. gs'stat'
  250. act 'Return':
  251. cla
  252. minut += 1
  253. gt 'NewCloShop', 'start'
  254. end
  255. i = 1
  256. :loopfashionista_panties
  257. if fashionista_panties[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''panties2''"><img src="images/pc/panties/fashionista/<<i>>.jpg" height="150" /></a> '
  258. i += 1
  259. if i <= 79:jump 'loopfashionista_panties'
  260. end
  261. if $ARGS[0] = 'panties2':
  262. cla
  263. if fashionista_panties[i] ! 0:
  264. msg 'You already own these panties.'
  265. gt 'NewCloShop', 'panties'
  266. end
  267. gt 'panties', 'view_panty_item', 'shop', 'fashionista',i, 750
  268. end
  269. if $ARGS[0] = 'bras':
  270. $metka = 'bras'
  271. $loc = 'NewCloShop'
  272. menu_off = 1
  273. *clr & cla
  274. gs'stat'
  275. act 'Return':
  276. cla
  277. minut += 1
  278. gt 'NewCloShop', 'start'
  279. end
  280. i = 1
  281. :loopfashionista_bras
  282. if fashionista_bras[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''bras2''"><img src="images/pc/bras/fashionista/<<i>>.jpg" height="150" /></a> '
  283. i += 1
  284. if i <= 42:jump 'loopfashionista_bras'
  285. end
  286. if $ARGS[0] = 'bras2':
  287. cla
  288. if fashionista_bras[i] ! 0:
  289. msg 'You already own this bra.'
  290. gt 'NewCloShop', 'bras'
  291. end
  292. gt 'bras', 'view_bra_item', 'shop', 'fashionista',i, 750
  293. end
  294. if $ARGS[0] = 'purses':
  295. $metka = 'purses'
  296. $loc = 'NewCloShop'
  297. menu_off = 1
  298. *clr & cla
  299. gs'stat'
  300. act 'Return':
  301. cla
  302. minut += 1
  303. gt 'NewCloShop', 'start'
  304. end
  305. i = 1
  306. :loopfashionista_purses
  307. if fashionista_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''NewCloShop'', ''purses2''"><img src="images/pc/purses/fashionista/<<i>>.jpg" height="150" /></a> '
  308. i += 1
  309. if i <= 15:jump 'loopfashionista_purses'
  310. end
  311. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'fashionista',i, 3000
  312. --- NewCloShop ---------------------------------