商店系統

試寫商店系統
發現其實蠻好寫的
從COUNTD大寫的標題範例改改就成了= =

只是這個系統不是很好用
再改改=v=
*define
defsub shop
game


*shop


lsp 11,":s/25,25,0;#ffffff#ffff00物品一",305,252
lsp 12,":s/25,25,0;#ffffff#ffff00物品二",305,282
lsp 13,":s/25,25,0;#ffffff#ffff00物品三",305,312
print 1

btndef ""
spbtn 11,1
spbtn 12,2
spbtn 13,3

btnwait %0
if %0<=0 goto *shop
if %0==1 goto *one;物品一
if %0==2 goto *two ;物品二
if %0==3 goto *three;物品三
end
;=====物品一=====
*one
csp-1
select "買",*addone,"不買",*shop

*addone
物品一購入了

add %1,1

你現在物品一有%1個
物品二有%2個
物品三有%3個

if %4=1 goto*shop
end



;==物品二===========
*two
csp-1
select "買",*addtwo,"不買",*shop

*addtwo
物品一購入了

add %2,1

你現在物品一有%1個
物品二有%2個
物品三有%3個

if %4=1 goto*shop
end

;===物品三====
*three
csp-1
select "買",*addthree,"不買",*shop

*addthree
物品一購入了

add %3,1

你現在物品一有%1個
物品二有%2個
物品三有%3個

if %4=1 goto*shop
end

*start

mov %1,0
mov %2,0
mov %3,0
mov %4,1


你現在物品一有%1個
物品二有%2個
物品三有%3個

shop