Page 7 - Enterpress Magazin - 2020. 3-6.

2020. május – december 7. oldal

Ezt a programot addig módosítgattam, amíg el nem értem,
hogy a 10 legjobb pontszámot rendezze sorba a pontszá-
mokhoz tartozó névvel együtt. Így névbeírás után a meg-
felelő helyre kerültünk a toplistában. Itt is számokat kellett
sorba rendezni, de ez annyiból nehezebb volt, hogy a szá-
mokhoz (pontszámokhoz) nevek is tartoznak, és a pont-
számokat a nevekkel együtt kell mozgatni, a nevek pedig
már nem számokként, hanem sztringként tárolhatók:

140 STRING * 15 N$(1 TO 10),MAX$,VALT$
150 NUMERIC SZAM

6080 LET VEG=10
6090 FOR X=1 TO 10
6100 LET MAX$=”99999AAAAAAAAAA” A Dot Collector is bejön a képbe!
6110 FOR Y=1 TO VEG
6120 IF N$(Y)<MAX$ THEN LET MAX$=N$(Y) Egyszer valamikor, én se tudom, mikor, talán a 90-es
6130 IF N$(Y)=MAX$ THEN LET SZAM=Y évek második felében eszembe jutott a Dot Collector
6140 NEXT Y játék, hogy az milyen rövid, magnóról betöltődik két
6150 LET VALT$=N$(VEG) füttyre a fejléc után, és hogy az is valamiféle karakteres
6160 LET N$(VEG)=MAX$ képernyőn fut, legalábbis karakterekből épül fel a ké-
6170 LET N$(SZAM)=VALT$ pernyő, hiszen a mozgás is karakteres.
6180 LET VEG=VEG-1
6190 NEXT X
6200 LET MINPONT=VAL(N$(10))
Ahogy a MAX$ változóból látható, a pontszámok és a
nevek egymáshoz kapcsolását úgy oldottam meg, hogy
egyetlen sztringbe írtam bele a pontszámot és a nevet,
elöl a pontszámmal.
Sztringeket is nagyság szerint sorba lehet rendezni,
mint számokat, de ez kicsit máshogy működik. Sztrin-
geknél elsősorban azt nézi a gép, hogy melyik hosz-
szabb, és az lesz a nagyobb. Ha egyforma hosszúak a
sztringek, akkor aszerint dönti el, melyik legyen a na-
gyobb, hogy az első karaktereknek a kódja melyiknek
nagyobb. Hogy egyforma hosszúak legyenek a pont-
számot és nevet tároló sztringek, azt találtam ki, hogy
az első öt karakter a pontszámot, a következő tíz karak- Arra gondoltam, mivel rövid program, talán nem lesz
ter pedig a nevet tárolja. Ha a pontszám ötnél kevesebb nehéz benne megtalálni azokat a részeket, ahol a pá-
számjegyből áll, az elejére annyi nullát kell lenni, hogy lyák tárolódnak. Meg is találtam, ASMON-nal átírva a
meglegyen az öt számjegy. Ha pedig a név rövidebb tíz kód megfelelő részét a pálya is módosult, aminek
karakternél, a végére szóközöket, vagy esztétikai célból ugyancsak nagyon megörültem. Persze így kissé ne-
inkább pontokat kell tenni. Ezekkel a módosításokkal héz lenne áttervezni a pályát.
már a sztringekbe fűzött pontszám+név együttest is a Mivel a program rövid, arra gondoltam, egy basic prog-
pontszám nagysága szerinti sorrendbe lehet rendezni. rammal beolvasom magát az egész játékot, egy tömb-
A pontszámtábla képernyőre írásakor pedig először a ben letárolom bájtonként, és onnan megjelenítem a
neveket írjuk ki egymás alá, azaz a sztringet az ötödik- pályákat és megcsinálom, hogy lehessen a pályákat
től a tizenötödik karakteréig, utána akár színt váltunk, szerkeszteni. Biztos eltartott egy darabig, mire ez meg-
és az új színnel a nevek után a pontszámokat, amelyek lett, de már nem emlékszem a részletekre.
nullákkal az elejükön szebben is mutatnak. Azonban sajnos tragédia történt. Nem sok floppy-
A MINPONT változóra azért volt szükség, mert csak ak- lemezem ment tönkre, de amin a Dot Collector pá-
kor ugrott a program a névbeírás részhez, ha az addigi lyaszerkesztő volt, az pont tönkrement, így elveszett
legkisebb pontszámot meghaladta az új eredmény. minden. Nem hagyott azonban nyugodni a dolog, és a
Pályaszerkesztőt is készítettem a játékba, a készített 21. században újra nekiálltam megírni a Dot Collector
pályákat el lehet menteni, és választhatunk, hogy a be- pályaszerkesztőt, ami szép lassan kész is lett. Így aztán
épített vagy a kimentett pályákkal akarunk-e játszani. Ez lett Dot Collector 2, Dot Collector 3, Dot Collector 4,
magnós gépnél nem annyira jó, floppys gépnél elmegy, többé-kevésbé újszerű pályákkal. (Az ep128.hu oldalról
SD-s gépnél pedig akár egészen előnyös is lehet. letölthető a Dot Collector 2., 3., 4. része, és a pálya-
szerkesztő is:
Nagyjából így állt össze a Hungry Creature. http://ep128.hu/Ep_Games/Leiras/Dot_Games.htm