Programming C, C++, Java, PHP, Ruby, Turing, VB
Computer Science Canada 
Programming C, C++, Java, PHP, Ruby, Turing, VB  

Username:   Password: 
 RegisterRegister   
 CONNECT FOUR GAME
Index -> Programming, Turing -> Turing Submissions
Goto page 1, 2  Next
View previous topic Printable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic
Author Message
Deeps of Hell




PostPosted: 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
Sponsor
sponsor
Prince




PostPosted: 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




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

simple, but works Very Happy

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
Latest from compsci.ca/blog: Tony's programming blog. DWITE - a programming contest.
PaddyLong




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

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




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

what does the n in the proram do?
Thuged_Out_G




PostPosted: 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 Confused Rolling Eyes
Cervantes




PostPosted: 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 Very Happy
shorthair




PostPosted: 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
the_short1




PostPosted: 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




PostPosted: 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




PostPosted: 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




PostPosted: 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




PostPosted: 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




PostPosted: 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




PostPosted: 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:   
   Index -> Programming, Turing -> Turing Submissions
View previous topic Tell A FriendPrintable versionDownload TopicRate TopicSubscribe to this topicPrivate MessagesRefresh page View next topic

Page 1 of 2  [ 16 Posts ]
Goto page 1, 2  Next
Jump to:   


Style:  
Search: