Welcome, Guest. Please login or register.


Author Topic: Egysoros játék felhívás (Read 6666 times)

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 16.0 Firefox 16.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #15 on: 2012.December.08. 19:12:45 »
Azért lehetne még mondjuk a javasolt 5 soros verzió!
Vagy mondjuk nem sorokra menni, hanem mondjuk 1K.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 16.0 Firefox 16.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #16 on: 2012.December.08. 19:26:56 »
Közben gondolkodtam, hogy mondjuk valami grafikai effektet lehetne-e csinálni egysorosban, de itt jön az a hátrány, hogy kéne egy GRAPHICS utasítás, ami nem lehetne a magát GOTO-zó sorban.
Spectrum esetén egyből grafikus is a képernyő, ott nincs ilyen probléma.

Offline endi

  • EP addict
  • *
  • Posts: 7017
  • Country: hu
  • grafikus, játékfejlesztõ, programozás, scifi, tudományok, vallás
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Opera 9.80 Opera 9.80
    • View Profile
    • Honlapom
Re: Egysoros játék felhívás
« Reply #17 on: 2012.December.08. 19:40:50 »
szerinte az x soros feladvány ugyanolyan jó ep-n mint specyn az 1 soros

5, 10 sor még elég nagy korlát, de mégis lehetőséget ad elég érdekes dolgokra
A diplomás magyar programozó megcsinált egy pacmant egy év alatt, majd lefikázta a világ legjobb játékait. :D

Online szipucsu

  • EP addict
  • *
  • Posts: 7669
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Egysoros játék felhívás
« Reply #18 on: 2012.December.08. 21:26:25 »
Végül összedobtam egy egysoros "játékot". Bár tényleg játék, lehet versenyezni, ki ér el nagyobb pontszámot. Esetleg még lehet gondolkodni ötleteken, hogyan lehetne bonyolultabbá, érdekesebb tenni, hogy a pontszámot több tényező is befolyásolja, amikre a "játékos" odafigyelhet.
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

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 16.0 Firefox 16.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #19 on: 2012.December.08. 21:33:32 »
Quote from: szipucsu
Végül összedobtam egy egysoros "játékot". Bár tényleg játék, lehet versenyezni, ki ér el nagyobb pontszámot.
Eddig 255 pont a rekordom :-)

Online szipucsu

  • EP addict
  • *
  • Posts: 7669
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Egysoros játék felhívás
« Reply #20 on: 2012.December.08. 21:51:37 »
Quote from: Zozosoft
Eddig 255 pont a rekordom :-)
Megdöntöttem, 267 pontot sikerült elérnem. :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

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #21 on: 2012.December.08. 22:18:05 »
Quote from: szipucsu
Megdöntöttem, 267 pontot sikerült elérnem. :D
342 :-)

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #22 on: 2012.December.09. 03:57:36 »
Quote from: Pgyuri
*** KIÍRÁS TÖRÖLVE ***
Ha netán mégse, akkor van egy baromi primitív Kő-papír-ollóm, ami a játék összes alapvető funkcióját megvalósítja:
-begyűjti a géptől, és a játékostól, hogy mit választottak
-eldönti, hogy a játékos nyert, vesztett vagy döntetlen
-kiírja az eredményt

Mindez egyetlen IS-BASIC programsorban, és mindössze három fajta utasítás van használva. :-D

Offline Lacika

  • EP addict
  • *
  • Posts: 2917
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://www.ep128.hu
Re: Egysoros játék felhívás
« Reply #23 on: 2012.December.09. 10:50:44 »
Quote from: Zozosoft
Ha netán mégse, akkor van egy baromi primitív Kő-papír-ollóm, ami a játék összes alapvető funkcióját megvalósítja:
-begyűjti a géptől, és a játékostól, hogy mit választottak
-eldönti, hogy a játékos nyert, vesztett vagy döntetlen
-kiírja az eredményt
Benevezek a "versenybe" ezzel a 951 byte-os szösszenettel. Azért ez is 22 sor. (Azért angol, mert Rosetta Code-ra csináltam, ez ide pont jó, mert tömörebb nyelv.)
Igazából a felsoroltakon kívül még a játék végén kapunk egy statisztikát is, ezt még ki lehetne venni.
GOTO, GOSUB utasításokkal szintén lehetne egy-két sort spórolni, de én ilyen "piszkos" munkára nem vagyok kapható... :oops:

