Snake: Difference between revisions

cursor 1,formid 1

printformtext "Score: ", score

40 pen 3:print string$(40,w$);

70 locate 1011, 1211:print string$(20,w$);

190 if a$=f$ then sound 2,62500/500,10: sound 12,62500/1000,10: sound 42,62500/2000,10:p=p+100:print " ";:gosub 260:if ll<ml then ll=ll+1

210 for i=1 to skill:frame:next

250 sx=nx:sy=ny:goto 90140

290 pen 1:print f$;

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

rand = "0.8.4"

use rand::{thread_rng, Rng};

use winsafe::{co, gui, prelude::*, COLORREF, HBRUSH, HPEN, HWNDRECT, 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

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

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

#[new(default) ] gap: i32, // gapinterval in STEPs betweento animationthe andnext logicgrid cell; (negative - remove tail) clipping mark

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

let mut ctx = context.borrow_mutborrow();

let hdc = ctx.wnd.hwnd().BeginPaint(&mut ps)?;

for (&id_rectid, &brush) in ctx.id_rr.iter().zip(&brushes[bg..=head]) {

let left = id_rect % TW * STEP -hdc.RoundRect(rect, SIZE::new(STEPSNAKE_W */ RATIO +2, SNAKE_W) / 2))?;

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

move |kkey| {

Ok(match (ctx.dirincr.abs(), kkey.char_code as u8) {

(Start0, bt @ (b' ') |=> 113_ = ctx.wnd.hwnd().SetTimer(1, 10, None)?, =>// Start / {Restart

(TW, bt @ (b'A' | b'D')) => ctx.next_incr = if bt == 113b'A' { -1 } else { 1 },

(1, bt @ (b'S' | b'W')) => ctx.snake.clear()next_incr //= 113if bt == F2b'S' { TW } key:else restart{ without-TW save},

})

let new_h = ctx.id_rr[head] + ctx.dir as i32incr;

(ctx.id_rr[body], ctx.r[head]) = (ctx.id_rr[head], new_h);

ctx.id_rr[bg] = ctx.snake.remove(0);

ctx.id_rr[tail] = ctx.snake[0];

ctx.id_rr[turn] = ctx.snake[RATIOGCW as usize / 2];

letctx.gap hw= if new_h == ctx.hwndr[food] { GCW } else { -GCW };

let eatmut =snake_cells: new_hVec<_> == ctx.id_r[food]snake.iter().step_by(GCW as usize).collect();

letif mut snk_cells: Vec<_>new_h == ctx.snake.iter().step_by(RATIOr[food] as usize).collect();{

hwsnake_cells.KillTimersort(1)?;

hwctx.SetWindowTextr[food] = *(&(hwgrid.GetWindowTextiter()? + " Restart: F2 (with save - Space)"))?;

*ctx = Context::new(hw, vec![STARTCELL; ctx.snake.lenfilter()|i| -**i RATIO!= asnew_h usize]&& snake_cells.binary_search(i).is_err());

ctx.dirincr = ctx.ordered_dirnext_incr;

ctx.wnd.hwnd().InvalidateRect(None, falsenew_h == ID0)?; // call .wm_paint(), withoutwith erase on Restart

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";