[DBP] grenades - GameCreators Forum

Author

Message

Tv Xxx

16

Years of Service

User Offline

Joined: 23rd Sep 2007

Location: Behind You!

Posted: 30th Jan 2009 17:57 Edited at: 29th Mar 2009 16:24

Link

DBPRO

So i had to write them for my game, figured i might aswel release the code, so i edited a little and put it into a snipet...

enjoy

Using Sparkys

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal0
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
SC_SetupObject 5000,1,2
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

Sync
Loop

Function MakeParticle()

inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    Sc_SetupObject P, 2, 1
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
        Sc_UpdateObject P
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Sc_ObjectCollision(P, 5000) and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Sc_ObjectCollision(P, 5000) = 0 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

+ Code Snippet

Sync On
Sync Rate 30
Backdrop On
autocam off


//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal0
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
SC_SetupObject 5000,1,2
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

    Sync
Loop

Function MakeParticle()

    inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    Sc_SetupObject P, 2, 1
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
        Sc_UpdateObject P
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Sc_ObjectCollision(P, 5000) and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Sc_ObjectCollision(P, 5000) = 0 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

Using DBPro Collision Commands

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
Set object collision on 5000
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

Sync
Loop

Function MakeParticle()

inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    Set object collision on P
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Object Collision(P, 5000) and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Object Collision(P, 5000) = 0 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

+ Code Snippet

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
Set object collision on 5000
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

    Sync
Loop

Function MakeParticle()

    inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    Set object collision on P
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Object Collision(P, 5000) and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Object Collision(P, 5000) = 0 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

Using Ground Y-Coordinate

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

Sync
Loop

Function MakeParticle()

inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Ypos <= object position y(5000)+6 and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Ypos > object position y(5000)+6 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

+ Code Snippet

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

    Sync
Loop

Function MakeParticle()

    inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Ypos <= object position y(5000)+6 and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Ypos > object position y(5000)+6 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

Yours Tv.

Click my signature for free webhosting!

Back to top

Profile PM Email Website

Monk

15

Years of Service

User Offline

Joined: 25th Sep 2008

Location: Standing in the snow =D

Posted: 31st Jan 2009 23:31

Link

Very nice TV!
Liking the colour you added since the post in the forum...
You could possibly make it so that you can throw 2 or more though nto just one at once.
Just a suggestion =)

Back to top

Profile PM

elitex

15

Years of Service

User Offline

Joined: 1st Feb 2009

Location:

Posted: 2nd Feb 2009 01:41

Link

nice

Back to top

Profile PM

elitex

15

Years of Service

User Offline

Joined: 1st Feb 2009

Location:

Posted: 2nd Feb 2009 01:41

Link

nice

Back to top

Profile PM

elitex

15

Years of Service

User Offline

Joined: 1st Feb 2009

Location:

Posted: 2nd Feb 2009 01:41

Link

nice

Back to top

Profile PM

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 8th Feb 2009 16:28

Link

Looks good, how ever I get an error message that says to include at least one memblock command - probably from Sparky's.

Back to top

Profile PM Email Website

jeffhuys

17

Years of Service

User Offline

Joined: 24th May 2006

Location: No cheesy line here.

Posted: 23rd Mar 2009 18:56

Link

Elitex: Wtf?

You're the

'th to view this signature!

Back to top

Profile PM Email

Xsnip3rX

17

Years of Service

User Offline

Joined: 20th Feb 2007

Location: Washington State

Posted: 24th Mar 2009 05:54

Link

@jeffhuys: i know huh?

@TV: any chance you can make a non-sparky's version?

Back to top

Profile PM Email

Tv Xxx

16

Years of Service

User Offline

Joined: 23rd Sep 2007

Location: Behind You!

Posted: 24th Mar 2009 10:21

Link

Erm yerp, I could do a version that uses the Y value to guess a collision or the built in colision commands, but there rubbish XD

meh, i'll make both versions...

I'll do it tonight

Yours Tv.

Click my signature for free webhosting!

Back to top

Profile PM Email Website

mofo09

15

Years of Service

User Offline

Joined: 5th Mar 2009

Location:

Posted: 25th Mar 2009 21:13

Link

thanks bro, ill def be using this in my game for a rock throw while in Cameramode to throw at people or windows!

Back to top

Profile PM Email

Tv Xxx

16

Years of Service

User Offline

Joined: 23rd Sep 2007

Location: Behind You!

Posted: 29th Mar 2009 15:11 Edited at: 29th Mar 2009 16:23

Link

Sorry about the delay, I've got glandular fever, so im kinda stuck in my bed at the moment feeling ill

but heres a version using the built in collision commands...

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
Set object collision on 5000
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

Sync
Loop

Function MakeParticle()

inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    Set object collision on P
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Object Collision(P, 5000) and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Object Collision(P, 5000) = 0 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

