donc voici mon jeu en cour de programation (avec just basic) pour l´instant juste les animations et le debut du code
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´
´SPACEWAR1
´écrit par Guillaume Portalier.
´
´Un jeu de combat spacial
´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´´
nomainwin
WindowWidth=400
WindowHeight=420
UpperLeftX=Int((DisplayWidht-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-DisplayHeight)/2)
open "SPACEWAR1" for graphics_nsb as #game
- game,"trapclose [quit]"
loadbmp "bg" , "space.bmp"
loadbmp "explo1" , "explo1.bmp"
loadbmp "explo2" , "explo2.bmp"
loadbmp "explo3" , "explo3.bmp"
loadbmp "explo3" , "explo3.bmp"
loadbmp "explo4" , "explo4.bmp"
loadbmp "explo5" , "explo5.bmp"
- game, "background bg"
- game, "addsprite explo explo1 explo2 explo3 explo4 explo5"
- game, "spritexy explo 500 500"
- game, "cyclesprite explo 1"
exploactive=0
explocount=0
timer 100, [timer_routines]
if exploactive = 0 then
- game, "spritexy explo 180 190"
exploactive=1
playwave "explosion.wav",async
end if
[timer_routines]
gosub [control_explo]
gosub [draw]
wait
[quit]
confirm "es-tu sur de vouloir quitter?";reponse$
if reponse$ = "no" then wait
close #game
end
[control_explo]
if exploactive = 1 then explocount = explocount + 1
if explocount > 20 then
exploactive=0
explocount=0
#game, "spritexy explo 500 500"
end if
return
[draw]
- game, "drawsprites";
return
voila voila