1
0

budgetclothes.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554
  1. # budgetclothes
  2. if $ARGS[0] = 'start':
  3. $loc_arg = $ARGS[0]
  4. $loc = 'budgetclothes'
  5. $menu_loc = 'budgetclothes'
  6. $menu_arg = 'start'
  7. menu_off = 0
  8. $location_type = 'event'
  9. '<center><b><font color="maroon">Welcome to G & M - Clothes for all your needs</font></b></center>'
  10. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/gandm/shop.jpg"</center>'
  11. 'G&M is not fancy, it''s certainly not high fashion but it''s cheap and has specific work and school wear.'
  12. clr
  13. gs 'stat'
  14. gs 'themes', 'indoors'
  15. act 'Leave the store':
  16. cla
  17. $shoplocation = ''
  18. if torg = 1:
  19. minut += 3
  20. gt 'torgcentr'
  21. else
  22. gt 'pav_industrial'
  23. end
  24. end
  25. act 'Visit clothing department':
  26. cla
  27. menu_off = 1
  28. act 'Return':gt 'budgetclothes', 'start'
  29. act 'View clothing':
  30. minut += 5
  31. gt 'budgetclothes', 'clothes'
  32. end
  33. act 'View dresses':
  34. minut += 5
  35. gt 'budgetclothes', 'dresses'
  36. end
  37. act 'View office wear':
  38. minut += 5
  39. gt 'budgetclothes', 'office'
  40. end
  41. act 'View uniforms':
  42. minut += 5
  43. gt 'budgetclothes', 'uniform'
  44. end
  45. act 'View school uniforms':
  46. minut += 5
  47. gt 'budgetclothes', 'school'
  48. end
  49. end
  50. act 'Visit shoe department':
  51. cla
  52. menu_off = 1
  53. act 'Return':gt 'budgetclothes', 'start'
  54. act 'View regular shoes':
  55. minut += 5
  56. gt 'budgetclothes', 'shoes'
  57. end
  58. act 'View exercise shoes':
  59. minut += 5
  60. gt 'budgetclothes', 'trainers'
  61. end
  62. end
  63. act 'View panties':
  64. minut += 5
  65. gt 'budgetclothes', 'panties'
  66. end
  67. act 'View bras':
  68. minut += 5
  69. gt 'budgetclothes', 'bras'
  70. end
  71. act 'View purses':
  72. minut += 5
  73. gt 'budgetclothes', 'purses'
  74. end
  75. act 'View coats':
  76. minut += 5
  77. gt 'budgetclothes', 'coats'
  78. end
  79. end
  80. if $ARGS[0] = 'clothes':
  81. $loc_arg = 'clothes'
  82. $loc = 'budgetclothes'
  83. $menu_loc = 'budgetclothes'
  84. $menu_arg = 'clothes'
  85. menu_off = 0
  86. *clr & cla
  87. gs'stat'
  88. '<center><b><font color="maroon">Viewing G&M outfits</font></b></center>'
  89. *nl
  90. gs 'clothing_QV', 'shop_header'
  91. act 'Return':
  92. cla
  93. minut += 1
  94. gt 'budgetclothes', 'start'
  95. end
  96. clothingfilter['qualitycheck'] = 7
  97. :loopquality
  98. if Clothingstock - 16 > 0:
  99. i = 1
  100. elseif Clothingstock - 8 > 0:
  101. i = 2
  102. else
  103. i = 3
  104. end
  105. :loopgm_outfits
  106. if gm_outfits[i] = 0:
  107. gs 'clothing_attributes', 'gm_outfits', i
  108. gs 'clothing_QV', 'shop_filter'
  109. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  110. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''gm_outfits''"><img src="images/pc/items/gm/outfits/<<i>>.jpg" height="250" /></a>'
  111. end
  112. end
  113. i += 3
  114. if i = 414:i = 415
  115. if i <= 150:jump 'loopgm_outfits'
  116. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
  117. end
  118. if $ARGS[0] = 'gm_outfits':
  119. cla
  120. menu_off = 1
  121. if gm_outfits[i] ! 0:
  122. msg 'You already own these clothes.'
  123. gt 'budgetclothes', 'clothes'
  124. end
  125. gt 'clothing', 'view_clothing_item', 'shop', 'gm_outfits',i, 1000
  126. end
  127. if $ARGS[0] = 'dresses':
  128. $loc_arg = 'dresses'
  129. $loc = 'budgetclothes'
  130. $menu_loc = 'budgetclothes'
  131. $menu_arg = 'dresses'
  132. menu_off = 0
  133. *clr & cla
  134. gs'stat'
  135. '<center><b><font color="maroon">Viewing G&M dresses</font></b></center>'
  136. *nl
  137. gs 'clothing_QV', 'shop_header'
  138. act 'Return':
  139. cla
  140. minut += 1
  141. gt 'budgetclothes', 'start'
  142. end
  143. clothingfilter['qualitycheck'] = 7
  144. :loopquality1
  145. if Clothingstock - 16 > 0:
  146. i = 1
  147. elseif Clothingstock - 8 > 0:
  148. i = 2
  149. else
  150. i = 3
  151. end
  152. :loopgm_dress
  153. if gm_dress[i] = 0:
  154. gs 'clothing_attributes', 'gm_dress', i
  155. gs 'clothing_QV', 'shop_filter'
  156. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  157. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''gm_dress''"><img src="images/pc/items/gm/dress/<<i>>.jpg" height="250" /></a>'
  158. end
  159. end
  160. i += 3
  161. if i <= 150:jump 'loopgm_dress'
  162. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality1'
  163. end
  164. if $ARGS[0] = 'gm_dress':
  165. cla
  166. menu_off = 1
  167. if gm_dress[i] ! 0:
  168. msg 'You already own this dress.'
  169. gt 'budgetclothes', 'dresses'
  170. end
  171. gt 'clothing', 'view_clothing_item', 'shop', 'gm_dress',i, 1000
  172. end
  173. if $ARGS[0] = 'office':
  174. $menu_loc = 'budgetclothes'
  175. $menu_arg = 'office'
  176. menu_off = 0
  177. $loc_arg = $ARGS[0]
  178. $loc = 'budgetclothes'
  179. *clr & cla
  180. gs'stat'
  181. '<center><b><font color="maroon">Viewing G&M office clothing</font></b></center>'
  182. *nl
  183. gs 'clothing_QV', 'shop_header'
  184. act 'Return':
  185. cla
  186. minut += 1
  187. gt 'budgetclothes', 'start'
  188. end
  189. clothingfilter['qualitycheck'] = 7
  190. :loopquality2
  191. if Clothingstock > 15:
  192. i = 3
  193. elseif Clothingstock > 7:
  194. i = 2
  195. else
  196. i = 1
  197. end
  198. :loopoffice
  199. if office[i] = 0:
  200. gs 'clothing_attributes', 'office', i
  201. gs 'clothing_QV', 'shop_filter'
  202. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  203. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  204. end
  205. end
  206. i += 3
  207. if i <= 140:jump 'loopoffice'
  208. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality2'
  209. end
  210. if $ARGS[0] = 'officeclo':
  211. cla
  212. menu_off = 1
  213. if office[i] ! 0:
  214. msg 'You already own these clothes.'
  215. gt 'budgetclothes', 'office'
  216. end
  217. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 2000
  218. end
  219. if $ARGS[0] = 'uniform':
  220. $menu_loc = 'budgetclothes'
  221. $menu_arg = 'uniform'
  222. menu_off = 0
  223. $loc_arg = $ARGS[0]
  224. $loc = 'budgetclothes'
  225. *clr & cla
  226. gs'stat'
  227. '<center><b><font color="maroon">Viewing G&M uniforms</font></b></center>'
  228. *nl
  229. gs 'clothing_QV', 'shop_header'
  230. act 'Return':
  231. cla
  232. minut += 1
  233. gt 'budgetclothes', 'start'
  234. end
  235. clothingfilter['qualitycheck'] = 7
  236. :loopquality3
  237. if Clothingstock > 15:
  238. i = 1
  239. elseif Clothingstock > 7:
  240. i = 2
  241. else
  242. i = 3
  243. end
  244. :loopuniform
  245. if uniform[i] = 0:
  246. gs 'clothing_attributes', 'uniform', i
  247. gs 'clothing_QV', 'shop_filter'
  248. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  249. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  250. end
  251. end
  252. i += 3
  253. if i <= 60:jump 'loopuniform'
  254. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality3'
  255. end
  256. if $ARGS[0] = 'uniformclo':
  257. cla
  258. menu_off = 1
  259. if uniform[i] ! 0:
  260. msg 'You already own these clothes.'
  261. gt 'budgetclothes', 'uniform'
  262. end
  263. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 2000
  264. end
  265. if $ARGS[0] = 'school':
  266. $menu_loc = 'budgetclothes'
  267. $menu_arg = 'school'
  268. menu_off = 0
  269. $loc_arg = $ARGS[0]
  270. $loc = 'budgetclothes'
  271. *clr & cla
  272. gs'stat'
  273. '<center><b><font color="maroon">Viewing G&M school uniforms</font></b></center>'
  274. *nl
  275. gs 'clothing_QV', 'shop_header'
  276. act 'Return':
  277. cla
  278. minut += 1
  279. gt 'budgetclothes', 'start'
  280. end
  281. clothingfilter['qualitycheck'] = 7
  282. :loopquality4
  283. if Clothingstock > 15:
  284. i = 1
  285. elseif Clothingstock > 7:
  286. i = 2
  287. else
  288. i = 3
  289. end
  290. :loopschool
  291. if school[i] = 0:
  292. gs 'clothing_attributes', 'school', i
  293. gs 'clothing_QV', 'shop_filter'
  294. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  295. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  296. end
  297. end
  298. i += 3
  299. if i = 6:i = 9
  300. if i <= 80:jump 'loopschool'
  301. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality4'
  302. end
  303. if $ARGS[0] = 'schoolclo':
  304. cla
  305. menu_off = 1
  306. if school[i] ! 0:
  307. msg 'You already own these clothes.'
  308. gt 'budgetclothes', 'school'
  309. end
  310. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 1500
  311. end
  312. if $ARGS[0] = 'shoes':
  313. $loc_arg = 'shoes'
  314. $loc = 'budgetclothes'
  315. $menu_loc = 'budgetclothes'
  316. $menu_arg = 'shoes'
  317. menu_off = 0
  318. *clr & cla
  319. gs'stat'
  320. act 'Return':
  321. cla
  322. minut += 1
  323. gt 'budgetclothes', 'start'
  324. end
  325. if Clothingstock > 15:
  326. i = 1
  327. elseif Clothingstock > 7:
  328. i = 2
  329. else
  330. i = 3
  331. end
  332. :loopgandm_shoes
  333. if sgandm[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''budget_shoes''"><img src="images/pc/shoes/g&m/<<i>>.jpg" height="250" /></a>'
  334. i += 3
  335. if i = 6:i = 9
  336. if i <= 51:jump 'loopgandm_shoes'
  337. end
  338. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 700
  339. if $ARGS[0] = 'trainers':
  340. $loc_arg = 'trainers'
  341. $loc = 'budgetclothes'
  342. $menu_loc = 'budgetclothes'
  343. $menu_arg = 'trainers'
  344. menu_off = 0
  345. *clr & cla
  346. gs'stat'
  347. act 'Return':
  348. cla
  349. minut += 1
  350. gt 'budgetclothes', 'start'
  351. end
  352. if Clothingstock > 11:
  353. i = 1
  354. else
  355. i = 2
  356. end
  357. :looptrainers_shoes
  358. if strainers[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''training_shoes''"><img src="images/pc/shoes/trainers/<<i>>.jpg" height="250" /></a>'
  359. i += 2
  360. if i = 21:i = 23
  361. if i <= 30:jump 'looptrainers_shoes'
  362. end
  363. if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 800
  364. if $ARGS[0] = 'coats':
  365. $menu_loc = 'budgetclothes'
  366. $menu_arg = 'coats'
  367. menu_off = 0
  368. $loc_arg = $ARGS[0]
  369. $loc = 'budgetclothes'
  370. *clr & cla
  371. gs'stat'
  372. act 'Return':
  373. cla
  374. minut += 1
  375. gt 'budgetclothes', 'start'
  376. end
  377. i = 2
  378. :loopcoats
  379. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  380. i += 1
  381. if i = 5:i = 6
  382. if i = 9:i = 10
  383. if i = 11:i = 12
  384. if i <= 20:jump 'loopcoats'
  385. end
  386. if $ARGS[0] = 'coatsclo':
  387. cla
  388. menu_off = 1
  389. if coat[i] ! 0:
  390. msg 'You already own these clothes.'
  391. gt 'budgetclothes', 'coats'
  392. end
  393. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 1000
  394. end
  395. if $ARGS[0] = 'purses':
  396. $menu_loc = 'budgetclothes'
  397. $menu_arg = 'purses'
  398. menu_off = 0
  399. $loc_arg = 'purses'
  400. $loc = 'budgetclothes'
  401. *clr & cla
  402. gs'stat'
  403. act 'Return':
  404. cla
  405. minut += 1
  406. gt 'budgetclothes', 'start'
  407. end
  408. i = 1
  409. :looppurses
  410. if gm_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''purses2''"><img src="images/pc/items/gm/purses/<<i>>.jpg" height="250" /></a>'
  411. i += 1
  412. if i <= 14:jump 'looppurses'
  413. end
  414. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'gm',i, 1500
  415. if $ARGS[0] = 'panties':
  416. $loc_arg = 'panties'
  417. $loc = 'budgetclothes'
  418. $menu_loc = 'budgetclothes'
  419. $menu_arg = 'panties'
  420. menu_off = 0
  421. *clr & cla
  422. gs'stat'
  423. act 'Return':
  424. cla
  425. minut += 1
  426. gt 'budgetclothes', 'start'
  427. end
  428. i = 1
  429. :looppanties
  430. if cheap_panties[i] = 0:*p '<a href="exec: gt ''panties'', ''view_panty_item'', ''shop'', ''cheap'', <<i>>, 300"><img src="images/pc/panties/basic/<<i>>.jpg" height="250" /></a>'
  431. i += 1
  432. if i = 7: i = 8
  433. if i = 9: i = 10
  434. if i = 21: i = 22
  435. if i = 37: i = 38
  436. if i <= 37:jump 'looppanties'
  437. end
  438. if $ARGS[0] = 'bras':
  439. $menu_loc = 'budgetclothes'
  440. $menu_arg = 'bras'
  441. menu_off = 0
  442. $loc_arg = 'bras'
  443. $loc = 'budgetclothes'
  444. *clr & cla
  445. gs'stat'
  446. act 'Return':
  447. cla
  448. minut += 1
  449. gt 'budgetclothes', 'start'
  450. end
  451. i = 1
  452. :loopbras
  453. if cheap_bras[i] = 0:*p '<a href="exec:gt ''bras'', ''view_bra_item'', ''shop'', ''cheap'', <<i>>, 300"><img src="images/pc/bras/basic/<<i>>.jpg" height="250" /></a>'
  454. i += 1
  455. if i = 11: i = 13
  456. if i = 16: i = 17
  457. if i = 18: i = 19
  458. if i <= 19:jump 'loopbras'
  459. end
  460. --- budgetclothes ---------------------------------