sample\game\battle.hsp » Plain Format
;
; カードバトルゲーム
;
; このゲームは、カードをレベルアップしながら敵と戦います。
;
; 1. 王国にせまる敵を倒しながらカードのレベルを上げましょう
; 2. 「こうげき」カードを選ぶと敵に攻撃をしかけます
; 3. 敵を倒すと「ざいりょう」が手に入ります
; 4. 「せいさん」カードを選ぶとざいりょうをもとにお金をかせぎます
; 5. 「かいふく」カードを選ぶと「たいりょく」が回復します(ゴールドが減ります)
; 6. 「レベルアップ」を選ぶとゴールドを払ってカードのレベルを上げることができます
; 7. カードのレベルを上げると効果がさらに上がります
;
; 敵の攻撃で「たいりょく」が0になると負けになってしまいます。
; ゴールドを増やしながら長い期間、王国を繁栄させましょう。
;
name="カードバトルゲーム"
randomize
screen 0,800,600 ; ウィンドウ初期化
cls 4
title name
sdim tvdir,256
tvdir = dir_exe+"\\hsptv\\" ; HSPTV素材フォルダ
celload "cardbg.png",3 ; 背景
celload "btlcard.bmp",4 ; カード
celdiv 4,128,192
celload "btlenemy.bmp",5 ; 敵
celdiv 5,64,64
celload tvdir+"baku.bmp",6 ; 爆発
celdiv 6,96,96
sdim msg,256
mmload tvdir+"se_click.wav",0
mmload tvdir+"se_break3.wav",1
mmload tvdir+"se_block2.wav",2
enemylv=1
gold=100
turn=0
beats=0
attack=1
heal=1
make=1
level=1
*start
; ステージ開始
maxhp=300+level*100
hp=maxhp
encount=0
gosub *stageset
*gomain
; ターン開始
clrobj
if hp=0 : goto *main6
;
gosub *initcard
repeat 4
card_lv(cnt)=1
card_type(cnt)=cnt
x=220+(cnt*140)
card_x(cnt)=x
card_y(cnt)=310
loop
card_lv(0)=attack
card_lv(1)=heal
card_lv(2)=make
card_lv(3)=level
encount++
if encount>3 : goto *main5
target=-1
turn++
objsize 128,28
pos 220,510:button "こうげき",*main1
pos 220+140*1,510:button "かいふく",*main2
pos 220+140*2,510:button "せいさん",*main3
pos 220+140*3,510:button "レベルアップ",*main4
msg="ボタンでカードをえらんでください。"
enemypow=0
*main
; メインループ
gosub *scclear
gosub *scupdate
if eleft=0 {
enemylv++
goto *start
}
;
goto *main
*main1
; こうげき
if target<0 {
msg="こうげきできません。"
goto *main
}
clrobj
msg="てきにレベル"+attack+"のこうげき！"
mmplay 1
card_y(0)-=16
bomx=ene_x(target)-64
bomy=ene_y(target)-64
bomcnt=0
bomfl=1
ene_hp(target)-=attack*40
if ene_hp(target)<=0 {
ene_hp(target)=0
beats++
msg+=" てきをたおした！"
}
pass=20:gosub *scpass
goto *gomain
*main2
; かいふく
if gold<20 {
msg="ゴールドがたりません。20ゴールドかかります。"
goto *main
}
gold-=20
clrobj
msg="レベル"+heal+"のかいふく！"
card_y(1)-=16
bomfl=3
bomcnt=0
bomx=-40
bomy=318
hp+=heal*150
if hp>maxhp : hp=maxhp
mmplay 2
pass=20:gosub *scpass
goto *gomain
*main3
; せいさん
if beats=0 {
msg="ざいりょうがありません。"
goto *main
}
clrobj
plus=make*20+20
plus=beats*plus+rnd(4)*10
beats=0
msg="レベル"+make+"のせいさんで +"+plus+"ゴールド！"
card_y(2)-=16
bomfl=4
bomcnt=0
bomx=-40
bomy=368
gold+=plus
mmplay 2
pass=30:gosub *scpass
goto *gomain
*main4
; レベルアップ
picload "cardbg2.png"
font msgothic,20,1
color 255,255,255
pos 180,20
mes "レベルアップさせるカードをえらんでください。"
pos 180,540
mes "ゴールドのこり "+gold
objsize 128,28
pos 480,536:button "やめる",*gomain
x=40:y=70
repeat 4
card_lv(cnt)+=1
need=100*card_lv(cnt)
card_x(cnt)=x
card_y(cnt)=y
pos x+150,y+10
mes ""+need+"ゴールド"
mes "かかります。"
pos x+150,y+160
button "レベルアップ",*main4buy
x+=400:if x>800 : x=40 : y+=220
loop
gmode 0
font msgothic,12,1
color 0,0,0
repeat cmax
a=cnt:gosub *getcard
if lv>0 : gosub *putcard
loop
mmplay 0
stop
*main4buy
; レベルアップ承認
a=stat-1
if a<0|a>3 : stop
gosub *getcard
need=100*lv
if need>gold : dialog "ゴールドがたりません！" : stop
gold=gold-need
if type=0 : attack++
if type=1 : heal++
if type=2 : make++
if type=3 : level++ : maxhp=300+level*100
mmplay 2
goto *gomain
*main5
; 敵の攻撃
encount=rnd(2)
if target<0 : goto *gomain
;
clrobj
enemypow=enemylv*20+rnd(3)*10
msg="てきのこうげき！ -"+enemypow
repeat 30
gosub *scclear
x=260:y=cnt*40-200
if y>30 : y=30
pos x,y:gmode 2
if target>=0 {
celput 5,ene_type(target),4,4
}
if cnt=8 {
mmplay 1
bomfl=1
bomcnt=0
bomx=-40
bomy=310
}
gosub *scupdate
loop
hp-=enemypow
if hp<0 : hp=0
repeat 8
gosub *scclear
x=260:y=30:color 0,0,0
pos x,y:gmode 4,,,255-(cnt*32)
if target>=0 {
celput 5,ene_type(target),4,4
}
gosub *scupdate
loop
goto *gomain
*main6
; プレイヤーやられた
clrobj
msg="たいりょくがない…ちからつきた…！"
gosub *scclear
gosub *scupdate
objsize 128,28
pos 220+140*3,510:button "おしまい",*owari
stop
*owari
end
*scpass
; passの回数、画面を更新
repeat pass
gosub *scclear
gosub *scupdate
loop
return
*stageset
; 敵をセット
emax=enemylv*5
if emax>30 : emax=30
dim ene_x,emax
dim ene_y,emax
dim ene_type,emax
dim ene_hp,emax
dim ene_cnt,emax
repeat emax
i=enemylv:if i>3 : i=3
ene_hp(cnt)=40+(enemylv*40)
ene_type(cnt)=rnd(i)
x=160+(rnd(46)*10)
y=160+((cnt/5)*10)
if y>220 : y=220
ene_x(cnt)=x
ene_y(cnt)=y
loop
bomfl=0
bomx=0:bomy=0:bomcnt=0
return
*stagedraw
; 敵を描画
gmode 2
eleft=0
target=-1
repeat emax
if ene_hp(cnt)>0 {
pos ene_x(cnt),ene_y(cnt)
celput 5,ene_type(cnt)
eleft++
target=cnt
}
loop
gmode 5,,,255
if bomfl {
pos bomx,bomy
i=(bomfl-1)*16
celput 6,i+bomcnt,2,2
bomcnt++
if bomcnt>=16 : bomfl=0
}
return
*initcard
; カード初期化
cmax=5
dim card_x,cmax
dim card_y,cmax
dim card_type,cmax
dim card_lv,cmax
return
*getcard
; カードの情報取得(a=card id)
x=card_x(a)
y=card_y(a)
type=card_type(a)
lv=card_lv(a)
return
*putcard
; カードを描画
pos x,y
celput 4,type
pos x+34,y+168
mes "レベル "+lv
return
*scclear
; 画面クリア
redraw 0
pos 0,0:gmode 0,800,600:gcopy 3
font msgothic,20,1
color 255,255,255
pos 18,320
mes "ターン"
mes " +"+turn
pos 18,380
mes "たいりょく"
if enemypow=0 {
mes " +"+hp
} else {
mes " +"+hp+" -"+enemypow
}
pos 18,440
mes "ざいりょう"
mes " +"+beats
pos 18,500
mes "ゴールド"
mes " +"+gold
color 0,0,0
pos 50,560
mes msg
gosub *stagedraw
gmode 0
font msgothic,12,1
color 0,0,0
repeat cmax
a=cnt:gosub *getcard
if lv>0 : gosub *putcard
loop
return
*scupdate
; 画面の更新
font msgothic,20,1
pos 8,8
color 255,255,255
mes "てきレベル:"+enemylv+" のこり:"+eleft
redraw 1
await 30
return