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