Link to watch it______________ https://www.youtube.com/watch?v=8Z8MDIWS7jI&t=982s
First I made the 'presentation..., and then I taped it with 'Bandicam' so I could post it on YouTube.
I used 'AVS audio editor' to convert the song into an '.ogg file'
And I made the background image with 'Windows Paint' from an image I found on 'Google search engine'.
start:
SetErrorMode(2)
SetWindowSize( 1280, 768 , 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
SetVirtualResolution ( 1280, 768 )
SetScissor(0,0,0,0)
SetWindowTitle( "Bitcoin Love" )
backdrop = CreateSprite ( LoadImage ( "bg latest 2.png" ) )
SetSpriteY(backdrop,-14378)
ystart = GetSpriteY( backdrop) ` for scrolling below
LoadImage ( 1, "bitcoin use this.png" )
SetImageTransparentColor(1,255,255,190)
sync()
LoadMusicOGG( 1, 'Once in a million you2.ogg')
PlayMusicOGG( 1, 1)
CreateParticles ( 1, 150, 10 )
SetParticlesImage ( 1, 1 )
SetParticlesRotationRange( 1, -80, 80 )
SetParticlesStartZone ( 1, 450, 768, 550, 778 )
SetParticlesDirection ( 1, 0, -45.0 )
AddParticlesForce( 1, 8, 16, 0, 40 )
SetParticlesLife ( 1, 15 )
SetParticlesAngle ( 1, 50 )
SetParticlesSize ( 1, 64)
SetParticlesFrequency ( 1, 10 )
SetParticlesVelocityRange ( 1, .15, 2 )
If Timer()>12 Then resettimer()
AddParticlesColorKeyFrame(1,0,255,255,255,255 )
AddParticlesColorKeyFrame(1,1,0,255,0,255 )
AddParticlesColorKeyFrame(1,2,75,75,255,255 )
AddParticlesColorKeyFrame(1,3,255,0,0,255 )
AddParticlesColorKeyFrame(1,4,255,255,255,255 )
AddParticlesColorKeyFrame(1,5,0,255,0,255 )
AddParticlesColorKeyFrame(1,6,75,75,255,255 )
AddParticlesColorKeyFrame(1,7,255,0,0,255 )
AddParticlesColorKeyFrame(1,8,255,255,255,255 )
AddParticlesColorKeyFrame(1,9,0,255,0,255 )
AddParticlesColorKeyFrame(1,10,75,75,255,255 )
AddParticlesColorKeyFrame(1,11,255,0,0,255 )
AddParticlesColorKeyFrame(1,12,255,255,255,255 )
AddParticlesColorKeyFrame(1,13,0,255,0,255 )
AddParticlesColorKeyFrame(1,14,75,75,255,255 )
AddParticlesColorKeyFrame(1,15,255,255,255,255 )
blue as integer : green as integer: red as integer
mycolor = (blue << 16) || (green << 8) || red
`red = rgb
red = MakeColor( 255, 0, 0 )
do
addfactor = addfactor + 1
SetSpriteY(backdrop,ystart + addfactor)
if GetSpriteY(backdrop) = 1
SetSpriteY(backdrop,-14378)
addfactor = 0
endif
Sync ( )
loop
