; Schiebepuzzel

Dim Stuecke(48)
Dim Feld(8,6)

SeedRnd MilliSecs()


Graphics 800,600,32,1

Color 255,0,0
fontvariabel=LoadFont("Creepygirl",72,0,0,10)
SetFont fontvariabel

fontvariabel1=LoadFont("Arial",36,10,0,0)

Text 300,0,"Schiebepuzzle"

Color 100,100,100
Rect 70,50,660,500

Foto= LoadImage("f:RIMG0307.JPG")
DrawImage Foto,80,60

Maus = LoadImage("f:Mauszeiger_02.bmp")

MaskImage Foto,255,0,255

Color 255,255,255

For y=60 To 580 Step 80
   Line 80,y,720,y
Next

For x=80 To 740 Step 80
   Line x,60,x,540
Next

For nr=1 To 48
   x=((nr-1)Mod 8)*80+80
   y=((nr-1)/8)*80+60
   Stuecke(nr)=CreateImage(80,80)
   GrabImage Stuecke(nr),x,y
   a=((nr-1)Mod 8) + 1
   b=((nr-1)/8) + 1
   feld(a,b)=nr
   DrawImage Stuecke(feld(a,b)),x,y
Next

WaitKey   
   
For z=1 To 200
   w=Rnd(1,6)
   q=Rnd(1,7)
   speicher=feld(q,w)
   feld(q,w)=feld(q+1,w)
   feld(q+1,w)=speicher
   
   ;Dreieckstausch - Senkrecht
   w=Rnd(1,5)
   q=Rnd(1,8)
   speicher=feld(q,w)
   feld(q,w)=feld(q,w+1)
   feld(q,w+1)=speicher
Next

SetBuffer BackBuffer()

SetFont fontvariabel1

Repeat
Cls
Color 100,100,100
Rect 70,50,660,500

Color 255,255,255
Rect 80,60,641,481

For nr=1 To 48
   x=((nr-1)Mod 8)*80+80
   y=((nr-1)/8)*80+60
   a=((nr-1)Mod 8) + 1
   b=((nr-1)/8) + 1
   DrawImage Stuecke(feld(a,b)),x,y
Next
mausx=MouseX()
mausy=MouseY()
If mausx > 690 Then mausx=690
If Mausx < 90 Then mausx=90
If MouseY() > 510 Then mausy=510
If MouseY() < 61 Then mausy=61

If (mausx+10) Mod 80<20
   Color 0,255,0
   maux=80*((mausx+10)/80)
   mauy=(80*((mausy+20)/80)-20)
   Rect maux-1,mauy,3,80
   Line maux+80,mauy,maux-80,mauy
   Line maux+80,mauy+80,maux-80,mauy+80
   Line maux+80,mauy+80,maux+80,mauy
   Line maux-80,mauy+80,maux-80,mauy
Else
   Color 255,0,0
EndIf
Text 285,5,"Schiebepuzzle"
Text 10,5,Mausy
DrawImage Maus, Mausx, Mausy
Flip
Until MouseHit(2)
End