budgetclothes 4.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248
  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 'View cheap clothing':
  21. cla
  22. minut += 5
  23. gt 'budgetclothes', 'clothes'
  24. end
  25. act 'View office wear':
  26. cla
  27. minut += 5
  28. gt 'budgetclothes', 'office'
  29. end
  30. act 'View uniforms':
  31. cla
  32. minut += 5
  33. gt 'budgetclothes', 'uniform'
  34. end
  35. act 'View school uniforms':
  36. cla
  37. minut += 5
  38. gt 'budgetclothes', 'school'
  39. end
  40. act 'View coats':
  41. cla
  42. minut += 5
  43. gt 'budgetclothes', 'coats'
  44. end
  45. act 'Leave the store':
  46. cla
  47. if torg = 1:
  48. minut += 3
  49. gt 'torgcentr'
  50. else
  51. gt 'Gshveyfab', 'start'
  52. end
  53. end
  54. end
  55. if $ARGS[0] = 'clothes':
  56. $metka = $ARGS[0]
  57. $loc = $CURLOC
  58. cls
  59. gs'stat'
  60. act 'Return':
  61. cla
  62. minut += 5
  63. gt 'budgetclothes', 'start'
  64. end
  65. i = Clothingstock + 1
  66. if Clothingstock - 18 > 0:
  67. i -= 18
  68. elseif Clothingstock - 12 > 0:
  69. i -= 12
  70. elseif Clothingstock - 6 > 0:
  71. i -= 6
  72. end
  73. :loopcheap
  74. if cheap[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''cheapclo''"><img src="images/pc/clothing/1cheap/<<i>>.jpg" height="250" /></a>'
  75. i += 6
  76. if i = 77:i = 83
  77. if i <= 86:jump 'loopcheap'
  78. end
  79. if $ARGS[0] = 'cheapclo':
  80. cla
  81. if cheap[i] ! 0:
  82. msg 'You already own these clothes.'
  83. gt 'budgetclothes', 'clothes'
  84. end
  85. gt 'clothing', 'view_clothing_item', 'shop', 'cheap',i, 2000
  86. end
  87. if $ARGS[0] = 'office':
  88. $metka = $ARGS[0]
  89. $loc = $CURLOC
  90. cls
  91. gs'stat'
  92. act 'Return':
  93. cla
  94. minut += 5
  95. gt 'budgetclothes', 'start'
  96. end
  97. if Clothingstock > 15:
  98. i = 1
  99. elseif Clothingstock > 7:
  100. i = 2
  101. else
  102. i = 3
  103. end
  104. :loopoffice
  105. if office[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''officeclo''"><img src="images/pc/clothing/5office/<<i>>.jpg" height="250" /></a>'
  106. i += 3
  107. if i <= 44:jump 'loopoffice'
  108. end
  109. if $ARGS[0] = 'officeclo':
  110. cla
  111. if office[i] ! 0:
  112. msg 'You already own these clothes.'
  113. gt 'budgetclothes', 'office'
  114. end
  115. gt 'clothing', 'view_clothing_item', 'shop', 'office',i, 4000
  116. end
  117. if $ARGS[0] = 'uniform':
  118. $metka = $ARGS[0]
  119. $loc = $CURLOC
  120. cls
  121. gs'stat'
  122. act 'Return':
  123. cla
  124. minut += 5
  125. gt 'budgetclothes', 'start'
  126. end
  127. if Clothingstock > 15:
  128. i = 1
  129. elseif Clothingstock > 7:
  130. i = 2
  131. else
  132. i = 3
  133. end
  134. :loopuniform
  135. if uniform[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''uniformclo''"><img src="images/pc/clothing/10uniform/<<i>>.jpg" height="250" /></a>'
  136. i += 3
  137. if i <= 32:jump 'loopuniform'
  138. end
  139. if $ARGS[0] = 'uniformclo':
  140. cla
  141. if uniform[i] ! 0:
  142. msg 'You already own these clothes.'
  143. gt 'budgetclothes', 'uniform'
  144. end
  145. gt 'clothing', 'view_clothing_item', 'shop', 'uniform',i, 3000
  146. end
  147. if $ARGS[0] = 'school':
  148. $metka = $ARGS[0]
  149. $loc = $CURLOC
  150. cls
  151. gs'stat'
  152. act 'Return':
  153. cla
  154. minut += 5
  155. gt 'budgetclothes', 'start'
  156. end
  157. if Clothingstock > 15:
  158. i = 1
  159. elseif Clothingstock > 7:
  160. i = 2
  161. else
  162. i = 3
  163. end
  164. :loopschool
  165. if school[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''schoolclo''"><img src="images/pc/clothing/6school/<<i>>.jpg" height="250" /></a>'
  166. i += 3
  167. if i = 6:i = 9
  168. if i <= 38:jump 'loopschool'
  169. end
  170. if $ARGS[0] = 'schoolclo':
  171. cla
  172. if school[i] ! 0:
  173. msg 'You already own these clothes.'
  174. gt 'budgetclothes', 'school'
  175. end
  176. gt 'clothing', 'view_clothing_item', 'shop', 'school',i, 3000
  177. end
  178. if $ARGS[0] = 'coats':
  179. $metka = $ARGS[0]
  180. $loc = $CURLOC
  181. cls
  182. gs'stat'
  183. act 'Return':
  184. cla
  185. minut += 5
  186. gt 'budgetclothes', 'start'
  187. end
  188. i = 2
  189. :loopcoats
  190. if coat[i] = 0:*p '<a href="exec: i = <<i>> & gt ''budgetclothes'', ''coatsclo''"><img src="images/pc/clothing/11coat/<<i>>.jpg" height="250" /></a>'
  191. i += 1
  192. if i = 5:i = 6
  193. if i = 9:i = 10
  194. if i = 11:i = 12
  195. if i <= 19:jump 'loopcoats'
  196. end
  197. if $ARGS[0] = 'coatsclo':
  198. cla
  199. if coat[i] ! 0:
  200. msg 'You already own these clothes.'
  201. gt 'budgetclothes', 'coats'
  202. end
  203. gt 'clothing', 'view_clothing_item', 'shop', 'coat',i, 8000
  204. end
  205. --- budgetclothes ---------------------------------