HTML

Zsebszámológép programok, forráskódok, hírek

Egy blog zsebszámológép programokról, algoritmusokról, érdekességekről.

Játék

Szabadon letölthető, megújult Gazdálkodj okosan! stratégiai társasjáték szabállyal együtt.

Friss topikok

Linkblog

Simon memóriajáték program Casio grafikus számológépre

2010.05.24. 14:37 Sany80

Az ismert Simon memóriajáték, mindössze 395 byte-on.

Írta: Csetneki Sándor

képernyőkép a játékról

21 -> Dim List 1;
ClrText;
Locate 3,1,"SIMON MEMORY GAME";
For 1 -> X To 21;
Locate X,2,"-";
Next;
0 -> A;
Lbl 1;
Isz A;
Locate 1,3,"SIMON SAYS:     ";
1 + Int 4 Ran# -> List 1[A;
Locate A,4,List 1[A;
For 1 -> X To 21;
Locate X,5,".";
Next;
Locate 1,3,"WHAT SAID SIMON?";
For 4 -> Y To 5;
Locate 1,Y,"                      ";
Next;
1 -> M;
Lbl G;
Do;
Getkey -> Z;
LpWhile Z = 0;
For 1 -> X To 20: Next;
(Z=72) + 2(Z=62) + 3(Z=52) + 4(Z=73 -> T;
T = 0 => Goto G;
Locate M,4,T;
T = List 1[M -> N;
Isz M;
N(M<=A => Goto G;
N => Goto 1;
Locate 1,5,"GAME OVER! SCORE:";
Locate 19,5,A-1;
For 1 -> X To A;
Locate X,6,List 1[X;
Next

Szólj hozzá!

Címkék: játék memória program simon casio

A bejegyzés trackback címe:

https://szamologep.blog.hu/api/trackback/id/tr942027674

Kommentek:

A hozzászólások a vonatkozó jogszabályok  értelmében felhasználói tartalomnak minősülnek, értük a szolgáltatás technikai  üzemeltetője semmilyen felelősséget nem vállal, azokat nem ellenőrzi. Kifogás esetén forduljon a blog szerkesztőjéhez. Részletek a  Felhasználási feltételekben és az adatvédelmi tájékoztatóban.

Nincsenek hozzászólások.