Welcome, Guest. Please login or register.


Author Topic: Általános BASIC Kérdések (Read 549458 times)

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1200 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

  • Global Moderator
  • EP addict
  • *
  • Posts: 14779
  • Country: hu
    • http://enterprise.iko.hu/
Re: Általános BASIC Kérdések
« Reply #1201 on: 2017.October.15. 18:32:07 »
Én úgy tippelem akkor, ha az o$ hossza nem 1-9.

Offline endi

  • EP addict
  • *
  • Posts: 7298
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
    • Honlapom
Re: Általános BASIC Kérdések
« Reply #1202 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
Vigyázat! Szektás vagyok! :)

Offline IstvanV

  • EP addict
  • *
  • Posts: 4822
Re: Általános BASIC Kérdések
« Reply #1203 on: 2017.October.15. 18:33:21 »
Ha ez is Commodore BASIC, akkor a legegyszerűbb kipróbálni:
[ Guests cannot view attachments ]

[ Guests cannot view attachments ]
« Last Edit: 2017.October.15. 19:05:30 by IstvanV »

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1204 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: 2316
  • Country: hu
    • http://povi.fw.hu
Re: Általános BASIC Kérdések
« Reply #1205 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: 4822
Re: Általános BASIC Kérdések
« Reply #1206 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: 3218
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1207 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: 3218
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1208 on: 2017.October.16. 22:58:20 »
Szerintem elkészült.

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10101
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1209 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
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1210 on: 2017.October.23. 16:06:40 »
Itt egy teszt verzió az Adventure 2-ból.
Csak nem nagyon lehet tesztelni "megoldókulcs" nélkül... Kinek van hozzá affinitása?
Kétféle hiba lehet még elvileg benne: nem inicializált változók, illetve - bár ebből már nem sok lehet - olyan változónevek, amelyek azonosak tömbváltozók neveivel.
A .prg a Plus4-es verzió összehasonlítás végett.
« Last Edit: 2017.October.23. 17:47:49 by Lacika »

Offline Lacika

  • EP addict
  • *
  • Posts: 3218
  • Country: hu
    • http://www.ep128.hu
Re: Általános BASIC Kérdések
« Reply #1211 on: 2017.October.24. 16:59:35 »
Úgy tűnik nem nagy az érdeklődés...
Amire eddig rájöttem:
N, N, GET KEYS, S, S, S, U, GET GLASSES, D, E, GET STAFF, W, S, E, E, GET BAGEL, W, W, N, EXAMINE WALL, DROP STAFF, DROP BAGEL, HELP, PRAY, S, E, E, S, WEAR GLASSES, E, EXAM TABLE, PUSH TABLE, D, REMOVE GLASSES, EXAM DOOR, OPEN DOOR, W, S, W, W, GET BOOK, N, GET RING, EXAMINE RING, WEAR RING, S

Csak innen nem tudok kikeveredni, valami kimarad.

Offline IstvanV

  • EP addict
  • *
  • Posts: 4822
Re: Általános BASIC Kérdések
« Reply #1212 on: 2017.October.24. 17:01:53 »
Csak nem nagyon lehet tesztelni "megoldókulcs" nélkül...

A programlistából nem lehet kitalálni a megoldást? Bár az olvashatósága alapján lehet, hogy a játékban próbálkozni mégis könnyebb. :)

Offline endi

  • EP addict
  • *
  • Posts: 7298
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
    • Honlapom
Re: Általános BASIC Kérdések
« Reply #1213 on: 2017.October.24. 17:10:38 »
én szeretem a szövegeseket, de az olyanokat amiben pár szó a pályaleírás, azokat nem.
vagy akkor legyen grafika hozzá
Vigyázat! Szektás vagyok! :)

Offline szipucsu

  • Global Moderator
  • EP addict
  • *
  • Posts: 10101
  • Country: hu
    • Támogató Támogató
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Általános BASIC Kérdések
« Reply #1214 on: 2017.October.24. 17:50:21 »
Úgy tűnik nem nagy az érdeklődés...
Tegyél fel snapshotot! Nekem tele van midis cuccokkal a working directory az emulátorban. Ha még oda bepakolok mást is, teljes lesz a káosz, ottfelejtem, aztán nem találom. (Nem lehetne több working directory-t is megadni valahogy az emulátoron? Jó, persze, ki kell választani másik könyvtárat és annyi. :D Csak én vagyok nehézkes ilyenekben.)

vagy akkor legyen grafika hozzá
Szerintem megoldható ez is akár. Akár Iview képekkel. És akkor kéne még egy kód, ami a képeket betölti. De lehetnek persze PLOT-tal rajzolt képek is. Csak megrajzolni idő.
100 SOUND SOURCE 2,STYLE 128,PITCH 25.2,SYNC 1
110 SOUND PITCH 25,SYNC 1
120 ! Videos