[DBP] - RPG damage numbers - GameCreators Forum

Author

Message

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 23rd Sep 2012 04:30 Edited at: 23rd Sep 2012 04:30

Link

Or what I call text "poppers"! (cause I didn't know what else to call the array)

Ever played a game where every hit you land (or take) shows the amount of damage pop up over the character's head? Yeah, that's what this snippet does.

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, September 22, 2012
Rem Author:  Phaelax
Rem ***** Main Source File *****

Type Popper
    x as integer
    y as integer
    msg as string
    alpha as integer
    timestamp as dword
EndType

dim poppers(0) as Popper

sync on
`sync rate 60

do

box 0, 0, 640, 480, rgb(255,0,0), rgb(255,255,0), rgb(0,255,0), rgb(0,0,255)

if mouseclick() = 1 and mFlag = 0
        mFlag = 1
        addPopper(mousex(), mousey(), str$(rnd(1200)))
    endif
    if mouseclick() = 0 then mFlag = 0

doPoppers()

ink 0,0
    set cursor 0,0
    print screen fps()
    
    sync
loop

function doPoppers()
    t = timer()
    for i = 1 to array count(poppers())
        ink argb(poppers(i).alpha,255,255,0), 0
        center text poppers(i).x, poppers(i).y, poppers(i).msg
        if poppers(i).timestamp+10 < t
            dec poppers(i).alpha, 8
            dec poppers(i).y, 2
            poppers(i).timestamp = timer()
            if poppers(i).alpha <= 0 then removePopper() : i = i - 1
        endif
    next i
endfunction

function removePopper()
     remove from queue poppers()
endfunction

function addPopper(x, y, msg$)
    add to queue poppers()
    poppers().x = x
    poppers().y = y
    poppers().msg = msg$
    poppers().alpha = 255
    poppers().timestamp = timer()
endfunction

function argb(a, r, g, b)
    c as dword
    c = (a*16777216)+(r*65536)+(g*256)+b
endfunction c

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, September 22, 2012
Rem Author:  Phaelax
Rem ***** Main Source File *****

Type Popper
    x as integer
    y as integer
    msg as string
    alpha as integer
    timestamp as dword
EndType

dim poppers(0) as Popper



sync on
`sync rate 60

do

    box 0, 0, 640, 480, rgb(255,0,0), rgb(255,255,0), rgb(0,255,0), rgb(0,0,255)


    if mouseclick() = 1 and mFlag = 0
        mFlag = 1
        addPopper(mousex(), mousey(), str$(rnd(1200)))
    endif
    if mouseclick() = 0 then mFlag = 0



    doPoppers()


    ink 0,0
    set cursor 0,0
    print screen fps()
    
    sync
loop


function doPoppers()
    t = timer()
    for i = 1 to array count(poppers())
        ink argb(poppers(i).alpha,255,255,0), 0
        center text poppers(i).x, poppers(i).y, poppers(i).msg
        if poppers(i).timestamp+10 < t
            dec poppers(i).alpha, 8
            dec poppers(i).y, 2
            poppers(i).timestamp = timer()
            if poppers(i).alpha <= 0 then removePopper() : i = i - 1
        endif
    next i
endfunction


function removePopper()
     remove from queue poppers()
endfunction

function addPopper(x, y, msg$)
    add to queue poppers()
    poppers().x = x
    poppers().y = y
    poppers().msg = msg$
    poppers().alpha = 255
    poppers().timestamp = timer()
endfunction


function argb(a, r, g, b)
    c as dword
    c = (a*16777216)+(r*65536)+(g*256)+b
endfunction c

"You're not going crazy. You're going sane in a crazy world!" ~Tick

Back to top

Profile PM Email Website

MrValentine

AGK Backer

13

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 23rd Sep 2012 16:20

Link

You ARE LEGEND!!!

Back to top

Profile PM

Sergey K

20

Years of Service

User Offline

Joined: 4th Jan 2004

Location:

Posted: 23rd Sep 2012 23:06

Link

soo many 2D samples in last few months..
you MUST be doing some kind of 2D RPG-type game, dont you?

Advanced Updater for your games!

Back to top

Profile PM Website

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 23rd Sep 2012 23:20 Edited at: 23rd Sep 2012 23:23

Link

Most of what I do is 2D, I have more fun with it.

I was about to upload it when I noticed all my extra array code was just essentially creating a queue, so I pulled out half the code and simplified it with the queue commands.

It is timer-based so you don't have to worry about your frame rates. Although, I did notice it was slightly faster at 4k FPS than when I locked it at 60.

"You're not going crazy. You're going sane in a crazy world!" ~Tick

Back to top

Profile PM Email Website

Duffer

21

Years of Service

User Offline

Joined: 9th Feb 2003

Location: chair

Posted: 26th Sep 2012 22:32

Link

This is darn useful - thanks

a long time dabbler with DBC and DBPro with no actual talent but lots of enthusiasm...

Back to top

Profile PM Email

Qqite

14

Years of Service

User Offline

Joined: 28th Feb 2010

Location: Florida, U.S.

Posted: 2nd Oct 2012 00:24

Link

Just edited it to make it smoothly accelerate.
:3

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, September 22, 2012
Rem Author:  Phaelax
Rem ***** Main Source File *****

Type Popper
    x as integer
    y as integer
    yVel as float
    yAcc as float
    msg as string
    alpha as integer
    timestamp as dword
EndType

dim poppers(0) as Popper

sync on
`sync rate 60

do

box 0, 0, 640, 480, rgb(255,0,0), rgb(255,255,0), rgb(0,255,0), rgb(0,0,255)

if mouseclick() = 1 and mFlag = 0
        mFlag = 1
        addPopper(mousex(), mousey(), str$(rnd(1200)))
    endif
    if mouseclick() = 0 then mFlag = 0

doPoppers()

ink 0,0
    set cursor 0,0
    print screen fps()
    
    sync
loop

function doPoppers()
    t = timer()
    for i = 1 to array count(poppers())
        ink argb(poppers(i).alpha,255,255,0), 0
        center text poppers(i).x, poppers(i).y, poppers(i).msg
        if poppers(i).timestamp+15 < t
            dec poppers(i).alpha, 6
            inc poppers(i).yAcc, 0.1
            inc poppers(i).yVel, 0.025*poppers(i).yAcc
            dec poppers(i).y, 2.0*poppers(i).yVel
            poppers(i).timestamp = timer()
            if poppers(i).alpha <= 0 then removePopper() : i = i - 1
        endif
    next i
endfunction

function removePopper()
     remove from queue poppers()
endfunction

function addPopper(x, y, msg$)
    add to queue poppers()
    poppers().x = x
    poppers().y = y-text height("5") //To be above the cursor
    poppers().msg = msg$
    poppers().alpha = 255
    poppers().timestamp = timer()
    poppers().yVel = 0.25
    poppers().yAcc = 0.1 
endfunction

function argb(a, r, g, b)
    c as dword
    c = (a*16777216)+(r*65536)+(g*256)+b
endfunction c

+ Code Snippet

Rem Project: Dark Basic Pro Project
Rem Created: Saturday, September 22, 2012
Rem Author:  Phaelax
Rem ***** Main Source File *****

Type Popper
    x as integer
    y as integer
    yVel as float
    yAcc as float
    msg as string
    alpha as integer
    timestamp as dword
EndType

dim poppers(0) as Popper



sync on
`sync rate 60

do

    box 0, 0, 640, 480, rgb(255,0,0), rgb(255,255,0), rgb(0,255,0), rgb(0,0,255)


    if mouseclick() = 1 and mFlag = 0
        mFlag = 1
        addPopper(mousex(), mousey(), str$(rnd(1200)))
    endif
    if mouseclick() = 0 then mFlag = 0



    doPoppers()


    ink 0,0
    set cursor 0,0
    print screen fps()
    
    sync
loop


function doPoppers()
    t = timer()
    for i = 1 to array count(poppers())
        ink argb(poppers(i).alpha,255,255,0), 0
        center text poppers(i).x, poppers(i).y, poppers(i).msg
        if poppers(i).timestamp+15 < t
            dec poppers(i).alpha, 6
            inc poppers(i).yAcc, 0.1
            inc poppers(i).yVel, 0.025*poppers(i).yAcc
            dec poppers(i).y, 2.0*poppers(i).yVel
            poppers(i).timestamp = timer()
            if poppers(i).alpha <= 0 then removePopper() : i = i - 1
        endif
    next i
endfunction


function removePopper()
     remove from queue poppers()
endfunction

function addPopper(x, y, msg$)
    add to queue poppers()
    poppers().x = x
    poppers().y = y-text height("5") //To be above the cursor
    poppers().msg = msg$
    poppers().alpha = 255
    poppers().timestamp = timer()
    poppers().yVel = 0.25
    poppers().yAcc = 0.1 
endfunction


function argb(a, r, g, b)
    c as dword
    c = (a*16777216)+(r*65536)+(g*256)+b
endfunction c

Ventures of the worlds around us are limited only by our imagination.

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / [DBP] - RPG damage numbers