Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB   Username:   Password: Wiki   Blog   Search   Turing   Chat Room  Members
CONNECT FOUR GAME
Author Message
Deeps of Hell

Posted: Thu Jun 05, 2003 10:01 am   Post subject: CONNECT FOUR GAME

 code: setscreen ("graphics:vga") var brd : array 1 .. 8, 1 .. 8 of string (25) var name : array 1 .. 2 of string (15) var matt : array 1 .. 2 of string (5) var n : array 1 .. 8 of int var pl, r, c, ct, mc, d1, d2, ht, k, blah : int var p : array 1 .. 8 of int var gameover, ok : boolean procedure setup     for j : 1 .. 8         for k : 1 .. 8             brd (j, k) := "     "         end for     end for     for j : 1 .. 8         n (j) := 8     end for     pl := 1     color (red)     matt (1) := "  X  "     color (black)     matt (2) := "  O  " end setup procedure intro     for j : 1 .. 2         put "please input name ", j         get name (j)     end for end intro procedure display     cls     for j : 1 .. 8         for k : 1 .. 8             if k < 8 then                 put brd (j, k), "|" ..             else                 put brd (j, k)             end if         end for         if j < 8 then             put "-----------------------------------------------"         end if     end for end display procedure switch     if pl = 1 then         pl := 2     else         pl := 1     end if end switch procedure check     ok := true     if c > 8 or c < 1 then         ok := false         put name (pl), "please input numbers between 1->8 ONLY"     end if     if ok and n (c) > 0 then         brd (n (c), c) := matt (pl)         n (c) := n (c) - 1     else         ok := false         put "pick a column that has room"     end if end check procedure gamedone     for j : 1 .. 8         ht := 0         for k : 1 .. 8             if brd (j, k) = matt (pl) then                 ht := ht + 1                 if ht = 4 then                     gameover := true                 end if             else                 ht := 0             end if         end for     end for     for j : 1 .. 8         ht := 0         for k : 1 .. 8             if brd (k, j) = matt (pl) then                 ht := ht + 1                 if ht = 4 then                     gameover := true                 end if             else                 ht := 0             end if         end for     end for     ct := 0     ht := 0     for d : 1 .. 5         ct := ct + 1         k := 0         for j : ct .. 8             k := k + 1             if brd (j, k) = matt (pl) then                 ht := ht + 1                 if ht = 4 then                     gameover := true                 end if             else                 ht := 0             end if         end for     end for     ht := 0     ct := 9     for d : 1 .. 5         ct := ct - 1         k := 9         for decreasing j : ct .. 1             k := k - 1             if brd (j, k) = matt (pl) then                 ht := ht + 1                 if ht = 4 then                     gameover := true                 end if             else                 ht := 0             end if         end for     end for     ct := 0     ht := 0     for d : 1 .. 5         ct := ct + 1         k := 9         for j : ct .. 8             k := k - 1             if brd (k, j) = matt (pl) then                 ht := ht + 1                 if ht = 4 then                     gameover := true                 end if             else                 ht := 0             end if         end for     end for     ht := 0     ct := 9     for d : 1 .. 5         ct := ct - 1         k := 0         for decreasing j : ct .. 1             k := k + 1             if brd (j, k) = matt (pl) then                 ht := ht + 1                 if ht = 4 then                     gameover := true                 end if             else                 ht := 0             end if         end for     end for end gamedone gameover := false setup intro display loop     loop         put "  1     2     3     4     5     6     7     8"         put name (pl), " input a col number"         get c         check         exit when ok     end loop     display     gamedone     exit when gameover     switch end loop
Sponsor
Sponsor

Prince

Posted: Thu Jun 05, 2003 10:16 am   Post subject: (No subject)

pretty cool game... not bein a mod i dont hav unlimited bits to give away but if i could i would giv u 10 bits
Tony

Posted: Thu Jun 05, 2003 1:04 pm   Post subject: (No subject)

simple, but works

Next step would be to use some graphics and move away from typing controls... Have players use mouse instead. Then perhaps even an animation of falling piece 8)

Ether way +10 Bits
Tony's programming blog. DWITE - a programming contest.
PaddyLong

Posted: Thu Jun 05, 2003 3:26 pm   Post subject: (No subject)

mine's posted in this thread with AI and stuff it was my final project for grade 11 computer science
The Stuff

Posted: Mon Jan 12, 2004 10:28 pm   Post subject: (No subject)

what does the n in the proram do?
Thuged_Out_G

