[mOved] Texte défilant - Page 1

Je voudrais faire un jeu qu'avec du texte
Y a t il des progs en n'importe quelle language pour faire défiler du texte joliment ?
Genre début d'un jeu de bas en haut assez rapide.
J'en ai fait un en Basic avec vertel mais il est pas beau
Merci d'avance

Tu veux quoi exactement comme résultat ?
Sinon de toute façon à partir du moment ou c'est du texte, quel que soit ce que tu veux ça devrait être largement faisable en C.

Il y a un tuto sur le texte défilant sur le site de la TICT. http://tict.ticalc.org/

Merci bcp pour l'adresse en fait c tout con ce que je veux faire
C du texte qui défile de haut en bas comme pour raconter une histoire

./3 Je trouve pas le tuto (ah l'anglais et moi )

Lol, attend je te donne le lien: http://www.ticalc.org/pub/89/asm/source/s1p6.zip

Bon voilà ce que j'ai fait pour l'instant si je pouvais avoir des conseils:

{"Le texte","a dérouler"}->l
dim(l)->d
0->x
For i,1,d
vertel("text",l[i],0,x,1)
x+9->x
EndFor
vertel("save","pv",0,0,159,99,"","clrs")
For j,99,-99,-1
vertel("pict","pv",0,j,1,"","wait",2)
EndFor

Défaut : je peux pas utiliser le buffer dans la 1 ere boucle puisque c une boucle
Sinon je voudrais rentrer tout le texte et que la mise à la ligne se fasse automatiquemet
Et ya aussi le probleme c que ça marche que pour un nbre limité de ligne (en fait un écran)
Donc en conclusion c tout pourri
J'attnd des conseils
Merci

(pour accelerer, suffit de changer le pas de défilement)

(l)
Prgm
local a,b,d,m,p,t,z
dim(l)»d
d+12»m
vertel("save","z",0,0,239,127,"","clrs")

for a,1,m
when(a>d,"",l[a])»t
for b,2,8,2
vertel("save","p",0,2,159,99,"","bufr","","clrs","","pict","p",0,0,1,"","text",t,10,100-b,0,1,"","bufr")
endfor
endfor

vertel("pict","z",0,0,1)
EndPrgm

Ce topic n'a plus aucun rapport avec de l'assembleur ?

"en basic" -> ben non, en Vertel. Ce n'est plus du BASIC.

Pourtant les codes des posts 6 et 7 me rappellent étrangement le basic

vertel("save","pv",0,0,159,99,"","clrs")

<SARCASM>Ça ressemble vachement au BASIC, cette syntaxe-là... </SARCASM>

Et puis tu appelles un programme en C, donc ce n'est plus du BASIC, c'est de l'hybride BASIC-C.

Kevin Kofler
:

vertel("save","pv",0,0,159,99,"","clrs")

<SARCASM>Ça ressemble vachement au BASIC, cette syntaxe-là... </SARCASM>

Bah ouais, c'est la forme classique d'un appel de fonction en basic, vertel pourrait très bien être un programme basic ici

[edit] On va pê déplacer ça dans "basic" du coup, non ?

Dbl-K-> C'est pour cela que quand je programme en basic, c'est généralement en basic pur.
Sauf pour certains programmes où j'utilise un prog asm de mon cru, slmsg (fait en quelques minutes avec l'équivalent Asm de GetStrnArg et un appel à ST_HelpMsg)

Bah ouais, c'est la forme classique d'un appel de fonction en basic, vertel pourrait très bien être un programme basic ici

Et interpret("#include <std.h>\nvoid _main() {\n printf("Hello world!");\n}") c'est aussi du basic?

Si interpret est un programme basic, ou est le problème ?

Oui, je parlais de "interpret" en Basic, évidemment Remarque c'est le genre de chose qui me donnerait envie de me remettre au Basic

Comme en Basic PDS ou on pouvait inclure une ligne en C, une en Basic, une en ASM, une en Basic, une en...

erf A ce moment là, le Basic devait pas être très évolué (pas d'entiers longs, par exemple)

Je ne me souviens plus trop... mais si tu veux ce collector, je peux te l'envoyer

J'avais pas fait un prog de textes défilants ?

genfin(l)
Prgm
Clrhome
local f,att,temp,a,key
vertel2("v_type","l","/","e_retr","a")
if not a[1]="LIST"
Stop
vertel2("d_clrs","/","d_save","temp",0,0,159,99)
for a,1,dim(l)
getkey()->key
99->f
while f>=99-(expr(left(l[a],1))+3)*2
vertel2("d_pict","temp",0,-1,1,"/","d_line",0,99,159,99,1,"/","t_draw",right(l[a],dim(l[a])-1),999,f,expr(left(l[a],1)),1,"/","d_save","temp",0,0,159,99,"/","d_pict","temp",0,-1,1)
f-1->f
endwhile
endfor
for a,-1,-102,-1
vertel2("d_pict","temp",0,a,1)
for att,1,15
endfor
endfor
lbl fin
endprgm

Exemple d'Utilisation :
genfin({"0C'était","2DES CHIFFONS ET","2DES LETTONS","1 ","0Presente par","1Patrice AFFRONT","2 ","0(C) 2003 FRANCE DEGUEU"})

Merci pour ton petit exemple

Il marche ?!? Content pour toi...

J'ai pas envcore essayé

local f,att,temp,a,key

Petit changement de dernière minute, si y'a pas de virgule entre att et temp, mets-la tout de suite...