TGC Codebase Backup



Snowy Day by chromatic3d

21st Oct 2011 1:50
Summary

Particle snow to go on top of winter game.



Description

Particle snow to go on top of winter game. Blustery snow from 5 different images. Use some or all. Best seen in 1920 x 1080 so you will have to change scales to match your game.



Code
                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    rem snowday
// Initialize Display
SetDisplayAspect( 1.66 )
ap=1

rem images
LoadImage( 1, "/image01.png", ap )
LoadImage( 2, "/image02.png", ap )
LoadImage( 3, "/image03.png", ap )
LoadImage( 4, "/image04.png", ap )
LoadImage( 5, "/image05.png", ap )

// Set Particles
for i = 1 to 5
    CreateParticles( i, 50, 50 )
    SetParticlesImage( i, i )
    SetParticlesVisible( i, 1 )
next i

for i = 1 to 5
    SetParticlesPosition( i, 50, 50 )
    SetParticlesAngle( i, 270 )

    SetParticlesColorInterpolation( i,1 )
    AddParticlesColorKeyFrame( i, 3, 250, 250, 250, 50 )
    AddParticlesColorKeyFrame( i, 2, 250, 250, 250, 100 )
    AddParticlesColorKeyFrame( i, 1, 250, 250, 250, 150 )
    SetParticlesDepth( i, 1000 )
    SetParticlesDirection( i, 6*i, 6*i )
    SetParticlesFrequency( i, 10 )
    SetParticlesLife( i, 1500 )
    SetParticlesMax( i, -1 )
    SetParticlesSize( i, .2 )
    SetParticlesStartZone( i, 50, 100,-50, -100 )
    SetParticlesVelocityRange( i, .1, .4 )

next i

// Main Loop
do
    Sync()
loop