Dungeon Construction Set


19

Quando ero un bambino, ho giocato al gioco Intellivision Advanced Dungeons and Dragons: Treasure of Tarmin . La grafica 3D ti mette in una prospettiva in prima persona con un realismo scioccante:

Grafica 3-D incredibilmente realistica

Ma poi ho ottenuto un C-64. E sono stato in grado di disegnare sulla griglia di caratteri 40x25 scorrendo il cursore sullo schermo, impostando il colore con il tasto Ctrl e una cifra e mettendo i simboli dove volevo (perché non bashme lo permette?) . Il set di caratteri aveva componenti triangolari e componenti a blocchi solidi. Così sono stato in grado di ragionare su come si potrebbe generare un rendering della propria prospettiva in una griglia attraverso quel mezzo.

Ho trovato le specifiche di quasi tre decenni, in un quaderno rilegato a spirale, su "Dungeon Construction Set" questa settimana:

inserisci qui la descrizione dell'immagine

( AGGIORNAMENTO : I lettori attenti noteranno che questo non si adatta perfettamente alle parti inclinate. I numeri corretti sono forniti di seguito.)

Sebbene Treasure of Tarmin fosse giocato su una griglia, le pareti esistevano solo sui bordi dei quadrati della griglia. Dopo aver appreso cosa fossero i byte, mi sono reso conto che se avessi creato la mappa da byte ... allora ogni quadrato sulla mappa avrebbe potuto avere quattro stati possibili per ciascuno dei suoi bordi:

  1. Sgomberata
  2. Parete
  3. Porta
  4. Qualcos'altro?

Non sono mai andato in giro a scriverlo (fino a ieri sera). Ho pensato che potrebbe essere divertente per gli altri provare.

Quindi il tuo compito è quello di implementare un render labirinto basato sulla modalità personaggio che implementa le mie specifiche (corrette !!) ... ma usando le tecnologie del 2013.

Ingresso

Poiché le specifiche non definiscono il rendering per le porte, supponiamo che le uniche opzioni siano wall-and-not-wall. Per semplicità, il tuo input è una mappa composta da linee di stringhe che assomigliano a questo:

WN.. .N.. .N.. .N.. .N.E
W... .... .... ..S. ...E
W... .N.E W... .N.. ...E
W... .... .... .... ...E
W.S. ..S. ..S. ..S. ..SE

Sarebbe una mappa 5x5. L'angolo in alto a sinistra (1,1) ha la sua parete West e Norto. L'angolo in basso a destra (5,5) ha la sua parete esterna Se Eastuta.

Questo è molto meno divertente senza la navigazione della mappa. Quindi almeno metti il ​​tuo giocatore a (1,1) rivolto a nord e offri:

[F]orward, [B]ackward, turn [L]eft, turn [R]ight or [Q]uit?

Ad ogni passaggio, produrre un display 16x15 della prospettiva in prima persona, come definito dalle specifiche della carta per notebook. Per evitare di dover contare, le dimensioni delle pareti piane alle tre distanze sono:

14x13  (directly in front of you; e.g. wall is in same cell)
8x7    (one step away)
6x5    (two steps away)

Le dimensioni del contorno delle pareti inclinate sono:

1x15   (your direct left or right; e.g. wall is in same cell)
3x13   (one step away)
1x7    (two steps away)

chiarimenti

  • Le celle adiacenti possono non essere d'accordo sulle pareti condivise. Quindi il bordo sud su una piazza potrebbe essere un muro, mentre il bordo nord sulla piazza a sud di esso sarebbe libero. Nel design originale l'ho considerato una caratteristica: permette idee interessanti come porte a senso unico ... o pareti invisibili che appaiono solo dopo che le hai attraversate. Per questa semplificazione, segui la stessa regola: per la navigazione e il rendering, presta attenzione solo allo stato del bordo sulla cella più vicina a te nella direzione in cui sei rivolto .

  • La vista è molto migliore con "ombreggiatura". Quindi, per i tuoi blocchi completi, alternare Unicode 2593 ▓ e 2591 ░ oppure utilizzare Xe +se l'implementazione è ASCII.

  • I caratteri del triangolo Unicode (25E2 ◢, 25E3 ◣, 25E4 ◤, 25E5 ◥) sono un po 'zoppi per disegnare questo. Oltre a non avere varianti sfumate, spesso allungano solo la larghezza del personaggio e non l'intera altezza ... anche in caratteri a larghezza fissa. Puoi disegnare blocchi pieni o caratteri di taglio o qualcosa di tua scelta nei punti in cui volevo le diagonali. Interessanti soluzioni creative che incorporano il colore e usano questi personaggi anziché apprezzare l'ombreggiatura.

  • Puoi presumere che le pareti più esterne siano impostate per delimitare l'area di gioco, quindi non devi preoccuparti di rendere nulla al di fuori del labirinto. Qualsiasi muro più lontano di te rispetto alle specifiche viene ignorato e lascia spazio vuoto.

  • L'ombreggiatura del muro che vedi di fronte a te se rivolta a nord a (1,1) dovrebbe essere SCURO. Ombreggiatura alternata sui muri adiacenti nella mappa, in modo tale che se tutti i muri fossero presenti, un muro chiaro non confuterebbe mai un muro scuro.

  • Un'implementazione C-64 che in realtà fa quello che inizialmente intendevo ... con i personaggi diagonali e tutti ... supererà qualsiasi altro criterio di ingresso. :-)

Esempi

Per la mappa di esempio fornita sopra ...

