1
0

budgetclothes.qsrc 8.5 KB

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