|
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
|