A (1,3) esposto a sud:

               /
              /+
             /X+
            /XX+
           /XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
           \XXX+
            \XX+
             \X+
              \+
               \

A (3,2) esposto a sud:

                      /* blank line */        
X             /
X            /+
X           /++
X           +++
X           +++
X           +++
X           +++
X           +++
X           +++
X           +++
X           \++
X            \+
X             \
                      /* blank line */

A (3,2) rivolto a est:

                      /* blank line */        
              / 
             /X 
            /XX 
            XXX 
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
            XXX 
            \XX 
             \X 
              \ 
                      /* blank line */        

A (2,3) rivolto a nord:

               /
 ++++++++++++++X
 ++++++++++++++X
 ++++++++++++++X
 ++++++++++++++X
X++++++++++++++X
X++++++++++++++X
X++++++++++++++X
X++++++++++++++X
X++++++++++++++X
 ++++++++++++++X
 ++++++++++++++X
 ++++++++++++++X
 ++++++++++++++X
               \

1
Suggerisco di renderlo una sfida al codice - un golf sarebbe troppo illeggibile e difficile: P
Maniglia della porta

1
@Doorknob Non lasciarti ingannare ... in realtà non è poi così difficile. C'è un suggerimento abbastanza buono con gli elenchi di 3 dimensioni di delimitazione. E cos'è un golf se non una sfida che viene risolta e quindi ridotta? :-) Ma lascerò che la gente scelga come vogliono risolverlo ... NP
Dr. Rebmu,

Potresti spiegare per favore le due colonne di Xs nella tua vista di 3, 2fronte a sud?
jazzpi,

Soprattutto quello sul lato destro. Vedo perché quello di sinistra è lì. Ma quello giusto sembra violare il chiarimento n. 1.
jazzpi,

@jazzpi Oops, hai ragione, la mappa che ho messo deve obbedire al chiarimento 1! Molto bene. Fisso. (Apparentemente metterei il muro meridionale mancante nella mia versione ad un certo punto ... ma è bello avere un caso di prova nel campione ... quindi lasciamo fuori il muro sud!)
Dr. Rebmu

Risposte:


10

Commodore 64 Basic

Amico, è stato divertente. E difficile. C64 Basic è quasi indefinibile, non è nemmeno possibile utilizzare il printdebug perché lo schermo è già preso per il rendering del dungeon. Sai che ti stai divertendo quando scrivi codice come 55250 goto 55110. Dijkstra mi ucciderà.

Il programma utilizza due colori e caratteri diagonali.

Inutile dire che non l'ho giocato a golf. Dice che la sfida del codice ora, dopo tutto. Sono 7183 byte se sei interessato.

È lento: alla velocità predefinita sono necessari diversi secondi per eseguire il rendering della scena. La dimensione massima della mappa è 10 per 10 ma può essere modificata modificando la riga 120.

Ho sviluppato e testato questo usando l' emulatore VICE . Il codice seguente viene visualizzato in ASCII, quindi significa PETSCII spostato . Tuttavia, quando si inserisce la mappa, è necessario utilizzare PETSCII non spostato .

Immagine dello schermo: Immagine dello schermo

Codice:

10 rem c64 dungeon construction set.
20 rem enter using lowercase mode
99 rem DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD
100 rem initialisation
110 poke 53272,21
115 poke 53280,0
120 dim m%(10,10)
121 dim di$(3),wa$(1),ma%(2,2)
122 di$(0)="north"
123 di$(1)="east "
124 di$(2)="south"
125 di$(3)="west "
126 wa$(1)="-wall"
127 wa$(0)="     "

130 x=0:y=0:di=0:xs=0:ys=0:wa=0
134 rem read map
135 print "input map"
140 l$="":input l$
150 if len(l$)=0 goto 250
160 cz=0
170 for i=1 to len(l$)
180   c$=mid$(l$,i,1)
190   if c$="n" then cz=cz or 8
200   if c$="e" then cz=cz or 4
205   if c$="s" then cz=cz or 2
210   if c$="w" then cz=cz or 1
215   if c$=" " then m%(x,y)=cz:cz=0:x=x+1
220   if x>=xs then xs=x
225 next
230 m%(x,y)=cz:x=0:y=y+1
240 goto 140
250 rem come from 150
260 print chr$(147)
265 ys=y:xs=xs+1
270 x=0:y=0

500 rem loop
510 gosub 1000: rem status
515 gosub 2000: rem render
520 gosub 55000: rem input
530 goto 500

1000 rem display current (x,y) value
1010 sx=5
1020 sy=17
1030 sl$="    "
1035 sw=14
1040 gosub 63900
1050 cz=m%(x,y)
1060 sx=5:sl$=".":if cz and 8 then sl$="n"
1065 gosub 63900
1070 sx=6:sl$=".":if cz and 4 then sl$="e"
1075 gosub 63900
1080 sx=7:sl$=".":if cz and 2 then sl$="s"
1085 gosub 63900
1090 sx=8:sl$=".":if cz and 1 then sl$="w"
1095 gosub 63900
1100 return

