budgetclothes 18 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598
  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 'Visit clothing department':
  20. cla
  21. act 'View cheap clothing':
  22. minut += 2
  23. gt 'budgetclothes', 'clothes'
  24. end
  25. act 'View office wear':
  26. minut += 2
  27. gt 'budgetclothes', 'office'
  28. end
  29. act 'View uniforms':
  30. minut += 2
  31. gt 'budgetclothes', 'uniform'
  32. end
  33. act 'View school uniforms':
  34. minut += 2
  35. gt 'budgetclothes', 'school'
  36. end
  37. act 'Return':gt 'budgetclothes', 'start'
  38. end
  39. act 'Visit shoe department':
  40. cla
  41. act 'Look at regular shoes':
  42. minut += 2
  43. gt 'budgetclothes', 'shoes'
  44. end
  45. act 'Look at exercise shoes':
  46. minut += 2
  47. gt 'budgetclothes', 'trainers'
  48. end
  49. act 'Return':gt 'budgetclothes', 'start'
  50. end
  51. act 'View coats':
  52. minut += 2
  53. gt 'budgetclothes', 'coats'
  54. end
  55. act 'View purses':
  56. minut += 2
  57. gt 'budgetclothes', 'purses'
  58. end
  59. act 'View panties':
  60. minut += 2
  61. gt 'budgetclothes', 'panties'
  62. end
  63. act 'View bras':
  64. minut += 2
  65. gt 'budgetclothes', 'bras'
  66. end
  67. act 'Leave the store':
  68. cla
  69. $shoplocation = ''
  70. if torg = 1:
  71. minut += 3
  72. gt 'torgcentr'
  73. else
  74. gt 'Gshveyfab', 'start'
  75. end
  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. $Headerstring = '<TH>Prostitute clothing '
  86. if clothingfilter_prost = 0:
  87. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''budgetclothes'', ''clothes''">Included</a></TH>'
  88. else
  89. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''budgetclothes'', ''clothes''">Excluded</a></TH>'
  90. end
  91. $Headerstring += '<TH>Bimbo clothing '
  92. if clothingfilter_bimbo = 0:
  93. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''budgetclothes'', ''clothes''">Included</a></TH>'
  94. else
  95. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''budgetclothes'', ''clothes''">Excluded</a></TH>'
  96. end
  97. $Headerstring += '<TH>Clothing you are comfortable wearing '
  98. if clothingfilter_comf = 0:
  99. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''budgetclothes'', ''clothes''">Included</a></TH>'
  100. else
  101. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''budgetclothes'', ''clothes''">Excluded</a></TH>'
  102. end
  103. $Headerstring += '<TH>Daring clothing '
  104. if clothingfilter_daring = 0:
  105. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''budgetclothes'', ''clothes''">Included</a></TH>'
  106. else
  107. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''budgetclothes'', ''clothes''">Excluded</a></TH>'
  108. end
  109. $Headerstring += '<TH>Too daring for you clothing '
  110. if clothingfilter_too_daring = 0:
  111. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''budgetclothes'', ''clothes''">Included</a></TH>'
  112. else
  113. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''budgetclothes'', ''clothes''">Excluded</a></TH>'
  114. end
  115. '<center><table border=1><<$Headerstring>></center>'
  116. act 'Return':
  117. cla
  118. minut += 5
  119. gt 'budgetclothes', 'start'
  120. end
  121. i = Clothingstock + 1
  122. if Clothingstock - 18 > 0:
  123. i -= 18
  124. elseif Clothingstock - 12 > 0:
  125. i -= 12
  126. elseif Clothingstock - 6 > 0:
  127. i -= 6
  128. end
  129. :loopcheap
  130. if cheap[i] = 0:
  131. gs 'clothing_attributes', 'cheap', i
  132. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  133. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  134. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  135. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  136. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  137. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  138. end
  139. end
  140. i += 6
  141. if i = 3: i = 9
  142. if i = 10: i = 16
  143. if i = 45: i = 57
  144. if i = 80:i = 86
  145. if i <= 413:jump 'loopcheap'
  146. end
  147. if $ARGS[0] = 'cheapclo':
  148. cla
  149. if cheap[i] ! 0:
  150. msg 'You already own these clothes.'
  151. gt 'budgetclothes', 'clothes'
  152. end
  153. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 2000
  154. end
  155. if $ARGS[0] = 'office':
  156. $metka = $ARGS[0]
  157. $loc = 'budgetclothes'
  158. cls
  159. gs'stat'
  160. '<center><b><font color="maroon">Viewing G&M office clothing</font></b></center>'
  161. *nl
  162. $Headerstring = '<TH>Prostitute clothing '
  163. if clothingfilter_prost = 0:
  164. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''budgetclothes'', ''office''">Included</a></TH>'
  165. else
  166. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''budgetclothes'', ''office''">Excluded</a></TH>'
  167. end
  168. $Headerstring += '<TH>Bimbo clothing '
  169. if clothingfilter_bimbo = 0:
  170. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''budgetclothes'', ''office''">Included</a></TH>'
  171. else
  172. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''budgetclothes'', ''office''">Excluded</a></TH>'
  173. end
  174. $Headerstring += '<TH>Clothing you are comfortable wearing '
  175. if clothingfilter_comf = 0:
  176. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''budgetclothes'', ''office''">Included</a></TH>'
  177. else
  178. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''budgetclothes'', ''office''">Excluded</a></TH>'
  179. end
  180. $Headerstring += '<TH>Daring clothing '
  181. if clothingfilter_daring = 0:
  182. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''budgetclothes'', ''office''">Included</a></TH>'
  183. else
  184. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''budgetclothes'', ''office''">Excluded</a></TH>'
  185. end
  186. $Headerstring += '<TH>Too daring for you clothing '
  187. if clothingfilter_too_daring = 0:
  188. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''budgetclothes'', ''office''">Included</a></TH>'
  189. else
  190. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''budgetclothes'', ''office''">Excluded</a></TH>'
  191. end
  192. '<center><table border=1><<$Headerstring>></center>'
  193. act 'Return':
  194. cla
  195. minut += 5
  196. gt 'budgetclothes', 'start'
  197. end
  198. if Clothingstock > 15:
  199. i = 3
  200. elseif Clothingstock > 7:
  201. i = 2
  202. else
  203. i = 1
  204. end
  205. :loopoffice
  206. if office[i] = 0:
  207. gs 'clothing_attributes', 'office', i
  208. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  209. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  210. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  211. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  212. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  213. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  214. end
  215. end
  216. i += 3
  217. if i <= 101:jump 'loopoffice'
  218. end
  219. if $ARGS[0] = 'officeclo':
  220. cla
  221. if office[i] ! 0:
  222. msg 'You already own these clothes.'
  223. gt 'budgetclothes', 'office'
  224. end
  225. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 4000
  226. end
  227. if $ARGS[0] = 'uniform':
  228. $metka = $ARGS[0]
  229. $loc = 'budgetclothes'
  230. cls
  231. gs'stat'
  232. '<center><b><font color="maroon">Viewing G&M uniforms</font></b></center>'
  233. *nl
  234. $Headerstring = '<TH>Prostitute clothing '
  235. if clothingfilter_prost = 0:
  236. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''budgetclothes'', ''uniform''">Included</a></TH>'
  237. else
  238. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''budgetclothes'', ''uniform''">Excluded</a></TH>'
  239. end
  240. $Headerstring += '<TH>Bimbo clothing '
  241. if clothingfilter_bimbo = 0:
  242. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''budgetclothes'', ''uniform''">Included</a></TH>'
  243. else
  244. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''budgetclothes'', ''uniform''">Excluded</a></TH>'
  245. end
  246. $Headerstring += '<TH>Clothing you are comfortable wearing '
  247. if clothingfilter_comf = 0:
  248. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''budgetclothes'', ''uniform''">Included</a></TH>'
  249. else
  250. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''budgetclothes'', ''uniform''">Excluded</a></TH>'
  251. end
  252. $Headerstring += '<TH>Daring clothing '
  253. if clothingfilter_daring = 0:
  254. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''budgetclothes'', ''uniform''">Included</a></TH>'
  255. else
  256. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''budgetclothes'', ''uniform''">Excluded</a></TH>'
  257. end
  258. $Headerstring += '<TH>Too daring for you clothing '
  259. if clothingfilter_too_daring = 0:
  260. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''budgetclothes'', ''uniform''">Included</a></TH>'
  261. else
  262. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''budgetclothes'', ''uniform''">Excluded</a></TH>'
  263. end
  264. '<center><table border=1><<$Headerstring>></center>'
  265. act 'Return':
  266. cla
  267. minut += 5
  268. gt 'budgetclothes', 'start'
  269. end
  270. if Clothingstock > 15:
  271. i = 1
  272. elseif Clothingstock > 7:
  273. i = 2
  274. else
  275. i = 3
  276. end
  277. :loopuniform
  278. if uniform[i] = 0:
  279. gs 'clothing_attributes', 'uniform', i
  280. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  281. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  282. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  283. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  284. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  285. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  286. end
  287. end
  288. i += 3
  289. if i <= 49:jump 'loopuniform'
  290. end
  291. if $ARGS[0] = 'uniformclo':
  292. cla
  293. if uniform[i] ! 0:
  294. msg 'You already own these clothes.'
  295. gt 'budgetclothes', 'uniform'
  296. end
  297. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 3000
  298. end
  299. if $ARGS[0] = 'school':
  300. $metka = $ARGS[0]
  301. $loc = 'budgetclothes'
  302. cls
  303. gs'stat'
  304. '<center><b><font color="maroon">Viewing G&M school uniforms</font></b></center>'
  305. *nl
  306. $Headerstring = '<TH>Prostitute clothing '
  307. if clothingfilter_prost = 0:
  308. $Headerstring += '<a href="exec:clothingfilter_prost = 1 & gt ''budgetclothes'', ''school''">Included</a></TH>'
  309. else
  310. $Headerstring += '<a href="exec:clothingfilter_prost = 0 & gt ''budgetclothes'', ''school''">Excluded</a></TH>'
  311. end
  312. $Headerstring += '<TH>Bimbo clothing '
  313. if clothingfilter_bimbo = 0:
  314. $Headerstring += '<a href="exec:clothingfilter_bimbo = 1 & gt ''budgetclothes'', ''school''">Included</a></TH>'
  315. else
  316. $Headerstring += '<a href="exec:clothingfilter_bimbo = 0 & gt ''budgetclothes'', ''school''">Excluded</a></TH>'
  317. end
  318. $Headerstring += '<TH>Clothing you are comfortable wearing '
  319. if clothingfilter_comf = 0:
  320. $Headerstring += '<a href="exec:clothingfilter_comf = 1 & gt ''budgetclothes'', ''school''">Included</a></TH>'
  321. else
  322. $Headerstring += '<a href="exec:clothingfilter_comf = 0 & gt ''budgetclothes'', ''school''">Excluded</a></TH>'
  323. end
  324. $Headerstring += '<TH>Daring clothing '
  325. if clothingfilter_daring = 0:
  326. $Headerstring += '<a href="exec:clothingfilter_daring = 1 & gt ''budgetclothes'', ''school''">Included</a></TH>'
  327. else
  328. $Headerstring += 'g<a href="exec:clothingfilter_daring = 0 & gt ''budgetclothes'', ''school''">Excluded</a></TH>'
  329. end
  330. $Headerstring += '<TH>Too daring for you clothing '
  331. if clothingfilter_too_daring = 0:
  332. $Headerstring += '<a href="exec:clothingfilter_too_daring = 1 & gt ''budgetclothes'', ''school''">Included</a></TH>'
  333. else
  334. $Headerstring += '<a href="exec:clothingfilter_too_daring = 0 & gt ''budgetclothes'', ''school''">Excluded</a></TH>'
  335. end
  336. '<center><table border=1><<$Headerstring>></center>'
  337. act 'Return':
  338. cla
  339. minut += 5
  340. gt 'budgetclothes', 'start'
  341. end
  342. if Clothingstock > 15:
  343. i = 1
  344. elseif Clothingstock > 7:
  345. i = 2
  346. else
  347. i = 3
  348. end
  349. :loopschool
  350. if school[i] = 0:
  351. gs 'clothing_attributes', 'school', i
  352. if clothingfilter_comf = 0 and CloExhibit + 10 < pcs_exhibition:
  353. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  354. elseif clothingfilter_daring = 0 and CloExhibit + 10 >= pcs_exhibition and CloExhibit <= pcs_exhibition:
  355. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  356. elseif clothingfilter_too_daring = 0 and CloExhibit > pcs_exhibition:
  357. if (clothingfilter_prost = 0 or CloStyle ! 4) and (clothingfilter_bimbo = 0 or CloBimbo = 0): *p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  358. end
  359. end
  360. if school[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  361. i += 3
  362. if i = 6:i = 9
  363. if i <= 62:jump 'loopschool'
  364. end
  365. if $ARGS[0] = 'schoolclo':
  366. cla
  367. if school[i] ! 0:
  368. msg 'You already own these clothes.'
  369. gt 'budgetclothes', 'school'
  370. end
  371. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 3000
  372. end
  373. if $ARGS[0] = 'shoes':
  374. $metka = 'shoes'
  375. $loc = 'budgetclothes'
  376. cls
  377. gs'stat'
  378. act 'Return':
  379. cla
  380. minut += 5
  381. gt 'budgetclothes', 'start'
  382. end
  383. if Clothingstock > 15:
  384. i = 1
  385. elseif Clothingstock > 7:
  386. i = 2
  387. else
  388. i = 3
  389. end
  390. :loopgandm_shoes
  391. 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>'
  392. i += 3
  393. if i = 6:i = 9
  394. if i <= 51:jump 'loopgandm_shoes'
  395. end
  396. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 1500
  397. if $ARGS[0] = 'trainers':
  398. $metka = 'trainers'
  399. $loc = 'budgetclothes'
  400. cls
  401. gs'stat'
  402. act 'Return':
  403. cla
  404. minut += 5
  405. gt 'budgetclothes', 'start'
  406. end
  407. if Clothingstock > 11:
  408. i = 1
  409. else
  410. i = 2
  411. end
  412. :looptrainers_shoes
  413. 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>'
  414. i += 2
  415. if i = 21:i = 23
  416. if i <= 29:jump 'looptrainers_shoes'
  417. end
  418. if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 2500
  419. if $ARGS[0] = 'coats':
  420. $metka = $ARGS[0]
  421. $loc = 'budgetclothes'
  422. cls
  423. gs'stat'
  424. act 'Return':
  425. cla
  426. minut += 5
  427. gt 'budgetclothes', 'start'
  428. end
  429. i = 2
  430. :loopcoats
  431. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  432. i += 1
  433. if i = 5:i = 6
  434. if i = 9:i = 10
  435. if i = 11:i = 12
  436. if i <= 19:jump 'loopcoats'
  437. end
  438. if $ARGS[0] = 'coatsclo':
  439. cla
  440. if coat[i] ! 0:
  441. msg 'You already own these clothes.'
  442. gt 'budgetclothes', 'coats'
  443. end
  444. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 8000
  445. end
  446. if $ARGS[0] = 'purses':
  447. $metka = 'purses'
  448. $loc = 'budgetclothes'
  449. cls
  450. gs'stat'
  451. act 'Return':
  452. cla
  453. minut += 5
  454. gt 'budgetclothes', 'start'
  455. end
  456. i = 1
  457. :looppurses
  458. 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>'
  459. i += 1
  460. if i <= 14:jump 'looppurses'
  461. end
  462. if $ARGS[0] = 'purses2': gt 'purses', 'view_purse_item', 'shop', 'cheap',i, 5000
  463. if $ARGS[0] = 'panties':
  464. $metka = 'panties'
  465. $loc = 'budgetclothes'
  466. cls
  467. gs'stat'
  468. act 'Return':
  469. cla
  470. minut += 5
  471. gt 'budgetclothes', 'start'
  472. end
  473. i = 1
  474. :looppanties
  475. 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>'
  476. i += 1
  477. if i = 7: i = 8
  478. if i = 9: i = 10
  479. if i = 21: i = 22
  480. if i = 37: i = 38
  481. if i <= 37:jump 'looppanties'
  482. end
  483. if $ARGS[0] = 'bras':
  484. $metka = 'bras'
  485. $loc = 'budgetclothes'
  486. cls
  487. gs'stat'
  488. act 'Return':
  489. cla
  490. minut += 5
  491. gt 'budgetclothes', 'start'
  492. end
  493. i = 1
  494. :loopbras
  495. 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>'
  496. i += 1
  497. if i = 11: i = 13
  498. if i = 16: i = 17
  499. if i = 18: i = 19
  500. if i <= 19:jump 'loopbras'
  501. end
  502. --- budgetclothes ---------------------------------