OH LEFT and RIGHT ARROW KEYS ROTATE! ....sorry....
There wasn't a SWAP command for my bubble sort so I had to do it the old fashion way.
It needs a lot of work. I'm kind of a little shy about my coding and work however I would be glad to answer any questions ("how'd you do that?") type stuff with actual code.
Heres my bubble sort and why I needed a SWAP.
Code: Select all
Repeat
inorder = True
For sort = 0 To tilenum-1
If Draworder(sort,2) < draworder(sort+1,2) Then
// swaps two tile orders
For swapnum = 0 To 2
swap(swapnum) = draworder(sort,swapnum)
draworder(sort,swapnum) =draworder(sort+1,swapnum)
draworder(sort+1,swapnum)=swap(swapnum)
Next swapnum
inorder = False
EndIf
Next sort
Until inorder = True