BBasic-Beats!

音乐节奏类游戏。
就像PSP中的 Project DIVA、Android中的乐动舞指、ios中的节奏大师 一样
然而,我们忽略了一个重要的平台——BBasic。
于是乎、

历经N天的努力,基于BBasic平台的游戏Beats产生了!

dimk,ctr,mok,mot,penx,peny,ctr,n,s1,s2,s3,s4,i1,hard,time,count,i2
  dimmstar,mfree,mhard,mchoose1,mchoose2,chopic1,chopic2,count,mcou

  dim grow,exc,aver,mpage

  hard=10

 

time=0'-----loadres----

chopic1=loadres("Beats\beats.lib",1)

chopic2=loadres("Beats\beats.lib",2)

homepic=loadres("Beats\beats.lib",3)

iconpic=loadres("Beats\beats.lib",4)

helppic=loadres("Beats\beats.lib",5)

pagepic=loadres("Beats\beats.lib",6)

scorepic=loadres("Beats\beats.lib",7)

,--------read sav-------

open "Beats\beats.sav" for binaryas #1

get #1,mstar

get #1,mfree

get #1,mhard

get #1,count

get #1,grow

get #1,exc

get #1,aver

get #1,mpage

if lof(1)=0 then

  mhard=1

  mstar=0

  mfree=0

  count=20

  grow=0

  aver=0

  exc=0

  mpage=0

end if

close #1

'-----

 

 

ctr=0

i1=0

mot=0

n=5

showpic(-1,homepic,0,0,240,320,0,0,1)

while n>0

if keypress(key_enter) then

 ifmstar=0 then

  goto 004

 else

  goto 001

  endif

else if keypress(key_escape) then

 end

end if

wend

'------主页-------

004 cls

showpic(-1,iconpic,0,0,240,100,0,0,1)

font(font_16hei)

pixlocate(88,128)

print"开始游戏"

pixlocate(88,160)

print"帮助说明"

pixlocate(88,192)

print"游戏设置"

pixlocate(88,224)

print"退出游戏"

k=waitkey()

penx=getpenposx(k)

peny=getpenposy(k)

if penx>=88 and penx<=152 then

  ifpeny>=128 and peny<=144 then

    goto 001

 else if peny>=160 and peny<=176 then

    goto 005

  else if peny>=192 and peny<=208 then

    goto 009

 else if peny>=224 and peny<=240 then

    end

 else

    goto 004

  endif

else

 goto 004

end if

'--------帮助-------

005 k=0

penx=0

peny=0

cls

showpic(-1,helppic,0,0,240,320,0,0,1)

pixlocate(0,220)

font(font_12hei)

print"由于BBasic限制,无法加载音乐,使用本软件"

print"时请先启动音乐。"

print""

print"版本:"

print"Ver 3.3"

print"Beats:音乐节奏类游戏"

font(font_16hei)

pixlocate(0,304)

print"返回"

k=0

penx=0

peny=0

k=waitkey()

penx=getpenposx(k)

peny=getpenposy(k)

if penx>=0 and penx<=32 then

   ifpeny>=304 and peny<=320 then

     goto 004

  end if

else

  cls

 goto 005

end if'-------change-------

009 cls

font(font_16hei)

print

print"Beats"

pixlocate(20,50)

print"快速启动"

font(font_12hei)

pixlocate(20,72)

print"取消开始菜单。"

font(font_16hei)

pixlocate(20,104)

print"自由模式"

font(font_12hei)

pixlocate(20,126)

print"取消Beats数量限制。"

font(font_16hei)

pixlocate(0,145)

print"困难程度"

pixlocate(20,170)

print"容易"

pixlocate(20,190)

print"中等"

pixlocate(20,210)

print"使用边框"

pixlocate(0,240)

print"Beats数量设置"

pixlocate(200,294)

print"返回"

if mstar=0 then

 showpic(-1,chopic1,0,45,20,20,0,0,1)

else if mstar=1 then

 showpic(-1,chopic2,0,45,20,20,0,0,1)

end if

if mfree=0 then

 showpic(-1,chopic1,0,99,20,20,0,0,1)

else if mfree=1 then

 showpic(-1,chopic2,0,99,20,20,0,0,1)

end if

