Snake: Difference between revisions

DEF-MAIN(argv, argc)

SET( TLimit := 100LEVEL,1 )

GOSUBSET( putTLimit titles:= LIMIT_TIME )

MEM(SIZE_INITIAL),GOSUB( start )

GOSUBSET( showtime out, TIME_LEVEL)

WHILEGOSUB( NOTtitles (quit) )

SCAN-CODEWHILE( Clives )

SWITCHGOSUB( Cshow )

CASEGOSUB( K_RIGHTready ){ dir = E, EXIT }SLEEP(1.5)

TIC( T ), CASETIC( K_DOWNTPlay ) { dir = S, EXIT }TIC(TSound)

WHILE( NOT CASE( K_ESCquit) ) { quit = 1, EXIT }

ON-TIME( TLimit ~= CASE( 32TPlay ) { PAUSE, EXIT }

SWENDGOSUB( show )

GOSUBON-TIME( stepONE_SECOND ~= T ) {

TIME-=10, CLAMP(0,100,TIME)}

{ON-TIME,( 12,time 52}out GOSUB(~= put timeTSound ){

} GOSUB(LEVELCLEAR)

LOCATEGOSUB(ADD(h,1game over ),1) PRNLSLEEP(7)

DEF-FUN( start, initial pos )

[ SUB(MUL(h,w),MINUS-ONE(w)) : end] {BORDERtBoard1} CPUTMOVE-TO(board) // bottom

PRNLPRN("\033[38;15;3m\033[48;5;9m~\OFF")

SET(j,1),LOG-INV(tiles)

PRNCOND("\033[38;5;3m\033[48;5;15m~\OFF" NOT-EQ?(n,nHead) )

{"\033[38;5;4m82m\033[48;5;2m57m \OFF"}

PRN( [k] GET(symbol),{"@\OFF")}

IF(tiles,{"\033[48;5;28m"tile1},{tile2})

{" PRN( [k] GET(symbol),"\OFF")}

SWITCHSELECT(dir)

SWENDSELEND

SWITCHSELECT( [nHead]CGET(board))

--len, LET( len := IF( IS-ZEROEQ?(len,0), 1, len) )

--len, LETCOND( len := IFNOT(OR( IS-ZEROEQ?(lenLEVEL,3), 1EQ?(LEVEL, len6))) )

WHEN(AND(NOT-EQ?(LEVEL,3),NOT-EQ?(LEVEL,6))){ GOSUB( plant ) }

{SCORE, 4, 52COLUMNA_PRINT} GOSUB( put score )

++counter, COND( GTEQ?( counter, 525 ) )

CLAMP(30INF_TIME,100 LIMIT_TIME, TLimit)

LOCATE(20,52COLUMNA_PRINT) PRNLPRN("SPEED: ")

LOC-ROW(21), SET-PRN( ROUND(MUL(INV(TLimit),LIMIT_TIME),2), " M/S " )

PRNL( MUL(INV(TLimit),100), " M/S" )

LOC-ROW(23) PRN("CONSUMED SET-ROUND(-1PREY:")

LOC-ROW(2324) PRNLPRN(ConsPrey,"CONSUMED PREY:\OFF")

LOC-ROW(24) PRNL(ConsPrey,"\OFF")

LET(CASE-NEGATIVE quit := 1 ){

GOSUB(KILLSOUND)

LOCATE(2,52COLUMNA_PRINT) PRNLPRN("\033[38;5;15mSCORE\OFF")

{SCORE, 4, 52COLUMNA_PRINT} GOSUB( put score )

LOCATE(10,52COLUMNA_PRINT) PRNLPRN("\033[38;5;11mTIME\OFF")

{TIME, 12, 52COLUMNA_PRINT} GOSUB( put time )

LOCATE(26,52COLUMNA_PRINT) SET-ITALIC, PRNL PRN("LEVEL: ",REAL S P E E DLEVEL,"\OFF")

LOC-ROWLOCATE(27,COLUMNA_PRINT) SET-INVERSE, PRNLPRN("SLIVES: N A K E!",lives,"\OFF")

LOCATE(i, j) PRNLPRN( STR-TO-UTF8(CHAR( [ PLUS-ONE(nB), x] CGET(big number) MUL-BY(219) )))

PRNLPRN("\OFF")

[ PLUS-ONE(s) ] // set interval to read element of arrays

LOCATE( posx, posy ), PRN ( STR-TO-UTF8( GET(numL1) ))

PRNLLOC-ROW( PLUS-ONE(posx) ), PRN ( STR-TO-UTF8( GET(numL1numL2) ))

LOCATELOC-ROW( PLUS-ONETWO(posx) ),posy PRN ( STR-TO-UTF8( GET(numL3) ))

PRNLPRN("\OFF")

LOC-ROW(13); PRNLPRN( STR-TO-UTF8(" ▄ ▄▄ ▄ ▄▄ ▄ ▄ "))

LOC-ROW(14); PRNLPRN( STR-TO-UTF8(" █▄▀ █▀ █▄█ █ █ ▀▄▀ "))

LOC-ROW(15); PRNLPRN( STR-TO-UTF8(" ▀ ▀ ▀▀ ▀ ▀ ▀▄▀ ▀ "))

PRNLPRN("\OFF")

LOC-ROW(12); PRNLPRN( STR-TO-UTF8(" ▄▄ ▄ ▄ ▄ ▄▄ "))

LOC-ROW(13); PRNLPRN( STR-TO-UTF8(" █ ▄ █▄█ █ █ █ █▀ "))

LOC-ROW(14); PRNLPRN( STR-TO-UTF8(" ▀▀ ▀ ▀ ▀ ▀ ▀ ▀▀ "))

LOC-ROW(15); PRNLPRN( STR-TO-UTF8(" ▄ ▄ ▄ ▄▄ ▄ "))

LOC-ROW(16); PRNLPRN( STR-TO-UTF8(" █ █ █ █ █▀ █▄▀ "))

LOC-ROW(17); PRNLPRN( STR-TO-UTF8(" ▀ ▀ ▀▀ ▀ ▀ "))

PRNLPRN("\OFF")

@ LOC-ROW(12); PRN(STR-TO-UTF8(" @ "))

@ LOC-ROW(13); PRN(STR-TO-UTF8(" ▄ ▄ ▄ ▄ ▄ ▄▄ @"))

@ LOC-ROW(15); PRN(STR-TO-UTF8(" ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▀ @ TIME"))

@ LOC-ROW(16); PRN(STR-TO-UTF8(" ▄ ▄ ▄▄ ▄▄ ▄▄ @"))

@ LOC-ROW(19); PRN(STR-TO-UTF8(" @ █ █ █ "))

@ ~ LOC-ROW(12); PRN(STR-TO-UTF8(" @ 1.00 M/S"))

@ ~ LOC-ROW(13); PRN(STR-TO-UTF8(" ▄ ▄ ▄ ▄ ▄ ▄▄ @ "))

@ LOC-ROW(15); PRN(STR-TO-UTF8(" ▀ ▀ ▀ ▀ ▀ ▀ ▀ ▀▀ @ 11"))

@ LOC-ROW(16); PRN(STR-TO-UTF8(" ▄ ▄ ▄▄ ▄▄ ▄▄ @"))

@ LOC-ROW(18); PRN(STR-TO-UTF8(" ▀ ▀ ▀▀ ▀▀ ▀▄▀ @ S N A K E!"))

height::Int

width::Int

snake::Vector{CartesianIndex{2}}

food::CartesianIndex{2}

game = NodeObservable(SnakeGame(;width=n,height=n))

text!(scene, score_text, color=:gray, position = @lift((widths($area)[1]/2, widths($area)[2])), textsizefontsize = 50, align = (:center, :top))

on(events(scene).events.keyboardbuttonskeyboardbutton) do but

if ispressed(but,.action == Keyboard.press || but.action == Keyboard.left)repeat

direction[]if but.key == CartesianIndex(-1,0)Keyboard.left

direction[]elseif but.key == CartesianIndex(0,1)Keyboard.up

direction[]elseif but.key == CartesianIndex(0,-1)Keyboard.down

direction[]elseif but.key == CartesianIndex(1,0)Keyboard.right

Implemented smooth (per-pixel) animation on Win32 API (tested on Windows 7 and Windows 11)

rand = "0.8.4"

use randderive_new::Rngnew;

use winsafe::{co, gui, prelude::*, COLORREF, HBRUSH, HPEN, RECT, SIZE};

const STEP: i32 = 3; // px, motion per frame. STEP and FPS determine the smoothness and speed of the animation.

const FPSGCW: u32i32 = 907; // game grid cell width in STEPs

const RATIOID0: i32 = CELLFW / STEP2 * GCW; // starting position id

wnd: gui::WindowMain,

#[new(default) ] snake: Vec<i32>, // [ids_rectrect_ids] where id_rectrect_id = y * TW + x (where x, y: nSTEPs)

id_r#[new(value = "[ID0; 6]")] r: [i32; 6], // ID 6 rectanglesrect to color in next frame (bg, tail, turn, body, food, head)

gap:#[new(default) i32, ] incr: i32, // gap0 in| STEPs-1 between| animation1 and| logic-TW cell| (negativeTW - removeincrement tail)r[head] in next STEP

let [bg, tail, turn, body, food, head] = [0usize0_usize, 1, 2, 3, 4, 5];

size: winsafe::SIZE::new(FIELD_WFW * RATIOGCW * STEP, FIELD_WFW * RATIOGCW * STEP),

move |k| {

let mut ctx = context.borrow_mutborrow();

matchlet (ctx.dir,mut k.char_codeps as= u8winsafe::PAINTSTRUCT::default() {;

let hdc = ctx.wnd.hwnd(Start, bt @ ).BeginPaint(b'&mut ' | 113ps)) => {?;

for (&id, &brush) in *ctx = Context::new(ctx.wndr.cloneiter(), if bt =.zip(&brushes[bg..= b' 'head]) { len } else { 0 });

let [left, top] = ctx.wnd.hwnd().InvalidateRect(None[id % TW, true)?;id // call TW].wm_paintmap(|i| i * STEP - (STEP * GCW + SNAKE_W) with/ erase2);

let rect = RECT ctx.wnd.hwnd().SetTimer(1{ left, 1000top, /right: FPSleft + SNAKE_W, None)?bottom: top + SNAKE_W };

}hdc.SelectObjectBrush(brush)?;

Ok(ctx.wnd.hwnd().EndPaint(&ps))

wnd.on().wm_timerwm_key_down(1, {

letmove cells:|key| Vec<i32> = (1..=FIELD_W){

let new_h =Ok(match (ctx.id_r[head]incr.abs(), + ctxkey.dirchar_code as i32;u8) {

ctx.id_r[body] (0, b' ') => _ = ctx.id_r[head];wnd.hwnd().SetTimer(1, 10, None)?, // Start / Restart

(TW, bt @ (b'A' | b'D')) => ctx.id_r[head]next_incr = new_h;if bt == b'A' { -1 } else { 1 },

if (1, bt @ (b'S' | b'W')) => ctx.gapnext_incr <= 0if bt == b'S' { TW } else { -TW },

ctx.id_r[bg]_ => ctx.snake.remove(0);,

ctx.id_r[tail] = ctx.snake[0];})

wnd.on().wm_paintwm_timer(1, move || {

let mut ctx = context.borrowborrow_mut();

let mut psnew_h = winsafe::PAINTSTRUCT::default()ctx.r[head] + ctx.incr;

let(ctx.r[body], hdcctx.r[head]) = (ctx.wnd.hwnd().BeginPaint(&mutr[head], psnew_h)?;

for (&id_rect, &brush) in ctx.id_rr[bg] = ctx.iter()snake.zipremove(&brushes0) {;

hdcctx.SelectObjectBrush(brush)?r[tail] = ctx.snake[0];

let leftctx.r[turn] = id_rect % TW * STEP - (STEP * RATIOctx.snake[GCW +as SNAKE_W)usize / 2];

ctx.gap -= hdcctx.gap.RoundRectsignum();

if ctx.gap == winsafe::RECT0 {

ctx.gap = if new_h == ctx.r[food] { GCW left,} else { -GCW };

let mut snake_cells: Vec<_> = ctx.snake.iter().step_by(GCW as top,usize).collect();

if new_h == ctx.r[food] right: left + SNAKE_W,{

ctx.wnd.hwnd().SetWindowText(&format!("Snake - bottomEaten: top{}", + SNAKE_W,snake_cells.len()))?;

},snake_cells.sort();

ROUNDING,ctx.r[food] = *(grid.iter())

ctx.wndsnake.hwndpush().EndPaint(&psnew_h);

if let Err(e) = wnd.run_main(None) {.unwrap();

<syntaxhighlight lang="ecmascriptwren">/* snakeSnake.wren */

<syntaxhighlight lang="c">/* gcc snakeSnake.c -o snakeSnake -lncurses -lwren -lm */

const char* fileName = "snakeSnake.wren";