1
0

shop_fashionista.qsrc 11 KB

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