Macro "Syntax Error"(?)

[Rubiko]

Hi,
folgender Code gibt mir einen Syntax Error im Macro in der Zeile "Next" aus.. warum auch immer

Code: Alles auswählen

Dim Map(64,64)

Macro MAP_Draw()
  For SY=0 To 24
    For SX = 0 To 32
      DisplaySprite(1000+Map(MapX+SX,MapY+SY), 32*SX - FineX , 32*SY - FineY )
    Next
  Next
EndMacro

Map_Draw()

ich weiß, ist nur ein kleiner Ausschnitt... aber auch hier kommt "Syntax Error" als Fehlermeldung.
Selber Code läuft mit PB4.02 problemlos

[Fluid Byte]

Du postest das nicht ernshaft im Bug Forum oder?

DisplaySprite() ...

[Rubiko]

Ich hab extra gesagt, dass der Code nicht vollständig ist.. kann ihn auch komplett posten (mit OpenScreen, falls du darauf hinaus willst)
Auch da meckert er

EDIT: ähm.. wichtig wäre noch, ohne Macro gehts, mit nicht... allein deswegen liegts doch nicht am DisplaySprite

[Fluid Byte]

Ich hab extra gesagt, dass der Code nicht vollständig ist..

Wie solln wirs dann nachvollziehen?

kann ihn auch komplett posten (mit OpenScreen, falls du darauf hinaus willst)

Dann poste mal.

[ts-soft]

@Rubiko
oder ist es Dir lieber, wenn die anderen Boarduser das machen. Erstens
müßten es viele machen, statt einer, zweitens Tritt der Fehler dann evtl.
garnicht auf.

Postings mit nicht testbaren Code sehe ich mir nur flüchtig an, mehr nicht.

[Rubiko]

Müsst ihr eigentlich nicht, es ist doch schon völlig falsch, dass hier in der Zeile mit NEXT gejammert wird, und da soll ein Syntax Fehler sein?

Aber gut, hab ihn noch etwas sauberer gemacht...

Code: Alles auswählen

If InitSprite() And InitKeyboard() = 0
  MessageRequester("Error", "DirectX could not be initialized.")
  
  End
EndIf


Dim Map(64,64)

Macro MAP_Draw()
  For SY=0 To 24
    For SX = 0 To 32
      DisplaySprite(1000+Map(MapX+SX,MapY+SY), 32*SX - FineX , 32*SY - FineY )
    Next
  Next
EndMacro
  



If OpenScreen(1024, 768, 16, "Bug")


  

  CreateSprite(1000, 32, 32)
  StartDrawing(SpriteOutput(1000))
  Box(0, 0, 32, 32, RGB(0, 200, 0))
  StopDrawing()
  
  For n=0 To 32
    For t=0 To 32
      Map(n, t) = 0
    Next
  Next
  

  Repeat
    

    ExamineKeyboard()    
    
    

    

    
      MAP_Draw()
;     ^ funktioniert nicht (Syntax Error)
  
;     v funktioniert
    
;     For SY=0 To 24
;       For SX = 0 To 32
;         DisplaySprite(1000+Map(MapX+SX,MapY+SY), 32*SX - FineX , 32*SY - FineY )
;       Next
;     Next
;         




 
    FlipBuffers()
    
  Until KeyboardPushed(#PB_Key_Escape)

EndIf
End

[Fluid Byte]

Läuft wie ich es erwartet habe...

Fehlerfrei!

[ts-soft]

Läuft wie ich es erwartet habe...

Fehlerfrei!

Bei mir nicht, zeigt Next als Fehler an

[Fluid Byte]

Bei mir nicht. Läuft fehlerfrei. Wobei ich erwähnen sollte das ich grad auf Arbeit bin und hier noch PB 4.00 habe.

[Rubiko]

Bei mir nicht. Läuft fehlerfrei. Wobei ich erwähnen sollte das ich grad auf Arbeit bin und hier noch PB 4.00 habe.

Eumel