Why isn't this code working? - GameCreators Forum

Author

Message

PeeJayGee 2004

20

Years of Service

User Offline

Joined: 31st Jan 2004

Location: TN, USA

Posted: 27th Mar 2008 16:38 Edited at: 27th Mar 2008 16:42

Link

Dear All,

I'm trying to draw boxes on the screen, working from the middle to the outside top and bottom, and rotate the colour through it, like if you were flying into space, if that makes sense, but it draws the boxes but doesn't scroll the colours? What am I doing wrong?

Regards
Paul

+ Code Snippet


for g = 1 to 20
colbars(g) = rgb(rnd(255),rnd(255),rnd(255))
next g

box1x1=0
box1x2 = screen_res_x
box1y1 = (screen_res_y/2)-1
box1y2 = (screen_res_y/2)
box2x1=0
box2x2 = screen_res_x
box2y1 = (screen_res_y/2)+1
box2y2 = (screen_res_y/2)


do
a = spacekey()
if a = 1 then exit
gosub scrollcolours

for g = 1 to 20
ink colbars(g),rgb(0,0,0)
box box1x1,box1y1,box1x2,box1y2
box1y1=box1y1-(g*5)
box1y2=box1y2-(g*2)
ink colbars(g),rgb(0,0,0)
box box2x1,box2y1,box2x2,box2y2
box2y1=box2y1+(g*2)
box2y2=box2y2+(g*5)
next g
sync
loop
end

scrollcolours:
a1 = colbars(1)
for g = 1 to 19
colbars(g) = colbars(g+1)
next g
colbars(20) = a1
return

Don't jump, if you do you will only fall, and hurt yourself

Back to top

Profile PM Website

PeeJayGee 2004

20

Years of Service

User Offline

Joined: 31st Jan 2004

Location: TN, USA

Posted: 27th Mar 2008 16:40 Edited at: 27th Mar 2008 17:21

Link

Doh....

A simple Cls is what is missing.

Don't jump, if you do you will only fall, and hurt yourself

Back to top

Profile PM Website

Ed222

17

Years of Service

User Offline

Joined: 3rd Nov 2007

Location: Calgary

Posted: 27th Mar 2008 18:41 Edited at: 27th Mar 2008 18:41

Link

make sure you have sync on too it really helps

+ Code Snippet

sync on : sync rate 40

Back to top

Profile PM Email

chafari

Valued Member

18

Years of Service

User Offline

Joined: 2nd May 2006

Location: Canary Islands

Posted: 27th Mar 2008 19:38

Link

Hallo PeeJayGee... I had a look to your code...but just a black screen ...I try to mend it and was even worst...I made this short piece of code ... I think, that perhaps you should color object by:

color object( xxx) rgb(rnd(255),rnd(255),rnd(255))

Cheers.

+ Code Snippet

autocam off
sync on
for i= 1 to 1300
make object box i,5,5,5
color object i,rgb(rnd(255),rnd(255),rnd(255))
position object i,-150+rnd(300),rnd(300),rnd(1300)
next i
position camera 80,150,-150
point camera 0,150,0

do
for i= 1 to 1300
if rnd(300)=2
position object i,-150+rnd(300),rnd(300),rnd(1300)
endif
next i

for i= 1 to 1300
zrotate object i,rnd(226)
move object i,-5
next i

sync
loop

oh my god

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Why isn't this code working?