アルゴリズム/迷路

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44

#define size 51            ;Size
#define i 5            ;Bold
 
#const size_2 size*size
#const sc size*i
#const pl (size/2)*(size/2)
/////////////////////////////////////////////
//0が上　1が下　2が右　3が左
/////////////////////////////////////////////
    screen 0,sc,sc,1
    cls
    x=i:y=i
    dim pll,pl
    randomize
    repeat pl
        rnd e,4
        pll.cnt=e
    loop
/////////////////////////////////////////////
*main
    
        gosub *wall
    
    stop
/////////////////////////////////////////////
*wall
    repeat pl
        gosub *go
        if x>=sc:y+=i*2:x=i
        color 0,0,0
        boxf x,y,x+i,y+i
        color 0,0,0
        boxf x+xx,y+yy,x+i+xx,y+i+yy
        x+=i*2
    loop
    return
/////////////////////////////////////////////
*go
    if pll.cnt=0:xx=0:yy=i
    if pll.cnt=1:xx=0:yy=-i
    if pll.cnt=2:xx=i:yy=0
    if pll.cnt=3:xx=-i:yy=0
    return

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
!
-
|
!
-
|
!
-
|
!
 
-
|
|
!
 
 
 
 
-
|
|
!
-
|
|
!
-
|
|
!
-
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

    ;穴掘り法kz3
    #packopt name "maze_dighole2.1" ;一応追加
    #module
    #deffunc dimmix val
        mref array,16
        mref pval,1024
        mx=pval.2
        p=mx
        repeat mx
            rnd r,p
            p--
            tmp=array.r
            array.r=array.p
            array.p=tmp
        loop
        return
    #global
 
    #const  _mclass     51  ;迷路の大きさ
    #const  _bold       5   ;道の太さ
    #const  _wall       0
    #const  _start      5
    #const  _btop       1
    #const  _bright     2
    #const  _bbottom    3
    #const  _bleft      4
    #const  _ftop       0
    #const  _fright     1
    #const  _fbottom    2
    #const  _fleft      3
    #const  _digok      1
;-------------------------------------------------------------------
    screen 0,_mclass*_bold*2+_bold,_mclass*_bold*2+_bold,1
    cls 4
 
    dim maze,_mclass*_mclass
    mdig=0
    sdigx=_bold : sdigy=_bold
    
    maze.mdig=_start
    color 255,255,255
    boxf sdigx,sdigy,sdigx+_bold-1,sdigy+_bold-1
 
    dim way,4
    repeat 4
        way.cnt=cnt
    loop
    
    randomize
*dighole
    repeat
        dimmix way
        digno=0
        repeat 4
            await 1
 
            pmdig=mdig
            if way.cnt=_ftop{
                if (pmdig/_mclass)=0 : continue : else : mdig-=_mclass
            }
            if way.cnt=_fright{
                if (pmdig\_mclass)=(_mclass-1) : continue : else : mdig++
            }
            if way.cnt=_fbottom{
                if (pmdig/_mclass)=(_mclass-1) : continue : else : mdig+=_mclass
            }
            if way.cnt=_fleft{
                if (pmdig\_mclass)=0 : continue : else : mdig--
            }
 
            if (maze.mdig)!_hole{
                mdig=pmdig
                continue
            }
 
            sdigx=(pmdig\_mclass)*_bold*2+_bold
            sdigy=(pmdig/_mclass)*_bold*2+_bold
 
            if way.cnt=_ftop{
                maze.mdig=_bbottom
                boxf sdigx,sdigy-(_bold*2),sdigx+_bold-1,sdigy-1
            }
            if way.cnt=_fright{
                maze.mdig=_bleft
                boxf sdigx,sdigy,sdigx+(_bold*3)-1,sdigy+_bold-1
            }
            if way.cnt=_fbottom{
                maze.mdig=_btop
                boxf sdigx,sdigy,sdigx+_bold-1,sdigy+(_bold*3)-1
            }
            if way.cnt=_fleft{
                maze.mdig=_bright
                boxf sdigx-(_bold*2),sdigy,sdigx-1,sdigy+_bold-1
            }
            title "掘削中"
            digno=_digok
            break
        loop
 
        if digno=_digok:continue
    
        title "後退中"
        if maze.mdig=_start     :break
        if maze.mdig=_btop      :mdig-=_mclass  :continue
        if maze.mdig=_bright    :mdig++         :continue
        if maze.mdig=_bbottom   :mdig+=_mclass  :continue
        if maze.mdig=_bleft     :mdig--
    loop
    title "完成"
    stop

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
!
-
|
|
|
!
 
 
 
 
-
|
|
|
!
-
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 

#define size 51            ;Size
#define i 5            ;Bold
 
#const hsize size*size
////////////////////////////////////////////////////////
*in
    
    ws=size*i : screen 0,ws,ws,1
    cls 4
    x=2 : y=2 :ch=1
    rnn=0,0,0,0
    randomize
    dim mero,hsize
*soto
    repeat size                    ;Wall
        a=cnt
        b=(size-1)*size+cnt
        c=size*cnt
        d=(size-1)+(size*cnt)
        gosub *to
        await
    loop
*start
    color 255,255,255
    boxf x*i,y*i,x*i+i,y*i+i
    z=(size*y)+x
    mero.z=1
 
*main
    repeat
        gosub *rndo
        if ch=1:gosub *engine:else:gosub *engine_2
        gosub *draw
    await 5
    loop
 
///////////////////////////////////////////////////////////////////////////
//サブルーチン１階層
 
*to
    mero.a=1:mero.b=1:mero.c=1:mero.d=1
    return
*rndo
    rnd rn,4
     xx=x,x:yy=y,y
    if rn=0:yy-=2:yy.1-=1                    ;Up
    if rn=1:yy+=2:yy.1+=1                    ;Down
    if rn=2:xx-=2:xx.1-=1                    ;Left
    if rn=3:xx+=2:xx.1+=1                    ;Right
    return
*engine
    en=(size*yy)+xx
    enn=(size*yy.1)+xx.1
    if mero.en=1 {                        ;もう掘った
        yy=y,y:xx=x,x
        rnn.rn=1
        gosub *check
    }
    else{                            ;まだ掘ってない
        mero.en=1:mero.enn=1 
        y=yy : x=xx
        rnn=0,0,0,0
    }
    return
*engine_2
    en=(size*yy)+xx
    enn=(size*yy.1)+xx.1
    if mero.enn=0 {                        ;戻れない
        yy=y,y:xx=x,x
        rnn=0,0,0,0
        
    }
    else{                            ;戻れる
        y=yy : x=xx
        rnn.rn=1
        ch=ch*-1
        ;gosub *check
    }
*draw
    boxf xx*i,yy*i,xx*i+i,yy*i+i
    boxf xx.1*i,yy.1*i,xx.1*i+i,yy.1*i+i
    return
/////////////////////////////////////////////////////////////////////////////////
*check
    repeat 4
        if rnn.cnt=1:ii++:else:ii=0
        if ii=4:ch=ch*-1:ii=0
    loop
    return