C'est SNKEmini!
La taille de ce jeu est super petite. 255, 241 198 195 181 180 octets!
Il est suffisamment petit pour tenir en mode RUN•MAT!
Il n'est pas nécessaire de créer un programme en mode PRGM pour le lancer.
Essayez de voir si vous pouvez réduire cette taille (sans supprimer aucune fonctionnalité)
Cliquez pour afficher le code
Cliquer pour enrouler
ClrText
4 -> Q~Y
{7, 21 -> Dim Mat A
Mat A -> Mat B
Do
If X = Q(Y = R :Then
Do
RanInt#(1, 7 -> R
RanInt#(1, 21 -> Q
LpWhile Mat A[R, Q
Locate Q, R, "●"
Else
Mat A[W, V
0 -> Mat A[W, V
Locate V, W, " "
Mat B[W, V -> W
Ans -> V
IfEnd
U
GetKey => 6 - 2MOD(GetKey, 4
U > 3 Xor Ans > 3 => Ans -> U
X
Y -> T
U > 3 => 1 + MOD(Y - U + 4, 7 -> Y
U < 3 => 1 + MOD(X - U, 21 -> X
Locate X, Y, "O
X -> Mat A[T, Ans
Y -> Mat B[T, Ans
LpWhile 0 = Mat A[Y, X
Cette version est plus grande car elle a plus de fonctionnalités
La taille est de 241 octets
Enveloppe d'écran
La 'pomme' ne se pose jamais sur le serpent
Les O sont utilisés pour le corps et la pomme est un ●
Vous ne pouvez pas vous tuer en reculant
Essayez de le rendre le plus petit possible, tout en le rendant jouable!
Cliquez pour afficher le code 181 bytes
Cliquer pour enrouler 181 bytes
ClrText
6 → Q~Y
{21, 7 → Dim Mat A
Do
If X = Q(Y = R :Then
RanInt#(1, 7 → R
RanInt#(1, 21 → Q
Else
Mat A[V, W
0 -> Mat A[V, W
Locate V, W, " "
ReP Ans → V
ImP Ans → W
IfEnd
Locate Q, R, 8
GetKey ⇒ 4GetKey Rmdr 8 → U
X : Y → T
U > 3 ⇒ X + U - 5 → X
U < 3 ⇒ Y + U - 1 → Y
Locate X, Y, 0
X + Yi → Mat A[Ans, T
LpWhile Not Mat A[X, Y
Cliquez pour afficher le code 195 bytes
Cliquer pour enrouler 195 bytes
ClrText
6 -> Q~Y
{14, 21 -> Dim Mat A
Do
If X = Q(Y = R :Then
RanInt#(1, 7 -> R
RanInt#(1, 21 -> Q
Else
Mat A[W, V
0 -> Mat A[W, V
Locate V, W, " "
Mat A[W+7, V -> W
Ans -> V
IfEnd
Locate Q, R, 8
GetKey => 2MOD(GetKey, 4 -> U
X
Y -> T
U < 3 => Y + U - 1 -> Y
U > 3 => X + U - 5 -> X
Locate X, Y, 0
X -> Mat A[T, Ans
Y -> Mat A[T+7, Ans
LpWhile Not Mat A[Y, X
Cette version a été faite pour être aussi petite que possible (tout en restant jouable)
La taille est 198 195 181 octets (180 octets si vous utilisez l'opérateur binaire Not de C.Basic ou Base Mode)
Frapper le bord de l'écran va vous tuer
Revenir sur vous-même vous tuera
Courir en toi va te tuer
Le corps est composé de 0's et la pomme est un 8
English description:
This is SNKEmini!
The size of this game is super small. 255, 214 198 195 180 Bytes!
It's small enough to fit inside RUN•MAT mode!
You don't have to make a program in PRGM mode to trun it
Try see if you can this smaller (without removing any features)
Click to show code 241bytes
Click to hide code 241bytes
ClrText
4 -> Q~Y
{7, 21 -> Dim Mat A
Mat A -> Mat B
Do
If X = Q(Y = R :Then
Do
RanInt#(1, 7 -> R
RanInt#(1, 21 -> Q
LpWhile Mat A[R, Q
Locate Q, R, "●"
Else
Mat A[W, V
0 -> Mat A[W, V
Locate V, W, " "
Mat B[W, V -> W
Ans -> V
IfEnd
U
GetKey => 6 - 2MOD(GetKey, 4
U > 3 Xor Ans > 3 => Ans -> U
X
Y -> T
U > 3 => 1 + MOD(Y - U + 4, 7 -> Y
U < 3 => 1 + MOD(X - U, 21 -> X
Locate X, Y, "O
X -> Mat A[T, Ans
Y -> Mat B[T, Ans
LpWhile 0 = Mat A[Y, X
This version is bigger because it has more features
Size is 241 bytes
Screen Wrap
The 'apple' never gets placed on the Snake
O's are used for the body and the apple is a ●
You can't insta kill yourself by going backwards
Try making this as small as possible, while still keeping it playable!
Click to show code 181 bytes
Click to hide code 181 bytes
ClrText
6 → Q~Y
{21, 7 → Dim Mat A
Do
If X = Q(Y = R :Then
RanInt#(1, 7 → R
RanInt#(1, 21 → Q
Else
Mat A[V, W
0 -> Mat A[V, W
Locate V, W, " "
ReP Ans → V
ImP Ans → W
IfEnd
Locate Q, R, 8
GetKey ⇒ 4GetKey Rmdr 8 → U
X : Y → T
U > 3 ⇒ X + U - 5 → X
U < 3 ⇒ Y + U - 1 → Y
Locate X, Y, 0
X + Yi → Mat A[Ans, T
LpWhile Not Mat A[X, Y
Click to show code 195 bytes
Click to hide code 195 bytes
ClrText
6 -> Q~Y
{14, 21 -> Dim Mat A
Do
If X = Q(Y = R :Then
RanInt#(1, 7 -> R
RanInt#(1, 21 -> Q
Else
Mat A[W, V
0 -> Mat A[W, V
Locate V, W, " "
Mat A[W+7, V -> W
Ans -> V
IfEnd
Locate Q, R, 8
GetKey => 2MOD(GetKey, 4 -> U
X
Y -> T
U < 3 => Y + U - 1 -> Y
U > 3 => X + U - 5 -> X
Locate X, Y, 0
X -> Mat A[T, Ans
Y -> Mat A[T+7, Ans
LpWhile Not Mat A[Y, X
This version was made to be as small as possible (while still being playable)
Size is 198 195 181 bytes (180 bytes if you use the binary operator Not from C.Basic or Base Mode)
Hitting the edge of the screen will kill you
Going backwards on yourself will kill you
Running into yourself will kill you
The body is made of 0's and the apple is an 8
Super jeu que le snake !
C'est bizarre, j'ai eu quelques bugs au niveau de la ligne Mat A[W, V
Sinon, je trouve ça bien fluide !
J'en ai codé un à la minute, mais le mien n'est pas aussi petit par contre il gère les bords et affiche le score pour 356 octets (titre compris)
Yea I used every single technique I could think of to make it as small as possible
I used Ans instead of variables (as much as possible)
If X != 0 : Then
is the same as
If X : Then
I was going to save the directions as 1,2,3,4 but instead did 0,1,2,3 because it saved 2 bytes of space
When I first made Snake, I tried making it as fast as possible
I did what other people did: which was save the locations (or direction) of the head to 2 lists, but it was too slow to scroll the list up every time
So I saved the direction to a matrix A which ended up being much faster and took less space
in my program i used 2 lists, but this is not the list we scroll, but the place were coords are written
it is fast too, but because of that the list are much bigger
Planète Casio est un site communautaire non affilié à Casio. Toute reproduction de Planète Casio, même partielle, est interdite.
Les programmes et autres publications présentes sur Planète Casio restent la propriété de leurs auteurs et peuvent être soumis à des licences ou copyrights.
CASIO est une marque déposée par CASIO Computer Co., Ltd
par contre il gère les bords et affiche le score pour 356 octets (titre compris) 
