Happy New YearTro 2009 !!

[bikerboy]

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

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



and the file is attached.

anyways , i hope you like it have a Happy New Year !! 

EDIT: forgot to post the source 

here it is in case someone finds it useful

Code: [Select]

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


[Hezad]

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


It would be even awesomer if the colors were moving a bit. however it IS already really cool like that

edit : oh and thanks for the greetz and for the "happy new year" Happy new year to you too

[benny!]

Love it. Color-scheme is well chosen. ASCII art is nice.
Thanks for greetings. Nicely done, bikerboy! Congratz!

[bikerboy]

thanx guys

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

[Hezad]

'couldn't resist ^^

Code: [Select]

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

[bikerboy]

'couldn't resist ^^

respect 

added the comment "Version2" above this line -> --= Special Thank You To Ninogenio & Hezad =--

file attached

[va!n]

@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!

[bikerboy]

thanx va!n 

i will try to do my best depenting on the coding knowledge i will have 

[Shockwave]

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!

[bikerboy]

thanx man

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.

[benny!]

@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!

[Hezad]

what benny said 

[rdc]

Nice one. I am an ascii freak myself so I always enjoy the ascii progs.

[Rbz]

[ninogenio]

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!