test_txt = WriteFile("karten.txt")
a = 0
For i = 0 To 100
a = a + 1
If a < 10 Then WriteLine( test_txt, "Sp-Nr.:000"+a )
If a > 10 And a < 100 Then WriteLine( test_txt, "Sp-Nr.:00"+a )
If a > 10 And a >= 100 And a < 1000 Then WriteLine( test_txt, "Sp-Nr.:0"+a )
If a >= 1000 Then WriteLine( test_txt, "Sp-Nr.:"+a )
Next

Const fensterbreite=800,fensterhoehe=600,tiefe=16
Graphics fensterbreite,fensterhoehe,tiefe,2

Global start = 0, start2 = 0, y_start = 5
Global scroll_rechts_x = 700, scroll_rechts_y = 0, karten_scroll_y = 0, karten_scroll_y_2 = 0
Global mz = MouseZ(), mz_2 = MouseZ(), mz_pruef = MouseZ()
Global mx, my, mx_scroll_1, my_scroll_1, mx_scroll_2, my_scroll_2
Global karte_gross_width = 120, karte_gross_height = 90
Global karte_mittel_width = 55, karte_mittel_height = 75
Global karte_klein_width = 35, karte_klein_height = 55
Global karte_abstand = 5
Global scrollbalken = LoadImage("scrollbalken.png")
Global scrollbalken_width = 5, scrollbalken_height = 100, scrollbalken_x = 785, scrollbalken_y = 5
Global maus = LoadImage("maus.png")
ResizeImage maus,15,30
RotateImage maus,10
;HidePointer
;MaskImage maus,0,0,0
Global datei$ = "karten.txt"

;-------------------
;--Karten-definieren
Type karte
Field nr
Field name$
Field bild_width
Field bild_height
Field bild_abstand
Field bild
Field x
Field y
Field text_x
Field text_y
End Type

Dim eintraege$(datei_eintraege_zaehlen()-1)
Dim karte.karte(datei_eintraege_zaehlen()-1)
For i = 0 To datei_eintraege_zaehlen()-1
test = test + 1
karte(i) = New karte
karte(i)\nr = i
karte(i)\name = test
karte(i)\bild_width = karte_mittel_width
karte(i)\bild_height = karte_mittel_height
karte(i)\bild_abstand = karte_abstand
karte(i)\bild = CreateImage(karte(i)\bild_width,karte(i)\bild_height)
karte(i)\x = 5
karte(i)\y = 5
karte(i)\text_x = 10
karte(i)\text_y = 5
;Print karte(i)\name
;Print karte(i)\nr
;Print test
SetBuffer ImageBuffer(karte(i)\bild)
;;;Color 0,0,255
;;;Rect 0,0,70,90
;;;Color 255,255,255
    Color 0,255,0
    For a = 0 To 119
       Color a*2,a*2,255
      Line 0,a,159,a
Next
Text karte(i)\text_x,karte(i)\text_y,karte(i)\name
SetBuffer BackBuffer()
Next
;---------------
;---------------
;--Hauptschleife

While Not KeyDown(1)
datei_eintraege(x)
scrolleiste_rechts()

Text 10,30,"mz_pruef: " + mz_pruef
Text 10,43,"letzte karten_y position " + karte(datei_eintraege_zaehlen()-1)\y
Text 10,54,"karten_scroll_y " + karten_scroll_y
Text 10,67,"karten_scroll_y_2 " + karten_scroll_y_2
Text 10,80,"datei_eintraege_zaehlen: " + datei_eintraege_zaehlen()
Text 10,93,"datei_eintraege: " + eintraege$(0)
;-tests
test = karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe
Text 10,120,"rech. letzte_y_pos abzüglich bildschirmhöhe " + test
test2# = test/600
Text 10,133,"rech. letzte_y_pos auf bildschirmhöhe rechnen " + test2#
Text 10,146,"rech. (((kartenges.*kartenbreite) + (kartenges.*kartenbreite)) + anfangsabstand): " + (((datei_eintraege_zaehlen() * 75) + (datei_eintraege_zaehlen() * 5)) + 5)
Text 10,159,"rech. (kartenges. * (kartenhoehe+abstand)+anfangsabstand): " + (datei_eintraege_zaehlen() * (75+5)+5)
Text 10,172,"rech. (fensterhoehe/((letzte_y_pos-fensterhoehe)/kartenges.)): " + (fensterhoehe / ((karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe) / datei_eintraege_zaehlen()))

;------------------Mauszeiger zeichen und Scrollbalken kollision
;-----
;mx = MouseX() ; MouseX und MouseY liefern die Mousekoordinaten als Rückgabewert zurück.
;my = MouseY() ; Deshalb müssen diese in jeder Mainloop neu abgerufen werden

;    If MouseHit(1) Then
;         If ImagesCollide(maus,MouseX(),MouseY(),0,scrollbalken,scrollbalken_x,scrollbalken_y,0) Then
;            mx = MouseX()-scrollbalken_x
;            my = MouseY()-scrollbalken_y
;            BildAnMaus= 1
;         EndIf
;      End If
;      If MouseDown(1) And BildAnMaus = 1 Then
;         scrollbalken_x = MouseX() -mx
;         scrollbalken_y = MouseY() -my
;      Else
;      BildAnMaus= 0
;      EndIf