Offline Lacika

  • EP addict
  • *
  • Posts: 2917
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://www.ep128.hu
Re: Egysoros játék felhívás
« Reply #24 on: 2012.December.09. 11:21:57 »
Statisztika nélkül csak 757 byte.

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #25 on: 2012.December.09. 14:13:05 »
Quote from: Lacika
Statisztika nélkül csak 757 byte.
Az enyém 247 :-)
A kilistázott programsor 220 karakter, de sikerült itt valami IS-BASIC bugot találni, mert ebben a formában már nem fogadja el, azt mondja, hogy Statement not allowed after THEN... (ezt már a klubnapos próbálkozások során is láttuk.)
Beírni csak sorszám előtti szóközök, és a LET kulcsszavak törlésével elért rövidítéssel lehet, ebben a formában 196 karakter a sor.
Ezt a törölgetést minden módosításnál el kellett játszani, amikor már ilyen nagy volt a program...

Magát a programot még nem akarom felfedni, törjétek ti is a fejeteket :-D

Offline Lacika

  • EP addict
  • *
  • Posts: 2917
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://www.ep128.hu
Re: Egysoros játék felhívás
« Reply #26 on: 2012.December.09. 14:35:26 »
18 sor és 742 byte az utolsó licitem.
Az interaktivitás nem számít az elbírálásnál? :ds_icon_cheesygrin:

Offline Zozosoft

  • EP addict
  • *
  • Posts: 13374
  • Country: hu
  • OS:
  • Windows 7/Server 2008 R2 Windows 7/Server 2008 R2
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://enterprise.iko.hu/
Re: Egysoros játék felhívás
« Reply #27 on: 2012.December.09. 15:03:31 »
Quote from: Lacika
18 sor és 742 byte az utolsó licitem.
Az interaktivitás nem számít az elbírálásnál? :ds_icon_cheesygrin:
A felhasználó felületben tuti vezetsz, de te nem az egysoros kategóriában indultál :-)

Online szipucsu

  • EP addict
  • *
  • Posts: 7669
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • Webnyelv.hu - Tanuljunk nyelveket!
Re: Egysoros játék felhívás
« Reply #28 on: 2012.December.09. 15:18:40 »
Quote from: Lacika
18 sor és 742 byte az utolsó licitem.
Az interaktivitás nem számít az elbírálásnál? :ds_icon_cheesygrin:
Ezen lehetne rövidíteni, kettővel kevesebb sor lenne.
A következőt le kéne cserélni:
Code: [Select]
   4 FOR I=1 TO 3
    5   LET S(I)=0
    6 NEXT
Erre:
Code: [Select]
  4 LET S(1),S(2),S(3)=0

Sőt, még ezt is meg lehetne oldani csupán két sorban:
Code: [Select]
   9   DO
   10     LET K$=INKEY$
   11   LOOP UNTIL K$>="1" AND K$<="3" OR K$=CHR$(27)

Ez valami ilyesmi lenne:
Code: [Select]
  9 LET K$=INKEY$
   10 IF ........... THEN GOTO 9
Bár lehet, erre írtad, hogy az ilyen piszkos munkára nem vagy kapható. :D
« Last Edit: 2012.December.09. 15:22:18 by szipucsu »
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

Offline Lacika

  • EP addict
  • *
  • Posts: 2917
  • Country: hu
  • OS:
  • Windows XP Windows XP
  • Browser:
  • Firefox 17.0 Firefox 17.0
    • View Profile
    • http://www.ep128.hu
Re: Egysoros játék felhívás
« Reply #29 on: 2012.December.09. 16:26:49 »
Ok, GOTO-s változat: 13 sor, 702 byte.