試寫商店系統
發現其實蠻好寫的
從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