Welcome, Guest. Please login or register.


Recent Posts

Pages: 1 2 3 [4] 5 6 7 8 9 10
31
BASIC programok átírása / Re: Manhole (TVC)
« Last post by szipucsu on 2023.September.17. 12:31:09 »
  • A poke 56-os gyorsítást beletettem.
  • Magát a játékrészt DO-LOOP ciklusba tettem. (Lehetett volna a menü megjelenítése + játékrészt is még egy ciklusba, de már így is annyi szóköz van a sorszámok után a sok ciklus miatt, hogy csak na. Így maradt az a csúnya fránya goto.)
  • Most a játéktér kirajzolását is megcsodálhatjuk indításkor, hogy addig  se unatkozzunk annyira.

OUT 191,12-t nem tettem bele.
Örökélethez a 1170-es sor kell törölni, bár értelme nincs sok.

[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
32
BASIC programok átírása / Re: Manhole (TVC)
« Last post by szipucsu on 2023.September.17. 11:12:49 »
Quote from: Ferro73 on 2023.September.17. 10:39:45
a program 100- 300 ig egyszer fút le ? nem találtam vissza térést "goto"
Az eleje kicsit kaotikus de működik.
Ez azért kellett, mert TVC-n minden változó kezdeti értéke 0. EP-n, ha nincs kezdeti értéke, akkor hibaüzenet van. De lehet, hogy nem kell az összes értékadás ide, csak a második Variable not initialised után már a hardcore módszerhez folyamodtam. Ha vissza tudod követni, mely változóknak kellene kezdeti értéket adni, akkor lehetne csak azokat betenni oda.

Quote
le lesz fordítva zzzip-el ?
Nem terveztem, így játszható, ahogy van.
De meg lehetne csinálni, hogy a gombnyomásra mindig azonnal reagáljon, de a krapekok sebessége a jelenlegi maradjon, de én ezt valószínű nem fogom megcsinálni, mert holnaptól drasztikusan kevesebb lesz a szabadidőm.
Van valami L változó, aminek tört is lehet az értéke, annak a Zzzip biztos nem tenne jót.

A játékrész maga lehetne egy DO-LOOP ciklusban, amiből az életek elfogyásakor lép ki EXIT DO-val, de mivel így is működik, nem vacakoltam vele.
33
BASIC programok átírása / Re: Manhole (TVC)
« Last post by Ferro73 on 2023.September.17. 10:39:45 »
a program 100- 300 ig egyszer fút le ? nem találtam vissza térést "goto"

Akkor ennek nem értem a lényegét:
Code: [Select]
  240 FOR ZZ=0 TO 31
  250   IF ZZ<3 THEN LET U(ZZ)=0:LET A(ZZ)=0
  260   IF ZZ<17 THEN LET Q(ZZ)=0
  270   LET X(ZZ)=0:LET B(ZZ)=0
  280 NEXT

Az eleje kicsit kaotikus de működik.

le lesz fordítva zzzip-el ?
34
BASIC programok átírása / Re: Manhole (TVC)
« Last post by szipucsu on 2023.September.17. 09:31:59 »
Tegnap a klubban kicsit pofoztam még a programon (Zozónak köszönhetően, aki megcsinálta a reménytelenné vált laptopom), most induláskor láthatjuk a menü kirajzolását, és játék közben csillagosabb a háttér.
Kicsit sokat kell várni a program indulásakor, ezen nem tudom, lehetne-e javítani. (A menü kirajzolásának a látványa ezt az időt teszi érdekesebbé.) Az asztali gépről még megpróbálom a poke 56,201 és out 191,12 trükköket.

[ Guests cannot view attachments ]
[ Guests cannot view attachments ]
35
BASIC programok átírása / Re: Manhole (TVC)
« Last post by Ferro73 on 2023.September.16. 15:55:24 »
Quote from: szipucsu on 2023.September.15. 23:43:08
Nem a lépések hangjára gondoltál először, hogy olyanokat lenne jó beépíteni? Én úgy értelmeztem, de lehet, másra gondoltál.
Igen. Az emberkék megjelenésére gondoltam. Mert az egy sorozatban van kb "..a..f...a.a..f..ff..a." /programozott RND/.
36
Konvertálás / Re: SPemu
« Last post by SlashNet on 2023.September.16. 11:05:33 »
BorielRACE

https://briefer.itch.io/borielrace

[ Guests cannot view attachments ] [ Guests cannot view attachments ] [ Guests cannot view attachments ]
37
BASIC programok átírása / Re: Manhole (TVC)
« Last post by szipucsu on 2023.September.15. 23:43:08 »
Quote from: Ferro73 on 2023.September.15. 19:39:14
Ilyesmire én is gondoltam. Csak nem motivált semmi. Nem volt alap.
Nem a lépések hangjára gondoltál először, hogy olyanokat lenne jó beépíteni? Én úgy értelmeztem, de lehet, másra gondoltál.
38
BASIC programok átírása / Re: Manhole (TVC)
« Last post by Ferro73 on 2023.September.15. 19:39:14 »
Quote from: szipucsu on 2023.September.14. 23:23:45
Lehetne valami hasonlót. Ami most van, az is ilyenre akarna hasonlítani, de csak annyira hasonlít, mint a mackósajt a grizzly medvére.
Ilyesmire én is gondoltam. Csak nem motivált semmi. Nem volt alap.
39
BASIC / Re: Általános BASIC Kérdések
« Last post by Ferro73 on 2023.September.15. 19:24:45 »
Jó, az első kb 2.4 szer lassabb míg a második kb 7.2 szer.

De legalább egy másik megközelítés.
40
BASIC / Re: Általános BASIC Kérdések
« Last post by Tomato77 on 2023.September.15. 18:31:37 »
Kijavítottam és kipróbáltam, így jó:
Code: [Select]
100 FOR I=0 TO 39
110   LET MARADEK=MOD(I,10)
120   PRINT 1 + MARADEK + (MARADEK>5)*(MARADEK-5)*2;
130 NEXT I

Ahhoz képest, hogy a tegnapi gép nélkül készült, majdnem jó lett. :)

Sőt, így még rövidebb, de a MOD függvény többszöri használata miatt lassabb is:
Code: [Select]
100 FOR I=0 TO 39
110   PRINT 1 + MOD(I,10) + (MOD(I,10)>5)*(MOD(I,10)-5)*2;
120 NEXT I
Pages: 1 2 3 [4] 5 6 7 8 9 10
SMF 2.0.19 | SMF © 2021, Simple Machines XHTMLRSS
Discord Linode Follow ep4ever_news on Twitter