Ｌｅｔ－シューティング

Ｎｏ０．文字キャラシューティング（シューティング）	オヤブン　2004/3/28
Ｊａｖａが使用できません
●操作方法キーボードの矢印で　移動 Ctrlで　玉発射敵の赤いところに玉を当てないといけません注意：上の実行画面を１度クリックしないと　操作できません ●ソフト紹介せっかくだから載せてみました製作時間２時間ですなんとも簡単なゲーム・・・しかも動作がねぇ・・・これで　ＨＳＰＬｅｔでは　高速な動作がいるゲームはよしたほうがいいということが分かった ●サンプルプログラム ; screen 0,300,400 cls 4 randomize dim tama,5,3 dim teki,10,5 sokudo=5 pos 50,200 color 255,255,255 print "Sample シューティングゲーム" pos 115 button "Start",start pos 70,280 print "数字を上げると\n速くなります" input sokudo,50,25,2 pos stop start cls 4 x=140:y=300 dameze=8 main redraw 2 color 0,0,0 boxf color 255,255,255 pos x,y print "　▲　" print "／■＼" getkey key,37 if key=1:x=x-2-sokudo getkey key,38 if key=1:y=y-2-sokudo getkey key,39 if key=1:x=x+2+sokudo getkey key,40 if key=1:y=y+2+sokudo if x>255:x=255 if y>365:y=365 if x<0:x=0 if y<0:y=0 getkey key,17 ;玉の発射 if key=1:{ if botan=1:bcount+ if bcount>5:botan=0:bcount=0 if botan=1:gotoout if tok>4:gotoout tama.tok.0=1 tama.tok.1=x tama.tok.2=y }:else:botan=0:bcount=0 if (key=1) and (botan=0):botan=1 out tok=5 repeat 5 ;玉表示＆移動 if tama.cnt.0=0:tok=cnt if tama.cnt.0=0:gototobasu pos tama.cnt.1+19,tama.cnt.2-2 print "\|" tama.cnt.2=tama.cnt.2-5-sokudo if tama.cnt.2<0:tama.cnt.0=0 tobasu loop repeat 7 ;敵 if teki.cnt.0=0:{ rnd r,300 teki.cnt.1=r teki.cnt.2=-35 rnd r,3 teki.cnt.3=r rnd r,4 teki.cnt.4=r teki.cnt.0=1 } teki.cnt.2=teki.cnt.2+1+teki.cnt.4+sokudo teki.cnt.1=teki.cnt.1+teki.cnt.3-1 pos teki.cnt.1,teki.cnt.2 print "■■■" print "＼■／" pos teki.cnt.1+16,teki.cnt.2 color 255,0,0 print "■" color 255,255,255 if teki.cnt.1>300:teki.cnt.0=0 if teki.cnt.1<-50:teki.cnt.0=0 if teki.cnt.2>400:teki.cnt.0=0 if teki.cnt.2<-50:teki.cnt.0=0 c=cnt repeat 5 ;玉と敵のあたり判定 if tama.cnt.0=0:gotototobasu a=teki.c.1 d=teki.c.1+15 e=teki.c.2+25 if (tama.cnt.1+6>a) and (tama.cnt.1<d) and (tama.cnt.2>teki.c.2) and(tama.cnt.2<e):{ teki.c.0=0 tama.cnt.0=0 scoa=scoa+10 } totobasu loop a=teki.c.1+50 d= e=teki.c.2+30 if (x+50>teki.c.1) and (x<a) and (y+30>teki.c.2) and (y<e):{ teki.cnt.0=0 dameze=dameze-1 } loop pos 0,0 print "ｽｺｱ:"+scoa a=dameze30-30 pos 400,0 color 255,a,0 boxf 150,3,dameze15+149,20 color 255,255,255 if dameze<=0:gotoowari redraw 1 await 0 gotomain owari pos 115,175 color 0,0,0 boxf 115,175,165,200 color 255,255,255 print "GAME OVER" print "\nreplay?" button "GO",start redraw 1 stop