#module
#deffunc GetPos val, int, int : mref a, 24 : mref b, 1 : mref c, 2 : strmid d, a, b*2, 2 : pos x*16, y*16 : if c : mes d
if d="━" {x+=vecx} if d="┃" {y+=vecy}
if d="┏" {if (x<x.1) & (y=y.1) {vecy= 1 : y+=vecy} if (x=x.1) & (y<y.1) {vecx= 1 : x+=vecx}}
if d="┛" {if (x>x.1) & (y=y.1) {vecy=-1 : y+=vecy} if (x=x.1) & (y>y.1) {vecx=-1 : x+=vecx}}
if d="┓" {if (x>x.1) & (y=y.1) {vecy= 1 : y+=vecy} if (x=x.1) & (y<y.1) {vecx=-1 : x+=vecx}}
if d="┗" {if (x<x.1) & (y=y.1) {vecy=-1 : y+=vecy} if (x=x.1) & (y>y.1) {vecx= 1 : x+=vecx}}
x.1=x.2 : y.1=y.2 : x.2=x : y.2=y : return
#deffunc SetOffset int, int : mref a,0 : mref b,1 : x=a,a,a : y=b,b,b : vecx=1 : vecy=1 : return
#global
font "ＭＳＰ ゴシック",16 : sdim map,1024
map="┃┃┃┃┃┃┃┃┃┃┃┃┃┃┃┗┛┃┃┃┃┃┃┃┏━━━━━━━┓┃┃┃┃┃┃┃┗┛┃┃┃┃┃┃┃"
map+="┃┃┃┃┃┏━┛┏━┛┏━━┓┗━┓┗┓┃┃┛┏┛━┏┛━━┏┛━┏┛┏┃┃┃┗┓┗━┓┗━━━┛"
map+="┏━┛┏┛┃┃┓┏┃┛┏┛━┏┛━┗┓━┗┓┗┃┏┛┏━┛┏━━┛┏━┛┏┛┃┃┃┃┏━┓┃┃┃┃┃"
map+="┃┃┃┃┃┃┃┃┗┛┃┃┃┃┃┃┃┃┏━━━━━┛┏━┛┏┛┃┃┓┗┓━┗┓━━━━━┏┗━━━━┓"
map+="┗━┓┗┓┛┏┛━┏┛━━━━┗┃┃┃┃┃┓┏┃┛━━┗┓━┗┓━━━━┏┛━┏┃┛┗┃┃┓┏┃┃┃"
map+="┃┃┃┛━━━━━━━┗┃┃┃┃┃┃┓┏"
strlen l, map : l=l/2 : a="" : SetOffset 1,1 : buffer 2
for i,0,l : GetPos map,i,1 : next : gsel 0 : SetOffset 1,1 : i=0
while 1
redraw 0: gmode 1 : pos 0,0 : gcopy 2, 0,0,winx, winy
GetPos map, i : x=csrx-10 : y=csry : color 255,255,255 : boxf x, y, x+32, y+16
color 0,0,0: pos x,y: mes "(ﾟ∀ﾟ)" : redraw 1 : wait 2
i++ : if i>=l : i=0:
wend