Markus Hello and sorry for the late reply. As I begin I have trouble understanding the management of a menu that opens other windows. Here is the beginning of my code to try to make you understand what I want to do. Thank you in advance for your help.
//Tableau nombre d'étoiles
dim speed[200] as float
// Résolution d'écran
SetVirtualResolution( 320, 480 )
// Fond écran
CreateSprite(LoadImage("Fond.png"))
//Charement image Etoile
LoadImage(1, "Etoile.png")
//Titre
CreateSprite(LoadImage("Titre.png"))
//Copyright
Copyright = CreateSprite(LoadImage("Copyright.png"))
SetSpritePosition(Copyright, 50, 460)
//Menu
Menu1 = LoadImage("Jouer1.png")
Menu2 = LoadImage("Scores1.png")
Menu3 = LoadImage("Tutoriel1.png")
Menu4 = LoadImage("Credits1.png")
SpriteJouer1 = CreateSprite(Menu1)
SpriteScores1 = CreateSprite(Menu2)
SpriteTutoriel1 = CreateSprite(Menu3)
SpriteCredits1 = CreateSprite(Menu4)
SetSpritePosition(SpriteJouer1, 105, 160)
SetSpritePosition(SpriteScores1, 90, 220)
SetSpritePosition(SpriteTutoriel1, 85, 280)
SetSpritePosition(SpriteCredits1, 87, 340)
for i = 1 to 200
CreateSprite ( i, 1 )
SetSpritePosition ( i, Random ( 0, 320 ), Random ( 0, 480 ) )
size = Random ( 3, 10 ) / 10.0
SetSpriteScale ( i, size, size )
speed [ i ] = Random ( 1, 30 ) / 10.0
next i
// Boucle principale
do
for i = 2 to 200
SetSpriteX ( i, GetSpriteX ( i ) - speed [ i ] )
if ( GetSpriteX ( i ) < -20 )
SetSpritePosition ( i, Random ( 330, 400 ), Random ( 0, 480 ) )
speed [ i ] = Random ( 1, 30 ) / 10.0
endif
next i
FPS# = ScreenFPS()
Print("FPS: "+Str(FPS#))
sync ( )
loop
