Welcome, Guest. Please login or register.


Author Topic: BASIC (Read 158473 times)

Offline geco

  • EP addict
  • *
  • Posts: 5191
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1245 on: 2017.October.15. 10:00:30 »
Ha esetleg valakinek nagyon bejött a Williamsburg Adventure, :???: itt a "folytatás".
Gratula a konverzióhoz :) , Commodore-okon szoktak nagyon ronda, kinézetre képernyőre hányt Basic programokat írni :D

Offline IstvanV

  • EP addict
  • *
  • Posts: 4768
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1246 on: 2017.October.15. 10:24:57 »
Commodore-okon szoktak nagyon ronda, kinézetre képernyőre hányt Basic programokat írni

BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli. :)

Offline geco

  • EP addict
  • *
  • Posts: 5191
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1247 on: 2017.October.15. 12:01:06 »
BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli. :)
Áhá, ezt nem tudtam, úgy emlékeztem a rövidítéseket sem oldják fel (mint pl a P + shift O), de leteszteltem, az megtörténik.

Offline Lacika

  • EP addict
  • *
  • Posts: 2899
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1248 on: 2017.October.15. 12:09:59 »
BASIC-ben ami a program olvashatóságát javítja (szóközök, megjegyzések, utasítások külön sorokba írása, stb.), az általában lassítja is és a méretét növeli. :)

Az a vicc, hogy Ep-n gyorsabban fut a program! A Plus4-es RENUMBER pedig valószínűleg a világ leglassabb átsorszámozása.

Offline geco

  • EP addict
  • *
  • Posts: 5191
  • Country: hu
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1249 on: 2017.October.15. 12:21:59 »
Az a vicc, hogy Ep-n gyorsabban fut a program! A Plus4-es RENUMBER pedig valószínűleg a világ leglassabb átsorszámozása.
Hm, ez érdekes, úgy emlékszem a C+4 basic elég gyors.

Offline Lacika

  • EP addict
  • *
  • Posts: 2899
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1250 on: 2017.October.15. 18:25:04 »
"Imádom" ezt a Microsoft BASIC-nek csúfolt gájnyolást...
Erre varjatok gombot:

Code: [Select]
700 for k=1 to 9
702 if o$(k)<>o$ then next:print"drop what??":goto 180
710 if o(k)>0 then print"You dont have that item!":goto 180
720 ml=ml-1:o(k)=l:print"Okay,it's done!":goto 180
730 for k=1 to 9:if o$(k)<>o$ then next:print"Get what??":goto 180
740 if o(k)=-1 then print"You already have it!":goto 180

Valaki ezt nekem lefordítaná "magyarra"? A 702., 730. sorban a next utáni rész mikor fut le?

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13194
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://enterprise.iko.hu/
Re: BASIC
« Reply #1251 on: 2017.October.15. 18:32:07 »
Én úgy tippelem akkor, ha az o$ hossza nem 1-9.

Offline endi

  • EP addict
  • *
  • Posts: 6898
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 61.0.3163.100 Chrome 61.0.3163.100
    • View Profile
    • Honlapom
Re: BASIC
« Reply #1252 on: 2017.October.15. 18:33:02 »
then next :D

haha ez vicces, bár belegondolva, gépi kódban úgyis ez lesz/lehet belőle XD
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Offline IstvanV

  • EP addict
  • *
  • Posts: 4768
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1253 on: 2017.October.15. 18:33:21 »
Ha ez is Commodore BASIC, akkor a legegyszerűbb kipróbálni:
19141-0

19143-1
« Last Edit: 2017.October.15. 19:05:30 by IstvanV »

Offline Lacika

  • EP addict
  • *
  • Posts: 2899
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1254 on: 2017.October.15. 18:58:00 »
Máshol nem tartozik hozzá NEXT
Én így alakítottam át:

Code: [Select]
700 for k=1 to 9
702 if o$(k)<>o$ then 722
710 if o(k)>0 then print"You dont have that item!":goto 180
720 ml=ml-1:o(k)=l:print"Okay,it's done!":goto 180
722 next
724 print"Drop what??":goto 180

Az "igazi  érdekességek" a GET és a BUY ciklusban vannak. A két ciklus között GOTO-zik ezzerrel össze-vissza, mint atom... Hogy nekem mekkora szerencsém van, hogy anno Ep-t kaptunk öcsémmel... :smt029

Offline Povi

  • EP addict
  • *
  • Posts: 1778
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Chrome 61.0.3163.100 Chrome 61.0.3163.100
    • View Profile
    • http://povi.fw.hu
Re: BASIC
« Reply #1255 on: 2017.October.16. 13:50:08 »
Máshol nem tartozik hozzá NEXT
A 8K-s Altair BASIC-ben szerintem lefutna konvertálás nélkül.
*** Speicherplatz zu klein

Offline IstvanV

  • EP addict
  • *
  • Posts: 4768
  • OS:
  • Linux Linux
  • Browser:
  • Firefox 52.0 Firefox 52.0
    • View Profile
Re: BASIC
« Reply #1256 on: 2017.October.16. 14:41:31 »
Az "igazi  érdekességek" a GET és a BUY ciklusban vannak. A két ciklus között GOTO-zik ezzerrel össze-vissza, mint atom... Hogy nekem mekkora szerencsém van, hogy anno Ep-t kaptunk öcsémmel... :smt029

Ez egyébként ugyanabból a sorozatból egy újabb játék lesz? A kód hasonlónak tűnik, de nem találom a Mansion-ben.

Offline Lacika

  • EP addict
  • *
  • Posts: 2899
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1257 on: 2017.October.16. 18:11:18 »
Ugyanaz a sorozat: Castle Dracula (Adventure 5). Már, ha kiigazodok a GOTO-k, GOSUB-ok, THEN NEXT és hasonló csodák rejtelmein... A 2. 4. részhez nincs "megoldókulcs", azokat nem hiszem, hogy megcsinálom.

Offline Lacika

  • EP addict
  • *
  • Posts: 2899
  • Country: hu
  • OS:
  • Windows NT 10.0 Windows NT 10.0
  • Browser:
  • Firefox 56.0 Firefox 56.0
    • View Profile
    • http://www.ep128.hu
Re: BASIC
« Reply #1258 on: 2017.October.16. 22:58:20 »
Szerintem elkészült.

Online szipucsu

  • EP addict
  • *
  • Posts: 7482
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Chrome 61.0.3163.100 Chrome 61.0.3163.100
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: BASIC
« Reply #1259 on: 2017.October.16. 23:52:56 »
Castle Dracula (Adventure 5)
Úgy látszik, idén a Commodore játékok átírásának az éve van (vö. Skramble, Exorcist). Z80-as Spectrum, CPC program már nem kihívás. Hiába, egyre rutinosabb a csapat! :D
SOUND SOURCE 3,STYLE 16,LEFT 16,RIGHT 64,SYNC 2
SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 2
SOUND PITCH 25,SYNC 2
Videos
OPEL #1:"Audi(o):" ACCESS DENIED