Trip-Wire

Trip-Wire is a two-player strategy game where the players alternate moves. A player moves by placing a wire between two unused posts on different sides of the board. This new wire may not cross more than one previously placed wire. The object is to be the last player to place a wire.

Source Listing

// // Program: Trip-Wire // Author: Bruce Clark // // Settings Common Int button = 1 Common Int border color = 15 Common Int post color = 7 Common Int select color = 14 Common Int text color = 11 Common Int wire color = 4 // Variables Common Int player, noise = 0, posts = 5 // posts = number of posts per side Int z, y, x = 0 // The program determines whether a post was clicked by checking the color // of what was clicked, which means that unused posts and selected (starting) // posts must have distinct colors. If the settings above are changed so // that this is no longer true, then it reverts to default color settings. If (post color = border color) default @ If (post color = select color) default @ If (post color = text color) default @ If (post color = wire color) default @ If (select color = border color) default @ If (select color = text color) default @ If (select color = wire color) default @ // The main arrays are p[], px[], and py[]: // // px[n] is the x-coordinate for post n // py[n] is the y-coordinate for post n // // there is a wire from post n1 to post n2 when p[n1]=n2 and p[n2]=n1 // post n is unused when p[n]=n // // The post numbering (i.e. the indices for these arrays) is: // (p = number of posts per side) // // 0 to p-1 are the top side posts, from left to right // p to p*2-1 are the right side posts, from top to bottom // p*2 to p*3-1 are the bottom side posts, from right to left // p*3 to p*4-1 are the left side posts, from bottom to top // // i.e. post 0 is the leftmost post on the top side, and the subsequent // posts are in clockwise order set up posts @ Do clear board @ Do show mouse; n = 4 Do k = read key (); If (k > 95) k = k - 32 // convert to upper case y = 0; If (k = 27 Or k = 32 Or k = 47 Or k = 63 Or k = 83) Break If ((k >= 51 And k <= 57) Or (k >= 65 And k <= 75)) Break read mouse (x, y, z) If (bit and (z, button) = 0) n = button If (z = n) Break Loop hide mouse If (k = 27) quit If (k = 47 Or k = 63) instructions @ If (k = 83) refresh sound (1) @ If (k >= 51 And k <= 57 ) refresh posts (k - 48) @ If (k >= 65 And k <= 75 ) refresh posts (k - 55) @ n = get pixel (x, y) If (k = 32 Or n = select color) unselect (post color) @ If (n != post color) Continue n = select (post (x - 160, y)) If (available moves () = 0) Break If (noise != 0 And n = 1) bad move sound @ If (noise != 0 And n = 2) good move sound @ Loop game over @ If (wait key () = 27) quit Loop Int post (Int x, Int y) Common Int first, posts, step If (y <= 17) Return (x - first) / step If (x >= 463) Return posts + (y - first) / step If (y >= 463) Return posts * 3 - 1 - (x - first) / step If (x <= 17) Return posts * 4 - 1 - (y - first) / step Task unselect (Int c) Common Int first post If (first post >= 0) draw post (first post, c) @ first post = -1 Int select (Int n) Common Int p[80], first post, player, posts, select color, wire color If (first post < 0) draw post (n, select color) @ first post = n Return 0 End if a = first post / posts; b = n / posts If (a = b) Return 1 a = min i (first post, n); b = max i (first post, n) If (check move (a, b) = 0) Return 1 p[a] = b; p[b] = a unselect (wire color) @ draw post (n, wire color) @ draw wire (a, b) @ player = 1 - player refresh player @ Return 2 Int check move (Int p1, Int p2) Common Int p[80], posts a = 0 If (p2 - p1 = 1) Return 1 Do b = p1 + 1, p2 - 1 If (p[b] < p1 Or p[b] > p2) If (a = 1) Return 0 a = 1 End if Loop Return 1 Int available moves () Common Int p[80], posts Do a = 0, posts * 2, posts Do b = a, a + posts - 1 Do c = a + posts, posts * 4 - 1 If (p[b] = b And p[c] = c) If (check move (b, c)) Return 1 End if Loop Loop Loop Return 0 Task instructions graph off cls Display "Trip-Wire is a two-player strategy game", Display ", where the players alternate moves. A" Display "player moves by placing a wire between", Display " two unused (gray) posts on different" Display "sides of the board. This new wire ma", Display "y not cross more than one previously" Display "placed wire. The object is to be", Display " the last player to place a wire.\n" Display "Note that the rule is one or fewer wire", Display "s crossed. If two wires are placed to" Display "form an X, there is a point where the tw", Display "o wires cross. If a third wire were to" Display "cross the other two wires at that poi", Display "nt, that still counts as crossing two" Display "wires (which is not a legal move), ev", Display "en though it crosses them at a single" Display "point.\n" Display "To select the first post, click on an u", Display "nused post and it will be highlighted." Display "To select the second post, click on an ", Display "unused post and a wire will be placed," Display "if it is a valid move. To undo the sel", Display "ection of the first post, either click" Display "on the highlighted (first) post or press the space bar.\n" Display "The rules for Trip-Wire appeared on p", Display ". 25 of the June 1993 issue of Games" Display "magazine and were the inspiration for this version.\n" pause refresh @ Task refresh Common Int first post, post color, select color, text color, wire color graph on cls tabxy (3, 3); cwrite ("up", text color, 0) tabxy (1, 9); cwrite ("The sound is ", text color, 0) tabxy (1, 11); cwrite ("KEYS:", text color, 0) tabxy (1, 13); cwrite ("S Turn sound ", text color, 0) tabxy (1, 14); cwrite ("? Instructions", text color, 0) tabxy (1, 15); cwrite ("Esc Quit", text color, 0) tabxy (1, 17); cwrite ("3-9 3-9 posts/side", text color, 0) tabxy (5, 18); cwrite ("(restarts game)", text color, 0) tabxy (1, 20); cwrite ("A-K 10-20 posts/side", text color, 0) tabxy (5, 21); cwrite ("(restarts game)", text color, 0) refresh player @ refresh sound (0) @ Do n = 0, posts * 4 - 1 c = wire color If (p[n] = n) c = post color If (first post = n) c = select color draw post (n, c) @ If (p[n] < n) draw wire (p[n], n) @ Loop Task refresh player Common Int player, text color tabxy (1, 3); cwrite (i to t (1 + player), text color, 0) Task refresh sound (Int n) Common Int noise, text color If (n) noise = bool (noise = 0) tabxy (14, 9); If (noise) cwrite ("on ", text color, 0) Else cwrite ("off", text color, 0) tabxy (16, 13); If (noise) cwrite ("off", text color, 0) Else cwrite ("on ", text color, 0) Task refresh posts (Int n) Common Int posts posts = n set up posts @ clear board @ Task clear board Common Int p[80], first post, player, posts Do n = 0, posts * 4 - 1 p[n] = n Loop first post = -1 player = 0 refresh @ Task game over Common Int noise, player, border color, text color t = " Player " + i to t (2 - player) + " WINS!" tabxy (1, 3); cwrite (t, text color, 0) tabxy (3, 5); cwrite ("Press any key", text color, 0) tabxy (3, 6); cwrite ("to continue", text color, 0) line color (border color) Do n = 0, 2 rectangle (4+n, 16+n, 139-n, 111-n) Loop If (noise) win sound @ Task draw post (Int n, Int c) Common Int px[80], py[80] solid color (c) solid circle (px[n], py[n], 7) Task draw wire (Int p1, Int p2) Common Int px[80], py[80], wire color line color (wire color) line (px[p1], py[p1], px[p2], py[p2]) line (px[p1]+1, py[p1], px[p2]+1, py[p2]) line (px[p1], py[p1]-1, px[p2], py[p2]-1) line (px[p1]-1, py[p1], px[p2]-1, py[p2]) line (px[p1], py[p1]+1, px[p2], py[p2]+1) Task set up posts Common Int px[80], py[80], first, posts, step step = 460 / (posts + 3) first = step * 2 - 7 + (480 - (posts + 3) * step) / 2 Do a = 0, posts - 1 b = first + 7 + step * a c = first + 7 + step * (posts - 1 - a) px[a] = 160 + b; py[a] = 10 px[a + posts] = 630; py[a + posts] = b px[a + posts * 2] = 160 + c; py[a + posts * 2] = 470 px[a + posts * 3] = 170; py[a + posts * 3] = c Loop Task default Common Int border color, post color, select color, text color, wire color border color = 15 post color = 7 select color = 14 text color = 13 wire color = 4 Task bad move sound pop Task good move sound drip Task win sound honk; honk; honk

How To Run The Program If you're feeling ambitious and have nothing better to do, you could just copy the source listing by hand! However, there is a much easier way to do it: Copy the source listing into the Windows Clipboard Paste the Clipboard into a new text document Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2006 SiMPLE CodeWorks, Inc. All rights reserved.