budgetclothes.qsrc 9.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473
  1. # budgetclothes
  2. if $ARGS[0] = 'start':
  3. $metka = $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 'pavIndustrial'
  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. $metka = '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. i = Clothingstock + 1
  92. if Clothingstock - 18 > 0:
  93. i -= 18
  94. elseif Clothingstock - 12 > 0:
  95. i -= 12
  96. elseif Clothingstock - 6 > 0:
  97. i -= 6
  98. end
  99. :loopcheap
  100. if cheap[i] = 0:
  101. gs 'clothing_attributes', 'cheap', i
  102. gs 'clothing_QV', 'shop_filter'
  103. 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>'
  104. end
  105. i += 6
  106. if i = 3: i = 9
  107. if i = 10: i = 16
  108. if i = 45: i = 57
  109. if i = 80:i = 86
  110. if i = 414:i = 415
  111. if i <= 414:jump 'loopcheap'
  112. end
  113. if $ARGS[0] = 'cheapclo':
  114. cla
  115. menu_off = 1
  116. if cheap[i] ! 0:
  117. msg 'You already own these clothes.'
  118. gt 'budgetclothes', 'clothes'
  119. end
  120. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 1000
  121. end
  122. if $ARGS[0] = 'office':
  123. $menu_loc = 'budgetclothes'
  124. $menu_arg = 'office'
  125. menu_off = 0
  126. $metka = $ARGS[0]
  127. $loc = 'budgetclothes'
  128. *clr & cla
  129. gs'stat'
  130. '<center><b><font color="maroon">Viewing G&M office clothing</font></b></center>'
  131. *nl
  132. gs 'clothing_QV', 'shop_header'
  133. act 'Return':
  134. cla
  135. minut += 1
  136. gt 'budgetclothes', 'start'
  137. end
  138. if Clothingstock > 15:
  139. i = 3
  140. elseif Clothingstock > 7:
  141. i = 2
  142. else
  143. i = 1
  144. end
  145. :loopoffice
  146. if office[i] = 0:
  147. gs 'clothing_attributes', 'office', i
  148. gs 'clothing_QV', 'shop_filter'
  149. 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>'
  150. end
  151. i += 3
  152. if i <= 101:jump 'loopoffice'
  153. end
  154. if $ARGS[0] = 'officeclo':
  155. cla
  156. menu_off = 1
  157. if office[i] ! 0:
  158. msg 'You already own these clothes.'
  159. gt 'budgetclothes', 'office'
  160. end
  161. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 2000
  162. end
  163. if $ARGS[0] = 'uniform':
  164. $menu_loc = 'budgetclothes'
  165. $menu_arg = 'uniform'
  166. menu_off = 0
  167. $metka = $ARGS[0]
  168. $loc = 'budgetclothes'
  169. *clr & cla
  170. gs'stat'
  171. '<center><b><font color="maroon">Viewing G&M uniforms</font></b></center>'
  172. *nl
  173. gs 'clothing_QV', 'shop_header'
  174. act 'Return':
  175. cla
  176. minut += 1
  177. gt 'budgetclothes', 'start'
  178. end
  179. if Clothingstock > 15:
  180. i = 1
  181. elseif Clothingstock > 7:
  182. i = 2
  183. else
  184. i = 3
  185. end
  186. :loopuniform
  187. if uniform[i] = 0:
  188. gs 'clothing_attributes', 'uniform', i
  189. gs 'clothing_QV', 'shop_filter'
  190. 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>'
  191. end
  192. i += 3
  193. if i <= 49:jump 'loopuniform'
  194. end
  195. if $ARGS[0] = 'uniformclo':
  196. cla
  197. menu_off = 1
  198. if uniform[i] ! 0:
  199. msg 'You already own these clothes.'
  200. gt 'budgetclothes', 'uniform'
  201. end
  202. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 2000
  203. end
  204. if $ARGS[0] = 'school':
  205. $menu_loc = 'budgetclothes'
  206. $menu_arg = 'school'
  207. menu_off = 0
  208. $metka = $ARGS[0]
  209. $loc = 'budgetclothes'
  210. *clr & cla
  211. gs'stat'
  212. '<center><b><font color="maroon">Viewing G&M school uniforms</font></b></center>'
  213. *nl
  214. gs 'clothing_QV', 'shop_header'
  215. act 'Return':
  216. cla
  217. minut += 1
  218. gt 'budgetclothes', 'start'
  219. end
  220. if Clothingstock > 15:
  221. i = 1
  222. elseif Clothingstock > 7:
  223. i = 2
  224. else
  225. i = 3
  226. end
  227. :loopschool
  228. if school[i] = 0:
  229. gs 'clothing_attributes', 'school', i
  230. gs 'clothing_QV', 'shop_filter'
  231. 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>'
  232. end
  233. i += 3
  234. if i = 6:i = 9
  235. if i <= 62:jump 'loopschool'
  236. end
  237. if $ARGS[0] = 'schoolclo':
  238. cla
  239. menu_off = 1
  240. if school[i] ! 0:
  241. msg 'You already own these clothes.'
  242. gt 'budgetclothes', 'school'
  243. end
  244. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 1500
  245. end
  246. if $ARGS[0] = 'shoes':
  247. $metka = 'shoes'
  248. $loc = 'budgetclothes'
  249. $menu_loc = 'budgetclothes'
  250. $menu_arg = 'shoes'
  251. menu_off = 0
  252. *clr & cla
  253. gs'stat'
  254. act 'Return':
  255. cla
  256. minut += 1
  257. gt 'budgetclothes', 'start'
  258. end
  259. if Clothingstock > 15:
  260. i = 1
  261. elseif Clothingstock > 7:
  262. i = 2
  263. else
  264. i = 3
  265. end
  266. :loopgandm_shoes
  267. 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>'
  268. i += 3
  269. if i = 6:i = 9
  270. if i <= 51:jump 'loopgandm_shoes'
  271. end
  272. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 700
  273. if $ARGS[0] = 'trainers':
  274. $metka = 'trainers'
  275. $loc = 'budgetclothes'
  276. $menu_loc = 'budgetclothes'
  277. $menu_arg = 'trainers'
  278. menu_off = 0
  279. *clr & cla
  280. gs'stat'
  281. act 'Return':
  282. cla
  283. minut += 1
  284. gt 'budgetclothes', 'start'
  285. end
  286. if Clothingstock > 11:
  287. i = 1
  288. else
  289. i = 2
  290. end
  291. :looptrainers_shoes
  292. 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>'
  293. i += 2
  294. if i = 21:i = 23
  295. if i <= 29:jump 'looptrainers_shoes'
  296. end
  297. if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 800
  298. if $ARGS[0] = 'coats':
  299. $menu_loc = 'budgetclothes'
  300. $menu_arg = 'coats'
  301. menu_off = 0
  302. $metka = $ARGS[0]
  303. $loc = 'budgetclothes'
  304. *clr & cla
  305. gs'stat'
  306. act 'Return':
  307. cla
  308. minut += 1
  309. gt 'budgetclothes', 'start'
  310. end
  311. i = 2
  312. :loopcoats
  313. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  314. i += 1
  315. if i = 5:i = 6
  316. if i = 9:i = 10
  317. if i = 11:i = 12
  318. if i <= 19:jump 'loopcoats'
  319. end
  320. if $ARGS[0] = 'coatsclo':
  321. cla
  322. menu_off = 1
  323. if coat[i] ! 0:
  324. msg 'You already own these clothes.'
  325. gt 'budgetclothes', 'coats'
  326. end
  327. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 1000
  328. end
  329. if $ARGS[0] = 'purses':
  330. $menu_loc = 'budgetclothes'
  331. $menu_arg = 'purses'
  332. menu_off = 0
  333. $metka = 'purses'
  334. $loc = 'budgetclothes'
  335. *clr & cla
  336. gs'stat'
  337. act 'Return':
  338. cla
  339. minut += 1
  340. gt 'budgetclothes', 'start'
  341. end
  342. i = 1
  343. :looppurses
  344. if cheap_purse[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''purses2''"><img src="images/pc/purses/cheap/<<i>>.jpg" height="250" /></a>'
  345. i += 1
  346. if i <= 14:jump 'looppurses'
  347. end
  348. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'cheap',i, 1500
  349. if $ARGS[0] = 'panties':
  350. $metka = 'panties'
  351. $loc = 'budgetclothes'
  352. $menu_loc = 'budgetclothes'
  353. $menu_arg = 'panties'
  354. menu_off = 0
  355. *clr & cla
  356. gs'stat'
  357. act 'Return':
  358. cla
  359. minut += 1
  360. gt 'budgetclothes', 'start'
  361. end
  362. i = 1
  363. :looppanties
  364. 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>'
  365. i += 1
  366. if i = 7: i = 8
  367. if i = 9: i = 10
  368. if i = 21: i = 22
  369. if i = 37: i = 38
  370. if i <= 37:jump 'looppanties'
  371. end
  372. if $ARGS[0] = 'bras':
  373. $menu_loc = 'budgetclothes'
  374. $menu_arg = 'bras'
  375. menu_off = 0
  376. $metka = 'bras'
  377. $loc = 'budgetclothes'
  378. *clr & cla
  379. gs'stat'
  380. act 'Return':
  381. cla
  382. minut += 1
  383. gt 'budgetclothes', 'start'
  384. end
  385. i = 1
  386. :loopbras
  387. 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>'
  388. i += 1
  389. if i = 11: i = 13
  390. if i = 16: i = 17
  391. if i = 18: i = 19
  392. if i <= 19:jump 'loopbras'
  393. end
  394. --- budgetclothes ---------------------------------