1
0

budgetclothes.qsrc 8.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437
  1. # budgetclothes
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = 'budgetclothes'
  5. $location_type = 'event'
  6. '<center><b><font color="maroon">Welcome to G & M - Clothes for all your needs</font></b></center>'
  7. '<center><img <<$set_imgh>> src="images/locations/city/citycenter/mall/gandm/shop.jpg"</center>'
  8. clr
  9. gs 'stat'
  10. gs 'themes', 'indoors'
  11. act 'Leave the store':
  12. cla
  13. $shoplocation = ''
  14. if torg = 1:
  15. minut += 3
  16. gt 'torgcentr'
  17. else
  18. gt 'Gshveyfab', 'start'
  19. end
  20. end
  21. act 'Visit clothing department':
  22. cla
  23. act 'Return':gt 'budgetclothes', 'start'
  24. act 'View cheap clothing':
  25. minut += 5
  26. gt 'budgetclothes', 'clothes'
  27. end
  28. act 'View office wear':
  29. minut += 5
  30. gt 'budgetclothes', 'office'
  31. end
  32. act 'View uniforms':
  33. minut += 5
  34. gt 'budgetclothes', 'uniform'
  35. end
  36. act 'View school uniforms':
  37. minut += 5
  38. gt 'budgetclothes', 'school'
  39. end
  40. end
  41. act 'Visit shoe department':
  42. cla
  43. act 'Return':gt 'budgetclothes', 'start'
  44. act 'View regular shoes':
  45. minut += 5
  46. gt 'budgetclothes', 'shoes'
  47. end
  48. act 'View exercise shoes':
  49. minut += 5
  50. gt 'budgetclothes', 'trainers'
  51. end
  52. end
  53. act 'View panties':
  54. minut += 5
  55. gt 'budgetclothes', 'panties'
  56. end
  57. act 'View bras':
  58. minut += 5
  59. gt 'budgetclothes', 'bras'
  60. end
  61. act 'View purses':
  62. minut += 5
  63. gt 'budgetclothes', 'purses'
  64. end
  65. act 'View coats':
  66. minut += 5
  67. gt 'budgetclothes', 'coats'
  68. end
  69. end
  70. if $ARGS[0] = 'clothes':
  71. $metka = 'clothes'
  72. $loc = 'budgetclothes'
  73. cls
  74. gs'stat'
  75. '<center><b><font color="maroon">Viewing G&M cheap clothing</font></b></center>'
  76. *nl
  77. gs 'clothing_QV', 'shop_header'
  78. act 'Return':
  79. cla
  80. minut += 1
  81. gt 'budgetclothes', 'start'
  82. end
  83. i = Clothingstock + 1
  84. if Clothingstock - 18 > 0:
  85. i -= 18
  86. elseif Clothingstock - 12 > 0:
  87. i -= 12
  88. elseif Clothingstock - 6 > 0:
  89. i -= 6
  90. end
  91. :loopcheap
  92. if cheap[i] = 0:
  93. gs 'clothing_attributes', 'cheap', i
  94. gs 'clothing_QV', 'shop_filter'
  95. 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>'
  96. end
  97. i += 6
  98. if i = 3: i = 9
  99. if i = 10: i = 16
  100. if i = 45: i = 57
  101. if i = 80:i = 86
  102. if i = 414:i = 415
  103. if i <= 414:jump 'loopcheap'
  104. end
  105. if $ARGS[0] = 'cheapclo':
  106. cla
  107. if cheap[i] ! 0:
  108. msg 'You already own these clothes.'
  109. gt 'budgetclothes', 'clothes'
  110. end
  111. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 1000
  112. end
  113. if $ARGS[0] = 'office':
  114. $metka = $ARGS[0]
  115. $loc = 'budgetclothes'
  116. cls
  117. gs'stat'
  118. '<center><b><font color="maroon">Viewing G&M office clothing</font></b></center>'
  119. *nl
  120. gs 'clothing_QV', 'shop_header'
  121. act 'Return':
  122. cla
  123. minut += 1
  124. gt 'budgetclothes', 'start'
  125. end
  126. if Clothingstock > 15:
  127. i = 3
  128. elseif Clothingstock > 7:
  129. i = 2
  130. else
  131. i = 1
  132. end
  133. :loopoffice
  134. if office[i] = 0:
  135. gs 'clothing_attributes', 'office', i
  136. gs 'clothing_QV', 'shop_filter'
  137. 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>'
  138. end
  139. i += 3
  140. if i <= 101:jump 'loopoffice'
  141. end
  142. if $ARGS[0] = 'officeclo':
  143. cla
  144. if office[i] ! 0:
  145. msg 'You already own these clothes.'
  146. gt 'budgetclothes', 'office'
  147. end
  148. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 2000
  149. end
  150. if $ARGS[0] = 'uniform':
  151. $metka = $ARGS[0]
  152. $loc = 'budgetclothes'
  153. cls
  154. gs'stat'
  155. '<center><b><font color="maroon">Viewing G&M uniforms</font></b></center>'
  156. *nl
  157. gs 'clothing_QV', 'shop_header'
  158. act 'Return':
  159. cla
  160. minut += 1
  161. gt 'budgetclothes', 'start'
  162. end
  163. if Clothingstock > 15:
  164. i = 1
  165. elseif Clothingstock > 7:
  166. i = 2
  167. else
  168. i = 3
  169. end
  170. :loopuniform
  171. if uniform[i] = 0:
  172. gs 'clothing_attributes', 'uniform', i
  173. gs 'clothing_QV', 'shop_filter'
  174. 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>'
  175. end
  176. i += 3
  177. if i <= 49:jump 'loopuniform'
  178. end
  179. if $ARGS[0] = 'uniformclo':
  180. cla
  181. if uniform[i] ! 0:
  182. msg 'You already own these clothes.'
  183. gt 'budgetclothes', 'uniform'
  184. end
  185. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 2000
  186. end
  187. if $ARGS[0] = 'school':
  188. $metka = $ARGS[0]
  189. $loc = 'budgetclothes'
  190. cls
  191. gs'stat'
  192. '<center><b><font color="maroon">Viewing G&M school uniforms</font></b></center>'
  193. *nl
  194. gs 'clothing_QV', 'shop_header'
  195. act 'Return':
  196. cla
  197. minut += 1
  198. gt 'budgetclothes', 'start'
  199. end
  200. if Clothingstock > 15:
  201. i = 1
  202. elseif Clothingstock > 7:
  203. i = 2
  204. else
  205. i = 3
  206. end
  207. :loopschool
  208. if school[i] = 0:
  209. gs 'clothing_attributes', 'school', i
  210. gs 'clothing_QV', 'shop_filter'
  211. 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>'
  212. end
  213. i += 3
  214. if i = 6:i = 9
  215. if i <= 62:jump 'loopschool'
  216. end
  217. if $ARGS[0] = 'schoolclo':
  218. cla
  219. if school[i] ! 0:
  220. msg 'You already own these clothes.'
  221. gt 'budgetclothes', 'school'
  222. end
  223. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 1500
  224. end
  225. if $ARGS[0] = 'shoes':
  226. $metka = 'shoes'
  227. $loc = 'budgetclothes'
  228. cls
  229. gs'stat'
  230. act 'Return':
  231. cla
  232. minut += 1
  233. gt 'budgetclothes', 'start'
  234. end
  235. if Clothingstock > 15:
  236. i = 1
  237. elseif Clothingstock > 7:
  238. i = 2
  239. else
  240. i = 3
  241. end
  242. :loopgandm_shoes
  243. 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>'
  244. i += 3
  245. if i = 6:i = 9
  246. if i <= 51:jump 'loopgandm_shoes'
  247. end
  248. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 700
  249. if $ARGS[0] = 'trainers':
  250. $metka = 'trainers'
  251. $loc = 'budgetclothes'
  252. cls
  253. gs'stat'
  254. act 'Return':
  255. cla
  256. minut += 1
  257. gt 'budgetclothes', 'start'
  258. end
  259. if Clothingstock > 11:
  260. i = 1
  261. else
  262. i = 2
  263. end
  264. :looptrainers_shoes
  265. 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>'
  266. i += 2
  267. if i = 21:i = 23
  268. if i <= 29:jump 'looptrainers_shoes'
  269. end
  270. if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 800
  271. if $ARGS[0] = 'coats':
  272. $metka = $ARGS[0]
  273. $loc = 'budgetclothes'
  274. cls
  275. gs'stat'
  276. act 'Return':
  277. cla
  278. minut += 1
  279. gt 'budgetclothes', 'start'
  280. end
  281. i = 2
  282. :loopcoats
  283. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  284. i += 1
  285. if i = 5:i = 6
  286. if i = 9:i = 10
  287. if i = 11:i = 12
  288. if i <= 19:jump 'loopcoats'
  289. end
  290. if $ARGS[0] = 'coatsclo':
  291. cla
  292. if coat[i] ! 0:
  293. msg 'You already own these clothes.'
  294. gt 'budgetclothes', 'coats'
  295. end
  296. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 1000
  297. end
  298. if $ARGS[0] = 'purses':
  299. $metka = 'purses'
  300. $loc = 'budgetclothes'
  301. cls
  302. gs'stat'
  303. act 'Return':
  304. cla
  305. minut += 1
  306. gt 'budgetclothes', 'start'
  307. end
  308. i = 1
  309. :looppurses
  310. 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>'
  311. i += 1
  312. if i <= 14:jump 'looppurses'
  313. end
  314. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'cheap',i, 1500
  315. if $ARGS[0] = 'panties':
  316. $metka = 'panties'
  317. $loc = 'budgetclothes'
  318. cls
  319. gs'stat'
  320. act 'Return':
  321. cla
  322. minut += 1
  323. gt 'budgetclothes', 'start'
  324. end
  325. i = 1
  326. :looppanties
  327. 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>'
  328. i += 1
  329. if i = 7: i = 8
  330. if i = 9: i = 10
  331. if i = 21: i = 22
  332. if i = 37: i = 38
  333. if i <= 37:jump 'looppanties'
  334. end
  335. if $ARGS[0] = 'bras':
  336. $metka = 'bras'
  337. $loc = 'budgetclothes'
  338. cls
  339. gs'stat'
  340. act 'Return':
  341. cla
  342. minut += 1
  343. gt 'budgetclothes', 'start'
  344. end
  345. i = 1
  346. :loopbras
  347. 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>'
  348. i += 1
  349. if i = 11: i = 13
  350. if i = 16: i = 17
  351. if i = 18: i = 19
  352. if i <= 19:jump 'loopbras'
  353. end
  354. --- budgetclothes ---------------------------------