1
0

budgetclothes.qsrc 12 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545
  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', 'danilovich'
  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 gm_office[i] = 0:
  200. gs 'clothing_attributes', 'gm_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 gm_office[i] ! 0:
  214. msg 'You already own these clothes.'
  215. gt 'budgetclothes', 'office'
  216. end
  217. gt 'clothing', 'view_clothing_item', 'shop', 'gm_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 gm_uniform[i] = 0:
  246. gs 'clothing_attributes', 'gm_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 gm_uniform[i] ! 0:
  260. msg 'You already own these clothes.'
  261. gt 'budgetclothes', 'uniform'
  262. end
  263. gt 'clothing', 'view_clothing_item', 'shop', 'gm_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 gm_school[i] = 0:
  292. gs 'clothing_attributes', 'gm_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 gm_school[i] ! 0:
  307. msg 'You already own these clothes.'
  308. gt 'budgetclothes', 'school'
  309. end
  310. gt 'clothing', 'view_clothing_item', 'shop', 'gm_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. :loopgm_shoes
  326. if sgm[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''budget_shoes''"><img src="images/pc/shoes/g&m/<<i>>.jpg" height="250" /></a>'
  327. i += 1
  328. if i <= 40:jump 'loopgm_shoes'
  329. end
  330. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gm',i, 700
  331. if $ARGS[0] = 'danilovich':
  332. $loc_arg = 'danilovich'
  333. $loc = 'budgetclothes'
  334. $menu_loc = 'budgetclothes'
  335. $menu_arg = 'danilovich'
  336. menu_off = 0
  337. *clr & cla
  338. gs'stat'
  339. act 'Return':
  340. cla
  341. minut += 1
  342. gt 'budgetclothes', 'start'
  343. end
  344. if Clothingstock > 11:
  345. i = 1
  346. else
  347. i = 2
  348. end
  349. :loopdanilovich_shoes
  350. if sdanilovich[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''danilovich_shoes''"><img src="images/pc/items/danilovich/shoes/<<i>>.jpg" height="250" /></a>'
  351. i += 2
  352. if i = 21:i = 23
  353. if i <= 30:jump 'loopdanilovich_shoes'
  354. end
  355. if $ARGS[0] = 'danilovich_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'danilovich',i, 800
  356. if $ARGS[0] = 'coats':
  357. $menu_loc = 'budgetclothes'
  358. $menu_arg = 'coats'
  359. menu_off = 0
  360. $loc_arg = $ARGS[0]
  361. $loc = 'budgetclothes'
  362. *clr & cla
  363. gs'stat'
  364. act 'Return':
  365. cla
  366. minut += 1
  367. gt 'budgetclothes', 'start'
  368. end
  369. i = 2
  370. :loopcoats
  371. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  372. i += 1
  373. if i = 5:i = 6
  374. if i = 9:i = 10
  375. if i = 11:i = 12
  376. if i <= 20:jump 'loopcoats'
  377. end
  378. if $ARGS[0] = 'coatsclo':
  379. cla
  380. menu_off = 1
  381. if coat[i] ! 0:
  382. msg 'You already own these clothes.'
  383. gt 'budgetclothes', 'coats'
  384. end
  385. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 1000
  386. end
  387. if $ARGS[0] = 'purses':
  388. $menu_loc = 'budgetclothes'
  389. $menu_arg = 'purses'
  390. menu_off = 0
  391. $loc_arg = 'purses'
  392. $loc = 'budgetclothes'
  393. *clr & cla
  394. gs'stat'
  395. act 'Return':
  396. cla
  397. minut += 1
  398. gt 'budgetclothes', 'start'
  399. end
  400. i = 1
  401. :looppurses
  402. 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>'
  403. i += 1
  404. if i <= 14:jump 'looppurses'
  405. end
  406. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'gm',i, 1500
  407. if $ARGS[0] = 'panties':
  408. $loc_arg = 'panties'
  409. $loc = 'budgetclothes'
  410. $menu_loc = 'budgetclothes'
  411. $menu_arg = 'panties'
  412. menu_off = 0
  413. *clr & cla
  414. gs'stat'
  415. act 'Return':
  416. cla
  417. minut += 1
  418. gt 'budgetclothes', 'start'
  419. end
  420. i = 1
  421. :looppanties
  422. 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>'
  423. i += 1
  424. if i = 7: i = 8
  425. if i = 9: i = 10
  426. if i = 21: i = 22
  427. if i = 37: i = 38
  428. if i <= 37:jump 'looppanties'
  429. end
  430. if $ARGS[0] = 'bras':
  431. $menu_loc = 'budgetclothes'
  432. $menu_arg = 'bras'
  433. menu_off = 0
  434. $loc_arg = 'bras'
  435. $loc = 'budgetclothes'
  436. *clr & cla
  437. gs'stat'
  438. act 'Return':
  439. cla
  440. minut += 1
  441. gt 'budgetclothes', 'start'
  442. end
  443. i = 1
  444. :loopbras
  445. 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>'
  446. i += 1
  447. if i = 11: i = 13
  448. if i = 16: i = 17
  449. if i = 18: i = 19
  450. if i <= 19:jump 'loopbras'
  451. end
  452. --- budgetclothes ---------------------------------