Publié par AngeNoir le 25/03/2006
Le personnage doit arreter quand je relache la touche de déplacement et il ne le fait pas. Si je tiens enfoncer vers la droite par exemple trop longtemps.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
'$DYNAMIC SCREEN 13 CLS DIM Image(1 TO 17000) Cote = 0 DO DO A$ = INKEY$ IF A$ = CHR$(27) THEN END IF A$ = CHR$(0) + CHR$(75) THEN Cote = 2 IF A$ = CHR$(0) + CHR$(77) THEN Cote = 1 LOOP WHILE A$ = "" DEF SEG = VARSEG(Image(1)) BLOAD "LOURD01.GRH", VARPTR(Image(1)) DEF SEG PUT (0, 0), Image, PSET IF Cote = 1 THEN 'Ici je put mon personnage qui se dirige vers la gauche. END IF IF Cote = 2 THEN 'Ici je put mon personnage qui se dirige vers la droite. END IF LOOP
