Sorry your browser is not supported!

top:
Print "This function turns your regular series(1,2,3,4,5,...)"
Print "to randomized order (4,2,5,1,3,.......) without missing any number in the serie"
Print "and makes sure none of the numbers are the same in the serie"
Print "PRESS ANY KEY TO RE-CREATE A NEW SERIE"

Serie = rnd(20)
randomSerie(Serie)
For t = 1 To Serie
   Print t,"--------";
   Print rndSerie(t)
Next t
Wait Key : cls
goto top

Function randomSerie(Total)
DIM rndSerie(Total)
   For i = 1 To Total
      Repeat
         X = Rnd(Total)
         bFound = 0
            For j = 1 To i
               If rndSerie(j) = X
                  bFound = 1
                  Exit
               EndIf
            Next j
      Until bFound = 0
      rndSerie(i) = X
   Next i
EndFunction

GLOBAL pthRoot$, pthImages$
pthRoot$    = get dir$()
pthImages$  = "Images"

Set display mode 800,600,32
scrW = 800
scrH = 600

SET DIR pthImages$
   img = 1000
   load image "Scene.jpg", img
SET DIR pthRoot$

Dim Puzz(50,50) As Integer
puzzSize = 150
imgSize = 600
imgS = 0
dimX = 0
dimY = 0
Paste image img, 0, 0
for x = 0 to imgSize-puzzSize Step puzzSize
for y = 0 to imgSize-puzzSize Step puzzSize
   inc imgS, 1
   dimX = x / puzzSize
   dimY = y / puzzSize
      get image imgS, x, y, x+puzzSize, y+puzzSize
      Puzz(dimX, dimY) = imgS
next y
next x
sleep 2000
cls

totalImages = (imgSize / puzzSize)-1
randomSerie(totalImages)
for x = 0 to totalImages
for y = 0 to totalImages
   `print Puzz(rndSerie1(x), rndSerie2(y))
   paste image Puzz(rndSerie1(x), rndSerie2(y)), x*puzzSize, y*puzzSize
next y
next x

wait key
End

`---------------------------------------------------------
Function free_image()
   Repeat
      Inc i
   Until Image Exist(i) = 0
EndFunction i
`---------------------------------------------------------
Function randomSerie(Total)
DIM rndSerie1(Total)
   For i = 1 To Total
      Repeat
         X = Rnd(Total)
         bFound = 0
            For j = 1 To i
               If rndSerie1(j) = X
                  bFound = 1
                  Exit
               EndIf
            Next j
      Until bFound = 0
      rndSerie1(i) = X
   Next i

DIM rndSerie2(Total)
   For i = 1 To Total
      Repeat
         X = Rnd(Total)
         bFound = 0
            For j = 1 To i
               If rndSerie2(j) = X
                  bFound = 1
                  Exit
               EndIf
            Next j
      Until bFound = 0
      rndSerie2(i) = X
   Next i
EndFunction