budgetclothes 4.4 KB

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