+ Code Snippet

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
Set object collision on 5000
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

    Sync
Loop

Function MakeParticle()

    inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    Set object collision on P
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Object Collision(P, 5000) and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Object Collision(P, 5000) = 0 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

and heres a version using the y-coordiate of the ground

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

Sync
Loop

Function MakeParticle()

inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Ypos <= object position y(5000)+6 and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Ypos > object position y(5000)+6 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

+ Code Snippet

Sync On
Sync Rate 30
Backdrop On
autocam off

//////////////////
// SET GLOBALS  //
//////////////////

global V# as float //Velocity
global A# as float //Alpha (Angle of elevation from the horizontal
global G# as float //Gravity (-9.81)
global T# as float //Time
global P as integer //Particle Object ID
global throw as boolean //Throwing Boolean
global rotation as float //Particle Rotation
global CamAng as integer //Camera Y angle

global Xpos as double float
global Ypos as double float
global Zpos as double float
global Xstart# as float
global Ystart# as float
global Zstart# as float

global Sca# as integer
global ExpT# as integer

V# = 80
G# = (9.81)*2.5
P = 1
throw = 0

/////////////////////////////////
// MAKE FLOOR/ POSITION CAMERA //
/////////////////////////////////

make object box 5000, 10000, 10, 10000
position object 5000, 0, -100, 0
color object 5000, rgb(0, 50, 0)
set object ambience 5000, rgb(0, 50, 0)
position camera 0, -70, 0
set ambient light 40

///////////////
// MAIN LOOP //
///////////////

Do
    ///////////////////////
    // PARTICLE CONTROLS //
    ///////////////////////
    
    if MouseClick() = 1 and throw = 0
        MakeParticle()
        throw = 1
    endif
    
    if throw = 1 then ThrowParticle()
    
    /////////////////////
    // CAMERA CONTROLS //
    /////////////////////
    
    local yrotation as float
    local xrotation as float
    yrotation=mousemovex()/3.0
    xrotation=mousemovey()/3.0    
    xrotate camera wrapvalue(xrotation+camera angle x())
    yrotate camera wrapvalue(yrotation+camera angle y())
    position mouse screen width()/2, Screen Height()/2
    text 0, 100, "X Camera Angle : " + Str$(-Camera Angle X()+360,0)
    text 0, 120, "Y Camera Angle : " + Str$(Camera Angle Y(),0)
    text 0, 42, "Velocity : " + Str$(V#)
    text 0, 56, "Angle : " + Str$(A#)

    Sync
Loop

Function MakeParticle()

    inc P
    make object sphere p, 8
    color object P, RGB(0, 255, 0)
    set object ambience P, RGB(0, 255, 0)
    position object P, Camera Position X(), Camera Position Y(), Camera Position Z()
    scale object P, 50, 70, 50
    A# = -Camera angle X()
    T# = 0`Timer()
    V# = 80
    rotation = 0
    CamAng = camera angle y()
    Xstart# = Camera Position X()
    Ystart# = Camera Position Y()
    Zstart# = Camera Position Z()
    Sca# = 0
    ExpT# = 0
    
endFunction

Function ThrowParticle()
    
    rotation = rotation + rnd(4)
                    
    Xpos = ((V#)*((T#)/1000)*cos(A#))*sin(CamAng) + Xstart#
    Ypos = ((V#)*((T#)/1000)*sin(A#)) - (0.5*(G#*((T#)/1000)^2)) + Ystart#
    Zpos = ((V#)*((T#)/1000)*cos(A#))*cos(CamAng) + Zstart#
    
    if ExpT# < 8000
        position object P, Xpos, Ypos, Zpos
        if V# > 1 then zrotate object P, rotation    
    endif
    
    inc T#, 40
    inc ExpT#, 40
          
    text 0, 0, "x position : " + Str$(Xpos, 4)
    text 0, 14, "y position : " + Str$(Ypos, 4)
    text 0, 28, "time in air : " + str$((Timer()-T#)/1000, 2) + "s"
    
    if Ypos <= object position y(5000)+6 and Bounce = 0
        Bounce = 1
        A# = A#
        T# = 40`Timer()
        V# = V#/1.5
        Xstart# = Object Position X(P)
        Ystart# = Object Position Y(P)
        Zstart# = Object Position Z(P)
    endif
    
    if ExpT# > 8000
        inc Sca#, 200
        color object P, rgb(255, 0, 0)
        set object ambience P, rgb(255, 0, 0)
        scale object P, 50+Sca#, 70+Sca#, 50+Sca#
        V# = 0
    endif
    
    if Ypos > object position y(5000)+6 then Bounce = 0
    
    if V# < 1 and Sca# >= 2000 then throw = 0

endFunction

Yours
Tv.

Click my signature for free webhosting!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Code Snippets / [DBP] grenades