I was wondering how to make my background black for a game

theshiznat · **Posted:** Mon Nov 03, 2003 4:29 pm

I was wondering how to make my background black instead of white for a skewl project but i dont noe how to change the color of the background

Homer_simpson · **Posted:** Mon Nov 03, 2003 5:44 pm

I would suggest that u use a bmp picture for yer background cuz drawing stuff in turing is very slow...

Blade · **Posted:** Mon Nov 03, 2003 5:46 pm

uhm..

colourback(colour) then clear the screen to update it wiht cls

Andy · **Posted:** Tue Nov 04, 2003 8:59 pm

or just

code:

drawfill(1,1,black)

Tony · **Posted:** Tue Nov 04, 2003 9:12 pm

you can always rely on dodge to come up with the most useless solution to any problem... and it *will* involve whatdotcolor Rolling Eyes

code:

for x:1..maxx
for y:1..maxy
if whatdotcolor(x,y) not= black then
Draw.Dot(x,y,black)
end if
end for
end for

Homer_simpson · **Posted:** Tue Nov 04, 2003 9:21 pm

Homer_simpson wrote:

I would suggest that u use a bmp picture for yer background cuz drawing stuff in turing is very slow...

oops

i thought u wanted to use background images...

AsianSensation · **Posted:** Wed Nov 05, 2003 12:57 am

code:

for y : 0 .. maxy
drawline (0, y, maxx, y, 7)
end for

Tony · **Posted:** Wed Nov 05, 2003 1:07 am

oh yeah?

code:

loop
Draw.Dot(Rand.Int(0,maxx),Rand.Int(0,maxy),black)
end loop

AsianSensation · **Posted:** Wed Nov 05, 2003 8:58 am

that's it, take this

code:

var x, y : int
Draw.FillMapleLeaf (0, 0, maxx, maxy, black)

loop
x := Rand.Int (0, maxx)
y := Rand.Int (0, maxy)
if whatdotcolor (x, y) not= 7 then
drawfill (x, y, 7, 7)
end if
end loop

Tony · **Posted:** Wed Nov 05, 2003 9:56 am

ohh

you're good. But not good enough Twisted Evil

code:

var x,y:int
loop
x:=Rand.Int(0,maxx)
y:=Rand.Int(0,maxy)
if whatdotcolor (x,y) not= black then
Draw.FillMapleLeaf (x, y, x+1, y+1, black)
end if
end loop

Mazer · **Posted:** Wed Nov 05, 2003 4:50 pm

this looks like a challenge to me... Twisted Evil

code:

process makemyscreengoblack (x, y : int)
var xcoordinate, ycoordinate : int
xcoordinate := 0
ycoordinate := 0

loop
xcoordinate := xcoordinate + 1
if xcoordinate = x then
exit
end if
end loop
loop
ycoordinate := ycoordinate + 1
if ycoordinate = y then
exit
end if
end loop

drawdot (x, y, black)
end makemyscreengoblack

var x, y : int
x := 0
y := 0

loop
x := x + 1

if x = maxx then
x := 0
y := y + 1
end if
if y = maxy then
exit
end if

fork makemyscreengoblack (x, y)
end loop

uh... we were going for efficiency, right?

PS: sorry, Catalyst.

AsianSensation · **Posted:** Thu Nov 06, 2003 2:13 pm

Eventually.....

code:

var chars : array char of boolean
var x, y := 0

loop
Input.KeyDown (chars)
if chars (KEY_RIGHT_ARROW) then
x += 1
end if
if chars (KEY_LEFT_ARROW) then
x -= 1
end if
if chars (KEY_UP_ARROW) then
y += 1
end if
if chars (KEY_DOWN_ARROW) then
y -= 1
end if

drawfillbox (x, y, x + 5, y + 5, black)
delay (20)
end loop

Tony · **Posted:** Thu Nov 06, 2003 7:32 pm

although back in the day...

code:

var c:string(1)

for x:1..maxx by 5
for y:1..maxy by 5
locate(1,1)
put "would you like to color (",x,",",y,")"
getch(c)
if c="y" or c="Y" then
Draw.FillBox(x,y,x+5,y+5,black)
end if
end for
end for

drumersrule123 · **Posted:** Fri Dec 12, 2003 8:02 pm

why dont u just use

setscreen("graphics:vga")

Andy · **Posted:** Fri Dec 12, 2003 8:34 pm

cuz no body uses turing 3

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members