width  = 800
height = 600
Graphics width, height, 0, 2

sand  = LoadImage("sand.png")
grass = LoadImage("grass.png")
stone = LoadImage("stone.png")

hsand  = ImageHeight( sand ) / 2
hgrass = ImageHeight( grass ) / 2

;--> Erstellt Bild mit gleicher Größe wie Landschaftsbild und fülle mit "stone" Textur.
grabber = CreateImage( width, height )
SetBuffer ImageBuffer( grabber )
TileBlock stone, 0, 0

;--> Erstelle "land"
;land = CreateImage( width, height )
land  = LoadImage("worms.bmp")

;--> Ermittle Referenzpixel
SetBuffer ImageBuffer( land )
LockBuffer ImageBuffer( land )
WritePixelFast 0, 0, 0
black = ReadPixelFast( 0, 0 )
WritePixelFast 0, 0, $FF00FF
pink = ReadPixelFast( 0, 0 )
UnlockBuffer ImageBuffer( land )




Local cam_x% = 32, cam_y% = 32
speed = 2

;--> Beginne Schleife
Repeat

   SeedRnd MilliSecs()


If KeyDown(200) Then cam_y% = cam_y +speed
If KeyDown(203) Then cam_x% = cam_x +speed

If KeyDown(205) Then cam_x% = cam_x -speed
If KeyDown(208) Then cam_y% = cam_y -speed


   SetBuffer ImageBuffer( land )
   DrawBlock land, 0, 0

   ;--> locke alle Buffer
   LockBuffer ImageBuffer( land )
   LockBuffer ImageBuffer( sand )
   LockBuffer ImageBuffer( grass )
   LockBuffer ImageBuffer( grabber )

   ;--> Landschaft mit "stone" Textur füllen
   For x = 0 To width - 1

      transition = 0

      For y = 0 To height - 1

         ;--> Lies Pixel aus.
         pix = ReadPixelFast( x, y )

         ;--> Wenn Schwarz Pixel, ersetze ihn durch "stone" Pixel
         If pix = black Then
            ;--> erster Schwarz Pixel nach Pink? Speichere Y-Position
            If transition = 0 Then ytop = y: transition = 1
            WritePixelFast x, y, ReadPixelFast( x, y, ImageBuffer( grabber ) )
         End If

         ;--> Pink Pixel oder Bilrdschirmkante?
         If pix = pink Or y = height - 1 Then

            ;--> Erster Pink Pixel nach schwarz?
            If transition = 1 Then

               ;--> Zeichne "sand" Textur an unteren Rand wenn NICHT unterer Bildschirmrand
               If y < height - 1 Then
                  ysand = 0
                  For y1 = y - hsand * 2 To y - 1
                     If y1 > -1 And y1 < height Then
                        psand = ReadPixelFast( xsand, ysand, ImageBuffer( sand ) )
                        If psand <> pink Then WritePixelFast x, y1, psand
                        ysand = ysand + 1
                     End If
                  Next
                  xsand = xsand + 1: If xsand = ImageWidth( sand ) Then xsand = 0
               End If

               ;--> Zeichne "grass" Textur an oberen Rand wenn NICHT oberer Bildschirmrand
               If ytop > 0 Then
                  ygrass = 0
                  For y1 = ytop - hgrass To ytop + hgrass - 1
                     If y1 > -1 And y1 < height Then
                        pgrass = ReadPixelFast( xgrass, ygrass, ImageBuffer( grass ) )
                        If pgrass <> pink Then WritePixelFast x, y1, pgrass
                        ygrass = ygrass + 1
                     End If
                  Next
                  xgrass = xgrass + 1: If xgrass = ImageWidth( grass ) Then xgrass = 0
               End If

               transition = 0

            End If

         End If

      Next
   Next

   UnlockBuffer ImageBuffer( land )
   UnlockBuffer ImageBuffer( sand )
   UnlockBuffer ImageBuffer( grass )
   UnlockBuffer ImageBuffer( grabber )

   ;--> Maskieren wir nun das "land"
   MaskImage land, 0, 0, pink

   ;--> Erzeuge einen Hintergrund
   back = CreateImage( width, height )
   SetBuffer ImageBuffer( back )
   For y = 0 To height
      blue# = 255 / Float( height ) * y
      Color 0, 0, blue
      Rect 0, height-y, width, height-y, 1
   Next


   For i=0 To 1


            DrawBlock back, 0, 0
            DrawImage land, 0+ cam_x%, 0+ cam_y%
            SetBuffer BackBuffer()




         Flip

    Next

Until KeyHit(1)
End