-----------------------------------

sakuno08

Thu Jan 19, 2012 5:04 am


What am I doing wrong?

-----------------------------------

K so I'm doing my final assignment thats due VERY SOON
and for some damn reason, my starts won't flicker, and my music won't play, can someone PLEASE tell me what I'm doing wrong. and how to fix it~!!!!
PLEASE AND THANK U~!  :oops: 

View.Set ("graphics:800;600") 
View.Set ("offscreenonly") 
%set up the snow 
const NoOfFlakes := 400 
var flakeX : array 1 .. NoOfFlakes of int 
var flakeY : array 1 .. NoOfFlakes of int 
var conx : array 1 .. 3 of int := init (400, 400, 470) 
var cony : array 1 .. 3 of int := init (295, 275, 285) 
for flake : 1 .. NoOfFlakes 
flakeX (flake) := Rand.Int (0, maxx) 
flakeY (flake) := Rand.Int (0, maxy) 
end for 

Music.PlayFileLoop (C:\Users\Karen\Documents\ICS)
loop

%Make the background 
Draw.FillBox (0, 0, 800, 300, 29) 
Draw.FillBox (0, 300, 800, 600, blue) 
%sky 
%Moon 
Draw.FillOval (65, 550, 40, 40, white) 
Draw.Oval(65,555,45,50,white)

%stars 
    for i : 20 .. 95 %(range of yellows) 
        Draw.FillStar (300, 500, 310, 510, i) 
        Draw.FillStar (265, 465, 255, 455, i) 
        Draw.FillStar (400, 550, 410, 540, i) 
        Draw.FillStar (200, 510, 210, 520, i) 
        Draw.FillStar (115, 550, 125, 560, i) 
        Draw.FillStar (375, 485, 365, 475, i) 
        Draw.FillStar (65, 480, 75, 490, i) 
        Draw.FillStar (130, 420, 140, 410, i) 
        Draw.FillStar (750, 550, 760, 560, i)
        Draw.FillStar (510, 530, 500, 520, i) 
        Draw.FillStar (495, 500, 485, 490, i) 
        Draw.FillStar (490, 470, 480, 460, i) 
        Draw.FillStar (490, 430, 480, 420, i) 
        Draw.FillStar (460, 475, 450, 465, i) 
        Draw.FillStar (460, 430, 450, 420, i) 
        Draw.FillStar (690, 455, 700, 465, i) 
        Draw.FillStar (720, 430, 730, 440, i) 
        Draw.FillStar (700, 400, 710, 410, i) 
        Draw.FillStar (670, 405, 680, 415, i) 
        Draw.FillStar (630, 380, 640, 390, i) 
        Draw.FillStar (605, 350, 615, 360, i) 
        Draw.FillStar (600, 320, 610, 330, i)
    end for 
%Trunk 
Draw.FillBox (380, 100, 420, 170, 113) 
%Leaves
Draw.Line (300, 170, 500, 170, green) 
Draw.Line (300, 170, 380, 250, green) 
Draw.Line (500, 170, 420, 250, green) 
Draw.Line (320, 250, 380, 250, green) 
Draw.Line (420, 250, 480, 250, green) 
Draw.Line (320, 250, 380, 310, green) 
Draw.Line (480, 250, 420, 310, green) 
Draw.Line (380, 310, 340, 310, green) 
Draw.Line (420, 310, 460, 310, green) 
Draw.Line (340, 310, 380, 350, green) 
Draw.Line (460, 310, 420, 350, green) 
Draw.Line (420, 350, 440, 350, green) 
Draw.Line (380, 350, 360, 350, green) 
Draw.Line (400, 390, 360, 350, green) 
Draw.Line (400, 390, 440, 350, green) 
Draw.Fill (400, 200, brightgreen, green) 
%presents 
%#1 
Draw.FillBox (340, 100, 370, 130, brightred) 
Draw.Line (340, 105, 365, 130, green) 
Draw.Line (345, 100, 370, 125, green) 
Draw.Line (340, 100, 340, 105, green) 
Draw.Line (340, 100, 345, 100, green) 
Draw.Line (370, 130, 365, 130, green) 
Draw.Line (370, 130, 370, 125, green) 
Draw.Fill (360, 120, green, green) 
%#2 
Draw.FillBox (330, 100, 290, 130, brightgreen) 
Draw.Line (290, 105, 325, 130, brightpurple) 
Draw.Line (295, 100, 330, 125, brightpurple) 
Draw.Line (290, 100, 290, 105, brightpurple) 
Draw.Line (290, 100, 295, 100, brightpurple) 
Draw.Line (325, 130, 330, 130, brightpurple) 
Draw.Line (330, 130, 330, 125, brightpurple) 
Draw.Fill (310, 115, brightpurple, brightpurple) 
%House
Draw.FillBox (50, 50, 300, 350, purple)
Draw.FillBox (10,350,340,430,black)
%door
Draw.FillBox (50, 50, 100, 130, brightred)
%Windows
Draw.FillBox (130,100,170,130,white)
Draw.FillBox (200,100,240,130,white)
Draw.FillBox (70,150,170,220,white)
Draw.FillBox (200,150,280,220,white)
Draw.FillBox (70,250,280,330,white)

   drawfilloval (400, 150, 110, 110, white) %body of the snowman 
    drawfilloval (400, 290, 80, 80, white) %head of the snowman 
    drawfilloval (380, 310, 5, 5, black) %left eye of the snowman 
    drawfilloval (420, 310, 5, 5, black) %right eye of the snowman 
    Draw.FillPolygon (conx, cony, 3, 42) %nose of the snowman 
    drawfilloval (405, 260, 40, 10, black) %mouth of the snowman 
    drawfilloval (405, 265, 40, 10, white) %mouth of the snowman 
    drawfilloval (400, 237, 66, 10, brightred) %scarf on the snowman 
    drawfilloval (400, 243, 65, 5, white) %scarf on the snowman 
    drawfilloval (400, 200, 10, 10, black) %top button on snowman's body 
    drawfilloval (400, 150, 10, 10, black) %bottom button on snowmans's body 


locate (maxrow, 2)

for flake : 1 .. NoOfFlakes 
%Drop The Flake 
flakeY (flake) -= Rand.Int (1, 5) 
%flakeX (flake) += Rand.Int (-1, 1) 
if flakeY (flake) < 0 then 
flakeY (flake) := maxy 
flakeX (flake) := Rand.Int (0, maxx) 
end if 
Draw.FillOval (flakeX (flake), flakeY (flake), 1, 1, white) 
end for 
%Update the screen (because of offscreen only) 
View.Update 
delay (25) 
end loop

Music.PlayFileStop

~Sakuno


-----------------------------------

DemonWasp

Thu Jan 19, 2012 8:32 am


RE:What am I doing wrong?

-----------------------------------

So...are you suggesting that you didn't plagiarize the code here ( http://compsci.ca/v3/viewtopic.php?t=22703 ) and add the non-working Music.PlayFileLoop() call?

The reason your music doesn't play is that you haven't given it an actual path to a music file (though you have announced your name to everyone). The path needs to be in double quotes: " ", and it needs to list an actual music-containing file, such as an .mp3 file.


-----------------------------------

Alex C.

Thu Jan 19, 2012 8:48 am


RE:What am I doing wrong?

-----------------------------------

god use code tags... -.-


-----------------------------------

Beastinonyou

Thu Jan 19, 2012 8:50 am


Re: What am I doing wrong?

-----------------------------------

Not to mention double posting or anything as well  =P