1 REGISTER_MINIGAME(ps, "Peg Solitaire");
3 const float PS_TURN_MOVE = 0x0100; // player has to click on a piece on the board
4 const float PS_TURN_WIN = 0x0200; // player has won
5 const float PS_TURN_DRAW = 0x0400; // player can make no more moves
6 const float PS_TURN_TYPE = 0x0f00; // turn type mask
8 const int PS_LET_CNT = 7;
9 const int PS_NUM_CNT = 7;
11 const int PS_TILE_SIZE = 8;
13 // find same game piece given its tile name
14 entity ps_find_piece(entity minig, string tile)
17 while ( ( e = findentity(e,owner,minig) ) )
18 if ( e.classname == "minigame_board_piece" && e.netname == tile )
23 bool ps_draw(entity minigame)
27 while( ( e = findentity(e,owner,minigame) ) )
28 if( e.classname == "minigame_board_piece" )
33 return ((valid > 0) ? true : false);
36 bool ps_tile_blacklisted(string tile)
38 int number = minigame_tile_number(tile);
39 int letter = minigame_tile_letter(tile);
43 else if(number > PS_NUM_CNT - 3)
45 if(letter > PS_LET_CNT - 3)
48 else if(number > PS_NUM_CNT - 3)
54 // check if the tile name is valid (5x5 grid)
55 bool ps_valid_tile(string tile)
59 if(ps_tile_blacklisted(tile))
61 float number = minigame_tile_number(tile);
62 float letter = minigame_tile_letter(tile);
63 return 0 <= number && number < PS_NUM_CNT && 0 <= letter && letter < PS_LET_CNT;
66 // Checks if the given piece completes a row
67 bool ps_winning_piece(entity minigame)
69 //int number = minigame_tile_number(piece.netname);
70 //int letter = minigame_tile_letter(piece.netname);
73 while ( ( e = findentity(e,owner,minigame) ) )
74 if ( e.classname == "minigame_board_piece" )
76 int number = minigame_tile_number(e.netname);
77 int letter = minigame_tile_letter(e.netname);
78 string try = minigame_tile_buildname(letter - 1, number);
79 if(ps_find_piece(minigame,try))
81 try = minigame_tile_buildname(letter - 2, number);
82 if(ps_valid_tile(try) && !ps_find_piece(minigame,try))
83 return false; // a move is valid, abort!
85 try = minigame_tile_buildname(letter + 1, number);
86 if(ps_find_piece(minigame,try))
88 try = minigame_tile_buildname(letter + 2, number);
89 if(ps_valid_tile(try) && !ps_find_piece(minigame,try))
90 return false; // a move is valid, abort!
92 try = minigame_tile_buildname(letter, number - 1);
93 if(ps_find_piece(minigame,try))
95 try = minigame_tile_buildname(letter, number - 2);
96 if(ps_valid_tile(try) && !ps_find_piece(minigame,try))
97 return false; // a move is valid, abort!
99 try = minigame_tile_buildname(letter, number + 1);
100 if(ps_find_piece(minigame,try))
102 try = minigame_tile_buildname(letter, number + 2);
103 if(ps_valid_tile(try) && !ps_find_piece(minigame,try))
104 return false; // a move is valid, abort!
111 void ps_setup_pieces(entity minigame)
114 for(i = 0; i < PS_NUM_CNT; ++i)
115 for(t = 0; t < PS_LET_CNT; ++t)
117 string try = minigame_tile_buildname(i,t);
118 if(!ps_valid_tile(try))
120 if(i == floor(PS_NUM_CNT * 0.5) && t == floor(PS_LET_CNT * 0.5))
121 continue; // middle piece is empty
122 entity piece = msle_spawn(minigame,"minigame_board_piece");
123 piece.team = 1; // init default team?
124 piece.netname = strzone(minigame_tile_buildname(t,i));
125 minigame_server_sendflags(piece,MINIG_SF_ALL);
128 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
131 bool ps_move_piece(entity minigame, entity piece, string pos, int leti, int numb)
135 if(ps_find_piece(minigame, pos))
137 entity middle = ps_find_piece(minigame, minigame_tile_buildname(leti,numb));
141 if(middle.netname) { strunzone(middle.netname); }
144 if(piece.netname) { strunzone(piece.netname); }
145 piece.netname = strzone(pos);
147 minigame_server_sendflags(piece,MINIG_SF_ALL);
153 void ps_move(entity minigame, entity player, string thepiece, string pos )
155 if ( minigame.minigame_flags & PS_TURN_MOVE )
158 if ( ps_valid_tile(pos) )
159 if ( !ps_find_piece(minigame, pos) && ps_find_piece(minigame, thepiece) )
161 entity piece = ps_find_piece(minigame, thepiece);
162 int number = minigame_tile_number(thepiece);
163 int letter = minigame_tile_letter(thepiece);
167 try = minigame_tile_buildname(letter-1,number);
168 if(ps_find_piece(minigame,try))
170 try = minigame_tile_buildname(letter-2,number);
171 if(ps_valid_tile(try) && try == pos)
172 done = ps_move_piece(minigame, piece, pos, letter - 1, number);
174 try = minigame_tile_buildname(letter+1,number);
175 if(!done && ps_find_piece(minigame,try))
177 try = minigame_tile_buildname(letter+2,number);
178 if(ps_valid_tile(try) && try == pos)
179 done = ps_move_piece(minigame, piece, pos, letter + 1, number);
181 try = minigame_tile_buildname(letter,number-1);
182 if(!done && ps_find_piece(minigame,try))
184 try = minigame_tile_buildname(letter,number-2);
185 if(ps_valid_tile(try) && try == pos)
186 done = ps_move_piece(minigame, piece, pos, letter, number - 1);
188 try = minigame_tile_buildname(letter,number+1);
189 if(!done && ps_find_piece(minigame,try))
191 try = minigame_tile_buildname(letter,number+2);
192 if(ps_valid_tile(try) && try == pos)
193 done = ps_move_piece(minigame, piece, pos, letter, number + 1);
197 return; // didn't make a move
199 minigame_server_sendflags(minigame,MINIG_SF_UPDATE);
201 if ( ps_winning_piece(minigame) )
203 if(ps_draw(minigame))
204 minigame.minigame_flags = PS_TURN_DRAW;
206 minigame.minigame_flags = PS_TURN_WIN;
209 minigame.minigame_flags = PS_TURN_MOVE;
217 // required function, handle server side events
218 int ps_server_event(entity minigame, string event, ...)
224 ps_setup_pieces(minigame);
225 minigame.minigame_flags = PS_TURN_MOVE;
231 while( (e = findentity(e, owner, minigame)) )
232 if(e.classname == "minigame_board_piece")
234 if(e.netname) { strunzone(e.netname); }
241 int pl_num = minigame_count_players(minigame);
243 // Don't allow more than 1 player
244 if(pl_num >= 1) { return false; }
255 ps_move(minigame, ...(0,entity), (...(1,int) == 3 ? argv(1) : string_null), (...(1,int) == 3 ? argv(2) : string_null));
269 entity ps_curr_piece; // identifier for the currently selected piece
270 string ps_curr_pos; // identifier of the tile under the mouse
271 vector ps_boardpos; // HUD board position
272 vector ps_boardsize;// HUD board size
274 // Required function, draw the game board
275 void ps_hud_board(vector pos, vector mySize)
277 minigame_hud_fitsqare(pos, mySize);
279 ps_boardsize = mySize;
281 minigame_hud_simpleboard(pos,mySize,minigame_texture("ps/board"));
283 vector tile_size = minigame_hud_denormalize_size('1 1 0' / PS_TILE_SIZE,pos,mySize);
286 bool valid = ps_valid_tile(ps_curr_pos);
287 bool highlight = false;
291 int number = minigame_tile_number(ps_curr_pos);
292 int letter = minigame_tile_letter(ps_curr_pos);
293 try = minigame_tile_buildname(letter-1,number);
294 if(ps_find_piece(active_minigame,try))
296 try = minigame_tile_buildname(letter-2,number);
297 if(ps_valid_tile(try) && !ps_find_piece(active_minigame,try))
300 try = minigame_tile_buildname(letter+1,number);
301 if(ps_find_piece(active_minigame,try))
303 try = minigame_tile_buildname(letter+2,number);
304 if(ps_valid_tile(try) && !ps_find_piece(active_minigame,try))
307 try = minigame_tile_buildname(letter,number-1);
308 if(ps_find_piece(active_minigame,try))
310 try = minigame_tile_buildname(letter,number-2);
311 if(ps_valid_tile(try) && !ps_find_piece(active_minigame,try))
314 try = minigame_tile_buildname(letter,number+1);
315 if(ps_find_piece(active_minigame,try))
317 try = minigame_tile_buildname(letter,number+2);
318 if(ps_valid_tile(try) && !ps_find_piece(active_minigame,try))
322 bool draw_pos = false;
323 if(ps_curr_piece && valid && !ps_find_piece(active_minigame, ps_curr_pos))
326 int numb = minigame_tile_number(ps_curr_piece.netname);
327 int leti = minigame_tile_letter(ps_curr_piece.netname);
329 try = minigame_tile_buildname(leti-1,numb);
330 if(ps_find_piece(active_minigame,try))
332 try = minigame_tile_buildname(leti-2,numb);
333 if(try == ps_curr_pos)
336 try = minigame_tile_buildname(leti+1,numb);
337 if(ps_find_piece(active_minigame,try))
339 try = minigame_tile_buildname(leti+2,numb);
340 if(try == ps_curr_pos)
343 try = minigame_tile_buildname(leti,numb-1);
344 if(ps_find_piece(active_minigame,try))
346 try = minigame_tile_buildname(leti,numb-2);
347 if(try == ps_curr_pos)
350 try = minigame_tile_buildname(leti,numb+1);
351 if(ps_find_piece(active_minigame,try))
353 try = minigame_tile_buildname(leti,numb+2);
354 if(try == ps_curr_pos)
360 FOREACH_MINIGAME_ENTITY(e)
362 if ( e.classname == "minigame_board_piece" )
364 tile_pos = minigame_tile_pos(e.netname,PS_NUM_CNT,PS_LET_CNT);
365 tile_pos = minigame_hud_denormalize(tile_pos,pos,mySize);
367 vector tile_color = '1 1 1';
370 if(e.netname == ps_curr_pos)
371 if(ps_curr_piece.netname != ps_curr_pos)
373 minigame_drawpic_centered( tile_pos,
374 minigame_texture("ps/tile_available"),
375 tile_size, tile_color, panel_fg_alpha, DRAWFLAG_NORMAL );
377 if(e == ps_curr_piece)
379 minigame_drawpic_centered( tile_pos,
380 minigame_texture("ps/tile_selected"),
381 tile_size, tile_color, panel_fg_alpha, DRAWFLAG_ADDITIVE );
384 minigame_drawpic_centered( tile_pos,
385 minigame_texture("ps/piece"),
386 tile_size * 0.8, tile_color, panel_fg_alpha, DRAWFLAG_NORMAL );
392 tile_pos = minigame_tile_pos(ps_curr_pos,PS_NUM_CNT,PS_LET_CNT);
393 tile_pos = minigame_hud_denormalize(tile_pos,pos,mySize);
395 minigame_drawpic_centered(tile_pos,
396 minigame_texture("ps/piece"),
397 tile_size * 0.8, '0.5 0.5 0.5', panel_fg_alpha, DRAWFLAG_NORMAL);
400 if ( ( active_minigame.minigame_flags & PS_TURN_WIN ) || ( active_minigame.minigame_flags & PS_TURN_DRAW ) )
403 FOREACH_MINIGAME_ENTITY(e)
404 if(e.classname == "minigame_board_piece")
407 vector winfs = hud_fontsize*2;
408 string remaining_text;
409 if(active_minigame.minigame_flags & PS_TURN_WIN)
410 remaining_text = "All pieces cleared!";
412 remaining_text = strcat("Remaining pieces: ", ftos(remaining));
414 vector win_pos = pos+eY*(mySize_y-winfs_y)/2;
416 win_sz = minigame_drawcolorcodedstring_wrapped(mySize_x,win_pos,
417 sprintf("Game over! %s", remaining_text),
418 winfs, 0, DRAWFLAG_NORMAL, 0.5);
420 drawfill(win_pos-eY*hud_fontsize_y,win_sz+2*eY*hud_fontsize_y,'1 1 1',0.5,DRAWFLAG_ADDITIVE);
422 minigame_drawcolorcodedstring_wrapped(mySize_x,win_pos,
423 sprintf("Game over! %s", remaining_text),
424 winfs, panel_fg_alpha, DRAWFLAG_NORMAL, 0.5);
429 // Required function, draw the game status panel
430 void ps_hud_status(vector pos, vector mySize)
434 ts = minigame_drawstring_wrapped(mySize_x,pos,active_minigame.descriptor.message,
435 hud_fontsize * 2, '0.25 0.47 0.72', panel_fg_alpha, DRAWFLAG_NORMAL,0.5);
440 vector player_fontsize = hud_fontsize * 1.75;
441 ts_y = ( mySize_y - 2*player_fontsize_y ) / 2;
444 vector tile_size = '48 48 0';
447 drawfill(mypos,eX*mySize_x+eY*player_fontsize_y,'1 1 1',0.5,DRAWFLAG_ADDITIVE);
448 mypos_y += player_fontsize_y;
449 drawfill(mypos,eX*mySize_x+eY*tile_size_y,'1 1 1',0.25,DRAWFLAG_ADDITIVE);
453 FOREACH_MINIGAME_ENTITY(e)
455 if(e.classname == "minigame_board_piece")
461 FOREACH_MINIGAME_ENTITY(e)
463 if ( e.classname == "minigame_player" )
466 minigame_drawcolorcodedstring_trunc(mySize_x,mypos,
467 entcs_GetName(e.minigame_playerslot-1),
468 player_fontsize, panel_fg_alpha, DRAWFLAG_NORMAL);
470 mypos_y += player_fontsize_y;
472 // minigame_texture("ps/piece"),
473 // tile_size, '1 0 0', panel_fg_alpha, DRAWFLAG_NORMAL );
475 //mypos_x += tile_size_x;
477 drawstring(mypos,sprintf(_("Pieces left: %s"), ftos(remaining)),'28 28 0',
478 '0.7 0.84 1', panel_fg_alpha, DRAWFLAG_NORMAL);
483 // Turn a set of flags into a help message
484 string ps_turn_to_string(int turnflags)
486 if (turnflags & PS_TURN_DRAW )
487 return _("No more valid moves");
489 if ( turnflags & PS_TURN_WIN )
490 return _("Well done, you win!");
492 if ( turnflags & PS_TURN_MOVE )
493 return _("Jump a piece over another to capture it");
498 // Make the correct move
499 void ps_make_move(entity minigame)
501 if ( minigame.minigame_flags == PS_TURN_MOVE )
503 entity piece = ps_find_piece(minigame,ps_curr_pos);
504 if(!ps_curr_piece || piece)
505 ps_curr_piece = ps_find_piece(minigame,ps_curr_pos);
508 minigame_cmd("move ", ps_curr_piece.netname, " ", ps_curr_pos);
509 ps_curr_piece = world;
514 void ps_set_curr_pos(string s)
517 strunzone(ps_curr_pos);
523 // Required function, handle client events
524 int ps_client_event(entity minigame, string event, ...)
531 ps_curr_piece = world;
532 minigame.message = ps_turn_to_string(minigame.minigame_flags);
537 //if((minigame.minigame_flags & PS_TURN_TEAM) == minigame_self.team)
539 switch ( ...(0,int) )
542 case K_KP_RIGHTARROW:
544 ps_set_curr_pos("a3");
546 ps_set_curr_pos( minigame_relative_tile(ps_curr_pos,1,0,PS_NUM_CNT,PS_LET_CNT));
551 ps_set_curr_pos("c3");
553 ps_set_curr_pos(minigame_relative_tile(ps_curr_pos,-1,0,PS_NUM_CNT,PS_LET_CNT));
558 ps_set_curr_pos("a1");
560 ps_set_curr_pos(minigame_relative_tile(ps_curr_pos,0,1,PS_NUM_CNT,PS_LET_CNT));
565 ps_set_curr_pos("a3");
567 ps_set_curr_pos(minigame_relative_tile(ps_curr_pos,0,-1,PS_NUM_CNT,PS_LET_CNT));
572 ps_make_move(minigame);
579 case "mouse_pressed":
581 if(...(0,int) == K_MOUSE1)
583 ps_make_move(minigame);
591 vector mouse_pos = minigame_hud_normalize(mousepos,ps_boardpos,ps_boardsize);
592 if ( minigame.minigame_flags == PS_TURN_MOVE )
594 ps_set_curr_pos(minigame_tile_name(mouse_pos,PS_NUM_CNT,PS_LET_CNT));
596 if ( ! ps_valid_tile(ps_curr_pos) )
601 case "network_receive":
603 entity sent = ...(0,entity);
605 if ( sent.classname == "minigame" )
607 if ( sf & MINIG_SF_UPDATE )
609 sent.message = ps_turn_to_string(sent.minigame_flags);
610 if ( sent.minigame_flags & minigame_self.team )