if mhard=1 then

 showpic(-1,chopic2,0,165,20,20,0,0,1)

 showpic(-1,chopic1,0,185,20,20,0,0,1)

else if mhard=2 then

 showpic(-1,chopic1,0,165,20,20,0,0,1)

 showpic(-1,chopic2,0,185,20,20,0,0,1)

end if

if mpage=0 then

 showpic(-1,chopic2,0,205,20,20,0,0,1)

else if mpage=1 then

 showpic(-1,chopic1,0,205,20,20,0,0,1)

end if

k=waitkey()

penx=getpenposx(k)

peny=getpenposy(k)

if penx>=0 and penx<=20 then

   ifpeny>=45 and peny<=65 then

    if mstar=0 then

       mstar=1

       showpic(-1,chopic2,0,45,20,20,0,0,1)

cls

goto 009

 

    else if mstar=1 then

       mstar=0

       showpic(-1,chopic1,0,45,20,20,0,0,1)

cls

goto 009

 

    end if

 else if peny>=110 and peny<=130 then

 ifmfree=0 then

 mfree=1

 showpic(-1,chopic2,0,99,20,20,0,0,1)

cls 

goto 009

 elseif mfree=1 then

 mfree=0

 showpic(-1,chopic1,0,99,20,20,0,0,1)

 cls

 goto009

 endif

 elseif peny>=165 and peny<=185 then

 mhard=1

 cls

 goto009

 elseif peny>=185 and peny<=205 then

 mhard=2

 cls

 goto009

else if peny>=205 and peny<=225 then

   ifmpage=0 then

  mpage=1

  cls

  goto 009

  else if mpage=1 then

  mpage=0

  cls

  goto 009

  end if

 else

 goto 009

 endif

else if penx>=0 and penx<=96 then

  ifpeny>=240 and peny<=256 then

 mcou=1

 goto 010

 else

  goto 009

  endif

else if penx>=0 and penx<=240 then

  ifpeny>=304 and peny<=320 then

 i1=0

 i2=0

  i=0

 open "Beats\beats.sav" for binary as #2

  put#2,mstar

  put#2,mfree

  put#2,mhard

  put#2,count

  put#2,grow

  put#2,exc

  put#2,aver

  put#2,mpage

 close #2

   goto 004

 else

   goto 009

  endif

else

  goto 009

end if

010 cls

if mcou=1 then

 font(font_16hei)

 print"Beats数量设置"

 print"当前Beats数量"+count

 font(font_16hei)

 pixlocate(0,296)

 print"清除"

 pixlocate(64,296)

 print"+50"

 pixlocate(120,296)

 print"+100"

 pixlocate(192,296)

 print"完成"

k=waitkey()

penx=getpenposx(k)

peny=getpenposy(k)

if peny>=296 and peny<=320 then

  ifpenx>=0 and penx<=48 then

   count=0

   cls

   goto 010

 else if penx>=64 and penx<=100 then

  count=count+50

  cls

  goto 010

 else if penx>=120 and penx<=150 then

 count=count+100

  cls

 goto 010

 else if penx>=192 and penx<=240 then

  cls

 mcou=0

 goto 009

 else

  cls

  goto 010

  endif

else

  cls

 goto 010

end if

end if

 

 

 

001 cls

k=0

penx=0

peny=0

ctr=rnd(900)

if ctr>=0 and ctr<100 then

  mok=1

else if ctr>=100 and ctr<200 then

  mok=2

else if ctr>=200 and ctr<=300 then

  mok=3

else if ctr>=300 and ctr<400 then

  mok=4

else if ctr>=400 and ctr<500 then

  mok=5

else if ctr>=500 and ctr<600 then

  mok=6

else if ctr>=600 and ctr<700 then

  mok=7

else if ctr>=700 and ctr<800 then

  mok=8

else if ctr>=800 and ctr<900 then

  mok=9

end if

'------屏幕显示-----

002 if mpage=0 then

showpic(-1,pagepic,0,0,240,240,0,0,1)

else if mpage=1 then

 goto 012

end if

012 if mok=1 then

fillpage(-1,0,0,80,80,&hff0000)

else if mok=2 then

fillpage(-1,80,0,80,80,&h00ffff)

else if mok=3 then

fillpage(-1,160,0,80,80,&h0000ff)

else if mok=4 then

fillpage(-1,0,80,80,80,&h00ffff)

