Shooting Game KENZOU Shooting Game HSP 1 2 ( HSP Shooting Game HSP 2 OK OK STOP 1:

Size: px

Start display at page:

Download "Shooting Game KENZOU Shooting Game HSP 1 2 ( HSP Shooting Game HSP 2 OK OK STOP 1:"

せぴあわにべ
4 years ago
Views:

1 Shooting Game KENZOU Shooting Game HSP 1 2 (HSP Shooting Game HSP 2 OK OK STOP 1:

2 ;********************************* ; Shooting Game ; ;********************************** buffer 2,,,1 picload "back.bmp" buffer 1,,,1 picload "dotcg.bmp" screen 0,320,400,1 palcopy 1 ID2 ID1() (ID0) ; px=144: py=352 tmx=3 hp=5 dim tf,tmx dim tx,tmx: dim ty,tmx repeat tmx: tf.cnt=0: (1 ) ; emx=4 ecn=emx dim ehp,emx dim ex,emx: dim ey,emx dim dx,emx: dim dy,emx repeat emx ehp.cnt=3 rnd ex.cnt,288 rnd ey.cnt,168 rnd r,5: dx.cnt=r-2*4 rnd r,5: dy.cnt=r-2*4 etmx=8 dim etf,etmx dim etx,etmx: dim ety,etmx dim tdx,etmx: dim tdy,etmx repeat etmx: etf.cnt=0 (1 ) ; *main redraw 2 () 2

3 gmode 1 scr=scr+8\400 pos 0,scr: gcopy 2,0,0,320,400-scr () if scr!0: pos 0,0: gcopy 2,0,400-scr,320,scr; gmode 2 ; stick ky,15 if ky & 1: px-=8: if px<8 :px=8 if ky & 4: px+=8: if px>280 :px=280 if ky & 2: py-=8: if py<200 :py=200 if ky & 8: py+=8: if py>360 :py=360 (15= ) ; repeat tmx if tf.cnt=0 { if ky & 16: tx.cnt=px+8: ty.cnt=py-16 tf.cnt=1: ky=0 else{ ty.cnt-=16: if ty.cnt<0: tf.cnt=0 if tf.cnt=1: n=cnt: gosub *hitchk if tf.cnt=1: pos tx.cnt,ty.cnt: gcopy 1,64,0,16,16 ; if hp>0: pos px,py: gcopy 1,0,0,32,32 ;px,py ; repeat emx if ehp.cnt>0{ rnd r,10 if r=0: rnd r,5: dx.cnt=r-2*4: rnd r,5: dy.cnt=r-2*4; x=ex.cnt: ex.cnt+=dx.cnt if (ex.cnt<8) (ex.cnt>280) :ex.cnt=x: dx.cnt=-dx.cnt y=ey.cnt: ey.cnt+=dy.cnt if (ey.cnt<8) (ey.cnt>168) :ey.cnt=y: dy.cnt=-dy.cnt pos ex.cnt,ey.cnt: gcopy 1,32,0,32,32 3

4 rnd r,etmx: rnd e,emx if (etf.r=0)&(ehp.e>0){etx.r=ex.e+8: ety.r=ey.e+16; rnd x,5: tdx.r=x-2*4: rnd y,2: tdy.r=y+1*8; etf.r=1; repeat etmx x=etx.cnt: y=ety.cnt if (etf.cnt=1)&(px+32>x)&(x+16>px)&(py+32>y)&(y+16>py){ htc=2: hx=etx.cnt: hy=ety.cnt etf.cnt=0: hp-: if hp<1: bmc=3: bmx=px: bmy=py if etf.cnt=1{ pos etx.cnt,ety.cnt: gcopy 1,80,0,16,16 etx.cnt+=tdx.cnt: ety.cnt+=tdy.cnt if (etx.cnt<0) (etx.cnt>304) (ety.cnt>384): etf.cnt=0 if htc>0: htc-: pos hx,hy: gcopy 1,80-(htc*16),216,16,16 if bmc>0: bmc-: pos bmx,bmy: gcopy 1,32*(2-bmc),32,32,32 redraw 1 wait 5 if (ecn>0)&(hp>0): goto *main *main if bmc>0: goto *main *main stop ; *hitchk repeat emx x=ex.cnt: y=ey.cnt if (ehp.cnt>0)&(x+32>tx.n)&(tx.n+16>x)&(y+32>ty.n)&(ty.n+16>y){ htc=2: hx=tx.n: hy=ty.n tf.n=0:ehp.cnt-: if ehp.cnt<1: ecn-: bmc=3: bmx=ex.cnt: bmy=ey.cnt 4

5 3 3.1 buffer p1, p2, p3, p4 p1=031(0) ID p2, p3 X,Y p4=01 0: : 256 buffer buffer ID screen p1, p2, p3, p4, p5, p6 p1=031(0) ID p2,p3 X,Y p4=01 p5,p6 X,Y1 p7,p8 X,Y ID ID27 palcopy p1 p1=031(0) ID p1 ID ID0 picload cls palcopy cls buffer 2,,,1 picload "back.bmp" buffer 1,,,1 picload "dotcg.bmp" screen 0,320,400,1 palcopy 1 ID2() ID1() (ID0) buffer 2 ID1,ID2) ID2 ID1 picload (ID0)

6 3.2 dim p1, p2, p1= p2=0 dim A, 20 A.0A repeat p1, p2 p1=0 p2=0 cnt repeat cnt( 0) 1 break rnd p1, p2 p1= p2=132768: rnd randomize px=144: py=352 tmx=3: hp=5 dim tf,tmx dim tx,tmx: dim ty,tmx repeat tmx: tf.cnt=0: (1 ) emx=4 ecn=emx dim ehp,emx dim ex,emx: dim ey,emx dim dx,emx: dim dy,emx repeat emx ehp.cnt=3 rnd ex.cnt,288: rnd ey.cnt,168 rnd r,5: dx.cnt=r-2*4: rnd r,5: dy.cnt=r-2*4 etmx=8 dim etf,etmx dim etx,etmx: dim ety,etmx dim tdx,etmx: dim tdy,etmx repeat: etmx: etf.cnt=0: (1 ) 6

7 redraw p1, p2, p3, p4, p5 p1=03 (3) p2, p3 X,Y p4, p5 X,Y 0(2) 1(3) 0 1 p2p5 gmode p1, p2, p3, p4 p1=06(0) p2, p3 X,Y( p4=0256(0) 0Windows API RGB 0 35() gcopy p1, p2, p3, p4, p5 p1=031(0) ID p2, p3 X,Y p4, p5 X,Y( ID redraw 2 () gmode 1 scr=scr+8\400 pos 0,scr: gcopy 2,0,0,320,400-scr () if scr!0: pos 0,0: gcopy 2,0,400-scr,320,scr; 1 scr = scr + 8\400 scr = 8 pos 0, 8 (0, 0, 320, 400 8) gcopy (0, 0) (0, 400 8, 320, 8) gcopy (scr = scr scr = 0) 7

8 (0,0) (320,0) (0,0) (320,0) (320,scr) (320,400-scr) (320,400) scr=scr+8y400 (0,0) (320,0) (0,0) (320,0) (320,400-scr) (320,scr) (320,400) 2: stick p1, p2, p3 p1= p2=0(0) p3=01 ON/OFF 0 stick getkey p Ctrl Esc T ab 32 Enter 8

9 stick ky,15 if ky & 1: px-=8: if px<8 :px=8 if ky & 4: px+=8: if px>280 :px=280 if ky & 2: py-=8: if py<200 :py=200 if ky & 8: py+=8: if py>360 :py=360 (15= ) : repeat tmx if tf.cnt=0 { if ky & 16: tx.cnt=px+8: ty.cnt=py-16 tf.cnt=1: ky=0 else{ ty.cnt-=16: if ty.cnt<0: tf.cnt=0 if tf.cnt=1: n=cnt: gosub *hitchk if tf.cnt=1: pos tx.cnt,ty.cnt: gcopy 1,64,0,16,16 if tf.cnt=0 {if ky & 16: tx.cnt=px+8: ty.cnt=py-16tf.cnt=1: ky=0 (tf.cnt = 0) (ky = 16) (tx.cnt = px + 8 : ty.cnt = py 16) (tf.cnt = 1) (ky) 0 9

10 *hitchk repeat emx x=ex.cnt: y=ey.cnt if (ehp.cnt>0)&(x+32>tx.n)&(tx.n+16>x)&(y+32>ty.n)&(ty.n+16>y){ htc=2: hx=tx.n: hy=ty.n tf.n=0:ehp.cnt-: if ehp.cnt<1: ecn-: bmc=3: bmx=ex.cnt: bmy=ey.cnt (tx,ty) (x,y) y-16 ty y+32 (tx,ty) x-16 tx x+32 4: 4 (x+32>tx.n)&(tx.n+16>x)&(y+32>ty.n)&(ty.n+16>y) htc=2 2 bmc= if hp>0: pos px,py: gcopy 1,0,0,32,32 px, py ;px,py 10

11 3.3.5 repeat emx if ehp.cnt>0{ rnd r,10 ;1/10 if r=0: rnd r,5: dx.cnt=r-2*4: rnd r,5: dy.cnt=r-2*4; x=ex.cnt: ex.cnt+=dx.cnt if (ex.cnt<8) (ex.cnt>280) :ex.cnt=x: dx.cnt=-dx.cnt y=ey.cnt: ey.cnt+=dy.cnt if (ey.cnt<8) (ey.cnt>168) :ey.cnt=y: dy.cnt=-dy.cnt pos ex.cnt,ey.cnt: gcopy 1,32,0,32,32 rnd r, 10 r 09 r = 0 1/10 1/10 rnd r,10 if r=0: rnd r,5: dx.cnt=r-2*4: rnd r,5: dy.cnt=r-2*4; 1/10 n n=1000 c= /1000 1/10 1/10 n=10000: c=0 repeat n rnd r,10 if r=0: c++ print c: stop 2 rnd r,etmx: rnd e,emx if etf.r=0{etx.r=ex.e+8: ety.r=ey.e+16 rnd x,5: tdx.r=x-2*4: rnd y,2: tdy.r=y+1*8 etf.r=1 rnd r, etmx : rnd e, emx 8 4 etx.r=ex.e+8:ety.r=ey.e+16; rnd x,5: tdx.r=x-2*4: rnd y,2: tdy.r=y+1*8; 11

12 3 repeat etmx x=etx.cnt: y=ety.cnt if (etf.cnt=1)&(px+32>x)&(x+16>px)&(py+32>y)&(y+16>py){ htc=2: hx=etx.cnt: hy=ety.cnt etf.cnt=0: hp-: if hp<1: bmc=3: bmx=px: bmy=py if etf.cnt=1{ pos etx.cnt,ety.cnt: gcopy 1,80,0,16,16 etx.cnt+=tdx.cnt: ety.cnt+=tdy.cnt if (etx.cnt<0) (etx.cnt>304) (ety.cnt>384): etf.cnt= main if htc>0: htc-: pos hx,hy: gcopy 1,80-(htc*16),216,16,16 if bmc>0: bmc-: pos bmx,bmy: gcopy 1,32*(2-bmc),32,32,32 redraw 1 wait 5 if (ecn>0)&(hp>0): goto *main *main if bmc>0: goto *main *main stop 12

Hot Soup Processor( HSP) HSP C Java Lime Lime 1.2 ( )

1 1 1 1.1 Hot Soup Processor( HSP) HSP C Java Lime Lime 1.2 ( ) 2 1 1: level=1 //level... 2: // 3: *setting 4: randomize // 5: screen 0,640,480 6: my_x=0.0 //my_x... x 7: my_y=180.0 //my_y... y 8: my_dy=0.25