editor problem/Noch ne frage\
Übersicht
BlitzBasic Beginners-Corner
darkiBetreff: editor problem/Noch ne frage\ |
 Di, Apr 10, 2007 19:04Antworten mit Zitat 
|
|
|---|---|---|
|
Hallo, wieso sagt er mir bei dem "map editor" das das image nicht existiert.
HIer der ganze code: Code: [AUSKLAPPEN] Graphics 640,480 SetBuffer BackBuffer() Global tile=1 Global mx=MouseX() Global my=MouseY() Dim map(800,512) Dim grafik(9) For x=1 To 9 grafik(x)=LoadImage("tile"+Str$(x)+".bmp") Next For x=1 To 800 For y=1 To 512 map(x,y)=1 Next Next Repeat Cls If MouseHit(2) tile=tile+1 EndIf If tile>9 tile=1 EndIf If MouseX()<10*30 Then mx=MouseX()/30 If MouseY()<10*30 Then my=MouseY()/30 If MouseDown(1) Then map(mx,my)=tile End If For y=0 To 512 For x=0 To 800 DrawBlock grafik(map(x,y)),x*30,y*30 Next Next DrawBlock grafik(tile),mx*30,my*30 Color 255,0,0 Rect mx*30,my*30,30,30,0 Flip Forever Function speichern() If KeyHit(1) datei=OpenFile("map.dat") For x=1 To 800 For y=1 To 512 WriteLine datei,map(x,y) Next Next CloseFile datei EndIf End End Function hier die stelle wo der fehler kommt: Code: [AUSKLAPPEN] For y=0 To 512 For x=0 To 800 DrawBlock grafik(map(x,y)),x*30,y*30 Next Next DrawBlock grafik(tile),mx*30,my*30 |
||
- Zuletzt bearbeitet von darki am Do, Apr 12, 2007 8:54, insgesamt einmal bearbeitet
|
Tankbuster |
Di, Apr 10, 2007 19:07 Antworten mit Zitat
|
|---|---|---|
|
Zitat: For y=0 To 512
For x=0 To 800 Die "Graphic(Wert)" hat aber nur die Werte 1-9!^^ |
||
|
Twitter
Download Jewel Snake! Windows|Android |
||
ChristianK |
Di, Apr 10, 2007 19:21 Antworten mit Zitat
|
|
|---|---|---|
|
Zitat: Die "Graphic(Wert)" hat aber nur die Werte 1-9!^^
Er schreibt ja: map( x, y ) und map hat die Werte 1-9! 
Das Problem liegt bei der Null. Ich korrigiere: Code: [AUSKLAPPEN] For y=1 To 512
For x=1 To 800 DrawBlock grafik(map(x,y)),x*30,y*30 Next Next |
||
darki |
Mi, Apr 11, 2007 17:58 Antworten mit Zitat
|
|
|---|---|---|
|
Hallo, da ich bei meinem alten editor gemerkt habe das man nicht weiter kommt wenn man ihn vorher nicht ein bischen geplant hat bin ich neu angefangen. Aber ich habe schonwieder ein problem beim laden der bilder.
hier ist der wichtigste code ausschnitt: Code: [AUSKLAPPEN] Dim grafik(9) Global x=0 Global y=0 For t=0 To 9 grafik(t)=LoadImage("tile"+Str$(t)+".bmp") MaskImage grafik(t),255,0,255 Next und hier kommt der fehler das es grafik(t) nicht gibt(er sagt genau:"Image does not exist" Code: [AUSKLAPPEN] MaskImage grafik(t),255,0,255 danke für eure hilfe |
||
|
Miridian |
Mi, Apr 11, 2007 20:39 Antworten mit Zitat
|
|---|---|---|
Ich sehe da keinen Fehler. 
Hast du denn überhaupt 10 Bilder in dem Ordner? |
||
darki |
Mi, Apr 11, 2007 22:19 Antworten mit Zitat
|
|
|---|---|---|
|
Hallo, du hattest recht anstatt 0 wollt ich eigentlich 1 schreiben,sry mein fehler. Nun noch eine frage wenn ich den meine map erstelle muss ich auch srcollen können aber wie ich das mache auf ner map verstehe ich nicht. Wäre nett wenn mir einer das erklären könnt. Dank schonmal im voraus.
darki |
||
|
|
Miridian |
Do, Apr 12, 2007 13:36 Antworten mit Zitat
|
|---|---|---|
Ich habe leider nicht so viel erfahrung mit 2d, habe soffort mit 3d angefangen 
aber ich denke das RPG-tutorial auf dieser seite könnte dir helfen http://www.robsite.de/tutorials.php?tut=blitzbasic |
||
darki |
Do, Apr 12, 2007 13:56 Antworten mit Zitat
|
|
|---|---|---|
| Danke diese metohde lässt sich sicherlich verwenden. | ||
Übersicht
BlitzBasic Beginners-Corner
Powered by phpBB © 2001 - 2006, phpBB Group