1
1

360_sportShop 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300
  1. # sportShop
  2. <<<<<<< 360_sportShop
  3. if $ARGS[0] = 'start':
  4. cla
  5. *clr
  6. set minut += 5
  7. '<center><B><font color = maroon>Sporting goods store</font></B></center>'
  8. '<center><img src="images\etogame\sportshop.jpg"></center>'
  9. clr
  10. gs 'stat'
  11. fcolor = rgb(0,0,0)
  12. bcolor = rgb(255,255,255)
  13. lcolor = rgb(106,90,205)
  14. act 'QUIT':
  15. cla
  16. set minut += 5
  17. gt 'torgcentr'
  18. end
  19. act 'In the women´s clothing department':
  20. cla
  21. set minut += 5
  22. gt 'sportshop','clo'
  23. end
  24. if skak = 0 and money >= 500:
  25. act 'Buy rope 500 rubles':
  26. cla
  27. set minut += 5
  28. set money -= 500
  29. set skak = 1
  30. act 'Pick up a package': gt 'sportshop','start'
  31. end
  32. end
  33. if obruch = 0 and money >= 1500:
  34. act 'Buy hoop 1,500 rubles':
  35. cla
  36. set minut += 5
  37. set money -= 1500
  38. set obruch = 1
  39. act 'Pick up a package': gt 'sportshop','start'
  40. end
  41. end
  42. if bookYog = 0 and money >= 1500:
  43. act 'Buy benefits of yoga 1,500 rubles':
  44. cla
  45. set minut += 5
  46. set money -= 1500
  47. set bookYog = 1
  48. act 'Pick up a package': gt 'sportshop','start'
  49. end
  50. end
  51. if remsitr = 1 and treadmill = 0 and money >= 5000:
  52. act 'Treadmill 5000 rubles':
  53. cla
  54. set minut += 5
  55. set money -= 5000
  56. set treadmill = 1
  57. 'The attendant informed that they can send it directly to your house.'
  58. act 'Give the address': gt 'sportshop','start'
  59. end
  60. end
  61. =======
  62. if $ARGS[0]='start':
  63. cla
  64. *clr
  65. set minut = minut + 5
  66. '<center><B><font color=maroon>Sporting goods store.</font></B></center>'
  67. '<center><img src="pic/sportshop.jpg" ></center>'
  68. clr
  69. gs'stat'
  70. fcolor=rgb(0,0,0)
  71. bcolor=rgb(255,255,255)
  72. LCOLOR = rgb(106,90,205)
  73. act 'GO_OUT':
  74. cla
  75. set minut = minut + 5
  76. gt'torgcentr'
  77. end
  78. act 'In the women`s clothing department':
  79. cla
  80. set minut = minut + 5
  81. gt'sportshop','clo'
  82. end
  83. if obruch = 0 and money >= 1500:
  84. act 'Buy hoop 1500 RUB':
  85. cla
  86. set minut = minut + 5
  87. set money = money - 1500
  88. set obruch = 1
  89. act 'pick purchase':gt'sportshop','start'
  90. end
  91. end
  92. if skak = 0 and money >= 500:
  93. act 'Buy rope 500 RUB':
  94. cla
  95. set minut = minut + 5
  96. set money = money - 500
  97. set skak = 1
  98. act 'pick purchase':gt'sportshop','start'
  99. end
  100. end
  101. if bookYog = 0 and money >= 1500:
  102. act 'Buy guide to yoga 1500 RUB':
  103. cla
  104. set minut = minut + 5
  105. set money = money - 1500
  106. set bookYog = 1
  107. act 'pick purchase':gt'sportshop','start'
  108. end
  109. end
  110. >>>>>>> 360_sportShop
  111. end
  112. <<<<<<< 360_sportShop
  113. if $ARGS[0] = 'clo':
  114. cla
  115. *clr
  116. set mag = 1
  117. $metka = $ARGS[0]
  118. $loc = $CURLOC
  119. $metkaM = $ARGS[0]
  120. $locM = $CURLOC
  121. set minut += 5
  122. '<center><B><font color = maroon>Department of women´s clothing.</font></B></center>'
  123. '<center><img src="images\etogame\sportshop.jpg"></center>'
  124. clr
  125. gs 'stat'
  126. fcolor = rgb(0,0,0)
  127. bcolor = rgb(255,255,255)
  128. LCOLOR = rgb(106,90,205)
  129. 'All clothing costs 4,000 rubles, sportswear dimensionless.'
  130. act 'Get out of the department':
  131. cla
  132. set minut += 5
  133. gt 'sportshop','start'
  134. end
  135. if money >= 4000:
  136. if yoga[1] = 0:
  137. act 'Inspect 1st sportswear.': set numdres = 1 & payclo = 4000 & gt 'loker','yoga'
  138. end
  139. if yoga[2] = 0:
  140. act 'Inspect 2nd sportswear.': set numdres = 2 & payclo = 4000 & gt 'loker','yoga'
  141. end
  142. if yoga[3] = 0:
  143. act 'Inspect 3rd sportswear.': set numdres = 3 & payclo = 4000 & gt 'loker','yoga'
  144. end
  145. if yoga[4] = 0:
  146. act 'Inspect 4th sportswear.': set numdres = 4 & payclo = 4000 & gt 'loker','yoga'
  147. end
  148. if yoga[5] = 0:
  149. act 'Inspect 5th sportswear.': set numdres = 5 & payclo = 4000 & gt 'loker','yoga'
  150. end
  151. if yoga[6] = 0:
  152. act 'Inspect 6th sportswear.': set numdres = 6 & payclo = 4000 & gt 'loker','yoga'
  153. end
  154. if yoga[7] = 0:
  155. act 'Inspect 7th sportswear.': set numdres = 7 & payclo = 4000 & gt 'loker','yoga'
  156. end
  157. if yoga[8] = 0:
  158. act 'Inspect 8th sportswear.': set numdres = 8 & payclo = 4000 & gt 'loker','yoga'
  159. end
  160. if yoga[9] = 0:
  161. act 'Inspect 9th sportswear.': set numdres = 9 & payclo = 4000 & gt 'loker','yoga'
  162. end
  163. if yoga[10] = 0:
  164. act 'Inspect 10th sportswear.': set numdres = 10 & payclo = 4000 & gt 'loker','yoga'
  165. end
  166. if yoga[11] = 0:
  167. act 'Inspect 11th sportswear.': set numdres = 11 & payclo = 4000 & gt 'loker','yoga'
  168. end
  169. if yoga[12] = 0:
  170. act 'Inspect 12th sportswear.': set numdres = 12 & payclo = 4000 & gt 'loker','yoga'
  171. end
  172. if yoga[13] = 0:
  173. act 'Inspect 13th sportswear.': set numdres = 13 & payclo = 4000 & gt 'loker','yoga'
  174. end
  175. if yoga[14] = 0:
  176. act 'Inspect 14th sportswear.': set numdres = 14 & payclo = 4000 & gt 'loker','yoga'
  177. end
  178. if yoga[15] = 0:
  179. act 'Inspect 15th sportswear.': set numdres = 15 & payclo = 4000 & gt 'loker','yoga'
  180. end
  181. if yoga[16] = 0:
  182. act 'Inspect 16th sportswear.': set numdres = 16 & payclo = 4000 & gt 'loker','yoga'
  183. end
  184. if yoga[17] = 0:
  185. act 'Inspect 17th sportswear.': set numdres = 17 & payclo = 4000 & gt 'loker','yoga'
  186. end
  187. if yoga[18] = 0:
  188. act 'Inspect 18th sportswear.': set numdres = 18 & payclo = 4000 & gt 'loker','yoga'
  189. end
  190. end
  191. =======
  192. if $ARGS[0]='clo':
  193. cla
  194. *clr
  195. set mag=1
  196. $metka = $ARGS[0]
  197. $loc = $CURLOC
  198. $metkaM = $ARGS[0]
  199. $locM = $CURLOC
  200. set minut = minut + 5
  201. '<center><B><font color=maroon>Department of women`s clothing.</font></B></center>'
  202. '<center><img src="pic/sportshop.jpg" ></center>'
  203. clr
  204. gs'stat'
  205. fcolor=rgb(0,0,0)
  206. bcolor=rgb(255,255,255)
  207. LCOLOR = rgb(106,90,205)
  208. 'All clothing should 4000 RUB, sportswear dimensionless.'
  209. act 'Get out of the department':
  210. cla
  211. set minut = minut + 5
  212. gt'sportshop','start'
  213. end
  214. if money >= 4000:
  215. if yoga[1] = 0:
  216. act 'inspect 1th sportswear.':set numdres=1&payclo=4000&gt'loker','yoga'
  217. end
  218. if yoga[2] = 0:
  219. act 'inspect 2th sportswear.':set numdres=2&payclo=4000&gt'loker','yoga'
  220. end
  221. if yoga[3] = 0:
  222. act 'inspect 3th sportswear.':set numdres=3&payclo=4000&gt'loker','yoga'
  223. end
  224. if yoga[4] = 0:
  225. act 'inspect 4th sportswear.':set numdres=4&payclo=4000&gt'loker','yoga'
  226. end
  227. if yoga[5] = 0:
  228. act 'inspect 5th sportswear.':set numdres=5&payclo=4000&gt'loker','yoga'
  229. end
  230. if yoga[6] = 0:
  231. act 'inspect 6th sportswear.':set numdres=6&payclo=4000&gt'loker','yoga'
  232. end
  233. if yoga[7] = 0:
  234. act 'inspect 7th sportswear.':set numdres=7&payclo=4000&gt'loker','yoga'
  235. end
  236. if yoga[8] = 0:
  237. act 'inspect 8th sportswear.':set numdres=8&payclo=4000&gt'loker','yoga'
  238. end
  239. if yoga[9] = 0:
  240. act 'inspect 9th sportswear.':set numdres=9&payclo=4000&gt'loker','yoga'
  241. end
  242. if yoga[10] = 0:
  243. act 'inspect 10th sportswear.':set numdres=10&payclo=4000&gt'loker','yoga'
  244. end
  245. if yoga[11] = 0:
  246. act 'inspect 11th sportswear.':set numdres=11&payclo=4000&gt'loker','yoga'
  247. end
  248. if yoga[12] = 0:
  249. act 'inspect 12th sportswear.':set numdres=12&payclo=4000&gt'loker','yoga'
  250. end
  251. if yoga[13] = 0:
  252. act 'inspect 13th sportswear.':set numdres=13&payclo=4000&gt'loker','yoga'
  253. end
  254. if yoga[14] = 0:
  255. act 'inspect 14th sportswear.':set numdres=14&payclo=4000&gt'loker','yoga'
  256. end
  257. if yoga[15] = 0:
  258. act 'inspect 15th sportswear.':set numdres=15&payclo=4000&gt'loker','yoga'
  259. end
  260. if yoga[16] = 0:
  261. act 'inspect 16th sportswear.':set numdres=16&payclo=4000&gt'loker','yoga'
  262. end
  263. if yoga[17] = 0:
  264. act 'inspect 17th sportswear.':set numdres=17&payclo=4000&gt'loker','yoga'
  265. end
  266. if yoga[18] = 0:
  267. act 'inspect 18th sportswear.':set numdres=18&payclo=4000&gt'loker','yoga'
  268. end
  269. end
  270. >>>>>>> 360_sportShop
  271. end
  272. --- sportShop ---------------------------------