Problem mit schlaufe
Verfasst: 18.01.2008 20:59
Hallo zusammen,
habe folgendes Problem.
Ich möchte mir auf dem Screen einzelne Info's anzeigen lassen von Objekten, die ich auf der Map verteilt habe. Nun möchte ich das
mir auf einer Seite z.B 20 Objekte angezeigt werden. Nachher soll man mit Tasten Up/Down nächste Seite anzeigen lassen.
Die Anzeige sieht bis jetzt so aus.
Hier wird natürlich endlos angezeigt, also bis alle Objekte durch sind. Ich bin mir nicht ganz sicher wie ich die Schleife unterbrechen kann,
dass mir nur 20 angezeigt werden.
Bitte variablen Namen nicht beachten, ich weiss dass sie schei.. sind. Soll ja auch nur ein Test sein.
habe folgendes Problem.
Ich möchte mir auf dem Screen einzelne Info's anzeigen lassen von Objekten, die ich auf der Map verteilt habe. Nun möchte ich das
mir auf einer Seite z.B 20 Objekte angezeigt werden. Nachher soll man mit Tasten Up/Down nächste Seite anzeigen lassen.
Die Anzeige sieht bis jetzt so aus.
Code: Alles auswählen
If CheckFlag = #True
;
Global r.l, testen.l, color.l = RGB(255,255,255)
Repeat
r = 0
testen = 1
ClearScreen(0)
ExamineMouse()
ExamineKeyboard()
;
For o = 0 To mapHeight
For p = 0 To mapWidth
If map(p,o)\objID > 0
StartDrawing(ScreenOutput())
DrawingMode(#PB_2DDrawing_Outlined)
DrawingFont(FontID(10))
Box(200, 1, 400, 580, RGB(255,255,255))
DrawingMode(#PB_2DDrawing_Transparent)
DrawText(230, 20, "No", color)
DrawText(320, 20, "ObjID", color)
DrawText(375, 20, "ObjPos", color)
DrawText(435, 20, "Walk", color)
DrawText(480, 20, "Event", color)
DrawText(523, 20, "Sound", color)
DrawText(220, 40+r, RSet(Str(testen),5,"0"), color)
DrawText(323, 40+r, RSet(Str(map(p,o)\objID),3,"0"), color)
DrawText(370, 40+r, RSet(Str(p),3,"0")+" / "+RSet(Str(o),3,"0"), color)
DrawText(443, 40+r, RSet(Str(map(p,o)\objWalk),1), color)
DrawText(479, 40+r, RSet(Str(map(p,o)\objEvent),5,"0"), color)
DrawText(530, 40+r, RSet(Str(map(p,o)\objSound),3,"0"), color)
StopDrawing()
;
DisplayTransparentSprite(map(p,o)\objID, 280,40-1+r)
r+20
testen + 1
EndIf
Next
Next
;
FlipBuffers()
Until KeyboardPushed(#PB_Key_Escape)
CheckFlag = #False
;
EndIf
dass mir nur 20 angezeigt werden.
Bitte variablen Namen nicht beachten, ich weiss dass sie schei.. sind. Soll ja auch nur ein Test sein.