Name="Ein Labyrinth in vim"
Stich="Labyrinth Maze vim Makro so source"
Zeit="Sam Jun 16 12:39:56 MEST 2001"
Kurz="Viele behaupten, vim könne alles - Ein kleines Spiel kann es auf
jeden Fall, wie dieser Artikel zeigt."
Lang="
Ich habe ein Makro programmiert, speichern Sie es ersteinmal ab (<a
href=\"down/maze.tar.bz2\">Tar-Bzip2-Archiv</a> oder <a
href=\"down/maze.tar.gz\">Tar-Gzip-Archiv</a>):
`exCodes maze.txt`

           #########################
           #k          *           #
 ########### ##################### #
 #           *   #      #      * # #
 # ##### ####### # #### # # # ## # #
 #     # #    *         # # #    # #
 ##    # # ####### # ## # # # ## #*#
  #    # # ####### # #  # # # *  # #
###    # #     * # # # ## #   #  # #
#    * # ####### # ###### # #### # #
# ######   *        #  *  #      # #
# #      ##### #### # ######### ## #
# ## ###*#     #  * #     *   #  # #
# ## ### # ##### #### # ##### # ## #
# ## ### # #          # #     #  # #
# ##  *# ### ##### # ## # # # ## # #
#*####          *  # #    # #    # #
# ################## # #### ###### #
# #        *    *    #     *    ## #
# # # ### ##### ######### ### #  # #
# # #  #   ## # #       # ##* #### #
# # ###### #     *##### # ### #  * #
# #      #   #    #     # ##### ####
# #      # ######## # #   #   #*###
# # #### #          # ##### # # ####
# # ## # # #### ##### #     # #    #
# #*#       #    ## # # ##### #### #
# # ######### # ##  # # #        # #
# # ##### # # # #  ####   ### ## #*#
# #   #   # # # # ###   ### # #  # #
# # # # # # # #   #     # # # #### #
# # # # # # ### ### #####   # ##~# #
# # #   # * #       #   ###      # #
# ################################ #
#                     *            #
####################################

`exCodee`
`exCodes maze.vim`
&quot; maze.vim - ein kleines Labyrinth-Spiel f&uuml;r VIM
&quot; (c) by Ingo Blechschmidt
&quot; Son Mai 13 11:24:44 MEST 2001
`cat gpl.lic | sed -e 's/#/\&quot;/g'`
`cat add.lic | sed -e 's/#/\&quot;/g'`

split ~/maze.txt

syn clear
syn match wall &quot;#&quot;
syn match stern &quot;*&quot;
syn match spieler &quot;ö&quot;
syn match ziel &quot;\~&quot;
hi wall ctermfg=blue
hi stern ctermfg=red
hi spieler ctermfg=yellow
hi ziel ctermfg=green

let punkte = 0

noremap l :echo Rechts()&lt;CR&gt;
noremap h :echo Links()&lt;CR&gt;
noremap j :echo Unten()&lt;CR&gt;
noremap k :echo Oben()&lt;CR&gt;
noremap q :echo Ende()&lt;CR&gt;
noremap s gg/k&lt;CR&gt;rö

norm s

function Ende()
  mapc
  quit!
  &quot; = clo!
endf

fu CharA()
  let aline = getline(&quot;.&quot;)
  let acol = aline[virtcol(&quot;.&quot;) - 1]
  echo acol
  return acol
endf      

fu Gewonnen()
  echo &quot;Du hast gewonnen, herzlichen Glückwunsch!&quot;
  cal Ende()
endf

fu Punt()
  return &quot;Punkte: &quot; . g:punkte
endf

fu Rechts()
  norm! l
  let mcol = CharA()
  norm! h
  if mcol == &quot; &quot;
    norm! r lrö
  elsei mcol == &quot;*&quot;
    norm! r lrö
    let g:punkte = g:punkte + 1
  elsei mcol == &quot;~&quot;
    norm! r lrö
    cal Gewonnen()
  en
  return Punt()
endf

fu Links()
  norm! h
  let mcol = CharA()
  norm! l
  if mcol == &quot; &quot;
    norm! r hrö
  elsei mcol == &quot;*&quot;
    norm! r hrö
    let g:punkte = g:punkte + 1
  elsei mcol == &quot;~&quot;
    norm! r hrö
    cal Gewonnen()
  en
  return Punt()
endf

fu Unten()
  norm! j
  let mcol = CharA()
  norm! k
  if mcol == &quot; &quot;
    norm! r jrö
  elsei mcol == &quot;*&quot;
    norm! r jrö
    let g:punkte = g:punkte + 1
  elsei mcol == &quot;~&quot;
    norm! r jrö
    cal Gewonnen()
  en
  return Punt()
endf

fu Oben()
  norm! k
  let mcol = CharA()
  norm! j
  if mcol == &quot; &quot;
    norm! r krö
  elsei mcol == &quot;*&quot;
    norm! r krö
    let g:punkte = g:punkte + 1
  elsei mcol == &quot;~&quot;
    norm! r krö
    cal Gewonnen()
  en
  return Punt()
endf
`exCodee`
Nun starten Sie mal das Spiel mit$esCodes :cd maze&lt;CR&gt;:so
maze.vim$esCodee (q steht f&uuml;r Quit).<br /><br />
Das bringt wohl den Beweis... Die Farben wurden mittels Syntax-Highligthing
realisiert, die Steuerung mittels mehreren $esCodes :map$esCodee Aufrufen.
"
case $1 in
  Name) echo $Name; exit;;
  Stich) echo $Stich; exit;;
  Zeit) echo $Zeit; exit;;
  Kurz) echo $Kurz; exit;;
  Lang) echo $Lang; exit;;
esac
# if [ "$1" = "Name" ]; then echo $Name; fi
mself_vA="txt/0029.txt"