budgetclothes.qsrc 10 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496
  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. clr
  12. gs 'stat'
  13. gs 'themes', 'indoors'
  14. act 'Leave the store':
  15. cla
  16. $shoplocation = ''
  17. if torg = 1:
  18. minut += 3
  19. gt 'torgcentr'
  20. else
  21. gt 'pav_industrial'
  22. end
  23. end
  24. act 'Visit clothing department':
  25. cla
  26. menu_off = 1
  27. act 'Return':gt 'budgetclothes', 'start'
  28. act 'View cheap clothing':
  29. minut += 5
  30. gt 'budgetclothes', 'clothes'
  31. end
  32. act 'View office wear':
  33. minut += 5
  34. gt 'budgetclothes', 'office'
  35. end
  36. act 'View uniforms':
  37. minut += 5
  38. gt 'budgetclothes', 'uniform'
  39. end
  40. act 'View school uniforms':
  41. minut += 5
  42. gt 'budgetclothes', 'school'
  43. end
  44. end
  45. act 'Visit shoe department':
  46. cla
  47. menu_off = 1
  48. act 'Return':gt 'budgetclothes', 'start'
  49. act 'View regular shoes':
  50. minut += 5
  51. gt 'budgetclothes', 'shoes'
  52. end
  53. act 'View exercise shoes':
  54. minut += 5
  55. gt 'budgetclothes', 'trainers'
  56. end
  57. end
  58. act 'View panties':
  59. minut += 5
  60. gt 'budgetclothes', 'panties'
  61. end
  62. act 'View bras':
  63. minut += 5
  64. gt 'budgetclothes', 'bras'
  65. end
  66. act 'View purses':
  67. minut += 5
  68. gt 'budgetclothes', 'purses'
  69. end
  70. act 'View coats':
  71. minut += 5
  72. gt 'budgetclothes', 'coats'
  73. end
  74. end
  75. if $ARGS[0] = 'clothes':
  76. $loc_arg = 'clothes'
  77. $loc = 'budgetclothes'
  78. $menu_loc = 'budgetclothes'
  79. $menu_arg = 'clothes'
  80. menu_off = 0
  81. *clr & cla
  82. gs'stat'
  83. '<center><b><font color="maroon">Viewing G&M cheap clothing</font></b></center>'
  84. *nl
  85. gs 'clothing_QV', 'shop_header'
  86. act 'Return':
  87. cla
  88. minut += 1
  89. gt 'budgetclothes', 'start'
  90. end
  91. clothingfilter['qualitycheck'] = 7
  92. :loopquality
  93. i = Clothingstock + 1
  94. if Clothingstock - 18 > 0:
  95. i -= 18
  96. elseif Clothingstock - 12 > 0:
  97. i -= 12
  98. elseif Clothingstock - 6 > 0:
  99. i -= 6
  100. end
  101. :loopcheap
  102. if cheap[i] = 0:
  103. gs 'clothing_attributes', 'cheap', i
  104. gs 'clothing_QV', 'shop_filter'
  105. if clothingfilter['quality'] = 0 or clothingfilter['qualitycheck'] = CloQuality:
  106. if clothingfilter_risk = 1 and clothingfilter_pandb = 1 and clothingfilter_norm2 = 1: *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  107. end
  108. end
  109. i += 6
  110. if i = 3: i = 9
  111. if i = 10: i = 16
  112. if i = 45: i = 57
  113. if i = 80:i = 86
  114. if i = 414:i = 415
  115. if i <= 419:jump 'loopcheap'
  116. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality'
  117. end
  118. if $ARGS[0] = 'cheapclo':
  119. cla
  120. menu_off = 1
  121. if cheap[i] ! 0:
  122. msg 'You already own these clothes.'
  123. gt 'budgetclothes', 'clothes'
  124. end
  125. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 1000
  126. end
  127. if $ARGS[0] = 'office':
  128. $menu_loc = 'budgetclothes'
  129. $menu_arg = 'office'
  130. menu_off = 0
  131. $loc_arg = $ARGS[0]
  132. $loc = 'budgetclothes'
  133. *clr & cla
  134. gs'stat'
  135. '<center><b><font color="maroon">Viewing G&M office clothing</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. :loopquality2
  145. if Clothingstock > 15:
  146. i = 3
  147. elseif Clothingstock > 7:
  148. i = 2
  149. else
  150. i = 1
  151. end
  152. :loopoffice
  153. if office[i] = 0:
  154. gs 'clothing_attributes', 'office', 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'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  158. end
  159. end
  160. i += 3
  161. if i <= 128:jump 'loopoffice'
  162. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality2'
  163. end
  164. if $ARGS[0] = 'officeclo':
  165. cla
  166. menu_off = 1
  167. if office[i] ! 0:
  168. msg 'You already own these clothes.'
  169. gt 'budgetclothes', 'office'
  170. end
  171. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 2000
  172. end
  173. if $ARGS[0] = 'uniform':
  174. $menu_loc = 'budgetclothes'
  175. $menu_arg = 'uniform'
  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 uniforms</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. :loopquality3
  191. if Clothingstock > 15:
  192. i = 1
  193. elseif Clothingstock > 7:
  194. i = 2
  195. else
  196. i = 3
  197. end
  198. :loopuniform
  199. if uniform[i] = 0:
  200. gs 'clothing_attributes', 'uniform', 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'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  204. end
  205. end
  206. i += 3
  207. if i <= 49:jump 'loopuniform'
  208. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality3'
  209. end
  210. if $ARGS[0] = 'uniformclo':
  211. cla
  212. menu_off = 1
  213. if uniform[i] ! 0:
  214. msg 'You already own these clothes.'
  215. gt 'budgetclothes', 'uniform'
  216. end
  217. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 2000
  218. end
  219. if $ARGS[0] = 'school':
  220. $menu_loc = 'budgetclothes'
  221. $menu_arg = 'school'
  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 school 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. :loopquality4
  237. if Clothingstock > 15:
  238. i = 1
  239. elseif Clothingstock > 7:
  240. i = 2
  241. else
  242. i = 3
  243. end
  244. :loopschool
  245. if school[i] = 0:
  246. gs 'clothing_attributes', 'school', 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'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  250. end
  251. end
  252. i += 3
  253. if i = 6:i = 9
  254. if i <= 63:jump 'loopschool'
  255. if clothingfilter['quality'] = 1 and clothingfilter['qualitycheck'] > 0: clothingfilter['qualitycheck'] -=1 & jump 'loopquality4'
  256. end
  257. if $ARGS[0] = 'schoolclo':
  258. cla
  259. menu_off = 1
  260. if school[i] ! 0:
  261. msg 'You already own these clothes.'
  262. gt 'budgetclothes', 'school'
  263. end
  264. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 1500
  265. end
  266. if $ARGS[0] = 'shoes':
  267. $loc_arg = 'shoes'
  268. $loc = 'budgetclothes'
  269. $menu_loc = 'budgetclothes'
  270. $menu_arg = 'shoes'
  271. menu_off = 0
  272. *clr & cla
  273. gs'stat'
  274. act 'Return':
  275. cla
  276. minut += 1
  277. gt 'budgetclothes', 'start'
  278. end
  279. if Clothingstock > 15:
  280. i = 1
  281. elseif Clothingstock > 7:
  282. i = 2
  283. else
  284. i = 3
  285. end
  286. :loopgandm_shoes
  287. 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>'
  288. i += 3
  289. if i = 6:i = 9
  290. if i <= 51:jump 'loopgandm_shoes'
  291. end
  292. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 700
  293. if $ARGS[0] = 'trainers':
  294. $loc_arg = 'trainers'
  295. $loc = 'budgetclothes'
  296. $menu_loc = 'budgetclothes'
  297. $menu_arg = 'trainers'
  298. menu_off = 0
  299. *clr & cla
  300. gs'stat'
  301. act 'Return':
  302. cla
  303. minut += 1
  304. gt 'budgetclothes', 'start'
  305. end
  306. if Clothingstock > 11:
  307. i = 1
  308. else
  309. i = 2
  310. end
  311. :looptrainers_shoes
  312. 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>'
  313. i += 2
  314. if i = 21:i = 23
  315. if i <= 30:jump 'looptrainers_shoes'
  316. end
  317. if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 800
  318. if $ARGS[0] = 'coats':
  319. $menu_loc = 'budgetclothes'
  320. $menu_arg = 'coats'
  321. menu_off = 0
  322. $loc_arg = $ARGS[0]
  323. $loc = 'budgetclothes'
  324. *clr & cla
  325. gs'stat'
  326. act 'Return':
  327. cla
  328. minut += 1
  329. gt 'budgetclothes', 'start'
  330. end
  331. i = 2
  332. :loopcoats
  333. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  334. i += 1
  335. if i = 5:i = 6
  336. if i = 9:i = 10
  337. if i = 11:i = 12
  338. if i <= 20:jump 'loopcoats'
  339. end
  340. if $ARGS[0] = 'coatsclo':
  341. cla
  342. menu_off = 1
  343. if coat[i] ! 0:
  344. msg 'You already own these clothes.'
  345. gt 'budgetclothes', 'coats'
  346. end
  347. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 1000
  348. end
  349. if $ARGS[0] = 'purses':
  350. $menu_loc = 'budgetclothes'
  351. $menu_arg = 'purses'
  352. menu_off = 0
  353. $loc_arg = 'purses'
  354. $loc = 'budgetclothes'
  355. *clr & cla
  356. gs'stat'
  357. act 'Return':
  358. cla
  359. minut += 1
  360. gt 'budgetclothes', 'start'
  361. end
  362. i = 1
  363. :looppurses
  364. if cheap_purses[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''purses2''"><img src="images/pc/purses/cheap/<<i>>.jpg" height="250" /></a>'
  365. i += 1
  366. if i <= 14:jump 'looppurses'
  367. end
  368. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'cheap',i, 1500
  369. if $ARGS[0] = 'panties':
  370. $loc_arg = 'panties'
  371. $loc = 'budgetclothes'
  372. $menu_loc = 'budgetclothes'
  373. $menu_arg = 'panties'
  374. menu_off = 0
  375. *clr & cla
  376. gs'stat'
  377. act 'Return':
  378. cla
  379. minut += 1
  380. gt 'budgetclothes', 'start'
  381. end
  382. i = 1
  383. :looppanties
  384. 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>'
  385. i += 1
  386. if i = 7: i = 8
  387. if i = 9: i = 10
  388. if i = 21: i = 22
  389. if i = 37: i = 38
  390. if i <= 37:jump 'looppanties'
  391. end
  392. if $ARGS[0] = 'bras':
  393. $menu_loc = 'budgetclothes'
  394. $menu_arg = 'bras'
  395. menu_off = 0
  396. $loc_arg = 'bras'
  397. $loc = 'budgetclothes'
  398. *clr & cla
  399. gs'stat'
  400. act 'Return':
  401. cla
  402. minut += 1
  403. gt 'budgetclothes', 'start'
  404. end
  405. i = 1
  406. :loopbras
  407. 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>'
  408. i += 1
  409. if i = 11: i = 13
  410. if i = 16: i = 17
  411. if i = 18: i = 19
  412. if i <= 19:jump 'loopbras'
  413. end
  414. --- budgetclothes ---------------------------------