ElDred
17/07/2005, 01h01
Bonjour, je m'excuse d'avance de vous déranger pour une c**erie pareille mais je rencontre un petit problème, en programmant la fonction servant à afficher les boites de dialogues de mon RPG 2D, je me suis rendu compte qu'il m'était impossible d'écrire et d'afficher des sprites simultanement!!!
pouvez vous m'aider?
Je vous mets le code ma fonction et le fichier texte qui est utilisé.
Par avance, merci!
PS: j'utilise DB Pro
http://asgardgamesstudio.ifrance.com/index.html
--------------------------------------------------------------------------
dialogues("dial1.dial")
function Dialogues(fichier_dialogues$)
load bitmap "cadremessage.bmp",1
get image 1,0,0,640,140
load bitmap "soji-profil.bmp",2
get image 2,0,0,345,280
delete bitmap 1
delete bitmap 2
open to read 1,fichier_dialogues$
sprite 1,0,0,1
sprite 2,10,10,2
lecture:
read string 1,nom$
if nom$="" then goto finfonction
read string 1,couleur$
read string 1,ligne1$
read string 1,ligne2$
read string 1,ligne3$
read string 1,ligne4$
ink rgb(255,255,255),rgb(255,255,255)
print nom$
if couleur$="/bleu" then ink 500,500
if couleur$="/rouge" then ink rgb(255,100,100),rgb(255,100,100)
if couleur$="/vert" then ink rgb(100,255,100),rgb(100,255,100)
text 0,20,ligne1$
text 0,40,ligne2$
text 0,60,ligne3$
text 0,80,ligne4$
sprite 1,0,0,1
suspend for key
cls
goto lecture
finfonction:
endfunction
--------------------------------------------------------------------------
Soji
/bleu
Salut
moi c'est
Soji
Quoi de neuf?
Rain
/rouge
Je t'aime pas soji,
avec
ta tronche
de cake
Sarine
/vert
C'est clair t'est vraiment moche
bla
bla
bla
pouvez vous m'aider?
Je vous mets le code ma fonction et le fichier texte qui est utilisé.
Par avance, merci!
PS: j'utilise DB Pro
http://asgardgamesstudio.ifrance.com/index.html
--------------------------------------------------------------------------
dialogues("dial1.dial")
function Dialogues(fichier_dialogues$)
load bitmap "cadremessage.bmp",1
get image 1,0,0,640,140
load bitmap "soji-profil.bmp",2
get image 2,0,0,345,280
delete bitmap 1
delete bitmap 2
open to read 1,fichier_dialogues$
sprite 1,0,0,1
sprite 2,10,10,2
lecture:
read string 1,nom$
if nom$="" then goto finfonction
read string 1,couleur$
read string 1,ligne1$
read string 1,ligne2$
read string 1,ligne3$
read string 1,ligne4$
ink rgb(255,255,255),rgb(255,255,255)
print nom$
if couleur$="/bleu" then ink 500,500
if couleur$="/rouge" then ink rgb(255,100,100),rgb(255,100,100)
if couleur$="/vert" then ink rgb(100,255,100),rgb(100,255,100)
text 0,20,ligne1$
text 0,40,ligne2$
text 0,60,ligne3$
text 0,80,ligne4$
sprite 1,0,0,1
suspend for key
cls
goto lecture
finfonction:
endfunction
--------------------------------------------------------------------------
Soji
/bleu
Salut
moi c'est
Soji
Quoi de neuf?
Rain
/rouge
Je t'aime pas soji,
avec
ta tronche
de cake
Sarine
/vert
C'est clair t'est vraiment moche
bla
bla
bla