1
0

NewCloShop.qsrc 10 KB

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