MacAddict 19/MacAddict_019_1998_03.iso/Media/Contest.dxr/00021.ls

Text File | 1997-12-31 | 579 b | 20 lines

global blank, piece1, piece2, piece3, piece4, piece5, piece6, piece7, piece8, piece9, piece10, piece11, piece12, piece13, piece14, piece15, piece16, currentlist, piece2move

on exitFrame
  set blank to 16
  set the castNum of sprite 17 to 16
  updateStage()
  set searching to 1
  repeat with shuffles = 1 to 200
    set currentlist to getAt(piecelist, blank)
    repeat while searching
      set piece2move to getAt(currentlist, random(4))
      if piece2move > 0 then
        exit repeat
      end if
    end repeat
    movepiece(piece2move)
    updateStage()
  end repeat
end