Re: Boats & Guns !

[drfloyd]

tu m'étonnes !!!! C'est un rêve de gamin ton jeu !!!!!!!!!

[Tozman]

Beau travail,

ça fonctionne sous linux via WINE.

Continue bien

[Invité]

Bonsoir à tous,

Ce soir, j'ai travaillé sur un moteur de génération de monde en 2D !!
Et oui rien que ça ... Je précise qu'il s'agit de ma propre méthode, point de bruit de Perlin ou autres algos connus.
J'aime bien me triturer les méninges en cherchant par moi même !  

Le rendu dépasse mes espérances :





Pour se faire, j'utilise une procédure "maison" dans lequel je définie :
- Le nombre d'ile.
- L'espacement minimum entre l'origine de chaque île.
- La densité de l'ile.

Par exemple avec un rendu 500,25,250 on peut avoir une carte comme celle ci ( en 800x 600 ) :



Bien entendu, toute la carte est constellée d'iles et d'îlots ( 5000x5000 )

Il s'agit d'un premier traitement "brut" histoire de donner un corps à chaque ile.
Il faut ensuite les embellir en y ajoutant divers objets : rochers, arbres, buisson, etc ...
Je peux aussi réduire le scaling des tiles pour affiner leur silhouette ! Ici, les tiles de base font 32 x 32.

Je gère ensuite mes images sous forme de "Calque" tout comme je l'avais fait avec Papi Commando pour consommer un minimum de cycle CPU.
Bref, encore un casse tête de plus de résolu !! Nul doute que beaucoup d'autres m'attendent ...
Pour le moment, je n'ai pas mis à jour la démo car il reste encore du boulot sur la gestion de la World Map.

A bientôt ! :)

PS :
Merci beaucoup Tozman !!
En fait, j'ai oublié de compiler le code sous Linux ... Promis, pour la prochaine MaJ je le ferai !!

[drfloyd]

c'est ce que je fais pour generer le sol des planetes de COSMOS :



(Tu vas vite t'apercevoir que tu peux grandement améliorer ton générateur)

[Invité]

Et oui Doc' !!!
Avant d'aller au dodo, j'ai amélioré mon générateur de World Map en y intégrant l'échelle ( Scale ) et en modifiant mon algorithme.

Cela donne un résultat beaucoup plus convaincant avec des iles aux formes beaucoup plus harmonieuses :








Ici, l'échelle Scale est de 8 x 8 px en utilisant toujours mon Tile de Base de 32x32 !
Avec une Tile à l'échelle adaptée, j'aurai des contours moins durs.
Bref, j'ai enfin de quoi réaliser un World Map digne des Antilles et Caraibes pour les futurs flibustiers !!!

[drfloyd]

whaouuu... tu vas vite !

j'essaye de comprendre comment tu as fait pour mélanger des tiles de 32x32 avec des tiles de 8x8. C'est un double affichage de la map ou tu as tout passé en 8x8 ?

[Invité]

Non j'utilise toujours la même tile 32 x 32 !
C'est le Pas d'affichage de mes Tile qui est de 8 x 8 :

CoordX = CoordX + Scale
CoordY = CoordY + Scale

Ici, si ma valeur de Scale définie la résolution de mon terrain quelque soit la taille de la Tile. Il faut juste que la taille d'origine de celle ci soit toujours supérieure à l'échelle définie.

D'ailleurs, je vous donne le code source de mon générateur de Map ( en l'état ) qui sera sans doute sujet à plein de modification !

Code:

'///// Gestion g‚n‚ration Carte /////
SUB MapGenerator (Nombreile AS INTEGER, Densite AS INTEGER, Espacement AS INTEGER, Scale AS INTEGER)

DIM NombreElement AS INTEGER
DIM CorpIle(60000) AS SpriteTableau
DIM Erreur AS INTEGER

Seed = 10

'En premier lieu, on va g‚n‚rer l'origine de chaque ile sur la carte
FOR I = 1 TO Nombreile
    Debut:
    RANDOMIZE TIMER
    OrigineIle(I).Coordx = INT((RND * 5000) + 1)
    RANDOMIZE TIMER
    OrigineIle(I).Coordy = INT((RND * 5000) + 1)

    'On va bien espacer les corps de chaque ile
    FOR J = 1 TO I
        IF J <> I THEN
            IF ABS(OrigineIle(I).Coordx - OrigineIle(J).Coordx) <= Espacement AND ABS(OrigineIle(I).Coordy - OrigineIle(J).Coordy) <= Espacement THEN GOTO Debut:
        END IF
    NEXT
