|  | ookisa=12 tekix=rnd(620)
 tekiy=rnd(460)
 buffer 2,300,300
 boxf
 color 255,0,0
 mes "●"
 buffer 3,300,300
 boxf
 color 0,0,255
 mes "●"
 color 0,200,255
 mes ""
 screen 0,640,480
 *start
 color 0,0,0
 gmode 2
 tamax=20.00000000000
 tamay=465.00000000000
 tekix=rnd(400)
 tekiy=300+rnd(150)
 pos tamax,tamay : gcopy 2,0,0,20,20
 pos tekix,tekiy : gcopy 3,0,0,20,20
 repeat
 stick a
 s
 redraw 1
 if a=256 : break
 await 2
 loop
 nobix=0.00000000000000+mousex-tamax
 nobiy=0.00000000000000+mousey-tamay
 nobix/50
 nobiy/50
 repeat
 redraw 0
 color 255,255,255
 boxf
 color 0,0,0
 singo=0.0000000000000000000+cnt
 time=singo/200
 movey=9.8*time*time
 nobiy=nobiy+movey
 tamax+nobix
 tamay+nobiy
 if tamax>640 : break
 if tamax<0 : break
 if tamay>480 : break
 if tamay<0 : break
 gmode 2
 pos tamax,tamay : gcopy 2,0,0,20,20
 gosub*atarihante
 if atari=1 : break
 redraw 1
 await 2
 loop
 if atari=1 : atari=0 : gosub*ataridesu
 goto*start
 *atarihante
 sgmode 2
 spos tekix,tekiy : gcopy 3,0,0,20,20
 sif tamaytekiy : goto*zyoukyuu
 sif tamay+17>tekiy : if tamaysreturn
 *zyoukyuu
 sif tamaxtekix : atari=1
 sif tamax+ookisa>tekix : if tamaxsreturn
 *ataridesu
 sscolor 0,0,0
 sboxf
 spos 0,0
 scolor 0,255,0
 sfont "",64
 smes "あたり!!!"
 ssredraw 1
 sreturn
 
 (220.46.228.60).. 2007年11月24日 17:51   No.26001
       |