Ok, so I am making a valentine gift for my girlfriend, and I wanted Iris by Goo Goo Dolls to play the whole time. When I play the exe on my computer the song plays, but when I tested the exe at school today, the song doesn't play. Now, I'm thinking it's because the song is a .wma file, but I don't know.
I want to mail this out as soon as I can, so I would really like it if anyone could help me with this.
Code:
\/
rem A present for Taylor
rem For the 2007 Valentines day
rem Started on 2/7/07 - finished on 2/10/07
rem created by sivl3r.c0de
hide mouse
load image "ph.bmp",1
load image "message1.bmp",2
load image "message2.bmp",3
load image "message3.bmp",4
load image "message4.bmp",5
load sound "sample.wav",1
load music "iris.wma",1
position mouse 250,300
cls rgb(0,0,0)
sync on
start:
set sound volume 1,100
play sound 1
wait 2500
show mouse
do
paste image 1,0,0
buttonselected=0
if makebutton(320,245,"You have new mail")>0 then buttonselected=1
if buttonselected=1 then goto show
if makebutton(-100,-100,"hidden")>0 then buttonselected=2
if buttonselected=2 then goto show
sync
loop
rem make buttons for commands
function makebutton(x,y,desc$)
buttonpressed=0
ink rgb(0,255,0),0 : box x-63,y-11,x+63,y+11
ink rgb(0,128,0),0 : box x-62,y-10,x+62,y+10
ink rgb(0255,255,255),0
myx=mousex() : myy=mousey()
if myx>x-63 and myx<x+63
if myy>y-11 and myy<y+11
buttonpressed=1
endif
endif
if buttonselected=0 then ink rgb(0,0,0),0
if buttonpressed=1 then ink rgb(0,0,0),0
set text size 14 : center text x,y-7,desc$
if mouseclick()=0 then buttonpressed=0
if buttonpressed=2 then ink rgb(0,0,0),0
set text size 14 : center text x,y-7,desc$
if mouseclick()=0 then buttonpressed=0
endfunction buttonpressed
show:
hide mouse
cls
paste image 1,0,0
for f=0 to 255 step 8
r=255-f
g=255-f
b=255-f
set gamma r,g,b
next f
wait 1000
cls
loop music 1
paste image 2,0,0
for f=0 to 255 step 8
r=f
g=f
b=f
set gamma r,g,b
next f
wait key
for f=0 to 255 step 8
r=255-f
g=255-f
b=255-f
set gamma r,g,b
next f
wait 1000
cls
paste image 3,0,0
for f=0 to 255 step 8
r=f
g=f
b=f
set gamma r,g,b
next f
wait key
for f=0 to 255 step 8
r=255-f
g=255-f
b=255-f
set gamma r,g,b
next f
wait 1000
cls
paste image 4,0,0
for f=0 to 255 step 8
r=f
g=f
b=f
set gamma r,g,b
next f
wait key
for f=0 to 255 step 8
r=255-f
g=255-f
b=255-f
set gamma r,g,b
next f
wait 1000
cls
paste image 5,0,0
for f=0 to 255 step 8
r=f
g=f
b=f
set gamma r,g,b
next f
wait key
for f=0 to 255 step 8
r=255-f
g=255-f
b=255-f
set gamma r,g,b
next f
wait 1000
end
If you need the sounds and bitmaps, just tell me.
A slight change..... Qualed Entertainment is no longer with us. The new name is Station 7 Produtions.