2000 rem render dungeon
2010 rem DDDDDDDDDDDDDD
2020 rem clear area
2030 sw=14:sz=32
2040 for sy=0 to 15
2050   for sx=0 to 16
2060      gosub 63950
2070   next
2080 next
2090 rem find cells / reorient sw
2100 rem store in ma% - we're at (0,1)
2110 sx=x:sy=y
2113 co=di+x+y and 1
2115 for ty=0 to 2
2120    gosub 59800:rem left/right sx/sy
2125    ma%(1,ty)=0
2126    if sx>=0 and sy>=0 and sx<xs and sy<ys then ma%(1,ty)=m%(sx,sy)
2130    ma%(0,ty)=rl
2140    ma%(2,ty)=rr
2150    gosub 59900:rem advance
2160 next
2170 rem draw back walls
2180 sa=ma%(1,2):gosub 59700
2190 if rf=0 goto 2245
2195 sw=14-11*co:sz=160
2200 for sy=5 to 9
2210    for sx=5 to 10
2220       gosub 63950
2230    next
2240 next
2245 sw=3:if co=1 then sw=14
2250 for de=0 to 2 step 2 
2260    sa=ma%(de,2):gosub 59700
2270    if rf=0 goto 2350
2280    for sx=de*5.5 to 4+de*5.5
2290       for sy=5 to 9
2300          gosub 63950
2310       next
2340    next 
2350 next
2360 rem 1,2 left wall
2370 sa=ma%(1,2):gosub 59700
2380 if rl=0 goto 2430
2390 sx=4:sz=160
2400 for sy=5 to 9:gosub 63950:next
2410 sy=4:sz=223:gosub 63950
2420 sy=10:sz=105:gosub 63950
2430 rem 1,2 right wall
2440 if rr=0 goto 2490
2450 sx=11:sz=160
2460 for sy=5 to 9:gosub 63950:next
2470 sy=4:sz=233:gosub 63950
2480 sy=10:sz=95:gosub 63950
2490 rem 1,1 back wall
2500 sa=ma%(1,1):gosub 59700
2510 sz=160
2520 sw=14:if co=1 then sw=3
2520 if rf=0 goto 2580
2530 for sy=4 to 10
2540    for sx=4 to 11
2550       gosub 63950
2560    next
2570 next
2580 rem (0-2),1 back walls
2590 sw=14:if co=1 then sw=3
2600 for de=0 to 2 step 2
2610    sa=ma%(de,1):gosub 59700
2620    if rf=0 goto 2680
2630    for sx=de*6 to 3+de*6
2640       for sy=4 to 10
2650          gosub 63950
2660       next
2670    next
2680 next 
2690 rem 1,1 left side wall
2700 sw=14:if co=1 then sw=3
2710 sa=ma%(1,1):gosub 59700
2720 if rl=0 goto 2760
2730 for sx=1 to 3
2735   sy=sx:sz=223:gosub 63950
2736   sy=14-sx:sz=105:gosub 63950
2737   sz=160
2740   for sy=1+sx to 13-sx:gosub 63950:next
2750 next
2760 rem 1,1 right side wall
2770 if rr=0 goto 2850
2780 for qx=1 to 3
2790   sx=15-qx
2800   sy=qx:sz=233:gosub 63950
2810   sy=14-qx:sz=95:gosub 63950
2820   sz=160
2830   for sy=1+qx to 13-qx:gosub 63950:next
2840 next
2850 rem 0,1 back wall
2860 sa=ma%(1,0):gosub 59700
2870 if rf=0 goto 2930
2880 for sy=1 to 13
2890   for sx=1 to 14
2900     gosub 63950
2910   next
2920 next
2930 rem (0,2)-0 back walls
2940 sw=3:if co=1 then sw=14
2950 for de=0 to 2 step 2
2960   sa=ma%(de,0):gosub 59700
2970   if rf=0 goto 3000
2980   sx=de*7.5
2990   for sy=1 to 13:gosub 63950:next
3000 next
3010 rem (1,0) left side wall
3020 sa=ma%(1,0):gosub 59700
3030 if rl=0 goto 3080
3040 sx=0:sy=0:sz=223:gosub 63950
3050 sy=14:sz=105:gosub 63950
3060 sz=160
3070 for sy=1 to 13:gosub 63950:next
3080 rem (1,0) right side wall
3085 if rr=0 goto 3130
3090 sx=15:sy=0:sz=233:gosub 63950
3100 sy=14:sz=95:gosub 63950
3110 sz=160
3120 for sy=1 to 13:gosub 63950:next
3130 rem done
3140 return

55000 rem ask for prompt & handle input
55010 sx=0:sy=20:gosub 63850
55013 print "at";x+1;y+1;"going ";di$(di);" size";xs;ys;wa$(wa)
55020 print "{f}rwd {b}kwd {l}eft {r}ight {q}uit"
55030 input c$
55040 if c$="q" goto 63999
55050 if c$="f" then dm=1:goto 55100
55060 if c$="b" then dm=-1:goto 55100
55070 if c$="l" then di=(di-1)and 3
55080 if c$="r" then di=(di+1)and 3
55090 return
55100 goto 55200:rem check walls
55110 if di=0 then y=y-dm
55120 if di=1 then x=x+dm
55130 if di=2 then y=y+dm
55140 if di=3 then x=x-dm
55145 wa=0
55146 if y>=ys then y=0
55147 if y<0   then y=ys-1
55148 if x>=xs then x=0
55149 if x<0   then x=xs-1
55150 return
55200 rem check walls
55205 cz=m%(x,y)
55207 if dm=-1 goto 55280
55210 if (di=0) and (cz and 8) goto 55260
55220 if (di=1) and (cz and 4) goto 55260
55230 if (di=2) and (cz and 2) goto 55260
55240 if (di=3) and (cz and 1) goto 55260
55250 goto 55110
55260 wa=1
55270 return : rem wall in the way
55280 rem backward
55290 if (di=2) and (cz and 8) goto 55260
55300 if (di=3) and (cz and 4) goto 55260
55310 if (di=0) and (cz and 2) goto 55260
55320 if (di=1) and (cz and 1) goto 55260
55330 goto 55110

