;
; Add a little holiday cheer to your logon script!
;break on cls
at(0,0) color w/n "Press Ctrl-C to exit"
Gosub Picture
Gosub scale
:sayitagain
$seed = asc(substr(@userid,1,1)) * val(substr(@time,7,2))*137856
srnd($seed)
$key = rnd(3)
select
case $key = 1
gosub deckthehals
case $key = 2
gosub Jingle_Bells
case $key = 3
gosub CarolOfTheBells
case 1
goto sayitagain
endselect
Exit
:scale
$c0 = "130f" $cs0 = "138f" $d0 = "146f" $ds0 = "155f" $e0 = "164f" $f0 = "174f"
$fs0 = "184f" $g0 = "195f" $gs0 = "207f" $a0 = "220f" $as0 = "233f" $b0 = "246f"
$c1 = "261f" $cs1 = "277f" $d1 = "293f" $ds1 = "311f" $e1 = "329f" $f1 = "349f"
$fs1 = "369f" $g1 = "391f" $gs1 = "415f" $a1 = "440f" $as1 = "466f" $b1 = "493f"
$c2 = "523f" $cs2 = "554f" $d2 = "587f" $ds2 = "622f" $e2 = "659f" $f2 = "698f"
$fs2 = "739f" $g2 = "783f" $gs2 = "830f" $a2 = "880f" $as2 = "932f" $b2 = "987f"
$c3 = "1046f" $cs3 = "1108f" $d3 = "1174f" $ds3 = "1244f" $e3 = "1318f" $f3 = "1396f"
$fs3 = "1479f" $g3 = "1567f" $gs3 = "1661f" $a3 = "1760f" $as3 = "1864f" $b3 = "1975f"
return
:Picture
$nul = setascii("on")
DIM $Xmas_x
dim $Xmas_y
$xmas_x = 16 ;the starting X cord
$xmas_y = 0 ;the starting Y cord
at($xmas_x+1,$xmas_y+40)""COLOR W+/N"*"
at($xmas_x+2,$xmas_y+39)""COLOR G+/N"/"COLOR C/N"."COLOR G+/N"\"
at($xmas_x+3,$xmas_y+38)"/"COLOR R/N"."COLOR R+/N"."COLOR B/N"'"COLOR G+/N"\"
at($xmas_x+4,$xmas_y+38)"/"COLOR M+/N"'"COLOR Y+/N"."COLOR W/N"'"COLOR G+/N"\"
at($xmas_x+5,$xmas_y+37)"/"COLOR G/N"."COLOR C+/N"'"COLOR C/N"'"COLOR B+/N"."COLOR N+/N"'"COLOR G+/N"\"
at($xmas_x+6,$xmas_y+37)"/"COLOR M+/N"."COLOR W+/N"'"COLOR Y/N"."COLOR B+/N"'"COLOR R+/N"."COLOR G+/N"\"
at($xmas_x+7,$xmas_y+10)''COLOR Y/N'""""""""""""""""""""""""""' + ""COLOR G+/N"/"COLOR Y+/N"'"COLOR W+/N"."COLOR G+/N"'"COLOR B/N"'"COLOR R/N"."COLOR C/N"'."COLOR G+/N"\"COLOR Y/N"" + '""""""'
at($xmas_x+8,$xmas_y+36)""COLOR G+/N"^^^"COLOR Y/N"[_]"COLOR G+/N"^^^"""COLOR N/N
color r+/n
at($xmas_x+0,$xmas_y+1)'__, ,___,'
at($xmas_x+1,$xmas_y+0)'(--|__| _,,_ ,_ '
at($xmas_x+2,$xmas_y+2)'_| |(_||_)|_)\/'
at($xmas_x+3,$xmas_y+1)'( | | _/'
at($xmas_x+4,$xmas_y+8)'__, ,___,'
at($xmas_x+5,$xmas_y+7)"(--|__| _ |' _| _, ,"
at($xmas_x+6,$xmas_y+9)'_| |(_)||(_|(_|\//_)'
at($xmas_x+7,$xmas_y+8)'('
at($xmas_x+7,$xmas_y+24)'_/'
Color y+/n
return
:deckthehals
$1note = "20d"
$2note = (val("$1note")/2)
$2note = "$2note d"
$4note = val("$2note")/2
$4note = "$4note d"
$8note = val("$4note")/2
$8note = "$8note d"
play "$4note $a2 $8note $g2 $4note $fs2 $e2 $d2 $e2 $fs2 $d2"
play "$8note $e2 $fs2 $g2 $e2 $4note $fs2 $8note $e2 $4note $d2 $cs2 $2note $d2"
play "$4note $a2 $8note $g2 $4note $fs2 $e2 $d2 $e2 $fs2 $d2"
play "$8note $e2 $fs2 $g2 $e2 $4note $fs2 $8note $e2 $4note $d2 $cs2 $2note $d2"
play "$4note $e2 $8note $fs2 $4note $g2 $e2 $fs2 $8note $g2 $4note $a2 $e2"
play "$8note $fs2 $gs2 $4note $a2 $8note $b2 $cs3 $d3 $4note $cs3 $b2 $2note $a2"
play "$4note $a2 $8note $g2 $4note $fs2 $e2 $d2 $e2 $fs2 $d2"
play "$8note $b2 $b2 $b2 $b2 $4note $a2 $8note $g2 $4note $fs2 $e2 $2note $d2"
return
:Jingle_Bells
$1note = "18d"
$2note = (val("$1note")/2)
$2note = "$2note d"
$4note = val("$2note")/2
$4note = "$4note d"
$8note = val("$4note")/2
$8note = "$8note d"
play "$4note $d2 $b2 $a2 $g2 $2note $d2 $8note $d2 $d2 $4note $d2 $b2 $a2 $g2 $1note $e2"
play "$4note $e2 $c3 $b2 $a2 $1note $fs2 $4note $d3 $d3 $c3 $a2 $1note $b2"
play "$4note $d2 $b2 $a2 $g2 $1note $d2 $4note $d2 $b2 $a2 $g2 $2note $e2 $4note $e2"
play "$4note $d2 $b2 $a2 $g2 $d3 $d3 $d3 $8note $d3 $d3 $4note $e3 $d3 $c3 $a2 $2note $g2 $d3"
play "$4note $b2 $b2 $2note $b2 $4note $b2 $b2 $2note $b2 $4note $b2 $d3 $g2 $8note $a2 $1note $b2 $4note $c3 $c3 $c3 $8note $c3"
play "$4note $c3 $b2 $b2 $8note $b2 $b2 $4note $b2 $a2 $g2 $b2 $2note $a2 $d3"
play "$4note $b2 $b2 $2note $b2 $4note $b2 $b2 $2note $b2 $4note $b2 $d3 $g2 $8note $a2 $1note $b2 $4note $c3 $c3 $c3 $8note $c3"
play "$4note $c3 $b2 $b2 $8note $b2 $b2 $4note $d3 $d3 $c3 $a2 $1note $g2"
return
:CarolOfTheBells
$1note = "14d"
$2note = (val("$1note")/2)
$2note = "$2note d"
$4note = val("$2note")/2
$4note = "$4note d"
$8note = val("$4note")/2
$8note = "$8note d"
play " $2note $g1 $4note $fs1 $g1 $2note $e1"
play " $2note $g1 $4note $fs1 $g1 $2note $e1"
play " $2note $g1 $4note $fs1 $g1 $2note $e1"
play " $2note $e2 $4note $e2 $e2 $d2 $c2"
play " $2note $b1 $4note $b1 $b1 $a1 $g1"
play " $2note $a1 $4note $a1 $a1 $b1 $a1"
play " $2note $e1 $4note $e1 $e1 $2note $e1"
play " $4note $b0 $cs1 $ds1 $e1 $fs1 $g1"
play " $4note $a1 $b1 $2note $a1 $g1"
play " $4note $b0 $cs1 $ds1 $e1 $fs1 $g1"
play " $4note $a1 $b1 $2note $a1 $g1"
play " $2note $g1 $4note $fs1 $g1 $2note $e1"
play " $2note $g1 $4note $fs1 $g1 $2note $e1"
play " $2note $g1 $4note $fs1 $g1 $2note $e1"
play "$1note $e1"
return
