Code : Tout sélectionner
If InitSprite()=0 Or InitSprite3D() = 0 Or InitKeyboard()=0 Or InitMouse()=0 Or InitSound()=0
MessageRequester("Error", "Direct3D system can't be initialized correctly", 0):End
EndIf
OpenScreen(1280,800,32,"")
Global Dim autourX.b(8)
Global Dim autourY.b(8)
Restore testa
Read a
For i=1 To 8
Read autourX(i)
Next i
Read a
For i=1 To 8
Read autourY(i)
Next i
DataSection
testa:
Data.b 0,-1,0,1,-1,1,-1,0,1
Data.b 0,-1,-1,-1,0,0,1,1,1
Data.b 14,10,14,10,10,14,10,14
EndDataSection
C'est quoi le problème de ce code ??!!! Je me prend un "Read Data error, no more data"
Ca doit être évident comme le nez au milieu du visage mais ???!!!
Si je met des data positives je n'ai pas d'erreur... Cependant si je ne me trompe pas, le type byte en purebasic accepte des valeurs entre -127 et +128 non ? C'est un bug ??

Ou plus probablement, je suis un benêt ...
