Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

The 20 Line Challenge / 18 on-screen lines mega-scroller...

Author
Message
Kendon
21
Years of Service
User Offline
Joined: 14th Oct 2002
Location:
Posted: 27th Oct 2002 15:45
Hi ev'rybody... I just bought the 3D gamemaker that came out with v1.9 DarkBasic (not DB Pro) and I absolutely participate to the challenge, therefore I coded this scroller with one sentence replicated 100 times that run smooth, and regenerate when they go offscreen, so there is continuously 100 times the message... I join the code, tell me what you think about it... Cya, Kendon.

`
`
`
`


set display mode 640,480,16 : sync on : hide mouse : cls 0 : dim di(100,2)
dim pos(100,2) : dim spid(100) : dim cc(100) : for li=1 to 5 : dim a$(5)
perform checklist for fonts : a$(li)=text font$() : next li : li=int(rnd(4)+1)
t$="DarkBasic is good for you" : set text font a$(li) : set text transparent
set text size 40 : for i=1 to 25 : b$=mid$(t$,i) : tw=tw+text width(b$)
th=text height(b$) : next i : for scc=1 to 100 : cc=rnd(1675515)+10 : ink cc,0
text 0,0,t$ : get image scc,0,0,tw*2.35,th*2.5,1 : next scc : autocam off
set current bitmap 0 : for ra=1 to 100 : backdrop on : color backdrop 0
make object plain ra,tw*5,th*5 : texture object ra,ra : paste image ra,(320-(tw/2)),(240-(tw/2)),1
position object ra,0,1,0 : ghost object on ra,0 : position camera 0,700,0
point camera 0,0,0 : xrotate object ra,90 : next ra : for ri=1 to 100
spid(ri)=rnd(16)+1 : preposx=840 : pos(ri,1)=preposx : pos(ri,2)=rnd(800)-390
next ri : do : for no=1 to 100 : position object no,pos(no,1),1,pos(no,2)
pos(no,1)=pos(no,1)-spid(no) : if pos(no,1)
Khumba
21
Years of Service
User Offline
Joined: 1st Sep 2002
Location:
Posted: 27th Oct 2002 16:49
I don't think it posted right...

Login to post a reply

Server time is: 2024-04-16 13:51:17
Your offset time is: 2024-04-16 13:51:17