Faragtam a DEF EPI rutinból ami 771 bájt.
Most 663 bájt INFO-val.

És még ezen is lehet faragni pár bájtot:
4410   SET #98:INK 1:PRINT #98,AT 1,1:"EN      SE"
 4420   SET #98:INK 2:PRINT #98,AT 1,1:"  TE  RI"
 4430   SET #98:INK 3:PRINT #98,AT 1,1:"    RP"
Ha így átírjuk.
4410   SET #98:INK 1:PRINT #98,AT 1,1:"EN      SE"
 4420   SET #98:INK 2:PRINT #98,AT 1,3:"TE  RI"
 4430   SET #98:INK 3:PRINT #98,AT 1,5:"RP"
Ha így folytatjuk, előbb-utóbb betöltés után nagyobb lesz a szabad hely, mint előtte.

Code: [Select]

4410   PRINT #98,AT 1,1:I$(1)&"EN      SE"
 4420   PRINT #98,AT 1,3:I$(2)&"TE  RI"
 4430   PRINT #98,AT 1,5:I$(3)&"RP"


Nem rossz, de hibás helyesen
4410   PRINT #98,AT 1,1:I$&CHR$(1)&"EN      SE"
 4420   PRINT #98,AT 1,3:I$&CHR$(2)&"TE  RI"
 4430   PRINT #98,AT 1,5:I$&CHR$(3)&"RP"
Mindjárt megnézem.

Nem rossz, de hibás helyesen

Persze deklarálni kell majd úgy az I$()-t, hogy utána egyből csak a színkódot kelljen megadni, ne kelljen külön CHR-ezni. Ezt nemrég ki is kísérleteztem, hogy hogyan, de talán nem ennél a programnál, de valahol tuti megvan.

Tovább faragtam. 611 bájtra  a kezdeti 771 bájtról.

Most nézem, a SET VIDEO MODE stb. utasításokat átírtad simán SET 23,x-re és hasonlókra, kisebb helyet foglalnak így. Ez kevésbé felhasználóbarát, de ha belegondolok még talán könnyebb is megjegyezni, hogy egy szám, vagy pedig az X vagy Y utal-e a vízszintes és a függőleges felbontásra. Ez is belekerül az új verzióba.

Nosza, közben a Zzzippes topikban előkerült a téma, hogy a színváltós vezérlőkódos megoldás másképp is kivitelezhető. Leteszteltem, és a rövidebb sorokat eredményező megoldás gyorsabb is, ami talán picit meglepő lehet. A tesztprogram:

   5 STRING *3 I$(0 TO 8)
    6 FOR I=0 TO 8
    7   LET I$(I)=CHR$(27)&"I"&CHR$(I)
    8 NEXT
   10 GRAPHICS ATTRIBUTE
   13 TIME "00:00:00"
   15 FOR A=1 TO 1000
   20   PRINT #101,AT 2,2:I$(1)&"TEXT "&I$(2)&"ENTER"&I$(3)&"PRISE"
   30   PRINT #101,AT 4,2:I$(4)&"128"&I$(5)&" kilobytes"
   35 NEXT
   36 PRINT TIME$
   43 TIME "00:00:00"
   45 FOR A=1 TO 1000
   50   PRINT #101,AT 2,2:CHR$(27)&"I"&CHR$(1)&"TEXT "&CHR$(27)&"I"&CHR$(2)&"ENTER"&CHR$(27)&"I"&CHR$(3)&"PRISE"
   60   PRINT #101,AT 4,2:CHR$(27)&"I"&CHR$(4)&"128"&CHR$(27)&"I"&CHR$(5)&" kilobytes"
   75 NEXT
   76 PRINT TIME$
Az eredmény:
I$(x): 02:34
CHR$(27)&"I"&CHR$(x): 02:55

A programot Zzzippel lefordítva mindkét módszer 01:02 idő alatt futott le.
Így most már a SET INK utasítást is elfelejthetjük, és könnyebben válthatunk színt szöveg közben is, és mindez még kevesebb helyet is foglal a programban.

Az új dolgokat be is építettem a játékba:
[ Guests cannot view attachments ]
A fenti pályán az elsüllyesztő mocsár színeit/animációit még meg kéne csinálni.

A fenti pályán az elsüllyesztő mocsár színeit/animációit még meg kéne csinálni.

Inkább már nem fejlesztem tovább. A hivatkozott hozzászólásban a pgj6.zip a végleges változat.
Persze más irányba tovább lehet fejleszteni még, de az egy másik játék lenne.