Dark Bit Factory & Gravity
GENERAL => Projects => Topic started by: bikerboy on December 22, 2008
-
if i posted this in the wrong section, please someone move it to the right one thanx :)
ok so the reason i made this, is to wish to all of you a happy,prosperous and healthy new year :D
on some pc's it may flicker and in some it may not, dunno why it does that or how to fix it.
wanted to add a starfield but failed , it's ok though maybe in a "newyeartro" next year or maybe not, time will tell :)
the tune author is Christian Zwang of (C.Z.Tunes) , and i found the tune in aminet.
here is a screenshot
(http://img522.imageshack.us/img522/3408/sshotpb4.png)
and the file is attached.
anyways , i hope you like it :D :D have a Happy New Year !! :cheers:
EDIT: forgot to post the source ::)
here it is in case someone finds it useful :D
Screenres 640,480,16,2
#Include Once "tinyptc_ext++.bi"
#include "windows.bi"
#include "fantasy.bas"
#include "crt.bi"
'Play our music
Dim hWave As HWAVEOUT
hWave = uFMOD_PlaySong(@Music(0),775642,XM_MEMORY)
'' To keep our letters in memory
Dim buffer as integer
Dim as string LettersToScroll(60) => {"H","A","P","P","Y"," "," ","N","E","W"," "," ","Y","E","A","R"," "," ","2","0","0","9","!","!","!"," "," "," "," "," "," "," "," "," "," "}
dim a as string
'' To keep our letters position somewhere :
Dim as single LettersX(60), LettersY(60)
'' init Letters position (I assume a letter width and Height is 10)
For i as integer = 0 to 60
LettersX(i) = 350+i*15
LettersY(i) = 480 '' middle screen
next
'bikerboy
Dim Shared As String Message(55)
Message(1) = " ... _ _ _ _ ... "
Message(2) = " ( oo) | | (_) | | | (- o) "
Message(3) = " ooO--(_)--Ooo-| |__ _| | _____ _ __| |__ ___ _ _ -ooO--(_)--Ooo"
Message(4) = " | '_ \| | |/ / _ \ '__| '_ \ / _ \| | | |22/12/2008 "
Message(5) = " | |_) | | < __/ | | |_) | (_) | |_| | "
Message(6) = " |_.__/|_|_|\_\___|_| |_.__/ \___/ \__, | "
Message(7) = " __/ | "
Message(8) = " _________________________________ |___/ "
'wishes you
Message(9) = " __ "
Message(10) = " __ /\ \ "
Message(11) = " __ __ __/\_\ ____\ \ \___ __ ____ __ __ ___ __ __ "
Message(12) = " /\ \/\ \/\ \/\ \ /',__\\ \ _ `\ /'__`\ /',__\ /\ \/\ \ / __`\/\ \/\ \"
Message(13) = " \ \ \_/ \_/ \ \ \/\__, `\\ \ \ \ \/\ __//\__, `\ \ \ \_\ \/\ \L\ \ \ \_\ \"
Message(14) = " \ \___x___/'\ \_\/\____/ \ \_\ \_\ \____\/\____/ \/`____ \ \____/\ \____/"
Message(15) = " \/__//__/ \/_/\/___/ \/_/\/_/\/____/\/___/ `/___/> \/___/ \/___/ "
Message(16) = " /\___/ "
Message(17) = " \/__/ "
'happy new year 2009
Message(19) = " __ __ __ __ "
Message(20) = " / )/ )/ )(__)"
Message(21) = " /_ __. _ _ __ , ____ _ , , , __ , _ __. __ .--'/ // / / "
Message(22) = "/ /_(_/|_/_)_/_)_/ (_/_ / / <_</_(_(_/_ / (_/_</_(_/|_/ (_ (__ (__/(__/ / "
Message(23) = " / / / / "
Message(24) = " ' ' ' ' "
'greets
Message(25) = " | . "
Message(26) = " |.===. --= Special Thank You To Ninogenio & Hezad =-- ,-_-| "
Message(27) = " {}o o{}--= For Their Help With The Scroller And The Color Code =--([o o]) "
Message(28) = "ooO--(_)--Ooo-----Greets Fly Out To =+= in alphabetical order-----ooO--(_)--Ooo"
Message(29) = "|-----------------------------------------------------------------------------|"
Message(30) = "|Ampli-benny!-DrewPee-Hezad-Hotshot-Jim-matthew-ninogenio-Optimus-Pixel_Outlaw|"
Message(31) = "| rbz-Shockwave-stormbringer-va!n-Xalthorn-and everyone else at DBF !! if you |"
Message(32) = "|are not listed it was not intentional(ran out of space) you are greeted too !|"
Message(33) = "|--------------------------------Some Notes-----------------------------------|"
Message(34) = "| i wanted to do something simple to wish everyone a happy new year ! |"
Message(35) = "| so no fancy effects in this one, just a simple happy new yeartro ^_^ |"
Message(36) = "| Code - bikerboy -- Tune Name FantasyI by Christian Zwang of (C.Z.Tunes) |"
Message(37) = "|-----------------------------------------------------------------------------|"
'snowman
Message(38) = ", , , , , , , , , , , , , , , "
Message(39) = ", , , , , .____. , , , , , , , "
Message(40) = " , , , , , , , | :| , , , , , , , , "
Message(41) = " , , , , __|====|__ |||||| , , , , , "
Message(42) = " , , , , , , * / o o \ ||||||, , , , , , , "
Message(43) = ", , , , , * | -= | \====/ , , , , , , , "
Message(44) = " , , , , , U==\__//__. \\// , , , , , , "
Message(45) = ", , , , , , , / \\==// \ \ || , , , , , , "
Message(46) = " , , , , , ,| o || | \|| , , , , , , , , "
Message(47) = ", , , , , | o "" |\_|B), , , , , , , ,"
Message(48) = " , , , , , , \__ --__/ || , , , , , , "
Message(49) = ", , , , , , / \ ||, , , , , , , , "
Message(50) = " , , , , | | || , , , , , , , , "
Message(51) = ", , , , , , ,| | || , , , , , , , , , "
Message(52) = "-------_____---------____---\__ --_ __/__LJ__---------________-----___---__----"
Do : screenlock
Dim As Double DeltaFR , DeltaFG , DeltaFB
Dim As Double R = 0 , G = 0 , B = 0
Dim As Integer Y
DeltaFR = 125/(8/2)
DeltaFG = 146/(8/2)
DeltaFB = 242/(8/2)
For Y = 0 to 55
COLOR rgb(R,G,B), rgb(0,0,0)
Draw String(3,Y*9),Message(Y)
'color part
R += DeltaFR
G += DeltaFG
B += DeltaFB
If R > 254 Then
R = 254
DeltaFR = -DeltaFR
EndIf
If R < 0 Then
R = 0
DeltaFR = -DeltaFR
EndIf
If G > 250 Then
G = 250
DeltaFG = -DeltaFG
EndIf
If G < 0 Then
G = 0
DeltaFG = -DeltaFG
EndIf
If B > 251 Then
B = 251
DeltaFB = -DeltaFB
EndIf
If B < 0 Then
B = 0
DeltaFB = -DeltaFB
EndIf
Next
'DBF url
Color RGB(42,240,222),RGB(0,0,0)
Draw String(68,68)," @ http://www.dbfinteractive.com"
'the scroller part
For i as integer = 0 to 60
LettersX(i) -= 0.4 ' scroll along X axis
LettersY(i) = 165-15*sin(LettersX(i)/10) ' Sine Scroll along Y axis (the distance of letters)
Draw String(LettersX(i), LettersY(i)),LettersToScroll(i),rgb(98,39,252)
if LettersX(i)<0 then LettersX(i) = 640 '' if a letter is too far on the right, make it start again on the left
Next
Screenunlock : sleep 10
cls
Loop until multikey(&h01) '' Will quit loop if ESC is pressed
-
That IS really nice !! I totally love the colors and the ASCII art.
And the scroller adds some movement so it doesn't look static :)
Congrats bikerboy, it's really cool :D
It would be even awesomer if the colors were moving a bit. however it IS already really cool like that ;D
edit : oh and thanks for the greetz and for the "happy new year" :) Happy new year to you too :)
-
Love it. Color-scheme is well chosen. ASCII art is nice.
Thanks for greetings. Nicely done, bikerboy! Congratz!
-
thanx guys ;D
i'll allways greet you guys and everyone else who helped me a lot, no matter what i do ;)
yes i agree it would be really nice with a color movement :D
-
'couldn't resist ^^
Screenres 640,480,16,2
#Include Once "tinyptc_ext++.bi"
#include "windows.bi"
#include "fantasy.bas"
#include "crt.bi"
'Play our music
Dim hWave As HWAVEOUT
hWave = uFMOD_PlaySong(@Music(0),775642,XM_MEMORY)
'' To keep our letters in memory
Dim buffer as integer
Dim as string LettersToScroll(60) => {"H","A","P","P","Y"," "," ","N","E","W"," "," ","Y","E","A","R"," "," ","2","0","0","9","!","!","!"," "," "," "," "," "," "," "," "," "," "}
dim a as string
'' To keep our letters position somewhere :
Dim as single LettersX(60), LettersY(60)
'' init Letters position (I assume a letter width and Height is 10)
For i as integer = 0 to 60
LettersX(i) = 350+i*15
LettersY(i) = 480 '' middle screen
next
'bikerboy
Dim Shared As String Message(55)
Message(1) = " ... _ _ _ _ ... "
Message(2) = " ( oo) | | (_) | | | (- o) "
Message(3) = " ooO--(_)--Ooo-| |__ _| | _____ _ __| |__ ___ _ _ -ooO--(_)--Ooo"
Message(4) = " | '_ \| | |/ / _ \ '__| '_ \ / _ \| | | |22/12/2008 "
Message(5) = " | |_) | | < __/ | | |_) | (_) | |_| | "
Message(6) = " |_.__/|_|_|\_\___|_| |_.__/ \___/ \__, | "
Message(7) = " __/ | "
Message(8) = " _________________________________ |___/ "
'wishes you
Message(9) = " __ "
Message(10) = " __ /\ \ "
Message(11) = " __ __ __/\_\ ____\ \ \___ __ ____ __ __ ___ __ __ "
Message(12) = " /\ \/\ \/\ \/\ \ /',__\\ \ _ `\ /'__`\ /',__\ /\ \/\ \ / __`\/\ \/\ \"
Message(13) = " \ \ \_/ \_/ \ \ \/\__, `\\ \ \ \ \/\ __//\__, `\ \ \ \_\ \/\ \L\ \ \ \_\ \"
Message(14) = " \ \___x___/'\ \_\/\____/ \ \_\ \_\ \____\/\____/ \/`____ \ \____/\ \____/"
Message(15) = " \/__//__/ \/_/\/___/ \/_/\/_/\/____/\/___/ `/___/> \/___/ \/___/ "
Message(16) = " /\___/ "
Message(17) = " \/__/ "
'happy new year 2009
Message(19) = " __ __ __ __ "
Message(20) = " / )/ )/ )(__)"
Message(21) = " /_ __. _ _ __ , ____ _ , , , __ , _ __. __ .--'/ // / / "
Message(22) = "/ /_(_/|_/_)_/_)_/ (_/_ / / <_</_(_(_/_ / (_/_</_(_/|_/ (_ (__ (__/(__/ / "
Message(23) = " / / / / "
Message(24) = " ' ' ' ' "
'greets
Message(25) = " | . "
Message(26) = " |.===. --= Special Thank You To Ninogenio & Hezad =-- ,-_-| "
Message(27) = " {}o o{}--= For Their Help With The Scroller And The Color Code =--([o o]) "
Message(28) = "ooO--(_)--Ooo-----Greets Fly Out To =+= in alphabetical order-----ooO--(_)--Ooo"
Message(29) = "|-----------------------------------------------------------------------------|"
Message(30) = "|Ampli-benny!-DrewPee-Hezad-Hotshot-Jim-matthew-ninogenio-Optimus-Pixel_Outlaw|"
Message(31) = "| rbz-Shockwave-stormbringer-va!n-Xalthorn-and everyone else at DBF !! if you |"
Message(32) = "|are not listed it was not intentional(ran out of space) you are greeted too !|"
Message(33) = "|--------------------------------Some Notes-----------------------------------|"
Message(34) = "| i wanted to do something simple to wish everyone a happy new year ! |"
Message(35) = "| so no fancy effects in this one, just a simple happy new yeartro ^_^ |"
Message(36) = "| Code - bikerboy -- Tune Name FantasyI by Christian Zwang of (C.Z.Tunes) |"
Message(37) = "|-----------------------------------------------------------------------------|"
'snowman
Message(38) = ", , , , , , , , , , , , , , , "
Message(39) = ", , , , , .____. , , , , , , , "
Message(40) = " , , , , , , , | :| , , , , , , , , "
Message(41) = " , , , , __|====|__ |||||| , , , , , "
Message(42) = " , , , , , , * / o o \ ||||||, , , , , , , "
Message(43) = ", , , , , * | -= | \====/ , , , , , , , "
Message(44) = " , , , , , U==\__//__. \\// , , , , , , "
Message(45) = ", , , , , , , / \\==// \ \ || , , , , , , "
Message(46) = " , , , , , ,| o || | \|| , , , , , , , , "
Message(47) = ", , , , , | o "" |\_|B), , , , , , , ,"
Message(48) = " , , , , , , \__ --__/ || , , , , , , "
Message(49) = ", , , , , , / \ ||, , , , , , , , "
Message(50) = " , , , , | | || , , , , , , , , "
Message(51) = ", , , , , , ,| | || , , , , , , , , , "
Message(52) = "-------_____---------____---\__ --_ __/__LJ__---------________-----___---__----"
Dim as single t
Do : screenlock
Dim As Double DeltaFR , DeltaFG , DeltaFB
Dim As Double R = 0 , G = 0 , B = 0
Dim As Integer Y
DeltaFR = 125/4
DeltaFG = 146/4
DeltaFB = 242/4
t += .01
For Y = 0 to 55
COLOR rgb(R*abs(cos(t)),G*abs(sin(t)),B*abs(cos(t*.3))), rgb(0,0,0)
Draw String(3,Y*9),Message(Y)
'color part
R += DeltaFR
G += DeltaFG
B += DeltaFB
If R > 254 Then
R = 254
DeltaFR = -DeltaFR
EndIf
If R < 0 Then
R = 0
DeltaFR = -DeltaFR
EndIf
If G > 250 Then
G = 250
DeltaFG = -DeltaFG
EndIf
If G < 0 Then
G = 0
DeltaFG = -DeltaFG
EndIf
If B > 251 Then
B = 251
DeltaFB = -DeltaFB
EndIf
If B < 0 Then
B = 0
DeltaFB = -DeltaFB
EndIf
Next
'DBF url
Color RGB(42,240,222),RGB(0,0,0)
Draw String(68,68)," @ http://www.dbfinteractive.com"
'the scroller part
For i as integer = 0 to 25
LettersX(i) -= 0.4 ' scroll along X axis
LettersY(i) = 165-15*sin(LettersX(i)/10) ' Sine Scroll along Y axis (the distance of letters)
Draw String(LettersX(i), LettersY(i)),LettersToScroll(i),rgb(i*10,39,252-i*10)
if LettersX(i)<0 then LettersX(i) = 640 '' if a letter is too far on the right, make it start again on the left
Next
Screenunlock : sleep 10
cls
Loop until multikey(&h01) '' Will quit loop if ESC is pressed
-
'couldn't resist ^^
respect :D
added the comment "Version2" above this line -> --= Special Thank You To Ninogenio & Hezad =--
file attached
-
@bikerboy:
Its a very nice idea and present to the community. Thanks for greetings. Btw, i think if you concentrate yourself more on coding intros/demos, we will surelly see some more nice and interesting productions from you in the future! Good start!
-
thanx va!n :D
i will try to do my best depenting on the coding knowledge i will have :)
-
I would like to wish you a Happy New Year in return Bikerboy, thank you for the greeting :)
Have a merry christmas too!
I like the ascii snowman!
-
thanx man :D
the ASCII art is not mine since i'm no ASCII artist, the letters are from an online ASCII generator for letters and the snowman i got it from a BBS a friend had back in the 90's, dunno where he's got it from.
-
@bikerboy:
Yeah - what va!n says. You are doing great progress in coding. It's cool
to see what you already achieved.
Think it's time you can move on - take yourself some time and try something
more difficult. This might take a bit longer - but in the end its quality what
counts - not quantity.
So, good luck with upcoming projects!
-
what benny said ;)
-
Nice one. I am an ascii freak myself so I always enjoy the ascii progs.
-
:santa:
-
happy new year too you too biker boy!
im sure you will go a long way here in the next year. i look forward to it!