-----------------------------------

splik

Thu Mar 08, 2007 12:12 pm


First Game I Ever Made

-----------------------------------

its an incredibly simple game where you have to use your mouse to catch the falling eyeballs in your cauldron.
highscores are erased when you leave the game, because i didnt know how to save information at the time.

ill just compy the code onto here because its short

i didnt comment it, but its easy to understand anyway

var x, y, btn, eyebally, vari, droppoint, ran, col, speed, pts, bestscore, lives : int
bestscore := 0
lives := 0
locate (9, 29)
put "Welcome to Eyeball Catcher!"
locate (11, 33)
put "By Tomas Zollinger"
locate (16, 33)
put "Click to continue!"
loop
        mousewhere (x, y, btn)
        if btn = 1 then
                exit
        else
        end if
end loop
loop
        eyebally := 385
        vari := 1
        speed := 4
        pts := 0
        cls
        drawfillbox (1, 370, 640, 400, black)
        loop
                delay (speed)
                mousewhere (x, y, btn)
                drawfillbox (0, 0, 640, 369, white)
                drawfilloval (x, 20, 30, 20, black)
                drawfilloval (x, 28, 28, 15, black)
                drawoval (x, 28, 28, 15, white)
                drawfilloval (x, 25, 25, 10, green)
                randomize
                if vari = 1 then
                        randint (droppoint, 1, 625)
                        randint (ran, 1, 5)
                        if ran = 1 then
                                col := brown
                        elsif ran = 2 then
                                col := brightblue
                        elsif ran = 3 then
                                col := green
                        elsif ran = 4 then
                                col := darkgrey
                        else
                                col := blue
                        end if
                else
                end if
                drawfilloval (droppoint + 15, eyebally, 18, 15, white)
                drawoval (droppoint + 15, eyebally, 18, 15, black)
                drawfilloval (droppoint + 15, eyebally, 9, 9, col)
                drawfilloval (droppoint + 15, eyebally, 5, 5, black)
                vari := 0
                if eyebally < 30 then
                        if droppoint > (x - 28) and droppoint < (x - 6) then
                                pts := pts + 1
                                if pts = 5 then
                                        speed := 3
                                elsif pts = 10 then
                                        speed := 2
                                elsif pts = 20 then
                                        speed := 1
                                elsif pts = 40 then
                                        speed := 00005
                                else
                                end if
                        else
                                exit
                        end if
                        eyebally := 385
                        vari := 1
                else
                        eyebally := eyebally - 1
                end if
        end loop
        locate (9, 32)
        put "You got ", pts, " points!"
        if pts > bestscore then
                locate (10, 29)
                put "You got the best score!"
                bestscore := pts
        else
                locate (10, 34)
                put "Best Score: ", bestscore
        end if
        locate (16, 31)
        put "Click to play again!"
        loop
                mousewhere (x, y, btn)
                if btn = 1 then
                        exit
                else
                end if
        end loop
end loop


-----------------------------------

StealthArcher

Thu Mar 08, 2007 2:40 pm


Re: First Game I Ever Made

-----------------------------------

setscreen("offscreenonly")

var x, y, btn, eyebally, vari, droppoint, ran, col, speed, pts, bestscore, lives : int 
bestscore := 0 
lives := 0 
locate (9, 29) 
put "Welcome to Eyeball Catcher!" 
locate (11, 33) 
put "By Tomas Zollinger" 
locate (16, 33) 
put "Click to continue!" 
View.Update
loop 
mousewhere (x, y, btn) 
if btn = 1 then 
exit 
else 
end if 
end loop 
loop 
eyebally := 385 
vari := 1 
speed := 4 
pts := 0 
cls 
drawfillbox (1, 370, 640, 400, black) 
loop 
delay (speed) 
mousewhere (x, y, btn) 
drawfillbox (0, 0, 640, 369, white) 
drawfilloval (x, 20, 30, 20, black) 
drawfilloval (x, 28, 28, 15, black) 
drawoval (x, 28, 28, 15, white) 
drawfilloval (x, 25, 25, 10, green) 
randomize 
if vari = 1 then 
randint (droppoint, 1, 625) 
randint (ran, 1, 5) 
if ran = 1 then 
col := brown 
elsif ran = 2 then 
col := brightblue 
elsif ran = 3 then 
col := green 
elsif ran = 4 then 
col := darkgrey 
else 
col := blue 
end if 
else 
end if 
drawfilloval (droppoint + 15, eyebally, 18, 15, white) 
drawoval (droppoint + 15, eyebally, 18, 15, black) 
drawfilloval (droppoint + 15, eyebally, 9, 9, col) 
drawfilloval (droppoint + 15, eyebally, 5, 5, black) 
vari := 0 
if eyebally < 30 then 
if droppoint > (x - 28) and droppoint < (x - 6) then 
pts := pts + 1 
if pts = 5 then 
speed := 3 
elsif pts = 10 then 
speed := 2 
elsif pts = 20 then 
speed := 1 
elsif pts = 40 then 
speed := 00005 
else 
end if 
else 
exit 
end if 
eyebally := 385 
vari := 1 
else 
eyebally := eyebally - 1 
end if 
View.Update
end loop 
locate (9, 32) 
put "You got ", pts, " points!" 
if pts > bestscore then 
locate (10, 29) 
put "You got the best score!" 
bestscore := pts 
else 
locate (10, 34) 
put "Best Score: ", bestscore 
end if 
locate (16, 31) 
put "Click to play again!" 
loop 
mousewhere (x, y, btn) 
if btn = 1 then 
exit 
else 
end if 
View.Update
end loop 
end loop


Here is a fix. It flicker less.