View.Set ("offscreenonly")
%colorback (blue)
const MaxParticles := 10000
const smokelength := 1000
const MaxFire := 500
var smokeX := 200
const smokeWidth := 1
const FireX := 200
var smokeVel := 1
const MaxHeight := 350
const FireHeight := 50
const ListX := .01
var doWind := false
type Particle_Type : %declare type

    record
        x, y, speed : int
        col : int
        list : real
        maxY : int
    end record

var Particles : array 1 .. MaxParticles of Particle_Type %declare array of type that you've made
var fireParticles : array 1 .. MaxFire of Particle_Type

for i : 1 .. MaxParticles % give particles their initial x,y value
    Particles (i).x := Rand.Int (smokeX, smokeX + smokeWidth) %randmize the x position
    Particles (i).y := Rand.Int (0 - MaxHeight, 0) %randmize the y position
    Particles (i).speed := Rand.Int (1, 3) %randmize the y position
    Particles (i).col := Rand.Int (15, 31)
    Particles (i).list := 0
    Particles (i).maxY := Rand.Int (1, MaxHeight)
end for

for i : 1 .. MaxFire
    fireParticles (i).x := Rand.Int (FireX - 20, FireX + 20)
    fireParticles (i).y := Rand.Int (0, FireHeight)
    fireParticles (i).speed := Rand.Int (1, 3)
    fireParticles (i).col := Rand.Int (38, 43)
    fireParticles (i).maxY := Rand.Int (1, FireHeight)
end for

/*
 proc Wind (windX, windY : int)
 for i : 1 .. MaxParticles
 if Particles (i).y > windY - 50 and Particles (i).y < windY + 50 and doWind = true then
 Particles (i).x += windX * Rand.Int (abs (windY - Particles (i).y) div 5, (abs (windY - Particles (i).y) +10) div 5)
 Particles (i).y += Rand.Int (-5, 5)
 end if
 end for
 end Wind
 */

proc Animate
    for x : 1 .. MaxParticles
        smokeX += smokeVel
        cls %clear the screen
        /*if Rand.Int (1, 100) = 100 and doWind = false then
         doWind := true
         end if
         if Rand.Int (1, 20) = 20 and doWind = false then
         doWind := false
         end if*/
        for i : 1 .. MaxParticles %inside this loop we go through all the particles 1 by 1
            Particles (i).y += Particles (i).speed %move down the drop of rain

            if Particles (i).y >= Particles (i).maxY then %if drop of rain has fallen to the ground, reset it's values
                Particles (i).y := 0 %set it's y location back to the top again
                Particles (i).x := Rand.Int (smokeX, smokeX + smokeWidth) %randmize the x position of rain droplets from 0 to maxx
                Particles (i).speed := Rand.Int (1, 3) %randmize the speed of drops rain
                Particles (i).col := Rand.Int (15, 31)
                Particles (i).list := 0
            end if

            Particles (i).x += Rand.Int (-1, 1)
            Draw.Dot (round (Particles (i).x), Particles (i).y, Particles (i).col) %draw the drop of rain
            Particles (i).list += ListX
        end for
       /* for i : 1 .. MaxFire
            fireParticles (i).y += fireParticles (i).speed
            fireParticles (i).x += Rand.Int (Particles (i).x - FireX mod 2, parti)
            if fireParticles (i).y >= FireHeight then
                fireParticles (i).y := 0
                fireParticles (i).x := Rand.Int (FireX - 20, FireX + 20)
                fireParticles (i).speed := Rand.Int (1, 3)
                fireParticles (i).col := Rand.Int (38, 43)
            end if
            Draw.Dot (fireParticles (i).x, fireParticles (i).y, fireParticles (i).col)
        end for*/
       
        View.Update
        if smokeX > smokeWidth or smokeX < 50 then
            smokeVel *= -1
        end if

        %Wind (300, 1)
        %delay (100)
        %View.Update
    end for

end Animate

loop
    Animate
end loop