else if mok=5 then

fillpage(-1,80,80,80,80,&h00ff00)

else if mok=6 then

fillpage(-1,160,80,80,80,&h0000ff)

else if mok=7 then

fillpage(-1,0,160,80,80,&hffffff)

else if mok=8 then

fillpage(-1,80,160,80,80,&h00ffff)

else if mok=9 then

fillpage(-1,160,160,80,80,&h00ff00)

end if

if mfree=0 then

fillpage(-1,0,290,i2,6,&hffffff)

font(font_12hei)

pixlocate(0,275)

print"进度:"+i1+"/"+count

else if mfree=1 then

font(font_12hei)

pixlocate(0,285)

print"自由模式"

end if

font(font_16hei)

pixlocate(0,304)

print"返回"

 

'-------触点坐标-------

k=0

penx=0

peny=0

011 k=waitkey()

penx=getpenposx(k)

peny=getpenposy(k)

if peny>=0 and peny<80 then

   ifpenx>=0 and penx<80 then

   mot=1

   goto 003

  else if penx>=80 and penx<160 then

   mot=2

   goto 003

  else if penx>=160 and penx<240 then

   mot=3

   goto 003

  end if

else if peny>=80 and peny<160 then

   ifpenx>=0 and penx<80 then

  mot=4

  goto 003

  else if penx>=80 and penx<160 then

  mot=5

  goto 003

  else if penx>=160 and penx<240 then

  mot=6

  goto 003

  end if

else if peny>=160 and peny<240 then

   ifpenx>=0 and penx<80 then

  mot=7

  goto 003

  else if penx>=80 and penx<160 then 

  mot=8

  goto 003

  else if penx>=160 and penx<240 then

  mot=9

  goto 003

  end if

else if peny>=304 and peny<=320 then

   if penx>=0 and penx<=32 then

     

     

    

    if mfree=0 then

 i=0

 i1=0

 i2=0

     goto 004

    else if mfree=1 then

     showpic(-1,scorepic,0,0,240,240,0,0,1)

 font(font_12hei)

 grow=grow+i

 exc=exc+1

     pixlocate(0,80)

     print"自由模式"

     print""

     print"本次游戏共进行"+i1+"个Beats。"

     print"Beats"+i+"个。"

     print""

     print"增加成就值:"+i+"分。"

     print""

     print"-----------------------------------------"

     print"信息"

     print"-----------------------------------------"

     print""

     print"共进行游戏"+exc+"次。"

     print"成就值共"+grow+"分。"

     print""

     aver=grow/exc

     print"平均成就值"+aver+"分。"

i=0

i1=0

i2=0

waitkey()

cls

goto 004

end if

   end if

end if

'------判断坐标--------

003 if mfree=0 then

i2=240/count*i1

fillpage(-1,0,290,i2,6,&hffffff)

if mok=mot then

 i=i+1

 i1=i1+1

 mot=0

 cls

if i1=count then

 goto 007

else

 goto001

end if

else

  cls

 mot=0

 i1=i1+1

 goto 001

end if   

else if mfree=1 then

  ifmot=mok then

   i=i+1

   i1=i1+1

   mot=0

   cls

  goto 001

 else

  i1=i1+1

  mot=0

  cls

  goto 001

  endif

end if

007 cls

 font(font_12hei)

  showpic(-1,scorepic,0,0,240,240,0,0,1)

 grow=grow+i

 exc=exc+1

 pixlocate(0,80)

  print"共"+count+"个Beats。"

  print""

  print"Beats"+i+"个。"

 print"增加成就值"+i+"分。"

 print""

 print"---------------------------------------------"

 print"信息"

 print"---------------------------------------------"

 print""

 print"共进行游戏"+exc+"次。"

 print"成就值共"+grow+"分。"

 aver=grow/exc

 print

 print"平均成就值"+aver+"分。"

  i1=0

  i=0

  i2=0

  waitkey()

  goto 004

end if 
运行结果:

BBasic-Beats!_第1张图片 

BBasic-Beats!_第2张图片
BBasic-Beats!_第3张图片


BBasic-Beats!_第4张图片


BBasic-Beats!_第5张图片BBasic-Beats!_第6张图片


BBasic-Beats!_第7张图片


@ Mayuko

你可能感兴趣的:(BBasic-Beats!)