NEXT

'Ensuite on va cr‚er le corps de nos iles
FOR I = 1 TO Nombreile

    FOR J = 1 TO Densite
        NombreElement = NombreElement + 1
        Seed = Seed + 1

        IF J = 1 THEN
            CorpIle(NombreElement).Coordy = OrigineIle(I).Coordy
            CorpIle(NombreElement).Coordx = OrigineIle(I).Coordx

            'Inscription dans le tableau
            TerrainMap(CorpIle(NombreElement).Coordx, CorpIle(NombreElement).Coordy) = 1
        END IF

        'Algo de g‚n‚ration
        IF J > 1 THEN
            TamponX = OrigineIle(I).Coordx
            TamponY = OrigineIle(I).Coordy
            Deb:
            Erreur = Erreur + 1
            RANDOMIZE Seed
            SELECT CASE INT((RND * 8) + 1)
                CASE 1
                    OrigineIle(I).Coordx = OrigineIle(I).Coordx + Scale
                CASE 2
                    OrigineIle(I).Coordx = OrigineIle(I).Coordx - Scale
                CASE 3
                    OrigineIle(I).Coordy = OrigineIle(I).Coordy + Scale
                CASE 4
                    OrigineIle(I).Coordy = OrigineIle(I).Coordy - Scale
                CASE 5
                    OrigineIle(I).Coordy = OrigineIle(I).Coordy + Scale
                    OrigineIle(I).Coordx = OrigineIle(I).Coordx - Scale
                CASE 6
                    OrigineIle(I).Coordy = OrigineIle(I).Coordy - Scale
                    OrigineIle(I).Coordx = OrigineIle(I).Coordx - Scale
                CASE 7
                    OrigineIle(I).Coordy = OrigineIle(I).Coordy + Scale
                    OrigineIle(I).Coordx = OrigineIle(I).Coordx + Scale
                CASE 8
                    OrigineIle(I).Coordy = OrigineIle(I).Coordy - Scale
                    OrigineIle(I).Coordx = OrigineIle(I).Coordx + Scale
            END SELECT

            'Limite
            IF OrigineIle(I).Coordx > 4800 THEN OrigineIle(I).Coordx = 4800
            IF OrigineIle(I).Coordy > 4800 THEN OrigineIle(I).Coordy = 4800
            IF OrigineIle(I).Coordx < 100 THEN OrigineIle(I).Coordx = 100
            IF OrigineIle(I).Coordy < 100 THEN OrigineIle(I).Coordy = 100

            IF TerrainMap(OrigineIle(I).Coordx, OrigineIle(I).Coordx) = 1 AND Erreur < 30000 THEN
                OrigineIle(I).Coordx = TamponX
                OrigineIle(I).Coordy = TamponY
                GOTO Deb:
            END IF

            CorpIle(NombreElement).Coordx = OrigineIle(I).Coordx
            CorpIle(NombreElement).Coordy = OrigineIle(I).Coordy

            'Inscription
            TerrainMap(CorpIle(NombreElement).Coordx, CorpIle(NombreElement).Coordy) = 1
        END IF


        OrigineIle(I).Coordy = CorpIle(NombreElement).Coordy
        OrigineIle(I).Coordx = CorpIle(NombreElement).Coordx
    NEXT
    Erreur = 0
NEXT

'On va dessiner notre rendu
_DEST MapGround(1)
_CLEARCOLOR 0
FOR I = 0 TO NombreElement
    _PUTIMAGE (CorpIle(I).Coordx, CorpIle(I).Coordy), G_Ground
NEXT

END SUB

Celui si s'enrichira avec de la végétation et sans doute des chemins, etc ...
C'est un problème très connu en développement de jeu depuis des lustres, mais c'est tellement fun à faire !! ^^

[Invité]

Bonjour à tous,

Amélioration substantielle des iles, avec apparition des plages et bas fonds ( en fait les contours des iles ) pour un rendu plus réaliste :


Avec une résolution plus fine :



Ah, j'ai aussi changé cette Rose des vents horribles, et la police.

EDIT :
Avec un peu de verdure, ça sera mieux :

[drfloyd]

Bordel c'est enorme

Je ne sais pas gerer les les bordures d'ile (sable et vagues) comme tu fais, quelle est la technique grosso modo ?

Et sinon quid de la gestion des contacts vu que certaines tiles de 32x32 vont contenir plusieurs types de tiles 8x8 ?

[Invité]