Posted: Tue Jan 13, 2004 3:13 pm   Post subject: (No subject)

whats the point of having a submissions and a source code forum...if people are just going to post their source code in the submissions forum
Cervantes

Posted: Tue Jan 13, 2004 4:18 pm   Post subject: (No subject)

submissions can be for either... source code = pure code

GJ i like it..
btw tony, those graphics own
shorthair

Posted: Tue Jan 13, 2004 7:02 pm   Post subject: (No subject)

What does taht guy mean he cant give 10 bits HE HAS 400 , give him some bits dude ,

+ bits for an awsome program
Sponsor
Sponsor

the_short1

Posted: Tue Jan 20, 2004 8:35 pm   Post subject: (No subject)

Great job.... play it when my teacher is talking endlessly about stuff i already know... +1 Bit.. i saving for title glow... so icant give more...
kalin

Posted: Wed Jan 21, 2004 4:06 pm   Post subject: (No subject)

Cool. Its cool. And question, what is the point of bits anyway??? I"m lost on that..
shorthair

Posted: Wed Jan 21, 2004 4:12 pm   Post subject: (No subject)

Its in the FAQ , but a brief overview would be , you get them for good programs , 2 for posting a message ,and 1 for a thread , you can use them to buy name effects ( colors ) and you can buy tech stuff aswell , i bought an email at compsci , also you can give the m to people for good programs , the more you give the more you recieve ( its true ive seen it in action)
kalin

Posted: Wed Jan 21, 2004 4:14 pm   Post subject: (No subject)

Well, alright.....I kinda get what you're saying....I think the FaQ will cover it better...well more...umm, I'll shut up
romper

Posted: Tue Jun 15, 2004 11:49 pm   Post subject: (No subject)

myn is here
http://www.compsci.ca/v2/viewtopic.php?p=51823#51823
the_short1

Posted: Wed Jun 16, 2004 9:57 pm   Post subject: (No subject)

for one ... u brought up a realy old post..... once its past the first 2 pages.... read and download the progs... but norm us compsciers dont like seing it come back up..

second... please
dont 'plug' your programs is other's threads...

i used to get bitched at for that... *when i was new to compsci...
.so i thought i would pass on that before the others (Asian s, Mazer, otherS) get mad....

Thanks
king_boby

Posted: Mon Jun 21, 2004 3:11 pm   Post subject: (No subject)

it has an error as soon as i run it........
 Display posts from previous: All Posts1 Day7 Days2 Weeks1 Month3 Months6 Months1 Year Oldest FirstNewest First

Page 1 of 2  [ 16 Posts ]
Goto page 1, 2  Next
 Jump to:  Select a forum  CompSci.ca ------------ - Network News - General Discussion     General Forums   -----------------   - Hello World   - Featured Poll   - Contests     Contest Forums   -----------------   - DWITE   - [FP] Contest 2006/2008   - [FP] 2005/2006 Archive   - [FP] 2004/2005 Archive   - Off Topic     Lounges   ---------   - User Lounge   - VIP Lounge     Programming -------------- - General Programming     General Programming Forums   --------------------------------   - Functional Programming   - Logical Programming   - C     C   --   - C Help   - C Tutorials   - C Submissions   - C++     C++   ----   - C++ Help   - C++ Tutorials   - C++ Submissions   - Java     Java   -----   - Java Help   - Java Tutorials   - Java Submissions   - Ruby     Ruby   -----   - Ruby Help   - Ruby Tutorials   - Ruby Submissions   - Turing     Turing   --------   - Turing Help   - Turing Tutorials   - Turing Submissions   - PHP     PHP   ----   - PHP Help   - PHP Tutorials   - PHP Submissions   - Python     Python   --------   - Python Help   - Python Tutorials   - Python Submissions   - Visual Basic and Other Basics     VB   ---   - Visual Basic Help   - Visual Basic Tutorials   - Visual Basic Submissions     Education ----------- - Student Life   Graphics and Design ----------------------- - Web Design     Web Design Forums   ---------------------   - (X)HTML Help   - (X)HTML Tutorials   - Flash MX Help   - Flash MX Tutorials   - Graphics     Graphics Forums   ------------------   - Photoshop Tutorials   - The Showroom   - 2D Graphics   - 3D Graphics     Teams ------ - dTeam Public

 Style: Appalachia blueSilver eMJay subAppalachia subBlue subCanvas subEmjay subGrey subSilver subVereor Search: