Computer Science Canada

just a picture of a future board game
Author:  r.m_spy [ Sun Jun 08, 2008 7:55 am ]
Post subject:  just a picture of a future board game
setscreen("graphics:max,max")
setscreen("title:Ray's mario party board game")
var x:int:=0
var y:int:=0
var t:int:=0
var c:int:=brightblue
var announceFont : int := Font.New ("Sanserif:12:bold")
procedure CentreFont (s : string, x, y, f, clr : int)
var w : int := Font.Width (s, f)
Font.Draw (s, x - w div 2, y, f, clr)
end CentreFont
y:=20
loop
drawfillbox(20,y+10,maxx-20,y-10,black)
y:=y+80
t:=t+1
exit when t=8
end loop
drawfillbox(maxx-40,20,maxx-20,100,black)
drawfillbox(maxx-40,190,maxx-20,270,black)
drawfillbox(maxx-40,350,maxx-20,430,black)
drawfillbox(maxx-40,510,maxx-20,590,black)
drawfillbox(30,510,10,420,black)
drawfillbox(30,190,10,110,black)
drawfillbox(30,350,10,270,black)
y:=0
t:=0
loop
drawfilloval(x+20,y+20,20,20,c)
x:=x+80
t:=t+1
if t=4 or t=8 or t=12 or t=16 or t=20 or t=24 or t=28 or t=32 or t=36 or t=40 or t=44 or t=48 or t=52 or t=56 or t=60 or t=64 or t=68 or t=72 or t=76 or t=80 or t=84 or t=88 or t=92 or t=96 or t=100 then
c:=brightred
else
c:=brightblue
end if
if t=5 or t=10 or t=15 or t=20 or t=25 or t=30 or t=35 or t=40 or t=45 or t=50 or t=55 or t=60 or t=65 or t=70 or t=75 or t=80 or t=85 or t=90 or t=95 or t=100 then
c:=brightgreen
end if
if t=25 or t=50 or t=75 then
c:=yellow
end if
if t=35 or t=60 or t=85 then
c:=darkgrey
end if
if t=12 or t=24 or t=36 or t=48 or t=72 or t=84 or t=96 then
c:=purple
end if
if x>maxx then
x:=0
y:=y+80
end if
exit when y>maxy-300
end loop
CentreFont("Start",20,20,announceFont,grey)
CentreFont("Fini",20,580,announceFont,grey)
Author:  A.J [ Mon Jun 09, 2008 6:58 pm ]
Post subject:  Re: just a picture of a future board game
looking nice...

post the final version, I'm looking forward to i
Author:  Zampano [ Mon Jun 09, 2008 9:22 pm ]
Post subject:  Re: just a picture of a future board game
code:
if t=4 or t=8 or t=12 or t=16 or t=20 or t=24 or t=28 or t=32 or t=36 or t=40 or t=44 or t=48 or t=52 or t=56 or t=60 or t=64 or t=68 or t=72 or t=76 or t=80 or t=84 or t=88 or t=92 or t=96 or t=100 then

Are you serious?

It happens over and over in the program. Why not:
code:
if t \ 4 = round (t \ 4) then
Author:  CodeMonkey2000 [ Mon Jun 09, 2008 10:37 pm ]
Post subject:  RE:just a picture of a future board game
Better yet
code:
if (t mod 4=0)
Author:  riveryu [ Mon Jun 09, 2008 11:01 pm ]
Post subject:  RE:just a picture of a future board game
If you didnt know already, you can use arrays to store the x and y value of the colorful ovals, so you know where your player is.
Nice drawing though.

:


You can syndicate this boards posts using the file backend.php or view the topic map using sitemap.php.

Terms of Use | Privacy Policy