Pour les bordures, c'est très simple !
J'utilise des tiles plus grandes.
Les bas fonds sont les plus grandes ( 70 * 70 ), les plages ( 48 * 48 ), l'herbe ( 16 * 16 ) et les arbres ( 8 * 8 )
Ensuite j'affiche couche par couche les différents éléments de la plus grosses textures a la plus petites.
Il faut jouer avec les coordonnées x,y pour bien juxtaposer le tout.
Pour les collisions, ça sera un tableau 2D statique avec la même méthode que Papi commando.
Les tiles ont un gabarit et j'applique ce gabarit aux coordonnées de chacune par le biais d'une double boucle for next ...
Je ne suis pas chez moi, mais je donnerai la source si vous voulez.

[grostonton]

Vetea, avoue que tu es le lance armstrong de la programmation QB64 lol, plus sérieusement, ta petite démo donne l'eau à la bouche et nous met dans une attente relativement insoutenable de la suite .

[Invité]

Merci Grostonton !!
Promis, je ne me dope pas !!
Moi aussi j'ai hâte de poursuivre ce petit jeu mais qui a un potentiel énorme.
En plus les techniques sont différentes ...
Moi j'ai toujours adoré les batailles navales de pirates, on va perdurer le rêve avec ce jeu !!

[Bonaf]

T'envoies du rêve Vetea !
Comme tu dis y a un gros potentiel, et je ne me fais pas de soucis pour que tu l'exploites

[drfloyd]

le potentiel est énorme, il suffit de se souvenir de Pirates! Action, stratégie, commerce, aventure, combat....

[Invité]

Merci Bonaf & Doc' !!!
Le potentiel de l'original, je le connais. Son créateur Sid Meier, c'est un génie ( au même titre que Braben, même si ce dernier est une vraie brute au niveau technique ... ), moi je n'ai pas la prétention de les égaler, mais de me faire plaisir !

Bon, pour revenir au projet et à mon générateur de World Map, voici des vrais petits arbres peuplant les iles :



Cela donne un peu plus de vie au monde.
J'ai inclu une gestion du Z-Order lors de la génération ainsi que l'ombrage des arbres ...
Sur mon Q9550 à 4 coeur, la génération est assez rapide, juste quelques secondes pour traiter pas moins de 50 000 éléments !
J'aime bien mes petites iles ... Il ne manque plus que quelques villages, port et surtout, la gestion de leur collision car pour le moment, le bateau navigue sur celle ci !! ahah ^^

A bientôt ! :)

[drfloyd]

(fait gaffe, la génération risque de finir par etre assez longue sur un Atom), prevoir peut etre un ecran intermediaire pendant ce calcul.

je n'ai pas tout compris sur ta façon de generer simplement les coutours des iles (sable/vagues), mais bon c'est pas grave, je ne cherche pas absolument à savoir

[Rosco]

Superbe travail et rapides les évolutions;
Ca me rappelle le superbe Tortuga qui avait été pour moi le seul jeu/remake de Pirates m'ayant captivé des dizaines et dizaines d'heures si ce n'est plus !

[Invité]

Oh oui Tortuga !!
Purée une tuerie ce jeu ... Merci en tout cas pour la comparaison, c'est très flatteur car j'arriverai pas a un tel résultat hein !!!
Ça sera un jeu a ma sauce mais je l'espère captivant. :)

[ocin]

J'aime bien les arbres. Il faudrait leur mettre, je sais pas comment dire, une "limite" pour pas que 2 soit collés l'un a l'autre. Style, laisser quelques pixels autour de chaque arbre.
Pour le tile de la mer, essaye de supprimer l'effet "tiles" justement.
Peut être qu'une trame sur les "basses eaux", réduirait l'effet carré.
Enfin bref, désolé je m'intéresse qu'à l'aspect graphique
La rose des vents pourrait être aussi dans les style de l'époque.
Après que cette "époque" ne te restreint pas. Tu peux mélanger les univers

[Invité]

Bonjour à tous,

Alors, voici du "lourd", j'ai bien bossé cet après midi et j'ai enfin mis un point d'honneur à mon générateur de World Map grâce à l'éditeur qui sera intégré au projet :



( Le fond de mer a un scrolling multidirectionnel ... )
Avec ce menu, vous pourrez définir la World Map de votre choix !! :)
Si la génération demande trop de Calcul, vous en serez averti ... Une sécurité est intégrée afin de ne pas dépasser certaine limite.
La navigation se fait avec les touches fléchées tout simplement et ENTER pour valider les sélections.

