Danke!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Bye
SlapY
THXTHXTHX@All
Code: Alles auswählen
If mx<=640 And my<=480
If MouseButton(1)
Map(mx/16,my/16)=CurrentSprite ;<<<<<-------
EndIf
EndIf
Sehe ich ähnlich, komplette Codes sind in meinen Augen eigentlichKaeru Gaman hat geschrieben:@glubschi
gute arbeit und lieb gemeint, aber ich liefere ungern nen fertigen code...
ich hab mir heute ne stunde zeit genommen, um slapy das grundprinzip rüberzubringen
im icq, ne menge erklärung, und nurn kurzer code fürs prinzip...
Schalt' einfach den Debugger aus!SlapY hat geschrieben:Hi,
ich hab da n Fehler gefunden. Beim mappen kommt manchmal:
"Array index out of bounds" in Zeile: 217:Ich weiss nicht genau worans liegt (Irgendwas zugroß für Array...aber was?). Kann es also auch nicht fixxenCode: Alles auswählen
If mx<=640 And my<=480 If MouseButton(1) Map(mx/16,my/16)=CurrentSprite ;<<<<<------- EndIf EndIf
Bye
Slap
Ps: Es tritt immer auf wenn man Z.b.: Von Oben-Links nach Unten-Links und dann nach Unten-Rechts (Also L förmig) malt.
Danke!freedimension hat geschrieben:Das ist jetzt nicht als Rüffel zu verstehen, deine Einsatzbereitschaft
Glubschi ist vorbildlich Allright
Code: Alles auswählen
If ReadFile(0,"Map.map")
For x=0 To 39
For y=0 To 29
Map(x.l,y.l)=ReadByte()
Next
Next
CloseFile(0)
EndIf