NewCloShop.qsrc 11 KB

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