CoolBasic Forums

Code: Select all

SCREEN 800,600

Type Rocket
    Field x#
    Field y
    Field tx
    Field ty
    Field speed
    Field b
    Field kulma
    Field cr
    Field cg
    Field cb
    Field style
EndType 

Repeat
    If MouseHit(1) Then AddRocket(400,600,MouseX(),MouseY(),Rand(3,5),Rand(1,2))
    UpdateRockets()
    DrawScreen
Forever 

Function AddRocket(startx,starty,tox,toy,speed,style)
    r.rocket = New(rocket)
    r\x# = startx
    r\y = starty
    r\tx = tox
    r\ty = toy
    r\speed = speed
    r\b = 0
    r\kulma = 0
    lol = Rand(1,6)
    Select lol
        Case 1
            r\cr = 128
            r\cg = 168
            r\cb = 4
        Case 2
            r\cr = 255
            r\cg = 255
            r\cb = 0
        Case 3
            r\cr = 0
            r\cg = 164
            r\cb = 255
        Case 4
            r\cr = 255
            r\cg = 0
            r\cb = 0
        Case 5
            r\cr = 255
            r\cg = 172
            r\cb = 0
        Case 6
            r\cr = 253
            r\cg = 167
            r\cb = 171
    EndSelect 
    r\style = style
EndFunction 

Function UpdateRockets()
    For ro.rocket = Each rocket
        Color cbwhite
        If Distance(ro\x, ro\y, ro\tx, ro\ty) > 10 Then
            ro\kulma = GetAngle(ro\x#,ro\y,ro\tx,ro\ty)
            ro\x = ro\x + Cos(ro\kulma)*3
            ro\y = ro\y - Sin(ro\kulma)*3
            Line ro\x,ro\y,ro\x + Cos(ro\kulma)*4,ro\y - Sin(ro\kulma)*4
        Else 
            ro\b = ro\b + 6
            Color ro\cr, ro\cg, ro\cb
            Select ro\style
                Case 1
                    For il = 1 To 30 
                        Circle ro\tx + Cos(il*Rnd(12,12.5))*ro\b,ro\ty - Sin(il*Rnd(12,12.5))*ro\b,3
                    Next il 
                    If ro\b > 150 Then Delete ro:Exit
                Case 2
                    For al = 1 To 30 
                        Dot ro\tx + ro\b * Rnd(-0.5,0.5),ro\ty + ro\b * Rnd(0.5,0.8) - Rnd(1,3)
                    Next al 
                    If ro\b > 250 Then Delete ro:Exit
            EndSelect 
        EndIf
    Next ro
EndFunction