# sportShop <<<<<<< 360_sportShop if $ARGS[0] = 'start': cla *clr set minut += 5 '
Sporting goods store
' '
' clr gs 'stat' fcolor = rgb(0,0,0) bcolor = rgb(255,255,255) lcolor = rgb(106,90,205) act 'QUIT': cla set minut += 5 gt 'torgcentr' end act 'In the women´s clothing department': cla set minut += 5 gt 'sportshop','clo' end if skak = 0 and money >= 500: act 'Buy rope 500 rubles': cla set minut += 5 set money -= 500 set skak = 1 act 'Pick up a package': gt 'sportshop','start' end end if obruch = 0 and money >= 1500: act 'Buy hoop 1,500 rubles': cla set minut += 5 set money -= 1500 set obruch = 1 act 'Pick up a package': gt 'sportshop','start' end end if bookYog = 0 and money >= 1500: act 'Buy benefits of yoga 1,500 rubles': cla set minut += 5 set money -= 1500 set bookYog = 1 act 'Pick up a package': gt 'sportshop','start' end end if remsitr = 1 and treadmill = 0 and money >= 5000: act 'Treadmill 5000 rubles': cla set minut += 5 set money -= 5000 set treadmill = 1 'The attendant informed that they can send it directly to your house.' act 'Give the address': gt 'sportshop','start' end end ======= if $ARGS[0]='start': cla *clr set minut = minut + 5 '
Sporting goods store.
' '
' clr gs'stat' fcolor=rgb(0,0,0) bcolor=rgb(255,255,255) LCOLOR = rgb(106,90,205) act 'GO_OUT': cla set minut = minut + 5 gt'torgcentr' end act 'In the women`s clothing department': cla set minut = minut + 5 gt'sportshop','clo' end if obruch = 0 and money >= 1500: act 'Buy hoop 1500 RUB': cla set minut = minut + 5 set money = money - 1500 set obruch = 1 act 'pick purchase':gt'sportshop','start' end end if skak = 0 and money >= 500: act 'Buy rope 500 RUB': cla set minut = minut + 5 set money = money - 500 set skak = 1 act 'pick purchase':gt'sportshop','start' end end if bookYog = 0 and money >= 1500: act 'Buy guide to yoga 1500 RUB': cla set minut = minut + 5 set money = money - 1500 set bookYog = 1 act 'pick purchase':gt'sportshop','start' end end >>>>>>> 360_sportShop end <<<<<<< 360_sportShop if $ARGS[0] = 'clo': cla *clr set mag = 1 $metka = $ARGS[0] $loc = $CURLOC $metkaM = $ARGS[0] $locM = $CURLOC set minut += 5 '
Department of women´s clothing.
' '
' clr gs 'stat' fcolor = rgb(0,0,0) bcolor = rgb(255,255,255) LCOLOR = rgb(106,90,205) 'All clothing costs 4,000 rubles, sportswear dimensionless.' act 'Get out of the department': cla set minut += 5 gt 'sportshop','start' end if money >= 4000: if yoga[1] = 0: act 'Inspect 1st sportswear.': set numdres = 1 & payclo = 4000 & gt 'loker','yoga' end if yoga[2] = 0: act 'Inspect 2nd sportswear.': set numdres = 2 & payclo = 4000 & gt 'loker','yoga' end if yoga[3] = 0: act 'Inspect 3rd sportswear.': set numdres = 3 & payclo = 4000 & gt 'loker','yoga' end if yoga[4] = 0: act 'Inspect 4th sportswear.': set numdres = 4 & payclo = 4000 & gt 'loker','yoga' end if yoga[5] = 0: act 'Inspect 5th sportswear.': set numdres = 5 & payclo = 4000 & gt 'loker','yoga' end if yoga[6] = 0: act 'Inspect 6th sportswear.': set numdres = 6 & payclo = 4000 & gt 'loker','yoga' end if yoga[7] = 0: act 'Inspect 7th sportswear.': set numdres = 7 & payclo = 4000 & gt 'loker','yoga' end if yoga[8] = 0: act 'Inspect 8th sportswear.': set numdres = 8 & payclo = 4000 & gt 'loker','yoga' end if yoga[9] = 0: act 'Inspect 9th sportswear.': set numdres = 9 & payclo = 4000 & gt 'loker','yoga' end if yoga[10] = 0: act 'Inspect 10th sportswear.': set numdres = 10 & payclo = 4000 & gt 'loker','yoga' end if yoga[11] = 0: act 'Inspect 11th sportswear.': set numdres = 11 & payclo = 4000 & gt 'loker','yoga' end if yoga[12] = 0: act 'Inspect 12th sportswear.': set numdres = 12 & payclo = 4000 & gt 'loker','yoga' end if yoga[13] = 0: act 'Inspect 13th sportswear.': set numdres = 13 & payclo = 4000 & gt 'loker','yoga' end if yoga[14] = 0: act 'Inspect 14th sportswear.': set numdres = 14 & payclo = 4000 & gt 'loker','yoga' end if yoga[15] = 0: act 'Inspect 15th sportswear.': set numdres = 15 & payclo = 4000 & gt 'loker','yoga' end if yoga[16] = 0: act 'Inspect 16th sportswear.': set numdres = 16 & payclo = 4000 & gt 'loker','yoga' end if yoga[17] = 0: act 'Inspect 17th sportswear.': set numdres = 17 & payclo = 4000 & gt 'loker','yoga' end if yoga[18] = 0: act 'Inspect 18th sportswear.': set numdres = 18 & payclo = 4000 & gt 'loker','yoga' end end ======= if $ARGS[0]='clo': cla *clr set mag=1 $metka = $ARGS[0] $loc = $CURLOC $metkaM = $ARGS[0] $locM = $CURLOC set minut = minut + 5 '
Department of women`s clothing.
' '
' clr gs'stat' fcolor=rgb(0,0,0) bcolor=rgb(255,255,255) LCOLOR = rgb(106,90,205) 'All clothing should 4000 RUB, sportswear dimensionless.' act 'Get out of the department': cla set minut = minut + 5 gt'sportshop','start' end if money >= 4000: if yoga[1] = 0: act 'inspect 1th sportswear.':set numdres=1&payclo=4000>'loker','yoga' end if yoga[2] = 0: act 'inspect 2th sportswear.':set numdres=2&payclo=4000>'loker','yoga' end if yoga[3] = 0: act 'inspect 3th sportswear.':set numdres=3&payclo=4000>'loker','yoga' end if yoga[4] = 0: act 'inspect 4th sportswear.':set numdres=4&payclo=4000>'loker','yoga' end if yoga[5] = 0: act 'inspect 5th sportswear.':set numdres=5&payclo=4000>'loker','yoga' end if yoga[6] = 0: act 'inspect 6th sportswear.':set numdres=6&payclo=4000>'loker','yoga' end if yoga[7] = 0: act 'inspect 7th sportswear.':set numdres=7&payclo=4000>'loker','yoga' end if yoga[8] = 0: act 'inspect 8th sportswear.':set numdres=8&payclo=4000>'loker','yoga' end if yoga[9] = 0: act 'inspect 9th sportswear.':set numdres=9&payclo=4000>'loker','yoga' end if yoga[10] = 0: act 'inspect 10th sportswear.':set numdres=10&payclo=4000>'loker','yoga' end if yoga[11] = 0: act 'inspect 11th sportswear.':set numdres=11&payclo=4000>'loker','yoga' end if yoga[12] = 0: act 'inspect 12th sportswear.':set numdres=12&payclo=4000>'loker','yoga' end if yoga[13] = 0: act 'inspect 13th sportswear.':set numdres=13&payclo=4000>'loker','yoga' end if yoga[14] = 0: act 'inspect 14th sportswear.':set numdres=14&payclo=4000>'loker','yoga' end if yoga[15] = 0: act 'inspect 15th sportswear.':set numdres=15&payclo=4000>'loker','yoga' end if yoga[16] = 0: act 'inspect 16th sportswear.':set numdres=16&payclo=4000>'loker','yoga' end if yoga[17] = 0: act 'inspect 17th sportswear.':set numdres=17&payclo=4000>'loker','yoga' end if yoga[18] = 0: act 'inspect 18th sportswear.':set numdres=18&payclo=4000>'loker','yoga' end end >>>>>>> 360_sportShop end --- sportShop ---------------------------------