N2D Engine

[EclipsE]

posto je projekat Battle Craft propao zbog toga sto nema nikog ko ce da mi crta a i iskreno receno, mnogo bi tu bilo rada, pozdravite glupi 2D engine koji koristi BitBlt, koji je besplatan i koji je trebao da pokrece Battle Craft
menjajte ga, radite mu sta hocete, koristite ga u svojim projektima...............
pisan u VB6

engine nije zavrsen zbog toga sto nema podrske za muziku ali to nije tesko dodati itd...

e sad, za one koji ne mogu da se snadju tu je i jedan test
nacin na koji radi, provalicete
ako vam nesto treba, objasnjenje itd. tu sam

[nika100]

Engine ti je odlican!

[EclipsE]

trenutno ga radim u directx 8, imam i particle!

[holodoc]

Jel ono tvoj engine kompletno ili je odnekud hm, hm, pozajmljen pošto vidim da su komentari na engleskom.

Inače kakvog tipa je trebala da bude ta tvoja igra "Battle Craft" ako nije tajna. Koliko sam ja uspeo da vidim u kodu većinski igra odrađuje sistem kolizije među blokovima i učitavanje bitmapa u iste. Jel igrica uopšte trebala da se radi u nekom izometrijskom fazonu ili?

[EclipsE]

Kompletno moj!
a evo sad gledam, jedino sto ima komentare i sto nije moje, je ovo

Public Sub EventPause(sngSeconds As Single)

    '// A Single will convert to scientific notation when concatenating a
    '//  number resulting in 8-digits or more. This can introduce inaccuracies
    '//  as a result of the number being rounded when converted. Therefore we
    '//  must declare doubles when working with the date counter to avoid
    '//  converting to scientific notation.
    Dim dblTotal As Double, dblDateCounter As Double, sngStart As Single
    Dim dblReset As Double, sngTotalSecs As Single, intTemp As Integer
        '// For our purposes, it's better to concatenate five zeros onto the
        '//  end of our date counter, then ADD any Timer values to it.
        dblDateCounter = ((Year(Date) + Month(Date) + Day(Date)) _
          & 0 & 0 & 0 & 0 & 0)
        '// Initialize start time.
        sngStart = Timer
        '// We also need to adjust for the possible resetting of Timer()
        '//  (such as if the Time happens to be just before midnight) when
        '//  adding the Pause time onto the Start time. The folowing formula
        '//  takes ANY value of the total seconds, whether it's above or below
        '//  the 86400 limit, and converts it to a format compatible to the
        '//  date counter.
        sngTotalSecs = (sngStart + sngSeconds)
        intTemp = (sngTotalSecs \ 86400)   '// Return the integer portion only
        dblReset = (intTemp * 100000) + (sngTotalSecs - (intTemp * 86400))
        '// Now we can initialize our total time.
        dblTotal = dblDateCounter + dblReset
    
    '// Timer loop
    Do
        DoEvents        '// Make sure any other tasks get some attention
    '// For this to work properly, we cannot create a variable with the
    '//  concatenated expression and plug it in unless we reset the variable
    '//  during the loop. Much better to do it like this:
    Loop While (dblDateCounter + Timer) < dblTotal
    
End Sub

To vishe i ne koristim.

A sto se tice Battle Craft-a, ne, nije trebala da bude u nekom izometrijskom fazonu.

Samo da znate, ovaj engine ima puuuno bagova koje sam ispravio... Nov nacin kolizije, otklonjena greska u ucitavanju mapa...