mirror of
https://github.com/rfivet/uemacs.git
synced 2024-11-15 17:16:48 -05:00
69 lines
1.1 KiB
Batchfile
69 lines
1.1 KiB
Batchfile
# 6 set $seed
|
|
execute-file maze.cmd
|
|
|
|
set %thisbuf $cbufname
|
|
|
|
store-procedure pushxy # push x y
|
|
set %x $curcol
|
|
set %y $curline
|
|
select-buffer stack
|
|
beginning-of-file
|
|
insert-string %x
|
|
newline
|
|
insert-string %y
|
|
newline
|
|
select-buffer %thisbuf
|
|
!endm
|
|
|
|
store-procedure popxy # pop x y
|
|
select-buffer stack
|
|
beginning-of-file
|
|
set %x $line
|
|
1 kill-to-end-of-line
|
|
set %y $line
|
|
1 kill-to-end-of-line
|
|
select-buffer %thisbuf
|
|
set $curline %y
|
|
set $curcol %x
|
|
!endm
|
|
|
|
set $curline 1
|
|
set $curcol 0
|
|
run pushxy #push stop position
|
|
set %x 1
|
|
set $curline 4
|
|
set $curcol %x
|
|
set %OC $curchar
|
|
set %NC &asc "█"
|
|
!while ¬ &equ %x 0
|
|
set $curchar %NC
|
|
set %cc $curcol
|
|
set %ll $curline
|
|
set $curcol &add %cc 1
|
|
!if &equ $curchar %OC
|
|
run pushxy
|
|
!endif
|
|
set $curcol &add %cc -1
|
|
!if &equ $curchar %OC
|
|
run pushxy
|
|
!endif
|
|
set $curline &add %ll 1
|
|
set $curcol %cc
|
|
!if &equ $curchar %OC
|
|
run pushxy
|
|
!endif
|
|
set $curline &add %ll -1
|
|
set $curcol %cc
|
|
!if &equ $curchar %OC
|
|
run pushxy
|
|
!endif
|
|
run popxy
|
|
!endwhile
|
|
set $curline 3
|
|
set $curcol 1
|
|
select-buffer stack
|
|
unmark-buffer
|
|
select-buffer %thisbuf
|
|
unmark-buffer
|
|
delete-buffer stack
|