1 const float SNAKE_TURN_MOVE = 0x0100; // the snake is moving, player must control it
2 const float SNAKE_TURN_LOSS = 0x0200; // they did it?!
3 const float SNAKE_TURN_WAIT = 0x0400; // the snake is waiting for the player to make their first move and begin the game
4 const float SNAKE_TURN_TYPE = 0x0f00; // turn type mask
6 const int SNAKE_SF_PLAYERSCORE = MINIG_SF_CUSTOM;
8 const int SNAKE_LET_CNT = 15;
9 const int SNAKE_NUM_CNT = 15;
11 const int SNAKE_TILE_SIZE = 15;
13 const int SNAKE_DELAY_INITIAL = 0.7;
19 .float snake_nextmove;
22 // find same game piece given its tile name
23 entity snake_find_piece(entity minig, string tile)
26 while ( ( e = findentity(e,owner,minig) ) )
27 if ( e.classname == "minigame_board_piece" && e.netname == tile )
32 // find same game piece given its cnt
33 entity snake_find_cnt(entity minig, int tile)
36 while ( ( e = findentity(e,owner,minig) ) )
37 if ( e.classname == "minigame_board_piece" && e.cnt == tile )
42 // check if the tile name is valid (15x15 grid)
43 bool snake_valid_tile(string tile)
47 int number = minigame_tile_number(tile);
48 int letter = minigame_tile_letter(tile);
49 return 0 <= number && number < SNAKE_NUM_CNT && 0 <= letter && letter < SNAKE_LET_CNT;
52 void snake_new_mouse(entity minigame)
54 RandomSelection_Init();
55 for(int i = 0; i < SNAKE_LET_CNT; ++i)
56 for(int j = 0; j < SNAKE_NUM_CNT; ++j)
58 string pos = minigame_tile_buildname(i, j);
59 if(!snake_find_piece(minigame, pos))
60 RandomSelection_Add(world, 0, pos, 1, 1);
63 entity piece = msle_spawn(minigame,"minigame_board_piece");
65 piece.netname = strzone(RandomSelection_chosen_string);
66 minigame_server_sendflags(piece,MINIG_SF_ALL);
68 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
71 void snake_setup_pieces(entity minigame)
73 int targnum = bound(1, floor(random() * SNAKE_NUM_CNT), SNAKE_NUM_CNT - 1);
74 int targlet = bound(1, floor(random() * SNAKE_LET_CNT), SNAKE_LET_CNT - 1);
76 entity piece = msle_spawn(minigame,"minigame_board_piece");
77 piece.team = 1; // init default team?
78 piece.netname = strzone(minigame_tile_buildname(targlet,targnum));
80 minigame_server_sendflags(piece,MINIG_SF_ALL);
82 minigame.snake_head = piece;
84 snake_new_mouse(minigame);
86 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
89 void snake_add_score(entity minigame, int thescore)
94 if(minigame.minigame_players)
96 minigame.minigame_players.snake_score += thescore;
97 minigame.minigame_players.SendFlags |= SNAKE_SF_PLAYERSCORE;
102 void snake_move_body(entity minigame, bool ate_mouse)
105 string tailpos = string_null;
106 vector taildir = '0 0 0';
109 for(i = (SNAKE_NUM_CNT * SNAKE_LET_CNT); i >= 2; --i)
111 entity piece = snake_find_cnt(minigame, i);
112 entity nextpiece = snake_find_cnt(minigame, i - 1);
121 tailpos = piece.netname;
122 taildir = piece.snake_dir;
125 if(piece.netname) { strunzone(piece.netname); }
126 piece.netname = strzone(nextpiece.netname);
127 piece.snake_dir = nextpiece.snake_dir;
128 minigame_server_sendflags(piece, MINIG_SF_ALL);
134 tail = minigame.snake_head;
135 tailpos = minigame.snake_head.netname;
136 taildir = minigame.snake_head.snake_dir;
139 if(tail && ate_mouse)
141 int newcnt = tail.cnt + 1;
142 minigame.snake_delay = max(0.1, SNAKE_DELAY_INITIAL - (newcnt / 100));
143 snake_add_score(minigame, 1);
145 entity piece = msle_spawn(minigame,"minigame_board_piece");
148 piece.snake_dir = taildir;
149 piece.netname = strzone(tailpos);
150 minigame_server_sendflags(piece,MINIG_SF_ALL);
152 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
156 void snake_move_head(entity minigame)
158 entity head = minigame.snake_head;
160 int myx = minigame_tile_letter(head.netname);
161 int myy = minigame_tile_number(head.netname);
163 myx += minigame.snake_dir_x;
164 myy += minigame.snake_dir_y;
166 string newpos = minigame_tile_buildname(myx, myy);
168 if(!snake_valid_tile(newpos) || (snake_find_piece(minigame, newpos)).cnt)
170 minigame.minigame_flags = SNAKE_TURN_LOSS;
171 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
175 bool ate_mouse = false;
176 entity piece = snake_find_piece(minigame, newpos);
177 if(piece && !piece.cnt)
180 // move the body first, then set the new head position?
181 snake_move_body(minigame, ate_mouse);
185 if(piece.netname) { strunzone(piece.netname); }
188 snake_new_mouse(minigame);
191 if(head.netname) { strunzone(head.netname); }
192 head.netname = strzone(newpos);
193 minigame_server_sendflags(head,MINIG_SF_ALL);
197 void snake_move(entity minigame, entity player, string dxs, string dys )
199 if ( (minigame.minigame_flags & SNAKE_TURN_MOVE) || (minigame.minigame_flags & SNAKE_TURN_WAIT) )
202 //if ( snake_valid_tile(pos) )
203 //if ( snake_find_piece(minigame, pos) )
205 int dx = ((dxs) ? stof(dxs) : 0);
206 int dy = ((dys) ? stof(dys) : 0);
208 int myl = minigame_tile_letter(minigame.snake_head.netname);
209 int myn = minigame_tile_number(minigame.snake_head.netname);
211 entity head = snake_find_piece(minigame, minigame_tile_buildname(myl + dx, myn + dy));
212 if(head && head.cnt == 2)
215 if(minigame.minigame_flags & SNAKE_TURN_WAIT)
216 minigame.snake_nextmove = time;
217 minigame.minigame_flags = SNAKE_TURN_MOVE;
218 minigame.snake_dir_x = dx;
219 minigame.snake_dir_y = dy;
220 minigame.snake_dir_z = 0;
221 minigame.snake_head.snake_dir = minigame.snake_dir;
222 minigame_server_sendflags(minigame.snake_head,MINIG_SF_UPDATE);
223 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
231 // required function, handle server side events
232 int snake_server_event(entity minigame, string event, ...)
238 snake_setup_pieces(minigame);
239 minigame.snake_delay = SNAKE_DELAY_INITIAL;
240 minigame.minigame_flags = SNAKE_TURN_WAIT;
246 while( (e = findentity(e, owner, minigame)) )
247 if(e.classname == "minigame_board_piece")
249 if(e.netname) { strunzone(e.netname); }
252 minigame.snake_head = world;
257 int pl_num = minigame_count_players(minigame);
259 // Don't allow more than 1 player
260 // not sure if this should be a multiplayer game (might get crazy)
261 if(pl_num >= 1) { return false; }
268 if(minigame.minigame_flags & SNAKE_TURN_MOVE)
269 if(time >= minigame.snake_nextmove)
271 snake_move_head(minigame);
272 minigame.snake_nextmove = time + minigame.snake_delay;
281 snake_move(minigame, ...(0,entity), ((...(1,int)) >= 2 ? argv(1) : string_null), ((...(1,int)) == 3 ? argv(2) : string_null));
289 entity sent = ...(0,entity);
291 if ( sent.classname == "minigame_board_piece" && (sf & MINIG_SF_UPDATE) )
293 WriteByte(MSG_ENTITY,sent.cnt);
294 WriteCoord(MSG_ENTITY,sent.snake_dir_x);
295 WriteCoord(MSG_ENTITY,sent.snake_dir_y);
297 else if ( sent.classname == "minigame_player" && (sf & SNAKE_SF_PLAYERSCORE ) )
299 WriteLong(MSG_ENTITY,sent.snake_score);
311 vector snake_boardpos; // HUD board position
312 vector snake_boardsize;// HUD board size
314 // Required function, draw the game board
315 void snake_hud_board(vector pos, vector mySize)
317 minigame_hud_fitsqare(pos, mySize);
318 snake_boardpos = pos;
319 snake_boardsize = mySize;
321 minigame_hud_simpleboard(pos,mySize,minigame_texture("snake/board"));
323 vector tile_size = minigame_hud_denormalize_size('1 1 0' / SNAKE_TILE_SIZE,pos,mySize);
328 for(i = (SNAKE_NUM_CNT * SNAKE_LET_CNT); i >= 2; --i)
330 entity piece = snake_find_cnt(active_minigame, i);
339 FOREACH_MINIGAME_ENTITY(e)
341 if ( e.classname == "minigame_board_piece" )
343 tile_pos = minigame_tile_pos(e.netname,SNAKE_NUM_CNT,SNAKE_LET_CNT);
344 tile_pos = minigame_hud_denormalize(tile_pos,pos,mySize);
345 string thepiece = "snake/mouse";
347 thepiece = "snake/body";
348 if(tail && e.cnt == tail.cnt)
349 thepiece = "snake/tail";
352 int dx = minigame_tile_letter(e.netname) + e.snake_dir_x;
353 int dy = minigame_tile_number(e.netname) + e.snake_dir_y;
354 entity mouse = snake_find_piece(active_minigame, minigame_tile_buildname(dx, dy));
355 thepiece = "snake/head";
356 if(mouse && !mouse.cnt)
357 thepiece = "snake/feed";
360 minigame_drawpic_centered( tile_pos,
361 minigame_texture(thepiece),
362 tile_size, '1 1 1', panel_fg_alpha, DRAWFLAG_NORMAL );
366 if ( active_minigame.minigame_flags & SNAKE_TURN_LOSS )
369 FOREACH_MINIGAME_ENTITY(e)
370 if(e.classname == "minigame_player")
371 scores = e.snake_score;
373 vector winfs = hud_fontsize*2;
375 scores_text = strcat("Score: ", ftos(scores));
377 vector win_pos = pos+eY*(mySize_y-winfs_y)/2;
379 win_sz = minigame_drawcolorcodedstring_wrapped(mySize_x,win_pos,
380 sprintf("Game over! %s", scores_text),
381 winfs, 0, DRAWFLAG_NORMAL, 0.5);
383 drawfill(win_pos-eY*hud_fontsize_y,win_sz+2*eY*hud_fontsize_y,'0.3 0.3 1',0.8,DRAWFLAG_ADDITIVE);
385 minigame_drawcolorcodedstring_wrapped(mySize_x,win_pos,
386 sprintf("Game over! %s", scores_text),
387 winfs, panel_fg_alpha, DRAWFLAG_NORMAL, 0.5);
392 // Required function, draw the game status panel
393 void snake_hud_status(vector pos, vector mySize)
397 ts = minigame_drawstring_wrapped(mySize_x,pos,active_minigame.descriptor.message,
398 hud_fontsize * 2, '0.25 0.47 0.72', panel_fg_alpha, DRAWFLAG_NORMAL,0.5);
403 vector player_fontsize = hud_fontsize * 1.75;
404 ts_y = ( mySize_y - 2*player_fontsize_y ) / 2;
407 vector tile_size = '48 48 0';
410 drawfill(mypos,eX*mySize_x+eY*player_fontsize_y,'1 1 1',0.5,DRAWFLAG_ADDITIVE);
411 mypos_y += player_fontsize_y;
412 drawfill(mypos,eX*mySize_x+eY*tile_size_y,'1 1 1',0.25,DRAWFLAG_ADDITIVE);
415 FOREACH_MINIGAME_ENTITY(e)
417 if ( e.classname == "minigame_player" )
420 minigame_drawcolorcodedstring_trunc(mySize_x,mypos,
421 GetPlayerName(e.minigame_playerslot-1),
422 player_fontsize, panel_fg_alpha, DRAWFLAG_NORMAL);
424 mypos_y += player_fontsize_y;
426 // minigame_texture("snake/piece"),
427 // tile_size, '1 0 0', panel_fg_alpha, DRAWFLAG_NORMAL );
429 //mypos_x += tile_size_x;
431 drawstring(mypos,ftos(e.snake_score),tile_size,
432 '0.7 0.84 1', panel_fg_alpha, DRAWFLAG_NORMAL);
437 // Turn a set of flags into a help message
438 string snake_turn_to_string(int turnflags)
440 if ( turnflags & SNAKE_TURN_LOSS )
441 return _("Game over!");
443 if ( turnflags & SNAKE_TURN_WAIT )
444 return _("Press an arrow key to begin the game");
446 if ( turnflags & SNAKE_TURN_MOVE )
447 return _("Avoid the walls and the snake's body, collect the mice!");
452 // Make the correct move
453 void snake_set_direction(entity minigame, int dx, int dy)
455 //if ( minigame.minigame_flags == SNAKE_TURN_MOVE )
457 minigame_cmd("move ",ftos(dx), " ", ftos(dy));
461 // Required function, handle client events
462 int snake_client_event(entity minigame, string event, ...)
468 minigame.message = snake_turn_to_string(minigame.minigame_flags);
473 //if((minigame.minigame_flags & SNAKE_TURN_TEAM) == minigame_self.team)
475 switch ( ...(0,int) )
478 case K_KP_RIGHTARROW:
479 snake_set_direction(minigame, 1, 0);
483 snake_set_direction(minigame, -1, 0);
487 snake_set_direction(minigame, 0, 1);
491 snake_set_direction(minigame, 0, -1);
498 case "network_receive":
500 entity sent = ...(0,entity);
502 if ( sent.classname == "minigame" )
504 if ( sf & MINIG_SF_UPDATE )
506 sent.message = snake_turn_to_string(sent.minigame_flags);
507 //if ( sent.minigame_flags & minigame_self.team )
511 else if(sent.classname == "minigame_board_piece")
513 if(sf & MINIG_SF_UPDATE)
515 sent.cnt = ReadByte();
516 sent.snake_dir_x = ReadCoord();
517 sent.snake_dir_y = ReadCoord();
518 sent.snake_dir_z = 0;
520 minigame.snake_head = sent; // hax
523 else if ( sent.classname == "minigame_player" && (sf & SNAKE_SF_PLAYERSCORE ) )
525 sent.snake_score = ReadLong();