1
0

budgetclothes 5.6 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320
  1. # budgetclothes
  2. if $ARGS[0] = 'start':
  3. $metka = $ARGS[0]
  4. $loc = $CURLOC
  5. $metkaM = $ARGS[0]
  6. $locM = $CURLOC
  7. $location_type = 'event'
  8. '<center><b><font color="maroon">Welcome to G & M - Clothes for all your needs</font></b></center>'
  9. clr
  10. gs 'stat'
  11. if night_mode = 1:
  12. fcolor = rgb(255, 255, 255)
  13. bcolor = rgb(0, 0, 0)
  14. lcolor = rgb(106, 90, 205)
  15. else
  16. fcolor = rgb(0, 0, 0)
  17. bcolor = rgb(255, 255, 255)
  18. lcolor = rgb(106, 90, 205)
  19. end
  20. act 'Visit clothing department':
  21. cla
  22. act 'View cheap clothing':
  23. minut += 5
  24. gt 'budgetclothes', 'clothes'
  25. end
  26. act 'View office wear':
  27. minut += 5
  28. gt 'budgetclothes', 'office'
  29. end
  30. act 'View uniforms':
  31. minut += 5
  32. gt 'budgetclothes', 'uniform'
  33. end
  34. act 'View school uniforms':
  35. minut += 5
  36. gt 'budgetclothes', 'school'
  37. end
  38. act 'Return':gt 'budgetclothes', 'start'
  39. end
  40. act 'Visit shoe department':
  41. cla
  42. act 'Look at regular shoes':
  43. minut += 5
  44. gt 'budgetclothes', 'shoes'
  45. end
  46. act 'Look at exercise shoes':
  47. minut += 5
  48. gt 'budgetclothes', 'trainers'
  49. end
  50. act 'Return':gt 'budgetclothes', 'start'
  51. end
  52. act 'View coats':
  53. cla
  54. minut += 5
  55. gt 'budgetclothes', 'coats'
  56. end
  57. act 'Leave the store':
  58. cla
  59. if torg = 1:
  60. minut += 3
  61. gt 'torgcentr'
  62. else
  63. gt 'Gshveyfab', 'start'
  64. end
  65. end
  66. end
  67. if $ARGS[0] = 'clothes':
  68. $metka = $ARGS[0]
  69. $loc = $CURLOC
  70. cls
  71. gs'stat'
  72. act 'Return':
  73. cla
  74. minut += 5
  75. gt 'budgetclothes', 'start'
  76. end
  77. i = Clothingstock + 1
  78. if Clothingstock - 18 > 0:
  79. i -= 18
  80. elseif Clothingstock - 12 > 0:
  81. i -= 12
  82. elseif Clothingstock - 6 > 0:
  83. i -= 6
  84. end
  85. :loopcheap
  86. if cheap[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  87. i += 6
  88. if i = 77:i = 83
  89. if i <= 413:jump 'loopcheap'
  90. end
  91. if $ARGS[0] = 'cheapclo':
  92. cla
  93. if cheap[i] ! 0:
  94. msg 'You already own these clothes.'
  95. gt 'budgetclothes', 'clothes'
  96. end
  97. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 2000
  98. end
  99. if $ARGS[0] = 'office':
  100. $metka = $ARGS[0]
  101. $loc = $CURLOC
  102. cls
  103. gs'stat'
  104. act 'Return':
  105. cla
  106. minut += 5
  107. gt 'budgetclothes', 'start'
  108. end
  109. if Clothingstock > 15:
  110. i = 1
  111. elseif Clothingstock > 7:
  112. i = 2
  113. else
  114. i = 3
  115. end
  116. :loopoffice
  117. if office[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  118. i += 3
  119. if i <= 101:jump 'loopoffice'
  120. end
  121. if $ARGS[0] = 'officeclo':
  122. cla
  123. if office[i] ! 0:
  124. msg 'You already own these clothes.'
  125. gt 'budgetclothes', 'office'
  126. end
  127. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 4000
  128. end
  129. if $ARGS[0] = 'uniform':
  130. $metka = $ARGS[0]
  131. $loc = $CURLOC
  132. cls
  133. gs'stat'
  134. act 'Return':
  135. cla
  136. minut += 5
  137. gt 'budgetclothes', 'start'
  138. end
  139. if Clothingstock > 15:
  140. i = 1
  141. elseif Clothingstock > 7:
  142. i = 2
  143. else
  144. i = 3
  145. end
  146. :loopuniform
  147. if uniform[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  148. i += 3
  149. if i <= 49:jump 'loopuniform'
  150. end
  151. if $ARGS[0] = 'uniformclo':
  152. cla
  153. if uniform[i] ! 0:
  154. msg 'You already own these clothes.'
  155. gt 'budgetclothes', 'uniform'
  156. end
  157. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 3000
  158. end
  159. if $ARGS[0] = 'school':
  160. $metka = $ARGS[0]
  161. $loc = $CURLOC
  162. cls
  163. gs'stat'
  164. act 'Return':
  165. cla
  166. minut += 5
  167. gt 'budgetclothes', 'start'
  168. end
  169. if Clothingstock > 15:
  170. i = 1
  171. elseif Clothingstock > 7:
  172. i = 2
  173. else
  174. i = 3
  175. end
  176. :loopschool
  177. if school[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  178. i += 3
  179. if i = 6:i = 9
  180. if i <= 62:jump 'loopschool'
  181. end
  182. if $ARGS[0] = 'schoolclo':
  183. cla
  184. if school[i] ! 0:
  185. msg 'You already own these clothes.'
  186. gt 'budgetclothes', 'school'
  187. end
  188. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 3000
  189. end
  190. if $ARGS[0] = 'shoes':
  191. $metka = 'shoes'
  192. $loc = 'budgetclothes'
  193. cls
  194. gs'stat'
  195. act 'Return':
  196. cla
  197. minut += 5
  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. :loopgandm_shoes
  208. 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>'
  209. i += 3
  210. if i = 6:i = 9
  211. if i <= 51:jump 'loopgandm_shoes'
  212. end
  213. if $ARGS[0] = 'budget_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'gandm',i, 1500
  214. if $ARGS[0] = 'trainers':
  215. $metka = 'trainers'
  216. $loc = 'budgetclothes'
  217. cls
  218. gs'stat'
  219. act 'Return':
  220. cla
  221. minut += 5
  222. gt 'budgetclothes', 'start'
  223. end
  224. if Clothingstock > 11:
  225. i = 1
  226. else
  227. i = 2
  228. end
  229. :looptrainers_shoes
  230. 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>'
  231. i += 2
  232. if i = 21:i = 23
  233. if i <= 29:jump 'looptrainers_shoes'
  234. end
  235. if $ARGS[0] = 'training_shoes': gt 'shoes', 'view_shoe_item', 'shop', 'trainers',i, 2500
  236. if $ARGS[0] = 'coats':
  237. $metka = $ARGS[0]
  238. $loc = $CURLOC
  239. cls
  240. gs'stat'
  241. act 'Return':
  242. cla
  243. minut += 5
  244. gt 'budgetclothes', 'start'
  245. end
  246. i = 2
  247. :loopcoats
  248. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  249. i += 1
  250. if i = 5:i = 6
  251. if i = 9:i = 10
  252. if i = 11:i = 12
  253. if i <= 19:jump 'loopcoats'
  254. end
  255. if $ARGS[0] = 'coatsclo':
  256. cla
  257. if coat[i] ! 0:
  258. msg 'You already own these clothes.'
  259. gt 'budgetclothes', 'coats'
  260. end
  261. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 8000
  262. end
  263. --- budgetclothes ---------------------------------