My first real QB64PE game is up.

[Eugesippe]

Hi,you can replace (salut, tu peux remplacer):

Code: (Select All)

locate 32,95 

print "    Votre monocoque a été frappé par la foudre." 

locate 32,95

print "    Votre monocoque a été frappé par la foudre. "

_Delay 1

locate 32,95

print "    Votre monocoque a été frappé par la foudre.."

_Delay 1

locate 32,95

print "    Votre monocoque a été frappé par la foudre..."

_Delay 1

'debut du fondu

Color LightGray

locate 32,95

print "    Votre monocoque a été frappé par la foudre..."

_Delay .4

Color DarkGray

locate 32,95

print "    Votre monocoque a été frappé par la foudre..."

_Delay .4

Color DimGray

locate 32,95

print "    Votre monocoque a été frappé par la foudre..."

_Delay .4

Color Black

locate 32,95

print "    Votre monocoque a été frappé par la foudre..."

by something like that (par qqchose de ce style):

Code: (Select All)

Color _RGB(255, 255, 255)

For n = 0 To 3

    Locate 32, 95

    Print "    Votre monocoque a été frappé par la foudre" + Left$("...", n)

    _Delay 1

Next n

For n = 0 To 3

    Color _RGB(255 - 64 * n, 255 - 64 * n, 255 - 64 * n)

    Locate 32, 95

    Print "    Votre monocoque a été frappé par la foudre..."

    _Delay 1

Next n

it will reduce lot of lines... ! (ça réduirait considérablement le nombre de lignes de ton code !)

Eugesippe