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 / Retro Intro!!!

Author
Message
Giff
20
Years of Service
User Offline
Joined: 27th Aug 2002
Location: Drinking Beer - All Of It!!!
Posted: 5th Oct 2002 20:29
Hi all,

I`ve added all my 20 liners together and now have a small Retro Intro/Demo.

I was going to add a small tune, I`ve found lots of good scratch .mods and .xm`s but don`t have anyway of converting them. Anyone know of any .mods to Midi/Mp3 or .xm`s to Midi/Mp3.

Well here it is....

set display mode 640,480,16
Sync on : Sync Rate 0 : set text font "Arial" : Set text to bold : set text size 32
Text$ = " It started out as a Sin Scroller and Sin Bars and now its a simple 20 line Demo/Intro. I tried putting some stars on and tried to get the top and bottom bars to change colours but the bar colours messed up for some reason, any ideas Rich? Giff!!! I Carn`t foget the usual shouts... Hi to all of DBS, DBDN and all the other forums. "
Type Bar Y Col EndType : Dim Bars(5) as Bar
For Counter = 1 to 5 : Bars(Counter).Y = 100+Counter*50 : Bars(Counter).Col = Counter*100000 : Next Counter
Length = Len(Text$) : Poss = 1 : Offset = 0
Do
For Counter = 1 to 5
Inc Bars(Counter).Y,1
Box 0,(Sin(Bars(Counter).Y)*20)+200,640,(Sin(Bars(Counter).Y)*20)+210,Bars(Counter).Col+100,Bars(Counter).Col,Bars(Counter).Col+100,Bars(Counter).Col
Box 0,(Sin(Bars(Counter).Y)*20)+210,640,(Sin(Bars(Counter).Y)*20)+220,Bars(Counter).Col,Bars(Counter).Col+100,Bars(Counter).Col,Bars(Counter).Col+100
Next Counter
If Offset
Giff

1.4Ghz Athlon - 256 Mem - Win 98 - Geforce 2 Ti 400Mhz 64Mb
Giff
20
Years of Service
User Offline
Joined: 27th Aug 2002
Location: Drinking Beer - All Of It!!!
Posted: 5th Oct 2002 20:33
Code tags not working again.



Giff

1.4Ghz Athlon - 256 Mem - Win 98 - Geforce 2 Ti 400Mhz 64Mb
rapscaLLion
20
Years of Service
User Offline
Joined: 29th Aug 2002
Location: Canada
Posted: 7th Oct 2002 23:44
cool!

Alex Wanuch
aka rapscaLLion
Get the DB Weekly Newsletter at www.dbwn.cjb.net
Richard Davey
Retired Moderator
20
Years of Service
User Offline
Joined: 30th Apr 2002
Location: On the Jupiter Probe
Posted: 8th Oct 2002 00:44
Heh.. it's getting better! But I reckon you can do more

Cheers,

Rich

"Gentlemen, we are about to short-circuit the Universe!"
DB Team / Atari ST / DarkForge / Retro Gaming

Login to post a reply

Server time is: 2022-12-08 06:33:20
Your offset time is: 2022-12-08 06:33:20