Maintenant, les nouvelles améliorations graphiques du projet :




- Les Iles ont subit un lissage et seront moins "rectangulaire" !
- Les Iles ont enfin un nom qui leur seront propre !
- Les nuages ont été remanié pour un plus bel effet !
- Un nouvelle effet de vague sur la mer a été implanté !
- La Mémoire occupée a été grandement réduite !
- Gestion de la HitBox des Iles.

Le tout tourne parfaitement sur un NetBook, mais la génération sera un peu plus lente.

Voila, le rendu est franchement excellent ! :)
Le projet est vraiment bien parti !

Je diffuserai une nouvelle démo sous peu.
Soyez à l'affut.

PS :
Merci Ocin, j'ai tenu compte de tes remarques lors de mes travaux !

[drfloyd]

tu fais en un apres midi le boulot de 10 employés chez Ubisoft sur 1 semaine !!!!!

En plus eux c'est avec des outils qui font tout à leur place... et pour pondre de la daube 

(ne diffuse pas trop de démos jouables, c'est trop tot, les demos jouable ca doit etre rare)

[Invité]

Merci beaucoup Doc' !!

Comparé mon travail à des pros de chez UbiSoft, c'est un peu abusé non ?
Après moi Ubi Soft, j'en garde des souvenirs de gosse à l'époque de Zombi, Asphalt, etc ...
Après leur dernière prod', je ne connais pas à part les lapins crétins que je n'aime pas du tout ... Mais bon, quand j'aime pas, j'ignore c'est ma règle !

Une démo jouable me permet d'avoir des retours de bugs que je n'aurai pas détectés, des avis divers, etc ... Mais c'est sûr qu'il faut pas en sortir tous les 2 jours ! ^^

Bon, je met le cerveau en mode pause ...

[ocin]

En effet, le rendu graphique est nettement meilleur.
Tu pourrais même faire des arbres différents, des montagnes, des rivières etc...
Bref tu va t'éclater sur les iles :)
Moi ça me fait penser aux iles de powermonger, je sais pas pourquoi

[Invité]

Oui c'est tout a fait possible !!
Mais je n'ai envie de trop surcharger les îles, je les veut épurée !
Enfin bon, je vais enjoliver tout ça.
Certaine îles auront des ressources et des ports pour de futures actions.
Des recifs, des vols de mouettes, des petits dauphins de ci de là, etc ...
Cela n'est pas très complique a faire.
La grosse partie sera l'IA et il faudra que je songe a implanter l'A * pour un pathfinding avancé.

[F.L]

c'est carrement impressionnant ce que tu arrive à faire si rapidement,et en basic s'il vous plait !

[Invité]

Merci les amis !!
Ce n'est pas n'importe quel Basic, c'est QB64 !! Le meilleur Basic du monde !

Bon, avant le dodo, j'ai ajouté 2 autres types d'arbres, des palmiers en plus des autres petits arbres pour un rendu "cartoon" :


De plus, j'ai aussi géré une collision "améliorée" ou chaque ile possède sa propre "Hitbox" de manière à détecter quel est l'endroit ou le bateau accoste comme l'image ci dessus.

Voila, c'est tout pour ce week-end, et c'est déjà pas si mal ...
A bientôt ! :)

[drfloyd]

le basic QB64, non, le meilleur langage de programmation au monde, qui permet de programmer vite et bien.

Qui programme encore en C++ de nos jours ???? QUIII !!!!!!????

Sinon quand meme, c'est vrai, Vetea est un fou furieux !!!!!!

[drfloyd]

Merci les amis !!
Ce n'est pas n'importe quel Basic, c'est QB64 !! Le meilleur Basic du monde !

meilleur LANGAGE meme.

[Invité]

Bonsoir à tous,

Petite session de codage ce soir, début de semaine difficile !
J'ai enjolivé un peu l'écran de l'éditeur de World Map :



Le fond est une réelle map "Continent" avec un scrolling multi pour un effet très sympa.
De plus, j'ai ajouté une mini "Gui" avec une fenêtre en forme de parchemin programmable et étirable sur les 2 axes !
Très pratique pour afficher des informations pour le futur !

Après, j'ai optimisé la mémoire, optimiser la génération du World Map ainsi que le code.
C'est tout pour ce soir !

A bientôt !

[drfloyd]

que ça aujourd'hui !!!????

Je déconne.

[Invité]

Ce matin, j'ai pris 10 min pour gérer la transparence des fenêtres et autres effets de dégradé Alpha.
Merci à Waltersmind pour son aide.