59700 rem return front/back/left/right
59710 rem given sa and d
59720 sn=0:if sa and 8 then sn=1
59725 se=0:if sa and 4 then se=1
59730 ss=0:if sa and 2 then ss=1
59735 zw=0:if sa and 1 then zw=1
59740 if di=0 then rf=sn:rr=se:rb=ss:rl=zw
59745 if di=1 then rf=se:rr=ss:rb=zw:rl=sn
59750 if di=2 then rf=ss:rr=zw:rb=sn:rl=se
59755 if di=3 then rf=zw:rr=sn:rb=se:rl=ss
59760 return

59800 rem return left/right from sx/sy/d
59810 if di=0 then ly=sy:ry=sy:lx=sx-1:rx=sx+1
59820 if di=1 then lx=sx:rx=sx:ly=sy-1:ry=sy+1
59830 if di=2 then ly=sy:ry=sy:lx=sx+1:rx=sx-1
59840 if di=3 then lx=sx:rx=sx:ly=sy+1:ry=sy-1
59850 rl=0:rr=0
59860 if lx<0 or lx>=xs or ly<0 or ly>=ys goto 59880
59870 rl=m%(lx,ly)
59880 if rx<0 or rx>=xs or ry<0 or ry>=ys goto 59895
59890 rr=m%(rx,ry)
59895 return

59900 rem step forward
59910 if di=0 then sy=sy-1:rem N
59920 if di=1 then sx=sx+1:rem E
59930 if di=2 then sy=sy+1:rem S
59940 if di=3 then sx=sx-1:rem W
59950 return

63850 rem set cursor position
63851 rem sx=x sy=y
63860 poke 781,sy
63870 poke 782,sx
63880 poke 783,0
63890 sys 65520
63895 return

63900 rem write str to screen
63901 rem sl$ = string
63910 gosub 63850
63920 print sl$;
63930 return

63950 rem write chr to screen
63951 rem sx = x coordinate
63952 rem sy = y coordinate
63953 rem sz = character code
63954 rem sw = color
63950 sv=sx+sy*40
63960 poke 1024+sv,sz
63970 poke 55296+sv,sw
63980 return

63998 rem quit program
63999 print chr$(147):end

Immagine del nastro: scarica qui .

Gli esempi:

esempi


1
OH MIO DIO. Se altri vogliono risolverlo per il gusto di farlo, fantastico ... ma hai vinto la taglia per definizione della carta vincente nella sfida. Sono stato tentato di estrarre un emulatore e farlo per motivi di nostalgia, ma ho pensato che fosse più produttivo scriverlo in rosso per vedere quanto il cross-compilatore del compilatore potesse reggere. fonte per quello . Lo ribatte e lo pubblicherò ad un certo punto ... ma la generosità è tua! Grandi applausi.
Dr. Rebmu,

1
Inoltre, RE: Dijkstra, ha una divertente citazione sull'immortalità : "Voglio dire, se tra 10 anni, quando stai facendo qualcosa di veloce e sporco, improvvisamente visualizzi che sto guardando oltre le tue spalle e ti dico 'Dijkstra vorrebbe questo non mi sarebbe piaciuto, beh, sarebbe abbastanza immortalità per me ". Quindi suppongo che abbia ottenuto il suo desiderio! :-)
Dr. Rebmu il

@ Dr.Rebmu: grazie per la generosità! Mi ci è voluto letteralmente tutto il giorno per scrivere :)
Marin il

10

(perché non bashme lo permette?)

Dovevo solo adesso.

Bash, 12743 caratteri

