Forum Liberty Basic France
• Index
Reprise du message précédent
NOTE: Ces deux codes sont à utiliser avec le dossier "bmp" du jeu "Eternal Quest": E_Q 2.67.1 d'Atomose.
Dans lequel, il faut copier sur place: perso2z; pour créer: perso3d; perso3q; perso3s; et: perso3z. Qui manquent (pour éviter de toucher au code)
Il est possible de virer tout le reste puisque seuls les persos servent pour le test.
Evidemment; garder le dossier map.
Salut Atomose,
J'ai tellement transpiré sur ton code, que j'ai repris celui de Cassiope; en y faisant quelques modifs.
Les modifs générales:
-- J'ai viré toutes les subs (sauf les prises de côtes.) Les sub's, c'est comme le Diable: Puissant, mais gare aux coups de fourches !
-- Remplacé: "Graphics" par: "Window" + "Graphicbox" (moins capricieux)
-- Séparé la partie "Editeur" de la partie "Test". (avoir les deux codes côte à côte)
-- Remplacé le tableau numérique par un tableau "chaîne". Ce qui porte le nombre d'évenements possibles, de: 9 à: 256 - (2ou3) ("x"; "; et: " ".)
-- Ajouté une prise de côtes en unité: N° de case. ( clic droit), et en pixels (clic du milieu)
Modifs "Editeur":
-- Ajouté un "Tableau de bord" (fenêtre séparée)
--Au lancement on choisi une map directement dans le dossier.
-- Au "Save" le fichier "Limites" est envoyé dans le dossier des maps, avec le même nom que sa map.
--Pour annuler les erreurs: Entrer "x" dans: Case Value et valider ("x" étant les parties "libres".
Modifs Partie "Test":
-- Remplacé: "Double clic" par: "Simple clic".
-- Introduit Affichage textes
-- Ajouté un bouton "Affichage limites"
-- Ajouté une prises de côtes idem qu'éditeur.
-- Ebauche changement de map.
ça, c'est l'EDITEUR:
Code VB :
Et ça, c'est la fenêtre de TESTS
Code VB :
NOTE: Ces deux codes sont à utiliser avec le dossier "bmp" du jeu "Eternal Quest": E_Q 2.67.1 d'Atomose.
Dans lequel, il faut copier sur place: perso2z; pour créer: perso3d; perso3q; perso3s; et: perso3z. Qui manquent (pour éviter de toucher au code)
Il est possible de virer tout le reste puisque seuls les persos servent pour le test.
Evidemment; garder le dossier map.
Salut Atomose,
J'ai tellement transpiré sur ton code, que j'ai repris celui de Cassiope; en y faisant quelques modifs.
Les modifs générales:
-- J'ai viré toutes les subs (sauf les prises de côtes.) Les sub's, c'est comme le Diable: Puissant, mais gare aux coups de fourches !
-- Remplacé: "Graphics" par: "Window" + "Graphicbox" (moins capricieux)
-- Séparé la partie "Editeur" de la partie "Test". (avoir les deux codes côte à côte)
-- Remplacé le tableau numérique par un tableau "chaîne". Ce qui porte le nombre d'évenements possibles, de: 9 à: 256 - (2ou3) ("x"; "; et: " ".)
-- Ajouté une prise de côtes en unité: N° de case. ( clic droit), et en pixels (clic du milieu)
Modifs "Editeur":
-- Ajouté un "Tableau de bord" (fenêtre séparée)
--Au lancement on choisi une map directement dans le dossier.
-- Au "Save" le fichier "Limites" est envoyé dans le dossier des maps, avec le même nom que sa map.
--Pour annuler les erreurs: Entrer "x" dans: Case Value et valider ("x" étant les parties "libres".
Modifs Partie "Test":
-- Remplacé: "Double clic" par: "Simple clic".
-- Introduit Affichage textes
-- Ajouté un bouton "Affichage limites"
-- Ajouté une prises de côtes idem qu'éditeur.
-- Ebauche changement de map.
ça, c'est l'EDITEUR:
Code VB :
'EDITEUR nomainwin [retour] dim info$(10,10) FILEDIALOG "Open", DefaultDir$+"\bmp\map\*.bmp", Filename$ '--ci-dessous: grosse magouille xj= instr(Filename$, "map")+3 '----pour extraction du nom sec charge$ = right$(Filename$,len(Filename$)-xj) '---arrachage de ce qu'il y a devant map$ = left$(charge$,len(charge$)-4) '---arrachage de ce qu'il y a derrière WindowWidth = 880 WindowHeight = 538+5 UpperLeftX=int((DisplayWidth-WindowWidth)/1.5) UpperLeftY=int((DisplayHeight-WindowHeight)/2) Global ncx, ncy, lc, SpriteCourant, caseValue Global optab GRAPHICBOX #3b.map, 0, 0, 870, 538 if op3b=1 then [pass3b] open "Editeur de Zones Réactives " for window as #3b if map$="" then [Quit] op3b=1 [pass3b] #3b "trapclose [Quit]" #3b.map, "down" #3b.map, "setfocus" #3b.map, "When rightButtonUp Cotecase"' côtes en cases #3b.map, "When middleButtonDown Cotepix" 'côtes en pixels #3b.map "when leftButtonDown [SimpleClick]" #3b.map, "when leftButtonMove [SimpleClick]" 'pour tracer et enregistrer les limites. #3b.map, "when characterInput Touches" 'pour déplacer le personnage avec les flêches. la même flêche l'arrête. #3b.map, "font Comic_Sans_MS 8" #3b.map, "home; posxy CenterX CenterY" '--------------------------------------- Init Var ----------------------- lc = 15 'dimension d'une case en pixels Gwidth = CenterX * 2 Gheight = CenterY * 2 dpx(1) = 0 :dpx(2) = 1 :dpx(3) = 0 :dpx(4) = -1 dpy(1) = -1 :dpy(2) = 0 :dpy(3) = 1 :dpy(4) = 0 ' incrément de direction , pour la variables tableau ncx = int(Gwidth/lc)+1 'nbre de case en x ncy = int(Gheight/lc)+1 'nbre de case en y dim cas$(ncx,ncy) 'tableau chaine de toute la map caseValue$ = "z" ' valeur de la limite par défaut = mur. gosub [charge] loadbmp "MAP", "bmp\map\"+map$+".bmp" ' LA CARTE à éditer. gosub [grid] gosub [montreLimites] goto [tabbord] wait '---- [montreLimites] #3b.map, "backcolor blue; color yellow" for y = 1 to ncy for x = 1 to ncx'----if cas$(x,y)<>"x"-->si différent de "x" on affiche if cas$(x,y)<>"x" then #3b.map, "place ";(x*lc)-lc/2-2;" ";y*lc-3;" ;|";cas$(x,y) next '----"x" Partie libre (ça ne marchait pas avec: "", ni avec: " ") next #3b.map,"flush;discard" return [SimpleClick] #tab.va, "!contents? value$" caseValue$=value$ mx = int(MouseX / lc)+1 my = int(MouseY / lc)+1 if mx>0 and mx<ncx and my>0 and my<ncy then cas$(mx,my) = caseValue$ #3b.map, "backcolor blue; color blue" #3b.map, "place ";(mx-1)*lc+2;" ";(my-1)*lc+2 #3b.map, "boxfilled ";mx*lc-1;" ";my*lc-1 #3b.map, "color yellow" #3b.map, "place ";(mx*lc)-lc/2-2;" ";my*lc-3;" ;|";cas$(mx,my) end if #3b.map,"flush;discard" wait [grid] #3b.map, "drawbmp MAP 0 0" '----Déplacé d'en haut #3b.map, "color darkgray" for x = 1 to ncx #3b.map, "place ";x*lc;" 0" #3b.map, "goto ";x*lc;" ";ncy*lc 'traits verticaux de la grille next for y = 1 to ncy #3b.map, "place 0 ";y*lc #3b.map, "goto ";ncx*lc;" ";y*lc 'traits horizontaux de la grille next #3b.map,"flush;discard" return wait [charge] redim cas$(ncx,ncy) 'on vide l'ancien tableau file$=map$+".txt" if fileExist(DefaultDir$+"\bmp\map\", file$) then open "bmp\map\"; file$ for input as #grid for y=1 to ncy for x=1 to ncx if eof(#grid) <> 0 then sortgrid=1: exit for 'test de fin de fichier LINE INPUT #grid, cas$(x,y) next if sortgrid=1 then exit for '2 for/next--> 2 exits par flag: "sortgrid" next close #grid else notice " "+chr$(13)+"Pas de fichier : "+ map$+".txt'...!"+chr$(13)+"Il faut donc traçer les limites de cette carte..." for y=1 to ncy '---on rempli la map de "x" (partie libre) for x=1 to ncx '---ce qui permet d'effacer (en remplaçant par: "x") cas$(x,y)="x" next if sortgrid=1 then exit for next end if return [save] filesave$= map$+".txt" confirm "Enregistrer les limites de cette carte ?"; answer$ if answer$ = "yes" then open "bmp\map\"; filesave$ for output as #grid for y = 1 to ncy for x = 1 to ncx #grid, cas$(x,y) next next close #grid notice "Enregistrement"+chr$(13)+"limites de la carte enregistrées dans le fichier"+chr$(13)+map$+".txt" end if goto [Quit] wait [tabbord] '----------------------- Tableau de Bord ------------------------- if optab=1 then [passtab] WindowWidth = 200 WindowHeight = 130 UpperLeftX=20 UpperLeftY=100 BUTTON #tab.cart, "Carte", [carte], UL, 5, 10, 50, 20 BUTTON #tab.grio, "Grid On", [gridon], UL, 60, 10, 60, 20 BUTTON #tab.limo, "Limit On", [limiton], UL, 125, 10, 60, 20 BUTTON #tab.casva, "Case Value", [caseval], UL, 10, 40, 70, 20 textbox #tab.va, 90, 40, 30, 20 BUTTON #tab.des, "Destroy", [destroy], UL, 10, 70, 50, 20 BUTTON #tab.sav, "Save Limites Carte", [save], UL, 80, 70, 110, 20 open "Tableau de bord" for window_nf as #tab [passtab] optab=1 print #tab, "trapclose [Quittab]" #tab.va, caseValue$ wait '------------ [limiton] '----------------- Et.... Ses boutons --------- gosub [montreLimites] wait [carte] #3b.map, "drawbmp MAP 0 0" wait [gridon] gosub [grid] wait [destroy] kill$=map$+".txt" confirm "Vous allez Détruire toutes les données";reponse$ if reponse$="no" then wait if reponse$="yes" then if fileExist(DefaultDir$+"\bmp\map\", kill$) then kill DefaultDir$+"\bmp\map\"+kill$ #3b.map, "fill black" goto [retour] else notice "Le fichier: "+kill$+" n'existe pas encore." end if end if wait function fileExist(path$,filename$) ' gestion des fichiers (note: infos(10,10) en tête de code) files path$,filename$, info$() fileExist = val(info$(0, 0)) end function Function text(x,y,msg$) '------fonction d'affichage de textes #3b.map,"color yellow;backcolor black" #3b.map,"Place ";x;" ";y;";|";msg$ End Function Sub Cotecase handle$, xClick, yClick '----prise de cotes en cases #3b.map, "color yellow;backcolor black" xcase=int(xClick/lc)+1 'coord en N° de case ycase=int(yClick/lc)+1 Print text(xClick,yClick,"xc = "+Str$(xcase)) Print text(xClick,yClick+15,"yc = "+Str$(ycase)) End Sub Sub Cotepix handle$, xClick, yClick '-----prise de cotes en pixels #3b.map, "color yellow;backcolor black" xcase=int(xClick/lc)+1 'coord en N° de case ycase=int(yClick/lc)+1 Print text(xClick,yClick,"xp = "+Str$(xClick)) Print text(xClick,yClick+15,"yp = "+Str$(yClick)) End Sub wait [Quittab] close #tab: optab=0 wait [Quit] if optab=1 then close #tab:optab=0 if map$<>"" then unloadbmp "MAP" close #3b END
Et ça, c'est la fenêtre de TESTS
Code VB :
' FENETRE de TESTS nomainwin WindowWidth = 880 WindowHeight = 538+5 UpperLeftX=int((DisplayWidth-WindowWidth)/1.5) UpperLeftY=int((DisplayHeight-WindowHeight)/2) 'Global ncx, ncy, lc, SpriteCourant', caseValue Global ncx, ncy, lc, SpriteCourant', caseValue$ lc = 15 'dimension d'une case en pixels GRAPHICBOX #3b.map, 0, 0, 870, 538 BUTTON #3b, "Lim", [montreLimites], UL, 5, 10, 40, 20 open " Fenêtre de Test" for window as #3b #3b.map, "trapclose Quit" #3b.map, "down" #3b.map, "setfocus; when leftButtonDown [DoubleClick]" #3b.map, "When rightButtonUp Cotecase"' côtes en cases #3b.map, "When middleButtonDown Cotepix" 'côtes en pixels #3b.map, "font Comic_Sans_MS 8" #3b.map, "home; posxy CenterX CenterY" Gwidth = CenterX * 2 Gheight = CenterY * 2 dpx(1) = 0 :dpx(2) = 1 :dpx(3) = 0 :dpx(4) = -1 dpy(1) = -1 :dpy(2) = 0 :dpy(3) = 1 :dpy(4) = 0 ' incrément de direction , pour la variables tableau ncx = int(Gwidth/lc)+1 'nbre de case en x ncy = int(Gheight/lc)+1 'nbre de case en y ' dim cas(ncx,ncy) 'variable tableau de toutes la map. dim cas$(ncx,ncy) dim info$(10,10) indice=2 pCX = 14 ' position initiale du personnage (en cases) pCY = 18 [restart] nom$="maphum"+str$(indice) map$=nom$+".bmp" lim$=nom$+".txt" gosub [charge] loadbmp "MAP", "bmp\map\";map$ #3b.map, "drawbmp MAP 0 0" print #3b.map, "background MAP" sprites$ = "perso1d perso2d perso3d perso4d perso1s perso2s perso3s perso4s "+_ "perso1q perso2q perso3q perso4q perso1z perso2z perso3z perso4z" for s = 1 to 16 loadbmp word$(sprites$,s), "bmp\"+word$(sprites$,s)+".bmp" next #3b.map, "addsprite perso1 perso1z perso2z perso3z perso4z" 'création des 4 sprites pour chaque futures direction de déplacement... #3b.map, "addsprite perso2 perso1d perso2d perso3d perso4d" #3b.map, "addsprite perso3 perso1s perso2s perso3s perso4s" #3b.map, "addsprite perso4 perso1q perso2q perso3q perso4q" for SpriteCourant = 1 to 4 #3b.map, "spritexy perso";SpriteCourant;" ";pCX*lc;" ";pCY*lc 'place tous les sprites du personnage là. #3b.map, "cyclesprite perso";SpriteCourant;" 1" #3b.map, "spritevisible perso";SpriteCourant;" off" next SpriteCourant = 3 #3b.map, "spritevisible perso";SpriteCourant;" on" #3b.map, "drawsprites" 'affiche le sprite courant. wait [DoubleClick] mX = MouseX mY = MouseY icp = 6 'incrément de déplacement en pixels. #3b.map, "spritexy? perso";SpriteCourant;" cursX cursY" 'coordonnées actuelles du personnage <------ dir = direction(cursX,cursY,mX,mY) 'fonction qui donne la direction du déplacement... destinée à utiliser le sprite adéquat. for s=1 to 4 : #3b.map, "spritevisible perso";s;" off" : next SpriteCourant = dir #3b.map, "spritexy perso";SpriteCourant;" ";cursX;" ";cursY #3b.map, "spritevisible perso";SpriteCourant;" on" 'ne montre QUE le sprite concerné par la direction choisie. do #3b.map, "spritexy? perso";SpriteCourant;" cursX cursY" cx = int(cursX/lc)+1 'position du sprite exprimé en n° de case pour la variable tableau cy = int(cursY/lc)+1 'if cx+dpx(dir)>0 and cx+dpx(dir)<ncx and cy+dpy(dir)>0 and cy+dpy(dir)<ncy and cas(cx+dpx(dir),cy+dpy(dir)) = 0 then if cx+dpx(dir)>0 and cx+dpx(dir)<ncx and cy+dpy(dir)>0 and cy+dpy(dir)<ncy and cas$(cx+dpx(dir),cy+dpy(dir)) = "x" then nx = cursX + dpx(dir)*icp ny = cursY + dpy(dir)*icp #3b.map, "spritexy perso";SpriteCourant;" ";nx;" ";ny 'cheminement du sprite... tranquilou... #3b.map, "drawsprites" 'call pause 90 temp=90 gosub [pause] else sortir = 1 end if if cas$(cx+dpx(dir),cy+dpy(dir)) = "A" then indice =indice+1 'incrémente le N° de la map if indice=23 then indice =2 pCX = 39: pCY = 2 ' replace perso (unité= N° de case) goto [restart] end if '----------NOTE: LES CONDITIONS CI-DESSOUS NE FONCTIONNENT QUE: dans la mesure... '§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§§ if cas$(cx+dpx(dir),cy+dpy(dir)) = "B" then notice "Prendre des congés" ' ...où le fichier de données (limites) existe. if cas$(cx+dpx(dir),cy+dpy(dir)) = "E" then Print text(379,124,"Dynamite!!") 'Et ne réagirons, que pour la carte comportant les données if cas$(cx+dpx(dir),cy+dpy(dir)) = "2" then Print text(618,130,"Tu marche dans les cailloux!") if cas$(cx+dpx(dir),cy+dpy(dir)) = "3" then Print text(590,175,"Tu va te casser la gu..le!") '///////////////////////////////////////////////////////////////////////////////////////////////// if (dir = 2 and nx >= mX) or (dir = 4 and nx <= mX) or (dir = 1 and ny <= mY) or (dir = 3 and ny >= mY) then sortir = 1 'on est arrivé en l'endroit du clic de souris... loop until sortir sortir=0 wait [montreLimites] #3b.map, "backcolor blue; color yellow" for y = 1 to ncy for x = 1 to ncx ' if cas(x,y) then #3b.map, "place ";(x*lc)-lc/2-2;" ";y*lc-3;" ;|";cas(x,y) if cas$(x,y)<>"x" then #3b.map, "place ";(x*lc)-lc/2-2;" ";y*lc-3;" ;|";cas$(x,y) next next #3b.map,"flush;discard" wait [charge] file$=lim$ if fileExist(DefaultDir$+"\bmp\map", file$) then redim cas$(ncx,ncy) open "bmp\map\";file$ for input as #grid for y=1 to ncy for x=1 to ncx 'if eof(#grid) <> 0 then sortgrid=1: exit for 'test de fin de fichier LINE INPUT #grid, cas$(x,y) next if sortgrid=1 then exit for next close #grid else c$=" "+chr$(13)+"La Carte: "+ map$+" n'a Pas de fichier 'Limites' Associé..."+chr$(13) c$=c$+" Il faut en Créer un à l'aide de l'Editeur" 'notice " "+chr$(13)+"Cette Carte n'a Pas de fichier 'Limites' Associé..." notice c$ end if return function direction(dx,dy,ax,ay) 'fonction qui donne la direction du déplacement... destinée à utiliser le sprite adéquat. dirX = ax - dx dirY = ay - dy if abs(dirX) < abs(dirY) then sens = 1 else sens = 2 '1 = vertical 2 = horizontal select case case sens = 1 : if dirY > 0 then direction = 3 else direction = 1 'direction à prendre: 1 = HAUT, 3 = BAS case sens = 2 : if dirX > 0 then direction = 2 else direction = 4 ' 2 = DROITE, 4 = GAUCHE end select end function Function text(x,y,msg$) '------fonction d'affichage de textes #3b.map,"color yellow;backcolor darkgreen" #3b.map,"Place ";x;" ";y;";|";msg$ End Function [pause] timer temp, [suit] wait [suit] timer 0 return Sub Cotecase handle$, xClick, yClick 'prise de cotes en cases #3b.map, "color yellow;backcolor black" xcase=int(xClick/lc)+1 'coord en N° de case ycase=int(yClick/lc)+1 Print text(xClick,yClick,"xc = "+Str$(xcase)) Print text(xClick,yClick+15,"yc = "+Str$(ycase)) End Sub Sub Cotepix handle$, xClick, yClick 'prise de cotes en pixels #3b.map, "color yellow;backcolor black" xcase=int(xClick/lc)+1 'coord en N° de case ycase=int(yClick/lc)+1 Print text(xClick,yClick,"xp = "+Str$(xClick)) Print text(xClick,yClick+15,"yp = "+Str$(yClick)) End Sub function fileExist(path$,filename$) files path$,filename$, info$() fileExist = val(info$(0, 0)) end function sub Quit handle$ unloadbmp "MAP" sprites$ = "perso1d perso2d perso3d perso4d perso1s perso2s perso3s perso4s "+_ "perso1q perso2q perso3q perso4q perso1z perso2z perso3z perso4z" for s = 1 to 16 unloadbmp word$(sprites$,s) next close #3b END end sub
____________________
Roro
Roro
Petites améliorations pour l'éditeur....Affaire à suivre....
Un peu d'explication s'impose, concernant la fenêtre de test.
Pour se servir de ce formidable outils:
Ouvrir l'éditeur et le pousser au maximum à droite, en gardant l'accés au "run".
Ouvrir la fenêtre de test à bonne taille pour les lignes longues. Ce sera aussi le code du jeu (et donc à "sauver" régulièrement);
Dans ce code, tout se passe:
Entre la ligne: '§§§§§§§§§§§§§§§§§§§§§§§
Et la ligne: '////////////////////////////////////////////
Et nulle part ailleurs.
Chaque evenement (changement de map, apparitions fixes ou animées, contraintes, textes...ext.)
est un: if then; ou est contenu dans un: if then/end if .
Un peu d'explication s'impose, concernant la fenêtre de test.
Pour se servir de ce formidable outils:
Ouvrir l'éditeur et le pousser au maximum à droite, en gardant l'accés au "run".
Ouvrir la fenêtre de test à bonne taille pour les lignes longues. Ce sera aussi le code du jeu (et donc à "sauver" régulièrement);
Dans ce code, tout se passe:
Entre la ligne: '§§§§§§§§§§§§§§§§§§§§§§§
Et la ligne: '////////////////////////////////////////////
Et nulle part ailleurs.
Chaque evenement (changement de map, apparitions fixes ou animées, contraintes, textes...ext.)
est un: if then; ou est contenu dans un: if then/end if .
____________________
Roro
Roro
super ton editeur ^^ ! vraiment un beau boulot !
par contre il y a deux points qui me gènes o_o :
- on ne peut pas quitter lorsque le personnage marche, ca fait tout planter.
- impossible de rajouter des conditions dans la sub Quit (genre une confirmation).
mais je dois t'avouer que je suis tenté de le mettre dans le jeu ^^
par contre il y a deux points qui me gènes o_o :
- on ne peut pas quitter lorsque le personnage marche, ca fait tout planter.
- impossible de rajouter des conditions dans la sub Quit (genre une confirmation).
mais je dois t'avouer que je suis tenté de le mettre dans le jeu ^^
Le truc s'améliore de jour en jour, mais je ne modifie pas le code d'au dessus; j'attends que tout soit bien rodé.
Et de toutes façon il ne marcherait pas sans ses nouvelles maps/bmp's
C'est pas pour tout de suite, parce que là, j'arrive plus à le lâcher.
J'ajoute des maps, j'ajoute des évenements; des disparitions de sprite, des apparitions de bmp's.
Bref c'est en train de devenir une bonne "usine".
Mais ça ne sera pas un jeu complet; plutôt des exemples (j'y ai quand même déjà mis un petit tour de cochon
)
Hey, au fait, avec le tableau "chaîne", c'est pas 256 évenements possibles.
C'est une infinité. J'ai attaqué les "2a"; "5b"( evenement b de la map 5) ; "64" (retour de la map 6 à la map 4)
Le plantage doit être à cause d'une sortie "en force" de: la do/while, ou d'une for/next A voir.....
Mais hé, tu coupe le contact pendant que tu roule toi ?
Cassiope a vraiment fait là un super outil; il était inexploitable à cause des sub's.
Quand j'ai voulu ajouter le tableau de bord, j'avais des écrans de folie.
J'ai d'abord pensé que c'était à cause de la "graphic", mais c'était bien les sub's qui foutaient le bordel.
Quand on entre dans une sub, il n'y a pas d'autre solution que de continuer tout le prog en sub's.
Et je peut te dire que j'en ai ch..é pour les virer.
Et de toutes façon il ne marcherait pas sans ses nouvelles maps/bmp's
C'est pas pour tout de suite, parce que là, j'arrive plus à le lâcher.
J'ajoute des maps, j'ajoute des évenements; des disparitions de sprite, des apparitions de bmp's.
Bref c'est en train de devenir une bonne "usine".
Mais ça ne sera pas un jeu complet; plutôt des exemples (j'y ai quand même déjà mis un petit tour de cochon
)Hey, au fait, avec le tableau "chaîne", c'est pas 256 évenements possibles.
C'est une infinité. J'ai attaqué les "2a"; "5b"( evenement b de la map 5) ; "64" (retour de la map 6 à la map 4)
Le plantage doit être à cause d'une sortie "en force" de: la do/while, ou d'une for/next A voir.....
Mais hé, tu coupe le contact pendant que tu roule toi ?
Cassiope a vraiment fait là un super outil; il était inexploitable à cause des sub's.
Quand j'ai voulu ajouter le tableau de bord, j'avais des écrans de folie.
J'ai d'abord pensé que c'était à cause de la "graphic", mais c'était bien les sub's qui foutaient le bordel.
Quand on entre dans une sub, il n'y a pas d'autre solution que de continuer tout le prog en sub's.
Et je peut te dire que j'en ai ch..é pour les virer.
____________________
Roro
Roro
La mise à jours tant attendu arrive ne vous découragez pas XD !
salut a tous !!
Je reviens avec un GROS lot d'ajout pour la version béta (bientôt mise en téléchargement). J'ai refait un grand nombre de fenêtre, d'interfaces, retravaillé le game play, fini les cartes 11 à 16 (il reste plus que les 17 à 21 a faire). Ajouter la langue anglaise avec un option de choix linguistique ^^. J'ai aussi retravaillé le .exe, il est mtn en fichier zip et non en application a installer. Ca permet de le transporter ou on veux quand on veux
.
Je peaufine les détails et je poste ca !
Ps: regardez le titre du topic. Le numéro de la version y est mise a jour. Je posterais la 2.7, ca donne une idée de l'avancement du projet
Je reviens avec un GROS lot d'ajout pour la version béta (bientôt mise en téléchargement). J'ai refait un grand nombre de fenêtre, d'interfaces, retravaillé le game play, fini les cartes 11 à 16 (il reste plus que les 17 à 21 a faire). Ajouter la langue anglaise avec un option de choix linguistique ^^. J'ai aussi retravaillé le .exe, il est mtn en fichier zip et non en application a installer. Ca permet de le transporter ou on veux quand on veux
.Je peaufine les détails et je poste ca
!Ps: regardez le titre du topic. Le numéro de la version y est mise a jour. Je posterais la 2.7, ca donne une idée de l'avancement du projet
Qu'est-ce que tu utilise comme installeur ? On veut des noms 
Et on espère qu'il est gratos. 
De ce côté-ci du monde; je continue le "Game Maker" version "exemples", mais il faut bien dire que c'est pas très motivant d'être si peu (et c'est pas peu dire) à coder.
Du coup, avec ma petite dernière, qui commence à se faire grande (ces p...ns de gamins, ils vont nous enterrer), on s'est mis (ou plutôt elle m'a mis) à fond dans l'Arduino.
Je ne savais pas qu'on pouvait gérer du "Midi" avec ce truc; et avec une carte balaise, c'est assez génial.
On est en train d'intuiter un prog en Jb ou Lb, qui communiquerait avec l'Arduino par le port série; pour gérer du son et de la visu directe sur le clavier, pour faire une sorte d'outil pédagogique.
Bref, on ne s'ennuie pas.
Fais péter le nom de ton installeur...Que j'innnnstaaaaaalle moi aussi. Lol !
Et on espère qu'il est gratos.
De ce côté-ci du monde; je continue le "Game Maker" version "exemples", mais il faut bien dire que c'est pas très motivant d'être si peu (et c'est pas peu dire) à coder.
Du coup, avec ma petite dernière, qui commence à se faire grande (ces p...ns de gamins, ils vont nous enterrer), on s'est mis (ou plutôt elle m'a mis) à fond dans l'Arduino.
Je ne savais pas qu'on pouvait gérer du "Midi" avec ce truc; et avec une carte balaise, c'est assez génial.
On est en train d'intuiter un prog en Jb ou Lb, qui communiquerait avec l'Arduino par le port série; pour gérer du son et de la visu directe sur le clavier, pour faire une sorte d'outil pédagogique.
Bref, on ne s'ennuie pas.
Fais péter le nom de ton installeur...Que j'innnnstaaaaaalle moi aussi. Lol !
____________________
Roro
Roro
euhh je le met juste en .zip comme pour stargate ^^!!! c'est avec windows ==> compréssé XD
Atomose, jette un oeil à ta boite à MP.
____________________
Roro
Roro
je viens de regarder il n'y a rien de nouveau o_o ???
sinon, voici le nouveau site ^^ :
http://unlimitedfreewarecor.wix.com/unlimited-website
sinon, voici le nouveau site ^^ :
http://unlimitedfreewarecor.wix.com/unlimited-website
Hey... Tu débarque sur le forum pendant que rje suis dans ta boite à lettre.
C'est de la transmission de pensée Lol !
C'est de la transmission de pensée Lol !
____________________
Roro
Roro
Bon je ne vais pas vous poster la version 2.7 mais une ancienne en attendant ! Elle est de nouveau convertie en JB !
Vous pourrez remarqué pamal de changement et beaucoup de bug en moins.
La version 2.7 (hotfix) sortira dans le mois (fin de la semaine prochaine normalement) pas trop tôt hein ? ^^
https://mega.co.nz/#!ydsimCgD!fYyfVGfLpatLkaprFCiioj3396tHXrebQ3Hu7iMYBlI
Edité par atomose Le 12/01/2014 à 20h33
! Elle est de nouveau convertie en JB ! Vous pourrez remarqué pamal de changement
et beaucoup de bug en moins.La version 2.7 (hotfix) sortira dans le mois (fin de la semaine prochaine normalement) pas trop tôt hein ? ^^
https://mega.co.nz/#!ydsimCgD!fYyfVGfLpatLkaprFCiioj3396tHXrebQ3Hu7iMYBlI
Edité par atomose Le 12/01/2014 à 20h33
ça y est j'ai le space blast. Quand tu dis que que le gars a fait un truc, tu parle du changement de background, ou du sprite (qui est peut-être un simple bmp) qui suis la souris ?
Ou d'autre chose (je ne suis pas allé plus loin.
Hey..! Tu ne va pas avoir grand monde pour répondre à ton sondage; il doit falloir être inscrit pour cocher.
Je nous compte:
Chris=1; Horace =2; toi=3; moi =4 et allez j'ajoute les trois seigneurs: Jag , Nephtys et mayrde! j'ai bouffé le nom du troisième.
Et bé ça fait 7. Et encore, y'a que moi qui passe au moins une fois par jour.
Bon, je remonte cocher. Lol !
Ou d'autre chose (je ne suis pas allé plus loin.
Hey..! Tu ne va pas avoir grand monde pour répondre à ton sondage; il doit falloir être inscrit pour cocher.
Je nous compte:
Chris=1; Horace =2; toi=3; moi =4 et allez j'ajoute les trois seigneurs: Jag , Nephtys et mayrde! j'ai bouffé le nom du troisième.
Et bé ça fait 7. Et encore, y'a que moi qui passe au moins une fois par jour.
Bon, je remonte cocher. Lol !
____________________
Roro
Roro
wow et ben je ne pensais pas que ce jeu me conduirais jusqu'ici ^^. J'ai l'impression que plus j'avance et plus c'est "optimisable", ce qui me pousse a refaire partie après partie :S.
Je viens de voir une flopée de bug en intégrant mon IA de combat dans le code source... j'ai passé toute la soirée à refaire et améliorer la stabilité et l'esthétisme du jeu. Au final cela marche à merveille !!! j'en suis très content ^^.
Je continue mes lignes encore et encore et je met la 2.7 en ligne d'ici pas trop longtemps j'espère. En tout les cas la version aura bien changé !!!
Je viens de voir une flopée de bug en intégrant mon IA de combat dans le code source... j'ai passé toute la soirée à refaire et améliorer la stabilité et l'esthétisme du jeu
. Au final cela marche à merveille !!! j'en suis très content ^^.Je continue mes lignes encore et encore et je met la 2.7 en ligne d'ici pas trop longtemps j'espère
. En tout les cas la version aura bien changé !!!
voici une version plus récente !
Elle comporte de nombreuse amélioration. Il y a maintenant la possibilité de mettre l'histoire en anglais.
Elle n'est pas finie, loin de la, mais commence déjà bien à ressembler à quelque chose .
Je vous laisse tester.
Pour le .bas je vais le mettre en édit dès que je l'aurais mis dans mon hébergeur.
++
version 2.68.50 :
https://mega.co.nz/#!CVc1iTZZ!RL7ByXBtgFVxRDvqN6toJC8LYBRGj5ryDOyWS2zANqk
EDIT : voici le .bas
https://mega.co.nz/#!fdEkwAJQ!ddsnyyqSCO8mGk8_5i5H3T-sYzc07jYVeCzlVNFlI0Y
Edité par atomose Le 18/01/2014 à 21h26
Elle comporte de nombreuse amélioration. Il y a maintenant la possibilité de mettre l'histoire en anglais
.Elle n'est pas finie, loin de la, mais commence déjà bien à ressembler à quelque chose
.Je vous laisse tester.
Pour le .bas je vais le mettre en édit dès que je l'aurais mis dans mon hébergeur.
++
version 2.68.50 :
https://mega.co.nz/#!CVc1iTZZ!RL7ByXBtgFVxRDvqN6toJC8LYBRGj5ryDOyWS2zANqk
EDIT : voici le .bas
https://mega.co.nz/#!fdEkwAJQ!ddsnyyqSCO8mGk8_5i5H3T-sYzc07jYVeCzlVNFlI0Y
Edité par atomose Le 18/01/2014 à 21h26
Wouaou ! ç'est zouli ! 
La ville est bien chouette.
Las criticas...(bruit de vielle porte rouillée...):
Bon point: Plus de "Présentation" à rallonge.
Le bas qui est dans le deuxième lien demande un "fond1.bmp" qui n'existe pas (plus).
L'aide, n'aide pas beaucoup. Lol !
Pour l'aide tu aura intérêt à la mettre dans un fichier pour ne pas allonger le code, qui est déjà.......Pfiouuuu!
Quand il va falloir intégrer le jeu là-dedans, ça va pas être du gâteau.
J'espère pour toi que tu fais un plan général de jeu, sinon tu va t'y paumer.
La ville est bien chouette.Las criticas...(bruit de vielle porte rouillée...):
Bon point: Plus de "Présentation" à rallonge.
Le bas qui est dans le deuxième lien demande un "fond1.bmp" qui n'existe pas (plus).
L'aide, n'aide pas beaucoup. Lol !
Pour l'aide tu aura intérêt à la mettre dans un fichier pour ne pas allonger le code, qui est déjà.......Pfiouuuu!
Quand il va falloir intégrer le jeu là-dedans, ça va pas être du gâteau.
J'espère pour toi que tu fais un plan général de jeu, sinon tu va t'y paumer.
____________________
Roro
Roro
Oui tout est dans ma tête et le code est structuré pour acceuillir tout ce qu'il va s'ajouter. Le fond1 ???? lorsque tu vas ou ?
Merci mais je n'est pas fini ^^. Il n'y a pas de ville pour le moment :P c'est une ferme, une taverne, une scierie, bref seulement des lieux. La ville est après.
J'ai remarqué que le combat était bugé... j'ai corrigé ca mais vous avez toujours la version bugé vous ^^.
Merci mais je n'est pas fini ^^. Il n'y a pas de ville pour le moment :P c'est une ferme, une taverne, une scierie, bref seulement des lieux. La ville est après.
J'ai remarqué que le combat était bugé... j'ai corrigé ca mais vous avez toujours la version bugé vous ^^.
ho et j'ai oublié de dire mais je vais virer les bmp au fur et à mesure. Le nombre devrait dabord être diminué par 2 au début (-80) puis les autres le seront progressivement. J'ai trouvé une astuces pour m'en passer
Quand il manque un bmp; ça compile pas; et donc c'est au lancement qu'on s'en aperçoit.
Tu est sûr que tu ne t'es pas planté dans ce que tu a mis dans le lien.
Moi, j'ai eu une ville, avec le temple, les habitations, les remparts, le port...
Mais pas trace de combat.
Tu est sûr que tu ne t'es pas planté dans ce que tu a mis dans le lien.
Moi, j'ai eu une ville, avec le temple, les habitations, les remparts, le port...
Mais pas trace de combat.
____________________
Roro
Roro
• Index
1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté
Utilisateur en ligne : Aucun membre connecté
Répondre
Vous n'êtes pas autorisé à écrire dans cette catégorie