Mostanában írtak egy másik basic programot is TVC-re, Escape a címe. Fut Geco szoftveres TVC emulátorán. A menüben benne van az irányítás:
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
Gondolkodtam, hogy át lehetne írni EP-re, a program listája alapján szinte át se kell írni. Van benne néhány poke, a 2896-os címre ír értékeket, ezzel azt lehet állítani, hogy az egymásra printelt karakterek felülírják egymást, vagy átlátsszon a később printelt karakter. EP-n a grafikus módokban alapból egymásra rakja a karaktereket, attribútum módban felülírja. (Tényleg, azt el lehet érni attribútum módban valahogy, hogy egymásra kerüljenek a karakterek? Vagyis ne törölje le ott az előző karaktert, ahol 0 a karakter pixelének az értéke?) Ha törölni akarjuk, tintaszínnel kell felülírni előbb, szóval ez nem lenne probléma.
Még a TVC-hez hasonló, 32 karakter széles videolapot kell megnyitni a játék átírásakor a 42 helyett, de ez is ujjgyakorlat. Így elsőre más átírni valót nem láttam, az egy sorba zsúfolt utasítások szétszedésén kívül.
Utána lehet extrásítani a hangot és a grafikát, pl. soronként változó palettával, gyűrűmodulációs színekkel.

Érdekes fogást használ arra a program, hogy egy karakteren belül több szín legyen. Ugyanabba a pozícióba printel egymásra két karaktert, de a második printelése előtt megváltoztatja a színt.

A program átírásának hátránya az lehet, hogy a karakterek egy picit kisebbek lesznek, mivel az EP-s karakterek egy pixellel alacsonyabbak. Nem tudom, hogyan lehet megcsinálni, hogy EP-n az összes karakter egy pixellel magasabb legyen. Valahogy tuti meg lehet, hiszen a szoftveres emulátorban is ilyen. Ha ez is meglenne, akkor a színeket leszámítva (bias) tökéletesen lehetne szinte emulálni a TVC-s 4 színű módot, hiszen a 32 karakter széles TVC-s videolapot előállítani gyerekjáték.

Geco, azt mennyire lenne bonyolult megcsinálni, hogy basic program is kirajzolja a képernyő aljára a már jól ismert ENTERPRISE feliratot a szép színes vonalakkal? Gondolom, jó sok PLOT kellene hozzá egy 16 színű videólapra.

Na, ez azért durva TVC-n:

930 IF EL=1 THEN PRINT#0,AT EX,EY:MONSTER$:IF MOVE=1 THEN IF MAP(EX,EY)<>0 THEN EL=0:GOSUB3100:IF ENEMYLIVE(MAP(EX,EY))=1 THEN ENEMYLIVE(MAP(EX,EY))=0:GOSUB3120

A sorban a következő IF-et akkor nézi meg, ha az előző IF feltétele teljesült. EP-n valami ilyesmi lenne, de az END IF-ek hova kerülnek? Jól tippelem, hogy a végére? Már nem tudom követni:
930 IF EL=1 THEN
 931   PRINT #10,AT EX,EY:MONSTER$
 932   IF MOVE=1 THEN
 933     IF MAP(EX,EY)<>0 THEN
 934       EL=0:GOSUB 3100
 935       IF ENEMYLIVE(MAP(EX,EY))=1 THEN ENEMYLIVE(MAP(EX,EY))=0:GOSUB 3120
 936     END IF
 937   END IF
 938 END IF

Megcsináltam EP-re a TVC-s Escape játékot, és teleraktam EP-s extrákkal, amennyire tudtam. Ez mondjuk elég sokáig tartott, mert Geco 2 nap alatt írta át az Atic Atacot, és TVC-re is pár nap alatt írták át Spectrumról az International Karatét. Ez meg nekem majdnem két hét volt. Egyébként maga a játék nagyon jó, egy kicsit logikázni kell benne. Amíg kék a keret, addig nem lehet lépni még. Zzzippel lefordítottam, így várakozni se nagyon kell.
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
Ehhez kellett két envelope az escape szekvenciából. (A Zzzip nem szereti a törteket, envelope numbernél pedig törtet akartam megadni, így csak az escape szekvenciás módszer maradt, vagy a külön fájlból betöltése az envelope-nek, de ezt nem akartam.)
Elvileg ha 100-nál több ellenfél van a képernyőn, akkor leáll hibaüzenettel, de nem tudom, addig el lehet-e jutni. (Szerk: Most a 29. szintig jutottam el, ott 87 ellenfél volt.) A tömb mérete szerint kb. 768 ellenfél lehet, viszont a tömb összes elemének kezdeti értéknek 0-át kell adni, amit TVC-n meg lehet úszni, EP-n viszont sokat kell emiatt várakozni, így csak 100 elemnek adtam értéket a játék indulásakor.
Itt van egy régebbi változat, ami azért tetszik, mert valamit elszúrtam benne, de pont ezért lett kicsit más a szemük az ellenfeleknek, és néha piros lesz az egész ellenfél, ami elég jól áll nekik. Viszont itt nincs soronként változó paletta meg ilyenek, és a pálya utáni elszámolás is grafikus képernyőn történik még, így nem írják felül egymást az egymásra írt számok, ezt később attribútum képernyőre tettem.
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]

