I have been working on one of those logo things that fade in and out before a game starts and this is what I got:
keep in mind that im not a pro programmer and im only 13.
the sound files are in your blitz basic samples so make sure your main directory is the samples folder.
AppTitle "Paultronic Arts Intro"
Graphics3D 800,600
SetBuffer BackBuffer()
camera=CreateCamera()
CameraViewport camera,0,0,800,600
r#=0
g#=0
b#=0
speed#=0.3
peakflag=0
AmbientLight r#,g#,b#
;light=CreateLight(1)
light=CreateLight(3)
;===================================================================================================
;Sound
wind = LoadSound ("Hi-Toro/Death Island/snd/seawind2.wav")
sea = LoadSound ("Hi-Toro/Death Island/snd/wavdance.wav")
rain = LoadSound ("Hi-Toro/Death Island/snd/rainroof.wav")
SoundVolume wind, 0.25
SoundVolume sea, 0.65
SoundVolume rain, 0.75
LoopSound wind
LoopSound sea
LoopSound rain
PlaySound wind
PlaySound sea
PlaySound rain
;===================================================================================================
;Making cube, and spot light thats blue
cube=CreateCube()
PositionEntity cube,0,0,5
LightColor light,0,0,255
LightConeAngles light,0,45
PositionEntity light,0,0,0.5
LightRange light,3
PointEntity light,cube
;===================================================================================================
texture=LoadTexture("LightB.bmp")
EntityTexture cube,texture
While Not KeyHit(1)
TurnEntity cube,0.1,0.2,0.3
If r#>199 Then peakflag=1
If peakflag=0
r#=r#+speed#
g#=g#+speed#
b#=b#+speed#
Else
r#=r#-speed#
g#=g#-speed#
b#=b#-speed#
If r#<0 Then End
EndIf
AmbientLight r#,g#,b#
UpdateWorld
RenderWorld
Text 300,500,"A Paultronic Arts Production"
Flip
Wend
End
===========================================================
My name is Paul so that's why it says PAULtronic Arts, I combined PAUL with electronic arts, I think it's pretty nifty, hehe.
keep in mind that im not a pro programmer and im only 13.
the sound files are in your blitz basic samples so make sure your main directory is the samples folder.
AppTitle "Paultronic Arts Intro"
Graphics3D 800,600
SetBuffer BackBuffer()
camera=CreateCamera()
CameraViewport camera,0,0,800,600
r#=0
g#=0
b#=0
speed#=0.3
peakflag=0
AmbientLight r#,g#,b#
;light=CreateLight(1)
light=CreateLight(3)
;===================================================================================================
;Sound
wind = LoadSound ("Hi-Toro/Death Island/snd/seawind2.wav")
sea = LoadSound ("Hi-Toro/Death Island/snd/wavdance.wav")
rain = LoadSound ("Hi-Toro/Death Island/snd/rainroof.wav")
SoundVolume wind, 0.25
SoundVolume sea, 0.65
SoundVolume rain, 0.75
LoopSound wind
LoopSound sea
LoopSound rain
PlaySound wind
PlaySound sea
PlaySound rain
;===================================================================================================
;Making cube, and spot light thats blue
cube=CreateCube()
PositionEntity cube,0,0,5
LightColor light,0,0,255
LightConeAngles light,0,45
PositionEntity light,0,0,0.5
LightRange light,3
PointEntity light,cube
;===================================================================================================
texture=LoadTexture("LightB.bmp")
EntityTexture cube,texture
While Not KeyHit(1)
TurnEntity cube,0.1,0.2,0.3
If r#>199 Then peakflag=1
If peakflag=0
r#=r#+speed#
g#=g#+speed#
b#=b#+speed#
Else
r#=r#-speed#
g#=g#-speed#
b#=b#-speed#
If r#<0 Then End
EndIf
AmbientLight r#,g#,b#
UpdateWorld
RenderWorld
Text 300,500,"A Paultronic Arts Production"
Flip
Wend
End
===========================================================
My name is Paul so that's why it says PAULtronic Arts, I combined PAUL with electronic arts, I think it's pretty nifty, hehe.