Seuls les membres ayant 30 points peuvent parler sur le chat.
Gestion du compte
Calculatrices
Graph 35 à 100 (CFX)
Graph 25/25+ (Pro) (fx-7400)
Graph 35+USB/75/85/95 (SD)
Graph 100/100+ (AFX)
ClassPad 300/330
Fx-CG 10/20
Fx-CP 400
Graph 90+E

Retour aux miniatures
Tri avancé
Liste des programmes
Nom Date
TabBudget
Minemapper
PlatGame
SNKEmini
Endless
Cave Fight
JEUMAT2
Auto Conv Depas
AlphaRun
Race
Pixel
Suite et lim
Faster !
Dream penalty
Aviator
Osu Mania
RADIOAC
Epic Story
Zelda botn
ETTSTIDD
Pages: 1,2,3,4,5 >>

¤ Transférer un programme sur
sa calculatrice

¤ Vous cherchez une fonction ?
Jeux >> Graphs 75/85/95 (SD) >> Action/Sport >> SNKEmini
SNKEmini
Version : v4 Taille : 198 octets Ajouté le : 2019-08-22 04:57 Modifié le : 2019-08-24 10:18
Auteur et posteur :
RedcmdHors ligneMembrePoints: 202 Défis: 5 Message
Planète Casio - Jeu Casio action ou sport - SNKEmini - RedCMD - Calculatrices
Nombre de visites sur cette page : 945
Score au progrank : 22
Pas encore de note !

Vous devez être inscrit(e) et avoir 20 points ou plus pour noter.
139 téléchargements | Soumettre un test


Description :

C'est SNKEmini!
La taille de ce jeu est super petite. 255 198 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
Cliquer pour enrouler
ClrText
3 -> Q~Y
{7, 21 -> Dim Mat A
Mat A -> Mat B
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 B[W, 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 B[T, Ans
LpWhile 0 = Mat A[Y, X

Cette version a été faite pour être aussi petite que possible (tout en restant jouable)
La taille est 198 octets
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 et la pomme est un 8


Commentaires :

Pages: Précédente | 1, 2

MilangHors ligneMembrePoints: 393 Défis: 2 Message
Posté le 22-08-2019 à 14:33 | #
ahaah !
Do
Getkey
LpWhile Ans!=27
{21,7->Dim Mat A
{21,7->Dim Mat B
1->A~Z
0->P~Q
Do
Getkey
Ans=>Ans->K
X->T
Y->U
K=38=>Dsz X
K=27=>Isz X
K=28=>Dsz Y
K=37=>Isz Y
X->Mat A[T,U
Y->Mat B[T,U
Locate X,Y,0
If X=P And Y=Q Or Not PQ
Then RanInt#(1,21->P
RanInt#(1,7->Q
Else Mat A[L,M->N
0->Mat A[L,M
Locate L,M," "
Mat B[L,M->M
N->L
IfEnd
Locate P,Q,1
LpWhile Not Mat A[X,Y

264 octets avec le titre du programme, soit 232 octets de code !
MassenaEn ligneRédacteurPoints: 982 Défis: 5 Message
Posté le 22-08-2019 à 14:57 | #
Gagnant officieux de la 1ko basic casio jam.
KikoodxHors ligneMembrePoints: 1613 Défis: 9 Message
Posté le 22-08-2019 à 15:31 | #
Le code n'est pas parfait, et le jeu en lui-même n'est pas très original donc bon...
MassenaEn ligneRédacteurPoints: 982 Défis: 5 Message
Posté le 22-08-2019 à 17:37 | #
Si t'es pas content t'a qu'à faire un test..
RedcmdHors ligneMembrePoints: 202 Défis: 5 Message
Posté le 22-08-2019 à 22:38 | #
Lephenixnoir a écrit :
MOD(Ans,4
U ≠ MOD(Ans+2,4 ⇒ Ans→U


Only problem with that is
If GetKey outputs 0 it automatically changes direction

That and IDK how to convert the direction U to movement (changing the X & Y cords)

Kikoodx I had done that already, but because I had 3 bytes (octets) left
I used them on making it look a bit better :P
RedcmdHors ligneMembrePoints: 202 Défis: 5 Message
Posté le 24-08-2019 à 10:28 | #
I changed
Locate X, Y, "●"
Locate X, Y, "O
to
Locate X, Y, 8
Locate X, Y, 0
Suggestion from Kikoodx

I got Lephenixnoir's GetKey to direction converter to work
U
GetKey => 6 - 2MOD(GetKey, 4
U > 3 Xor Ans > 3 => Ans -> U


I also used the double matrix system from Milang
One matrix for X cords and the other for Y cords

With all that
I got SNKEmini.g1m down to 241 bytes
and SNK3m1n1.g1m to 198 bytes!
LephenixnoirHors ligneAdministrateurPoints: 16462 Défis: 140 Message
Posté le 24-08-2019 à 12:08 | #
Only problem with that is
If GetKey outputs 0 it automatically changes direction

I felt real stupid when you said that right. Good job fixing it. xD

I also used the double matrix system from Milang
One matrix for X cords and the other for Y cords

Good catch as well!

I must admit I like the turn this is taking.

Pages: Précédente | 1, 2

Planète Casio v42 © créé par Neuronix et Muelsaco 2004 - 2019 | Il y a 67 connectés | Nous contacter | Qui sommes-nous ? | Licences et remerciements

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