#!/bin/bash
IFS=
declare -a term
typeset -i term[0] term[1]
IFS=' ' read -a term <<< `stty size`
front[0]='\e[2;2H██████████████
\e[3;2H██████████████
\e[4;2H██████████████
\e[5;2H██████████████
\e[6;2H██████████████
\e[7;2H██████████████
\e[8;2H██████████████
\e[9;2H██████████████
\e[10;2H██████████████
\e[11;2H██████████████
\e[12;2H██████████████
\e[13;2H██████████████
\e[14;2H██████████████'
front[1]='\e[5;5H████████
\e[6;5H████████
\e[7;5H████████
\e[8;5H████████
\e[9;5H████████
\e[10;5H████████
\e[11;5H████████'
front[2]='\e[6;6H██████
\e[7;6H██████
\e[8;6H██████
\e[9;6H██████
\e[10;6H██████'
lfront[0]='\e[2;1H█
\e[3;1H█
\e[4;1H█
\e[5;1H█
\e[6;1H█
\e[7;1H█
\e[8;1H█
\e[9;1H█
\e[10;1H█
\e[11;1H█
\e[12;1H█
\e[13;1H█
\e[14;1H█'
lfront[1]='\e[5;1H████
\e[6;1H████
\e[7;1H████
\e[8;1H████
\e[9;1H████
\e[10;1H████
\e[11;1H████'
lfront[2]='\e[6;1H█████
\e[7;1H█████
\e[8;1H█████
\e[9;1H█████
\e[10;1H█████'
rfront[0]='\e[2;16H█
\e[3;16H█
\e[4;16H█
\e[5;16H█
\e[6;16H█
\e[7;16H█
\e[8;16H█
\e[9;16H█
\e[10;16H█
\e[11;16H█
\e[12;16H█
\e[13;16H█
\e[14;16H█'
rfront[1]='\e[5;13H████
\e[6;13H████
\e[7;13H████
\e[8;13H████
\e[9;13H████
\e[10;13H████
\e[11;13H████'
rfront[2]='\e[6;12H█████
\e[7;12H█████
\e[8;12H█████
\e[9;12H█████
\e[10;12H█████'
left[0]='\e[1;1H▙
\e[2;1H█
\e[3;1H█
\e[4;1H█
\e[5;1H█
\e[6;1H█
\e[7;1H█
\e[8;1H█
\e[9;1H█
\e[10;1H█
\e[11;1H█
\e[12;1H█
\e[13;1H█
\e[14;1H█
\e[15;1H▛'
left[1]='\e[2;2H▙
\e[3;2H█▙
\e[4;2H██▙
\e[5;2H███
\e[6;2H███
\e[7;2H███
\e[8;2H███
\e[9;2H███
\e[10;2H███
\e[11;2H███
\e[12;2H██▛
\e[13;2H█▛
\e[14;2H▛'
left[2]='\e[5;5H▙
\e[6;5H█
\e[7;5H█
\e[8;5H█
\e[9;5H█
\e[10;5H█
\e[11;5H▛'
right[0]='\e[1;16H▟
\e[2;16H█
\e[3;16H█
\e[4;16H█
\e[5;16H█
\e[6;16H█
\e[7;16H█
\e[8;16H█
\e[9;16H█
\e[10;16H█
\e[11;16H█
\e[12;16H█
\e[13;16H█
\e[14;16H█
\e[15;16H▜'
right[1]='\e[2;13H  ▟
\e[3;13H ▟█
\e[4;13H▟██
\e[5;13H███
\e[6;13H███
\e[7;13H███
\e[8;13H███
\e[9;13H███
\e[10;13H███
\e[11;13H███
\e[12;13H▜██
\e[13;13H ▜█
\e[14;13H  ▜'
right[2]='\e[5;12H▟
\e[6;12H█
\e[7;12H█
\e[8;12H█
\e[9;12H█
\e[10;12H█
\e[11;12H▜'

echo -e "\e[2J"

# Read map
typeset -i cout
cout=0
echo "Please input your map!"
echo "Please input the next row (or leave it blank if you're finished!)"
read input

declare -A map

typeset -i xlen ylen
ylen=0

until [ -z $input ]
do
    IFS=' ' read -a inputmap <<< "$input"
    xlen=${#inputmap[*]}
    let ylen++
    for index in "${!inputmap[@]}"
    do
        typeset -i map[$index,$cout]
        map[$index,$cout]=0
        el=${inputmap[index]}
        if [[ $el == W??? ]]
        then
            let "map[$index,$cout]|=1"
        fi
        if [[ $el == ?N?? ]]
        then
            let "map[$index,$cout]|=2"
        fi
        if [[ $el == ??S? ]]
        then
            let "map[$index,$cout]|=4"
        fi
        if [[ $el == ???E ]]
        then
            let "map[$index,$cout]|=8"
        fi
    done
    echo "Please input the next row (or leave it blank if you're finished!)"
    read input
    cout+=1
done

echo -ne "\e[2J"

typeset -i dir x y
dir=0
x=0
y=0

move() {
    if ((dir == 0)) && ( ((${map[$x,$y]} & 2)) || ((y == 0)) )
    then
        return 1
    elif ((dir == 1)) && ( ((${map[$x,$y]} & 8)) || (($x == $xlen)) )
    then
        return 1
    elif ((dir == 2)) && ( ((${map[$x,$y]} & 4)) || ((y == $ylen)) )
    then
        return 1
    elif ((dir == 3)) && ( ((${map[$x,$y]} & 1)) || ((x == 0)) )
    then
        return 1
    fi
    x=$1
    y=$2
}

input=

until [[ $input == [qQ] ]]
do
    if [[ $input == [DlL] ]]
    then
        let dir-=1
        if (( dir == -1 ))
        then
            dir=3
        fi
    elif [[ $input == [CrR] ]]
    then
        let dir+=1
        if (( dir == 4 ))
        then
            dir=0
        fi
    elif [[ $input == [AfF] ]]
    then
        if (( dir == 0 ))
        then
            move $x $(( y-1 ))
        elif (( dir == 1 ))
        then
            move $(( x+1 )) $y
        elif (( dir == 2 ))
        then
            move $x $(( y+1 ))
        elif (( dir == 3 ))
        then
            move $(( x-1 )) $y
        fi
    elif [[ $input == [bB] ]]
    then
        if (( dir == 0 ))
        then
            dir=2
            move $x $(( y+1 ))
            dir=0
        elif (( dir == 1 ))
        then
            dir=3
            move $(( x-1 )) $y
            dir=1
        elif (( dir == 2 ))
        then
            dir=0
            move $x $(( y-1 ))
            dir=2
        elif (( dir == 3 ))
        then
            dir=1
            move $(( x+1 )) $y
            dir=3
        fi
    fi
    echo -ne "\e[2J"
    echo -ne "\e[16;1Hd=$dir; x=$x; y=$y\e[48;5;29m"
    for (( y2=1; y2 <= 15; y2++ ))
    do
        echo -ne "\e[$y2;16H\e[1K"
    done
    if (( dir == 0 ))
    then
        for (( y2=(y-2); y2 <= y; y2++ ))
        do
            if (( y2 < 0 )); then continue; fi
            let i=y-y2
            if (( x > 0 )) && (( ${map[$((x-1)),$y2]} & 2 ))
            then
                if (( ((x-1) + y2) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${lfront[$i]}
            fi
            if (( (x+1) < xlen )) && (( ${map[$((x+1)),$y2]} & 2 ))
            then
                if (( ((x-1) + y2) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${rfront[$i]}
            fi
            if (( ${map[$x,$y2]} & 1 ))
            then
                if (( (x + y2) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${left[$i]}
            fi
            if (( ${map[$x,$y2]} & 8 ))
            then
                if (( (x + y2) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${right[$i]}
            fi
            if (( ${map[$x,$y2]} & 2 ))
            then
                if (( (x + y2) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${front[$i]}
            fi
        done
    elif (( dir == 1 ))
    then
        for (( x2=x+2; x2 >= x; x2-- ))
        do
            if (( x2 > 16 )) || (( x2 >= xlen )); then continue; fi
            let i=x2-x
            if (( y > 0 )) && (( ${map[$x2,$((y-1))]} & 8 ))
            then
                if (( (x2 + (y-1)) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${lfront[$i]}
            fi
            if (( (y+1) < ylen )) && (( ${map[$x2,$((y+1))]} & 8 ))
            then
                if (( (x2 + (y-1)) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${rfront[$i]}
            fi
            if (( ${map[$x2,$y]} & 2 ))
            then
                if (( (x2 + y) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${left[$i]}
            fi
            if (( ${map[$x2,$y]} & 4 ))
            then
                if (( (x2 + y) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${right[$i]}
            fi
            if (( ${map[$x2,$y]} & 8 ))
            then
                if (( (x2 + y) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${front[$i]}
            fi
        done
    elif (( dir == 2 ))
    then
        for (( y2=(y+2); y2 >= y; y2-- ))
        do
            if (( y2 > 15 )) || (( y2 >= ylen )); then continue; fi
            let i=y2-y
            if (( x > 0 )) && (( ${map[$((x-1)),$y2]} & 4 ))
            then
                if (( ((x-1) + y2) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${rfront[$i]}
            fi
            if (( (x+1) < xlen )) && (( ${map[$((x+1)),$y2]} & 4 ))
            then
                if (( ((x+1) + y2) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${lfront[$i]}
            fi
            if (( ${map[$x,$y2]} & 8 ))
            then
                if (( (x + y2) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${left[$i]}
            fi
            if (( ${map[$x,$y2]} & 1 ))
            then
                if (( (x + y2) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${right[$i]}
            fi
            if (( ${map[$x,$y2]} & 4 ))
            then
                if (( (x + y2) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${front[$i]}
            fi
        done
    elif (( dir == 3 ))
    then
        for (( x2=(x-2); x2 <= x; x2++ ))
        do
            if (( x2 < 0 )); then continue; fi
            let i=x-x2
            if (( y > 0 )) && (( ${map[$x2,$((y-1))]} & 1 ))
            then
                if (( (x2 + (y-1)) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${rfront[$i]}
            fi
            if (( (y+1) < ylen )) && (( ${map[$x2,$((y+1))]} & 1 ))
            then
                if (( (x2 + (y+1)) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${lfront[$i]}
            fi
            if (( ${map[$x2,$y]} & 4 ))
            then
                if (( (x2 + y) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${left[$i]}
            fi
            if (( ${map[$x2,$y]} & 2 ))
            then
                if (( (x2 + y) & 1 ))
                then
                    echo -ne "\e[38;5;40m"
                else
                    echo -ne "\e[38;5;28m"
                fi
                echo -ne ${right[$i]}
            fi
            if (( ${map[$x2,$y]} & 1 ))
            then
                if (( (x2 + y) & 1 ))
                then
                    echo -ne "\e[38;5;28m"
                else
                    echo -ne "\e[38;5;40m"
                fi
                echo -ne ${front[$i]}
            fi
        done
    fi
    echo -ne "\e[0m"
    echo -ne "\e[${term[0]};0H[F]orward, [B]ackward, turn [L]eft, turn [R]ight or [Q]uit?"
    read -n 1 input
done

echo

Si prega di tenere presente che questa è praticamente la prima cosa che ho fatto bashche è stato molto più che semplicemente inviare alcuni comandi. Probabilmente sarebbe riducibile di parecchio se non codificassi tutti i muri, ma sembrava più facile. Non ha alcuna consistenza. Il formato byte per ogni quadrato è scelto in modo orribile. Ma funziona

Ho anche aggiunto il supporto per il movimento attraverso i tasti freccia :)

Questi sono alcuni screenshot per l'input di esempio (nota che la mia mappa inizia da (0 | 0)):

0 | 0, esposto a nord 0 | 2, esposto a sud 2 | 1, esposto a est 2 | 1, esposto a sud 1 | 2, esposto a nord

A parte il quarto, sembrano tutti uguali (vedi il mio commento sull'OP).

Questi screenshot sono stati acquisiti su urxvt v9.15 con supporto a 256 colori, probabilmente sembrerebbe abbastanza schifoso su un terminale a 88 colori e terminali senza supporto unicode non funzionano affatto. Il carattere che ho usato era Source Code Pro di Adobe.


1
Ahah, in bash e anche a colori! Bello. Avevi perfettamente ragione su quel muro, a quanto pare a un certo punto l'avevo "riparato" nel mio programma. Quindi l'ho risolto. Sorriso Grazie per la cattura!
Dr. Rebmu,

3

Ecco la mia versione, in Python 3. È qualcosa come i personaggi 3k e potrebbe essere un po 'più piccolo con un piccolo sforzo (c'è un sacco di spazio bianco che potrebbe essere rimosso, per cominciare).

Attualmente utilizza +X/\come caratteri di disegno, ma è impostato per disegnare con caratteri Unicode se si dispone di un carattere a larghezza fissa che li renderà correttamente. Supporta l'utilizzo di tessere separate per le parti angolate delle pareti diversamente colorate, anche se non sto usando quella funzione. Ti consente anche di fornire tessere del soffitto, del pavimento e "distanti" e puoi usarne di diverse per quando il giocatore è rivolto a est o ovest rispetto a nord o sud. Purtroppo questo non è mai stato molto bello, quindi probabilmente tutti questi dovrebbero essere vuoti (o qualcosa di solido, come ).

Ahimè, sul mio sistema Windows 7 ho avuto un momento orribile cercando di trovare un carattere a spaziatura fissa con il set completo di caratteri a blocchi (ad esempio e ). La maggior parte di quelli che ho trovato non potevano essere resi disponibili nella cmdconsole per qualche motivo (forse perché non sono perfettamente monospaziati?). Se ritieni che la tua console sia più funzionale, prova a utilizzare il set di caratteri alternativo che ho commentato nella parte superiore del file, che non sembra troppo male anche con solo due colori. Ha riempito soffitti e pavimenti e pareti per lo più trasparenti.

Il codice:

from itertools import product as p
r=range
cs=r"+X//\\//\\      " #" ░▛▛▜▜▟▟▙▙██████"
shapes=[(1,[(x,y,0)for x,y in p(r(5),r(5,10))]),
        (0,[(x,y,0)for x,y in p(r(5,11),r(5,10))]),
        (1,[(x,y,0)for x,y in p(r(11,16),r(5,10))]),
        (1,[(4,4,4),(4,10,6)]+[(4,y,0)for y in r(5,10)]),
        (1,[(11,4,2),(11,10,8)]+[(11,y,0)for y in r(5,10)]),
        (0,[(x,y,0)for x,y in p(r(4),r(4,11))]),
        (1,[(x,y,0)for x,y in p(r(4,12),r(4,11))]),
        (0,[(x,y,0)for x,y in p(r(12,16),r(4,11))]),
        (0,[(1,1,4),(2,2,4),(3,3,4),(1,13,6),(2,12,6),(3,11,6)]+
           [(x,y,0)for x,y in p(r(1,4),r(2,14)) if x<y<14-x]),
        (0,[(14,1,2),(13,2,2),(12,3,2),(14,13,8),(13,12,8),(12,11,8)]+
           [(x,y,0)for x,y in p(r(12,15),r(2,14)) if 15-x<y<x-1]),
        (1,[(0,y,0) for y in r(1,14)]),
        (0,[(x,y,0) for x,y in p(r(1,15),r(1,14))]),
        (1,[(15,y,0) for y in r(1,14)]),
        (1,[(0,0,4),(0,14,6)]+[(0,y,0)for y in r(1,14)]),
        (1,[(15,0,2),(15,14,8)]+[(15,y,0) for y in r(1,14)])]
def rr(s):
    for r in s:print("".join(r))
def dw(s,a,p,d):
    for i,r in enumerate(s):r[:]=cs[10+i//5*2+d%2]*16
    for w,(pl,sh) in zip(a,shapes):
        if w:
            for x,y,c in sh:
                s[y][x]=cs[c+(p+d+pl)%2]
dx=[1,0,-1,0]
def ga(x,y,d,m):
    fx=dx[d];fy=lx=dx[d-1];ly=dx[d-2]
    return [m[y+2*fy+ly][x+2*fx+lx][d],m[y+2*fy][x+2*fx][d],
            m[y+2*fy-ly][x+2*fx-lx][d],m[y+2*fy][x+2*fx][d-1],
            m[y+2*fy][x+2*fx][d-3],m[y+fy+ly][x+fx+lx][d],
            m[y+fy][x+fx][d],m[y+fy-ly][x+fx-lx][d],
            m[y+fy][x+fx][d-1],m[y+fy][x+fx][d-3],
            m[y+ly][x+lx][d],m[y][x][d],
            m[y-ly][x-lx][d],m[y][x][d-1],m[y][x][d-3]]
def rd():
    l=input();
    while l!="":
        if "\n" in l:yield from l.split("\n")
        else:yield l
        l=input()
def rm():
    m=[[[d in s for d in"ESWN"]for s in r.strip().split()]+[[1]*4]*2
       for r in rd()]
    return m+[[[1]*4 for _ in m[0]]]*2
def cl():print("\n"*30)
def gl():
    print("Enter map, followed by a blank line.")
    x=y=0;d=3;m=rm();mv="";s=[[""]*16 for _ in r(15)]
    while True:
        cl();dw(s,ga(x,y,d,m),x+y,d);rr(s)
        print("X:",x+1,"Y:",y+1,"Facing:","ESWN"[d])
        if mv:print("Last move:",mv)
        mv=input("[FBLRQ]? ").upper()
        if mv=="F":
            if not m[y][x][d]:x+=dx[d];y+=dx[d-1]
            else:mv+=" (Blocked)"
        elif mv=="B":
            if not m[y][x][d-2]:x+=dx[d-2];y+=dx[d-3]
            else:mv+=" (Blocked)"
        elif mv=="L":d=(d-1)%4
        elif mv=="R":d=(d+1)%4
        elif mv=="Q":break
        else:mv="I didn't understand %r."%mv
gl()

Il set di caratteri è specificato nella parte superiore del file. L'ordine dei personaggi è:

  1. persino il muro di parità
  2. muro di parità dispari
  3. parità pari angolo superiore destro della parete (ad es. /con una parete sotto di essa)
  4. parità dispari angolo superiore destro della parete
  5. parità pari angolo superiore sinistro della parete
  6. parità dispari angolo della parete in alto a sinistra
  7. parità pari angolo inferiore destro della parete
  8. parità dispari angolo in basso a destra della parete
  9. parità pari angolo inferiore sinistro della parete
  10. parità dispari angolo inferiore sinistro della parete
  11. rivestimento del soffitto E / O
  12. rivestimento del soffitto N / S
  13. orizzonte rivolto verso E / O (al centro dello schermo se non ci sono muri)
  14. orizzonte rivolto a N / S
  15. pavimento rivolto verso E / O
  16. pavimento rivolto a N / S

Ci sono 15 muri che potrebbero aver bisogno di essere renderizzati dal gioco, in uno schema come questo (con l' Vindicazione della posizione del giocatore e dell'arco di vista):

_ _ _
_|_|_ 
_|_|_
 |V|

Le tessere utilizzate dalle 15 pareti sono definite shapesnell'elenco. È un elenco di 2 tuple. Il primo valore della tupla indica la "parità" del muro, con l' 0indicazione che dovrebbe essere disegnato con gli stessi caratteri di un muro direttamente davanti al personaggio e 1un'indicazione che dovrebbe essere il modello alternativo (ad esempio +vs X). Il secondo valore è un elenco di x,y,ttuple che indicano le coordinate dello schermo e l'indice delle piastrelle di un pixel (i muri renderizzati con parità dispari saranno 1aggiunti a ciascuno di questi indici). Le forme sono ordinate per distanza, quindi le prime tre rappresentano le pareti perpendicolari due tessere davanti al personaggio, seguite dalle due pareti parallele due tessere davanti e così via.

Le funzioni sono:

  • rr: "rende" lo schermo (stampando i riquadri nel buffer dello schermo).
  • dw: "disegna muri" su un buffer dello schermo fornito. Questo utilizza l'algoritmo dei pittori, quindi i muri più distanti vengono disegnati per primi e possono essere coperti da quelli più vicini.
  • ga: "ottieni area" restituisce un elenco di valori booleani che indicano quali muri sono opachi per una data posizione e fronte della mappa.
  • rd: "read", un generatore che legge la mappa, cedendo le linee. Ciò è necessario solo perché la console di IDLE fa cose strane quando si incollano input a più righe anziché immettere una riga alla volta.
  • rm: "leggi la mappa", analizza la mappa in un elenco annidato di booleani, indicizzato da m[y][x][d](con l' d=0essere est e l' d=1essere sud). Aggiunge inoltre due righe e due colonne di quadrati di riempimento, per evitare errori di indice nell'altro codice.
  • cl: "cancella" l'output (scrivendo abbastanza righe per scorrere la vista precedente dalla parte superiore della maggior parte delle console).
  • gl: "game loop", in cui viene raccolto l'input e viene chiamata la roba sopra.

Alcuni "screenshot":

La posizione di partenza:

\               
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
+XXXXXXXXXXXXXX+
/               
X: 1 Y: 1 Facing: N
[FBLRQ]? 

Guardando lungo la parete nord:

\               
X\              
X+\             
X++\            
X+++\           
X+++X           
X+++X           
X+++X           
X+++X           
X+++X           
X+++/           
X++/            
X+/             
X/              
/               
X: 1 Y: 1 Facing: E
Last move: R
[FBLRQ]? 

Un paio di scatti corrispondenti ai tuoi esempi (nota, le prime righe vuote vengono tagliate dallo Stack Overflow, sono nell'output del programma):

X             / 
X            /+ 
X           /++ 
X           +++ 
X           +++ 
X           +++ 
X           +++ 
X           +++ 
X           +++ 
X           +++ 
X           \++ 
X            \+ 
X             \ 

X: 3 Y: 2 Facing: S
Last move: F
[FBLRQ]? 

E:

              / 
             /X 
            /XX 
            XXX 
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
+++++XXXXXX+XXX+
            XXX 
            \XX 
             \X 
              \ 

X: 3 Y: 2 Facing: E
Last move: L
[FBLRQ]? 

Ecco una delle viste più strane nella mappa fornita, poiché il muro parallelo alla nostra vista ha lo stesso colore del muro perpendicolare che sporge dietro di esso:

 \              
 +\             
 ++\            
++++        ++++
++++        ++++
++++        ++++
++++        ++++
++++        ++++
++++        ++++
++++        ++++
 ++/            
 +/             
 /              

X: 3 Y: 4 Facing: N
Last move: R
[FBLRQ]? 

Ecco come apparirebbe l'area dell'ultimo colpo dall'alto:

_   _
 |
  V

Nizza aggiunta analisi e diagrammi! Hm, quelle pareti finiscono per essere dello stesso colore anche su quest'ultima nella mia implementazione. Un buon punto per il caso limite. Non pensavo che sarebbe successo, ma in un certo senso è necessario. Immagino sia come colorare una mappa, e due colori in realtà non sono abbastanza ...: - /
Dr. Rebmu il
Utilizzando il nostro sito, riconosci di aver letto e compreso le nostre Informativa sui cookie e Informativa sulla privacy.
Licensed under cc by-sa 3.0 with attribution required.