;DrawImage maus,MouseX(),MouseY()

Flip
Cls
Wend
;--------------------
;--Hauptschleife-ende
;--------------------
;--------------------
;--------------------
;----------Funktionen
;--------------------
;--zaehlen
;------------------------------------------------------
;--karten.txt_lesen
;--function datei öffnen und zählen
Function datei_eintraege_zaehlen()
inhalt_datei = ReadFile(datei$)
anzahl = 0
Repeat
anzahl = anzahl + 1
zeilen$ = ReadLine(inhalt_datei)
Until Eof(inhalt_datei)
CloseFile(inhalt_datei)
Return anzahl
End Function
;-----------------------------------------------------
;--function datei öffnen und einträge in dim speichern
Function datei_eintraege(x)
inhalt_datei$ = ReadFile(datei$)
inhalt = 0
For i = 0 To datei_eintraege_zaehlen()-1
inhalt = inhalt + 1
eintraege$(i) = ReadLine(inhalt_datei$)
;Print eintraege$(i)
Next
CloseFile(inhalt_datei$)
Return x
End Function
;------------------------------------------------------

;----------------
;--Karte-Zeichnen
Function karte_zeichnen()
For g = 0 To datei_eintraege_zaehlen()-1

DrawImage karte(g)\bild,karte(g)\x,karte(g)\y
If g < datei_eintraege_zaehlen()-1

karte(g+1)\y = karte(g)\y + (karte(g)\bild_height + karte(g)\bild_abstand)
Else
karte(g)\y = karte(g)\y + (karte(g)\bild_height + karte(g)\bild_abstand)
EndIf
Next
Return
End Function
;----------------
;--viewport_scroll
Function scrolleiste_rechts()
;-prüfen ob maus über scrollleiste
   mx_scroll_1 = MouseX()
   my_scroll_1 = MouseY()
   If mx_scroll_1 > (fensterbreite -100) And mx_scroll_1 < fensterbreite
    If my_scroll_1 > 0 And my_scroll_1 < fensterhoehe
   Select MouseZSpeed()
   Case 0:
   mz = 0
   mz_2 = 0
   Case -1:
   mz = mz - (karte_mittel_height + karte_abstand)
   mz_2 = mz_2 - (fensterhoehe / ((karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe) / datei_eintraege_zaehlen()))
   mz_pruef = mz_pruef - 1
   Case +1:
   mz = mz + (karte_mittel_height + karte_abstand)
   mz_2 = mz_2 + (fensterhoehe / ((karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe) / datei_eintraege_zaehlen()))
   mz_pruef = mz_pruef + 1
   Default:
   End Select      
    karten_scroll_y = karten_scroll_y + mz ;* 2
   karten_scroll_y_2 = karten_scroll_y_2 + mz_2 ;* 2
   karten_scroll_y_pruef = karten_scroll_y_pruef + mz_pruef
;   mz = 0
;   mz_2 = 0
;--karten_scroll_y_2, karten_scroll_pruef,mz_2 und mz_pruef als prüfvariablen
   If karten_scroll_y > 0 Then karten_scroll_y = 0
   If karten_scroll_y_2 > 0 Then karten_scroll_y_2 = 0
   If karten_scroll_y_pruef > 0 Then karten_scroll_y_pruef = 0
   If karten_scroll_y < -(karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe) Then karten_scroll_y = -(karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe); -904
    If karten_scroll_y_2 < -(karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe) Then karten_scroll_y_2 = -(karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe); -904
    If karten_scroll_y_pruef < -(karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe) Then karten_scroll_y_pruef = -(karte(datei_eintraege_zaehlen()-1)\y - fensterhoehe); -904
   End If
   End If

   ;viewport
    Origin scroll_rechts_x,scroll_rechts_y + karten_scroll_y
    ;Viewportkoordinaten  werden nicht von Orgin beinflußt
    Viewport scroll_rechts_x,scroll_rechts_y,100,600

    ; farbe viewportfenster
    ClsColor 0 ,0, $C0C0C0
    Cls
   
    ;textfarbe
    Color 0 ,0, 0;$FFFF00
    ;inhalt des fensters
   karte_zeichnen()   
   
   Color 255 ,255, 255

    ;zurücksetzten
    Origin 0 ,0
    Viewport 0 ,0,GraphicsWidth () ,GraphicsHeight ()
    ClsColor 0 ,0,0
;   scrolleiste
   Color 255,255,255
   Rect 780,0,80,600
   Color 0,0,0
   DrawImage scrollbalken,scrollbalken_x,scrollbalken_y - my

   ;Rect 785,5 - karten_scroll_y_2,10,55
   ;Rect 785,580,5,5
;   Color 255,0,0
;   Rect 780,5 - karten_scroll_y_pruef,5,5
   Color 255,255,255
   End Function
;------------
;------
;--Ende
End

Global datei_eintraege_anzahl = datei_eintraege_zaehlen()