initial commit
This commit is contained in:
commit
7cf2127956
|
|
@ -0,0 +1,30 @@
|
|||
# alchemy banal
|
||||
|
||||
like alchemy deluxe. but like not deluxe
|
||||
|
||||
## why
|
||||
|
||||
good game go buy it. or dont
|
||||
|
||||
## me want build it
|
||||
|
||||
```
|
||||
paru -S libpulse wget libxmp # if you dont like it just patch it out or something idk
|
||||
./mcb all # i know the script sucks dont kill me
|
||||
```
|
||||
|
||||
## i am going to steal your code
|
||||
|
||||
okay it is public domain. pretend i put the unlicense here
|
||||
|
||||
## i stole your code and it fucking sucks
|
||||
|
||||
i know that. i wrote it
|
||||
|
||||
## im from ea and i want to sue you
|
||||
|
||||
stop that
|
||||
|
||||
## i have other questions
|
||||
|
||||
i didnt think of your questions yet
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
#include <stdint.h>
|
||||
#include <stdio.h>
|
||||
#include <unistd.h>
|
||||
#include <fcntl.h>
|
||||
#include <sys/stat.h>
|
||||
|
||||
int main(int argc, char** argv) {
|
||||
if(argc != 4) return !!printf("need 1 file to generate embed for, size name, and data name\n");
|
||||
int fd = open(argv[1], O_RDONLY, 0644);
|
||||
if(fd < 0) return 1;
|
||||
struct stat s;
|
||||
fstat(fd, &s);
|
||||
printf(
|
||||
"#include <stdint.h>\n"
|
||||
"#define %s ((unsigned long)%llu)\n"
|
||||
"uint8_t %s[%s]={",
|
||||
argv[3],
|
||||
s.st_size,
|
||||
argv[2],
|
||||
argv[3]
|
||||
);
|
||||
uint8_t mem[s.st_size];
|
||||
read(fd, mem, s.st_size);
|
||||
for(unsigned long l = 0; l < s.st_size; l++) printf("%hu,", (uint16_t)mem[l]);
|
||||
puts("};");
|
||||
}
|
||||
|
|
@ -0,0 +1,349 @@
|
|||
#include <stdio.h>
|
||||
#include <fcntl.h>
|
||||
#include <stdint.h>
|
||||
#include <stdlib.h>
|
||||
#include <xmp.h>
|
||||
#include <sys/ioctl.h>
|
||||
#include <termios.h>
|
||||
#include <signal.h>
|
||||
#include <string.h>
|
||||
#include <time.h>
|
||||
#include <pulse/simple.h>
|
||||
#include <pulse/error.h>
|
||||
#include <unistd.h>
|
||||
#include <errno.h>
|
||||
|
||||
// defines void* module and long modsize
|
||||
#include "music.h"
|
||||
|
||||
|
||||
char* hdr = "ALCHEMY [press A for info]\n-----------------+ CURRENT\n";
|
||||
|
||||
/* RUNE BITFIELD
|
||||
*
|
||||
* RRRRFFFB (very conveniently only 1 byte)
|
||||
*
|
||||
* R - rune type. theres probably not 16 but eh
|
||||
* F - foreground color. there are at least 5
|
||||
* B - theres only 2 so only 1 bit is needed
|
||||
*
|
||||
*/
|
||||
|
||||
char* runes = " &*oImu%/avjyt^@>";
|
||||
|
||||
#define getbg(B) ((B) & 1)
|
||||
#define getfg(B) (((B) >> 1) & 7)
|
||||
#define getrune(B) ((B) >> 4)
|
||||
uint8_t newrune() {
|
||||
uint8_t r = ((rand() & 0xFF) | 1);
|
||||
if(!getrune(r) || !getfg(r)) r = newrune();
|
||||
if(getrune(r) == 2 || getrune(r) == 1) r = (r & 0xF0) | 0xF;
|
||||
else if(getfg(r) == 7) r = newrune();
|
||||
return r;
|
||||
}
|
||||
|
||||
uint8_t board[72];
|
||||
|
||||
struct winsize win;
|
||||
struct termios term, term_b;
|
||||
|
||||
void clrscr() {
|
||||
// VERY good practice. will never cause bugs
|
||||
printf("\x1B\x5B\x48\x1B\x5B\x4A");
|
||||
}
|
||||
|
||||
int closef = 0;
|
||||
void winch(int sig) {
|
||||
ioctl(1, TIOCGWINSZ, &win);
|
||||
if(win.ws_col < 27 || win.ws_row < 10) {
|
||||
tcsetattr(0, TCSANOW, &term_b);
|
||||
printf("window too small, exiting\n");
|
||||
closef = 1;
|
||||
}
|
||||
}
|
||||
|
||||
void posupdate(int x, int y) {
|
||||
printf("\033[%d;%dH", ++y, ++x);
|
||||
}
|
||||
|
||||
void render_board(uint8_t* brd, int score, int level, int rune, int stage, int valid) {
|
||||
uint8_t* m = brd;
|
||||
for(int i = 0; i < 8; i++) {
|
||||
for(int c = 0; c < 9; c++) {
|
||||
printf(
|
||||
"\033[0;9%im", getfg(m[c]));
|
||||
|
||||
printf("\033[0;%i%im", getbg(m[c]) ? 9 : 10, getbg(m[c]) ? getfg(m[c]) : 7);
|
||||
|
||||
printf(
|
||||
"%c%s", runes[getrune(m[c])],
|
||||
(c == 8) ? "\033[0m|" : " "
|
||||
);
|
||||
if(c == 8) {
|
||||
//if(i == 0) printf(" :%c %c", valid + '(', runes[rune]);
|
||||
if(i == 0) printf(" :%c \033[0;9%im%c\033[0m", valid + '(', getfg(rune), runes[getrune(rune)]);
|
||||
if(i == 2) printf(" SCORE");
|
||||
if(i == 3) printf(" %07i", score);
|
||||
if(i == 5) {
|
||||
printf(" [");
|
||||
for(int v = 0; v < level; v++) putchar('#');
|
||||
for(int v = 0; v < 3 - level; v++) putchar('-');
|
||||
putchar(']');
|
||||
}
|
||||
if(i == 6) printf(" STAGE");
|
||||
if(i == 7) printf(" %02i", stage);
|
||||
putchar('\n');
|
||||
}
|
||||
}
|
||||
m += 9;
|
||||
}
|
||||
}
|
||||
|
||||
int linecheck(uint8_t* board, int x, int y) {
|
||||
int w = 1, h = 1;
|
||||
for(int i = 0; i < 9; i++) if(!getrune(board[(y*9) + i])) w = 0;
|
||||
for(int i = 0; i < 8; i++) if(!getrune(board[(i*9) + x])) h = 0;
|
||||
|
||||
if(w) for(int i = 0; i < 9; i++) board[(y*9) + i] = 0x0F;
|
||||
if(h) for(int i = 0; i < 8; i++) board[(i*9) + x] = 0x0F;
|
||||
|
||||
return w | h;
|
||||
}
|
||||
|
||||
int movecheck(uint8_t* board, int x, int y, uint8_t rune) {
|
||||
if(getrune(rune) == 1) if(getrune(board[(y*9) + x])) return 1;
|
||||
if(getrune(board[(y*9) + x])) return 0;
|
||||
int l = x ? board[(y*9) + (x - 1)] : 0x0F,
|
||||
r = (x < 8) ? board[(y*9) + (x + 1)] : 0x0F,
|
||||
u = y ? board[((y-1)*9) + x] : 0x0F,
|
||||
d = (y < 7) ? board[((y+1)*9) + x] : 0x0F;
|
||||
if(getrune(rune) == 2) return !!getrune(l|r|u|d);
|
||||
|
||||
int rnc = getfg(rune);
|
||||
int rnt = getrune(rune);
|
||||
|
||||
int lc = getfg(l) == rnc,
|
||||
rc = getfg(r) == rnc,
|
||||
uc = getfg(u) == rnc,
|
||||
dc = getfg(d) == rnc;
|
||||
int lt = getrune(l) == rnt,
|
||||
rt = getrune(r) == rnt,
|
||||
ut = getrune(u) == rnt,
|
||||
dt = getrune(d) == rnt;
|
||||
|
||||
if(l == 0x2F) lt++;
|
||||
if(r == 0x2F) rt++;
|
||||
if(u == 0x2F) ut++;
|
||||
if(d == 0x2F) dt++;
|
||||
|
||||
int ac = 0;
|
||||
if(!getrune(l)) { lt++; ac++; }
|
||||
if(!getrune(r)) { rt++; ac++; }
|
||||
if(!getrune(u)) { ut++; ac++; }
|
||||
if(!getrune(d)) { dt++; ac++; }
|
||||
if(ac == 4) return 0;
|
||||
|
||||
int ms = 4;
|
||||
if(lc || lt) ms--;
|
||||
if(rc || rt) ms--;
|
||||
if(uc || ut) ms--;
|
||||
if(dc || dt) ms--;
|
||||
|
||||
return !ms;
|
||||
}
|
||||
|
||||
int musplay = 1;
|
||||
|
||||
void fsig(int sig) {
|
||||
if(sig == SIGUSR1) musplay ^= 1;
|
||||
else closef = 1;
|
||||
}
|
||||
|
||||
int main(int argc, char** argv) {
|
||||
|
||||
// we can just call the signal
|
||||
// that is because c is the best
|
||||
// make sure window is big enough
|
||||
winch(0);
|
||||
|
||||
pa_simple *s;
|
||||
pa_sample_spec ss;
|
||||
ss.format = PA_SAMPLE_S16NE;
|
||||
ss.channels = 2;
|
||||
ss.rate = 44100;
|
||||
|
||||
int err;
|
||||
|
||||
long id = getpid();
|
||||
long p = fork();
|
||||
if(!p) {
|
||||
uint8_t aubuf[44100];
|
||||
xmp_context xc = xmp_create_context();
|
||||
xmp_load_module_from_memory(xc, module, modsize);
|
||||
xmp_start_player(xc, 44100, 0);
|
||||
s = pa_simple_new(NULL, "alchemy-banal", PA_STREAM_PLAYBACK, NULL, "the game on earth", &ss, NULL, NULL, NULL);
|
||||
signal(SIGINT, fsig);
|
||||
signal(SIGUSR1, fsig);
|
||||
while(1) {
|
||||
if(closef || kill(id, 0) == ESRCH) {
|
||||
pa_simple_free(s);
|
||||
xmp_release_module(xc);
|
||||
xmp_free_context(xc);
|
||||
return 0;
|
||||
} else if(musplay) {
|
||||
xmp_play_buffer(xc, aubuf, 44100, 0);
|
||||
pa_simple_write(s, aubuf, 44100, &err);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
// init boardmem
|
||||
memset(board, 0xE, 72);
|
||||
board[31] = 0x2F;
|
||||
|
||||
// rng for runes
|
||||
srand(time(NULL));
|
||||
|
||||
// trap window change. other
|
||||
// signals not necessary since
|
||||
// setting term attributes lets
|
||||
// us trap things like ^C
|
||||
signal(SIGWINCH, winch);
|
||||
|
||||
// terminal config (capture all input)
|
||||
tcgetattr(0, &term);
|
||||
term_b = term;
|
||||
term.c_iflag &= ~(ICRNL|IXON);
|
||||
term.c_lflag &= ~(ICANON|ECHO|ISIG|IEXTEN);
|
||||
tcsetattr(0, TCSANOW, &term);
|
||||
setbuf(stdout, NULL);
|
||||
fcntl(0, F_SETFL, O_NONBLOCK);
|
||||
|
||||
// game init complete
|
||||
// begin actual game loop
|
||||
clrscr();
|
||||
unsigned char // peak formatting
|
||||
c, // current input
|
||||
y = 0, // current cursor x
|
||||
x = 0, // current cursor y
|
||||
v = 1, // move validity
|
||||
stage = 1, // stage
|
||||
level = 0, // current goop(?) level
|
||||
r = newrune(), // current rune
|
||||
mode = 0; // current mode
|
||||
|
||||
unsigned int score = 0, aframe = 0, vr = 0;
|
||||
|
||||
printf(hdr);
|
||||
render_board(board, 20, 0, r, 1, 1);
|
||||
goto eloop;
|
||||
while(1) {
|
||||
if(closef) goto cleanup;
|
||||
if((c = getchar()) != 255) {
|
||||
eloop:
|
||||
if(mode != 1) switch(c) {
|
||||
case ' ':
|
||||
// place rune
|
||||
if(!getrune(board[(y*9) + x]) && (getrune(r) > 2)) {
|
||||
// TODO movecheck
|
||||
if(movecheck(board, x, y, r)) board[(y*9) + x] = r;
|
||||
else goto nrr;
|
||||
} else if((getrune(r) == 2) && !getrune(board[(y*9) + x])) {
|
||||
board[(y*9) + x] = r;
|
||||
} else if((getrune(r) == 1) && getrune(board[(y*9) + x])) {
|
||||
board[(y*9) + x] = 0xF;
|
||||
}
|
||||
else goto nrr;
|
||||
rr:
|
||||
vr = 1;
|
||||
for(int z = 0; z < 72; z++) if(!getbg(board[z])) vr = 0;
|
||||
if(vr) {
|
||||
stage++;
|
||||
memset(board, 0xE, 72);
|
||||
board[31 + (((rand() & 1) ? -1 : 1) * (rand() & 0x7))] = 0x2F;
|
||||
}
|
||||
|
||||
r = newrune();
|
||||
score++;
|
||||
if(level) level--;
|
||||
clrscr();
|
||||
printf(hdr);
|
||||
if(linecheck(board, x, y)) score += 4;
|
||||
render_board(board, score, level, r, stage, v);
|
||||
nrr: break;
|
||||
case 'x':
|
||||
// discard rune
|
||||
level++;
|
||||
r = newrune();
|
||||
clrscr();
|
||||
printf(hdr);
|
||||
render_board(board, score, level, r, stage, v);
|
||||
if(level >> 2) {
|
||||
clrscr();
|
||||
printf("you lost :/\n");
|
||||
printf(hdr);
|
||||
render_board(board, score, level, r, stage, v);
|
||||
goto cleanup;
|
||||
}
|
||||
break;
|
||||
case 'i':
|
||||
// up
|
||||
if(y != 0) y--;
|
||||
break;
|
||||
case 'j':
|
||||
// left
|
||||
if(x != 0) x--;
|
||||
break;
|
||||
case 'k':
|
||||
// down
|
||||
if(y < 7) y++;
|
||||
break;
|
||||
case 'l':
|
||||
// right
|
||||
if(x < 8) x++;
|
||||
break;
|
||||
case 'q':
|
||||
// quit
|
||||
clrscr();
|
||||
printf(hdr);
|
||||
render_board(board, score, level, r, stage, v);
|
||||
goto cleanup;
|
||||
break;
|
||||
}
|
||||
if(c == 'a') {
|
||||
mode ^= 1;
|
||||
kill(p, SIGUSR1);
|
||||
clrscr();
|
||||
if(mode == 1) {
|
||||
printf(
|
||||
"ALCHEMY BANAL\n"
|
||||
"original game by\n"
|
||||
" PopCap Games\n"
|
||||
"this version by\n"
|
||||
" @mothcompute\n"
|
||||
"CONTROLS:\n"
|
||||
"SPACE to place rune\n"
|
||||
" X to discard rune\n"
|
||||
" Q to quit\n"
|
||||
" IJKL to move cursor\n"
|
||||
"& = skull | * = wild"
|
||||
);
|
||||
} else {
|
||||
initbrd:
|
||||
printf(hdr);
|
||||
render_board(board, score, level, r, stage, movecheck(board, x, y, r));
|
||||
}
|
||||
}
|
||||
if(!mode) {
|
||||
clrscr();
|
||||
printf(hdr);
|
||||
render_board(board, score, level, r, stage, movecheck(board, x, y, r));
|
||||
}
|
||||
}
|
||||
if(!mode) posupdate(x*2, y + 2);
|
||||
}
|
||||
|
||||
cleanup:
|
||||
tcsetattr(0, TCSANOW, &term_b);
|
||||
kill(p, SIGINT);
|
||||
}
|
||||
|
|
@ -0,0 +1,35 @@
|
|||
#!/bin/sh
|
||||
|
||||
# mcb
|
||||
# AWFUL build system
|
||||
# dont laugh at me
|
||||
|
||||
isf() {
|
||||
LC_ALL=C type $1 2>&1 | grep -q 'function'
|
||||
}
|
||||
|
||||
. ./mcbs
|
||||
|
||||
[ ! -z "$1" ] && isf $1 && $1
|
||||
|
||||
[ -z "$SOURCES" ] && echo "provide \$SOURCES" && exit 1
|
||||
[ -z "$OUTPUT" ] && echo "provide \$OUTPUT" && exit 1
|
||||
[ -z "$COMPILER" ] && echo "\$COMPILER undefined. defaulting to cc" && COMPILER=cc
|
||||
|
||||
LINKS=""
|
||||
ECODE=""
|
||||
|
||||
if isf mcb_build_hook; then
|
||||
mcb_build_hook 2> /tmp/mcbs_err.$(basename $OUTPUT)
|
||||
ECODE=$?
|
||||
else
|
||||
$COMPILER $SOURCES $FLAGS -o $OUTPUT 2> /tmp/mcbs_err.$(basename $OUTPUT)
|
||||
ECODE=$?
|
||||
fi
|
||||
|
||||
[ ! "$ECODE" = 0 ] && echo "build error" && [ ! -z "$MCB_SHOW" ] && cat /tmp/mcbs_err.$(basename $OUTPUT) && exit 1
|
||||
isf mcb_post_hook && mcb_post_hook
|
||||
|
||||
[ ! -z "$MCB_SHOW" ] && cat /tmp/mcbs_err.$(basename $OUTPUT)
|
||||
[ ! -z "$MCB_RUN" ] && ./$OUTPUT $MCB_RUN
|
||||
exit 0
|
||||
Loading…
Reference in New Issue