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.
) setze, ist die Liste natürlich riesig. Deshalb will ich nach z.B. 
