Comment je vous envoi un ZIP

dim xe,ye,xs1,ys1,md$,exp1$,exp2$,xs4,ys4,v,xs5,ys5,ok$,ok1$,lf
xe=screen_x:ye=screen_y
label start,tir,fin_tir,reaction

full_space 0
caption 0,str$(xe)+"X"+str$(ye)
md$="meteorediag.bmp"
exp1$="exp1.bmp":exp2$="exp2.bmp"
scene2d 1:full_space 1:file_load 1,"2Dafter.bmp":stretch_on 1
sprite 2:sprite_file_load 2,md$
sprite 3:sprite_file_load 3,"base.bmp":sprite_position 3,530,800
xs4=415:ys4=850:sprite 4:sprite_file_load 4,"viseur.bmp":sprite_position 4,xs4,ys4:sprite_hide 4
xs5=415:ys5=850:sprite 5:sprite_file_load 5,"tir1.bmp":sprite_position 5,xs5,ys5:sprite_hide 5

v=5:lf=5
gosub start
END
' ==============================================================================
start:
' chute météore diagonale droite vers gauche
xs1=1290:ys1=30
while xs1>1 and ys1<800
xs1=xs1-1:ys1=ys1+1
sprite_position 2,xs1,ys1
gosub reaction

return

reaction:
' ========================= Réaction
' déplace viseur
if scancode=38 then sprite_show 4:ys4=ys4-v:sprite_position 4,xs4,ys4
if scancode=39 then sprite_show 4:xs4=xs4+v:sprite_position 4,xs4,ys4
if scancode=40 then sprite_show 4:ys4=ys4+v:sprite_position 4,xs4,ys4
if scancode=37 then sprite_show 4:xs4=xs4-v:sprite_position 4,xs4,ys4
' tir de protection
if scancode=32 then xs5=xs4:ys5=ys4:sprite_show 5:sprite_position 5,xs5,ys5:wait 100:sprite_hide 5
' interception
if scancode=32 then gosub tir
if scancode=32 and ok$="O"  then sprite_hide 2:goto fin_tir
end_while
' explosion base
sprite_hide 3:' suppression base
sprite_file_load 2,exp1$:sprite_position 2,xs1,ys1
wait 100
sprite_position 2,xs1-6,ys1-6:sprite_scale 2,1.2,1.2
wait 200
sprite_file_load 2,exp2$:sprite_position 2,xs1,ys1
wait 100
sprite_file_load 2,exp1$:sprite_position 2,xs1,ys1
wait 100
sprite_hide 2:sprite_hide 4

fin_tir:
sprite_hide 4
return

tir:
ok$="":ok1$=""
' caption 0," ys1="+str$(ys1)+" ys4="+str$(ys4)+" xs1="+str$(xs1)+" xs4="+str$(xs4)
if ys4<>(ys1+lf) or ys4<>(ys1+lf) then return
ok1$="1"
if ok1$="1" and ys4<>(ys1+lf) then return
ok1$="2"
if ok1$="2" and ys4<>(ys1+lf) then return
ok$="O"
return