Volt egy program, ami véletlenszerûen labirintust rajzolt a karakteres képernyõn, majd megpróbált egy egy karakternyi krapekot átvezetni a labirintuson. Volt, hogy elszúrta a labirintus tervezését a program és nem vezetett út a kijárathoz, és volt, amikor kijutott a krapek. Nem tudja valaki, hol van ez a program? Valamelyik EP-s könyvben lehetett, onnan kellett bepötyögni a basic programot.
Nem tudom, megoldható lenne-e valahogy, hogy csak "járható" labirintust tervezzen a gép, és aztán az irányítást átadja a játékosnak.

Itt egy (elég kezdetleges és lassú ) labirintus program:
  [ Guests cannot view attachments ]
A mozgás a Space billentyűvel gyorsítható. A 2D8h címen állítható, hogy milyen valószínűséggel forduljanak elő olyan falak, amelyek a külső fallal nincsenek összekötve (00h: legnagyobb, 01h, 03h, 07h, 0Fh, 1Fh, 3Fh, 7Fh, FFh: legkisebb).

Csak érdekesség: olyan történt, hogy "beragadt" az emberke és egyetlen fal körül mászkál.

Valóban Ez javítható lenne azzal, ha nem véletlenszerű lenne a kezdeti irány.

A falrajzoló eljárást nehéz lenne basicben megvalósítani?

Nem tudom, érdemes-e BASIC-re átírni, mert az algoritmus nem túl jó, és elég lassú is. Valószínűleg célszerűbb lenne az lgb által leírt rekurzív módszert használni.

Ez a script állítható méretű labirintust generál szöveges file-ba:
  [ Guests cannot view attachments ]

Az elején lehet beállítani a különböző paramétereket:

Ezek egyértelműek, 5 és 255 közötti páratlan számok adhatók meg. A kimeneti file nem tartalmazza a "keretet", tehát az alapbeállításokkal csak 41x31 méretű lesz.

A külső falakkal nem összefüggő falak valószínűsége (0 és 1 között). Ha ez nagy, akkor általában egyszerűbb eljutni a kijáratig a külső falak mentén.

Ha true, akkor a rekurzív algoritmus engedélyezett, és az innerWallProbability-nek nincs hatása. Ez eltérő jellegű labirintusokat állít elő.

A kimeneti file neve. Windows alatt a \ karakterek helyett \\-t kell írni (pl. "C:\\maze.txt").

Itt az os.time() helyére egész számot írva megismételhetővé válik a labirintus térképe (minden szám mást, de mindig ugyanazt generálja). Alapértelmezés szerint mindig más.

István scriptje által tervezett labirintusokból be lehet tölteni ebbe a játékba és játszani is lehet vele. Sajnos a játékot régen úgy csináltam meg, hogy a pálya szélessége páros számú karakterbõl áll, így amit a script generál, abból "ízlés szerint" ki kell törölni minden sorban egy-egy karaktert, pl. a Word nevû PC-s szövegszerkesztõvel. (Másik megoldás, ha a szélességet kettõvel kisebbre állítjuk a scriptben, akkor meg egy-egy karaktert minden sorba be kell külön szúrni.) Nekem úgy tûnik, rekurzív algoritmussal jönnek ki játszhatóbb pályák. A script, a játékhoz nagyjából testre szabva: [ Guests cannot view attachments ]

A menüben betöltés után a 2-es gombbal át kell váltani DESIGNED levels-re, így a lemezrõl tölti be a pályákat. Elsõként a LEVEL_1 nevût tölti be, erre érdemes átnevezni a labirintust, amit ki akarunk próbálni. A csomagba tettem még 3 pályát, ami a labirintuskészítõ scripttel készült, lehet próbálkozni. (Szerintem nagy odafigyelést igényel, mert el is lehet tévedni, és a szörnyek is jönnek.)
[ Guests cannot view attachments ]

[ Guests cannot view attachments ]

A kész pályákat lehet tovább szerkeszteni a játékba beépített pályaszerkesztõvel vagy a Worddel, hátha könnyebb és jobb lesz.
Szerintem túl nehéz a játék és néha unalmas, mert messze kerülhetnek a szörnyek. Nem tudom, mit lehetne csinálni vele, hogy érdekesebb legyen.

Azt meg lehet csinálni valahogy a DISPLAY utasítással, hogy egy szöveges lap (vagy akár videólap) vízszintesen ne a képernyõ közepére kerüljön, hanem "arrébb" legyen? És így akár több videólap kerülhetne egymás mellé.
És nem tudom, a kurzort lehet-e teljesen likvidálni egy szöveges lapról. Persze a cursor colour és cursor character utasításokkal igen, de akkor csak látszólag nincs ott.

És így akár több videólap kerülhetne egymás mellé.

Ezt csak a Windows nevû BASIC bõvítéssel lehet megcsinálni, és csak TEXT 80-ban.

És nem tudom, a kurzort lehet-e teljesen likvidálni egy szöveges lapról. Persze a cursor colour és cursor character utasításokkal igen, de akkor csak látszólag nincs ott.

PRINT CHR$(27);"O";
PRINT CHR$(27);"o";

Most vagy én vagyok béna, vagy tényleg elfelejtettek erre BASIC utasítást írni?

A 0-ás az EDITOR ami a 102-es VIDEO-t használja. És kapcsolgatja rajta a kurzort, ezért nem látod.