Le nouveau Super Mario Bros pour la gamme des fx9860g https://www.planet-casio.com/Fr/forums/topic15994-1-[addin]-SuperCasioBros-v0.1.html
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
supercasiobros/src/level.c

400 lines
8.1 KiB

#include "level.h"
#include "world.h"
#include "mario.h"
#include "score.h"
#include "ennemi.h"
#include "keyboard.h"
#include <plateforme.h>
#include <tuyau.h>
#include <gint/display.h>
#include <gint/std/stdlib.h>
#include <gint/keyboard.h>
#include <gint/timer.h>
#include <gint/std/string.h>
#include <gint/std/stdio.h>
#include <liblog.h>
#include <base.h>
#define PACKED_EMPTY 0
#define PACKED_STONE 1
#define PACKED_COIN 2
#define PACKED_BRICK 3
#define PACKED_BRICK_COIN 4
#define PACKED_BOX_COIN 5
#define PACKED_BOX_CHAMPI 6
#define PACKED_BETON 7
#define PACKED_TUYAU_BOUT 8
#define PACKED_TUYAU_MIDDLE 9
#define PACKED_FLAG 10
#define PACKED_GOOMBA 11
#define PACKED_KOOPA_VERT 12
#define PACKED_KOOPA_ROUGE 13
#define PACKED_MARIO_START 14
#define PACKED_NUAGE 15
#define PACKED_ARBRE_TRONC 16
#define PACKED_ARBRE_FEUILLES 17
#define PACKED_PLANTE 18
void mallocError()
{
extern image_t img_ram;
timer_stop(0);
dimage(0,0,&img_ram);
dupdate();
while (1) MKB_getkey();
}
static uint8_t packAccess(packed_level_t const * const p, unsigned int x, unsigned int y)
{
if (x<p->width && y<p->height) return p->data[x*p->height+y];
else return PACKED_EMPTY;
}
static void cellSet(cell_t *const array, unsigned int w, unsigned int h, unsigned int x, unsigned int y, cell_t const cell)
{
if (x<w && y<h) array[x*h+y] = cell;
}
static void unpackLevel(packed_level_t * p)
{
unsigned int w = p->width;
unsigned int h = p->height;
ll_sendp(LEVEL_INFO, "\nUnpacking level %dx%d", w,h);
cell_t * c = (cell_t *) mallocProf(sizeof(cell_t) * w * h);
ll_sendp(LEVEL_INFO, "\n[i]malloc %d", sizeof(cell_t) * w * h);
if (c==0)
{ // overriding parameters
w = 232;//p->width;
h = 13;//p->height;
ll_sendp(LEVEL_CRITICAL, "\n[e]malloc %d failed !\n[i]Trying defaults:\n %dx%d",sizeof(cell_t) * w * h, w,h);
ll_sendp(LEVEL_WARNING, "\n[w]writing into pack new coordinates:\n %dx%d", w,h);
p->width=w;
p->height=h;
cell_t * c = (cell_t *) mallocProf(sizeof(cell_t) * w * h);
if (c==0)
mallocError();
}
//ll_setLevel(LEVEL_WARNING);
int sx=0, sy=p->height; // Mario start coords
ennemi_t ennemis[30]={0};
int nombre_ennemis=0;
for (unsigned int x=0; x<w; x++)
{
for (unsigned int y=0; y<h; y++)
{
unsigned int contents = packAccess(p,x,y);
cell_t cell = {0,0};
if (contents==PACKED_EMPTY)
{
cell_t t={0,0};
cell = t;
}
else if (contents==PACKED_STONE)
{
int props=0;
{ // determiner x
int px=1;
if (packAccess(p,x-1,y)!=PACKED_STONE)
px=0;
if (packAccess(p,x+1,y)!=PACKED_STONE)
px=2;
props+=16*px;
}
{ // determiner y
int py=1;
if (packAccess(p,x,y+1)!=PACKED_STONE)
py=0;
props+=py;
}
cell_t t={EARTH,props};
cell = t;
}
else if (contents==PACKED_COIN)
{
cell_t t={COIN,0};
cell = t;
}
else if (contents==PACKED_BRICK)
{
cell_t t={BRICK,0};
cell = t;
}
else if (contents==PACKED_BRICK_COIN)
{
cell_t t={BRICK,0x15};
cell = t;
}
else if (contents==PACKED_BOX_COIN)
{
cell_t t={GIFT,0x11};
cell = t;
}
else if (contents==PACKED_BOX_CHAMPI)
{
cell_t t={GIFT,0x21};
cell = t;
}
else if (contents==PACKED_BETON)
{
cell_t t={BLOC,0};
cell = t;
}
else if (contents==PACKED_TUYAU_BOUT)
{
int px=0, py=0;
int props=0;
{ // haut du tuyau horizontal
if (packAccess(p,x-1,y)==PACKED_TUYAU_BOUT)
{
px=1;
if (packAccess(p,x,y-1)==PACKED_TUYAU_MIDDLE)
py=2;
if (packAccess(p,x,y+1)==PACKED_TUYAU_MIDDLE)
py=4;
}
if (packAccess(p,x+1,y)==PACKED_TUYAU_BOUT)
{
px=0;
if (packAccess(p,x,y-1)==PACKED_TUYAU_MIDDLE)
py=2;
if (packAccess(p,x,y+1)==PACKED_TUYAU_MIDDLE)
py=4;
}
}
{ // bout de tuyau vertical
if (packAccess(p,x,y-1)==PACKED_TUYAU_BOUT)
{
py=0;
if (packAccess(p,x+1,y)==PACKED_TUYAU_MIDDLE)
px=0;
if (packAccess(p,x-1,y)==PACKED_TUYAU_MIDDLE)
px=2;
}
if (packAccess(p,x,y+1)==PACKED_TUYAU_BOUT)
{
py=1;
if (packAccess(p,x+1,y)==PACKED_TUYAU_MIDDLE)
px=0;
if (packAccess(p,x-1,y)==PACKED_TUYAU_MIDDLE)
px=2;
}
}
props=16*px+py;
cell_t t={TUYAU,props};
cell = t;
}
else if (contents==PACKED_TUYAU_MIDDLE)
{
int px=0, py=0;
int props=0;
if (/*packAccess(p,x-1,y)==PACKED_TUYAU_MIDDLE && */packAccess(p,x+1,y)!=PACKED_TUYAU_MIDDLE)
{
if (packAccess(p,x+1,y)==PACKED_TUYAU_BOUT)
{
px=1;
if (packAccess(p,x,y+1)!=PACKED_TUYAU_MIDDLE)
py=0;
else
py=1;
}
else
{
px=1;
py=3;
}
}
if (/*packAccess(p,x+1,y)==PACKED_TUYAU_MIDDLE && */packAccess(p,x-1,y)!=PACKED_TUYAU_MIDDLE)
{
if (packAccess(p,x-1,y)==PACKED_TUYAU_BOUT)
{
px=1;
if (packAccess(p,x,y+1)!=PACKED_TUYAU_MIDDLE)
py=0;
else
py=1;
}
else
{
px=0;
py=3;
}
}
props=16*px+py;
cell_t t={TUYAU,props};
cell = t;
}
else if (contents==PACKED_FLAG)
{
int props=0;
if (packAccess(p,x,y+1)!=PACKED_FLAG)
props=0x1400;
else if (packAccess(p,x,y+2)!=PACKED_FLAG)
props=0x1401;
else if (packAccess(p,x,y+3)!=PACKED_FLAG)
props=0x1302;
else if (packAccess(p,x,y+4)!=PACKED_FLAG)
props=0x1302;
else if (packAccess(p,x,y+5)!=PACKED_FLAG)
props=0x1202;
else if (packAccess(p,x,y+6)!=PACKED_FLAG)
props=0x1202;
else
props=0x1102;
cell_t t={END_LEVEL,props};
cell = t;
}
else if (contents==PACKED_NUAGE)
{
int px=1, py=0;
if (packAccess(p,x,y+1)==PACKED_NUAGE)
py=1;
if (packAccess(p,x-1,y)!=PACKED_NUAGE)
px=0;
if (packAccess(p,x+1,y)!=PACKED_NUAGE)
px=2;
cell_t t={NUAGE,16*px+py};
cell = t;
}
else if (contents==PACKED_ARBRE_TRONC)
{
cell_t t={ARBRE,0x11};
cell = t;
}
else if (contents==PACKED_ARBRE_FEUILLES)
{
int px=0;
if (packAccess(p,x+1,y)==PACKED_ARBRE_FEUILLES)
{
if (packAccess(p,x-1,y)==PACKED_ARBRE_FEUILLES)
px=1;
else
px=0;
}
else
px=2;
cell_t t={ARBRE,16*px};
cell = t;
}
cellSet(c,w,h,x,y,cell);
if (contents==PACKED_GOOMBA)
{
ennemi_t e=GOOMBA(8*x,8*y,-1);
ennemis[nombre_ennemis]=e;
nombre_ennemis++;
}
else if (contents==PACKED_KOOPA_VERT)
{
ennemi_t e=KOOPA_V(8*x,8*y,-1);
ennemis[nombre_ennemis]=e;
nombre_ennemis++;
}
else if (contents==PACKED_KOOPA_ROUGE)
{
ennemi_t e=KOOPA_R(8*x,8*y,-1);
ennemis[nombre_ennemis]=e;
nombre_ennemis++;
}
else if (contents==PACKED_PLANTE)
{
ennemi_t e=PLANTE(8*x+4,8*y/*-8*/);
ennemis[nombre_ennemis]=e;
nombre_ennemis++;
}
if (contents==PACKED_MARIO_START)
{
sx=8*x;
sy=8*y;
}
}
}
ll_sendp(LEVEL_INFO, "\n[i]Converted!\n[i]Sending to level zone...", w,h);
worldSet(w, h, sx, sy, c);
ll_sendp(LEVEL_INFO, "\n[i]Achieved unpacking", w,h);
// Don't free c, it will be automatically managed by the worldSet function
//freeProf(c);
ennemiesInit(ennemis, nombre_ennemis);
}
void setLevel(int w, int l)
{
levelNew();
teleportersSet(0,0);
worldSet(0,0,0,0,0);
ennemiesInit(0, 0);
platformsInit(0, 0);
if (w+1==1 && l+1==1) // 1-2
{
extern packed_level_t bin_lvl_1_1;
unpackLevel(&bin_lvl_1_1);
teleport_t t[]=
{
{57,6, 215,12, MK_DOWN},
{227,2, 179,3, MK_RIGHT}
};
teleportersSet(t, sizeof(t)/sizeof(teleport_t));
}
if (w+1==1 && l+1==2) // 1-2
{
extern packed_level_t bin_lvl_1_2;
unpackLevel(&bin_lvl_1_2);
teleport_t t[]=
{
{6,4, 21,12, MK_DOWN},
{106,5, 188,12, MK_DOWN},
{197,2, 118,4, MK_RIGHT},
{180,5, 206,2, MK_RIGHT},
};
teleportersSet(t, sizeof(t)/sizeof(teleport_t));
plateform_t plateforme0[]=
{
PLATEFORME_MOVING_H(8*144,6*8+5,32,1,8*142,8*150)
};
platformsInit(plateforme0,sizeof(plateforme0)/sizeof(plateform_t));
}
if (w+1==1 && l+1==3) // 1-2
{
extern packed_level_t bin_lvl_1_3;
unpackLevel(&bin_lvl_1_3);
}
}
void getLevelID(int w, int l, char * str)
{
str[3]='\0';
sprintf(str, "%d-%d", w+1, l+1);
}