Lehetséges javaslatok?
  230 RESTORE 3060
  240 READ T1$,T2$,T3$,T4$,T5$

 3060 DATA "**** **** **** **** ***  ****"
 3070 DATA "*    *    *    *  * *  * *   "
 3080 DATA "**** **** *    **** **** ****"
 3090 DATA "**** **** *    **** **** ****"
 3100 DATA "**** **** **** *  * *    ****"
236 byte helyett 215 byte
230 LET T1$= "**** **** **** **** ***  ****"
231 LET T2$= "*    *    *    *  * *  * *   "
232 LET T3$= "**** **** *    **** **** ****"
233 LET T4$= "**** **** *    **** **** ****"
234 LET T5$= "**** **** **** *  * *    ****"
310 DATA 63,63,63,199,199,199,7,7,7,248,248,248,56,56,192,192a
  260 RESTORE 310sor helyére

340 sorig csak egyszer fút le.

További:
5000 DEF VIDEOINI
 5010   SET VIDEO X 32:SET VIDEO Y 1:SET VIDEO MODE 15
 5020   OPEN #1:"video:"
 5030   OPEN #2:"video:"
 5040   SET #1:PALETTE 32,254,111:SET #2:PALETTE 96,182,109
 5050   RESTORE 5110
 5060   FOR I=33 TO 54
 5070     OPEN #I:"video:"
 5080     READ J,K
 5090     SET #I:PALETTE J,K,217,123
 5100   NEXT
 5110   DATA 32,1,32,1
 5120   DATA 176,211,176,1
 5130   DATA 48,186,48,1
 5140   DATA 160,1,160,1,32,1
 5150   DATA 104,221
 5160   DATA 104,1,40,1
 5170   DATA 40,1,64,1
 5180   DATA 148,190
 5190   DATA 148,1,20,1,20,1
 5200   DATA 84,1,28,2
 5210   DATA 84,1,0,1
 5220   SET VIDEO MODE 1:SET VIDEO COLOR 1
 5230   FOR I=3 TO 24
 5240     OPEN #I:"video:"
 5250   NEXT I
 5260 END DEF
A DATA sorokat vagy a DEF-en kívül vagy a 5041-5059 sorba áthelyezni

Milyen "video:" a játék mező ATTRIBUTOM ?

Azt hogyan lehet frappánsan? A WHEN... EXT "HELP BRD"... HANDLER kezdőknek való megoldás. Van valami rendszerváltozó, vagy valami, amiből könnyen kiolvasható?

144-es EXOS változó, de azt is WHEN blokkba kell rakni
Ha nem létezik a változó, akkor angol.
Ha létezik, és értéke 0, akkor német, egyébként angol.

Ferro73 apró javaslatait megcsináltam, és most már elméletileg jó az irányítás is a Z és Y billentyűkkel angol és német gépen:
[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
Én régen alapból úgy állítottam be az emulátort, hogy megcseréltem magamnak az y és z betűket, mert úgy kényelmesebb. Most aztán jól megjártam, mert most meg nekem nem jó sehogy sem a jó beállításokkal a játék. Ha minden igaz, de már teljesen belezavarodtam. Leellenőriztem uk és brd konfiggal is, elméletileg működik (nekem fordítva), de azért nézzétek meg, nálatok jól működik-e.
UI.: Közben eszembe jutott, az emulátorban is lehet betölteni/kimenteni keyboard configot az Options - Keyboard map menüpontban. Így visszaállítható az elállítgatás. A Clear All minden gomb működését törli, ez még nem tudom, miért lehet jó.

Nem lassú kicsit, pl. a játék indításakor? Vagy belefér? Igaz, nem is tudom, hogyan lehetne még gyorsítani.
Elég, ha 100 ellenség a maximum? A 30-as szint fölé nem tudom, el lehet-e jutni. Tényleg ciki lenne, ha az izgalmas játék 100 ellenség fölött hibával leállna.