Bonjour/bonsoir,
durant mon absence (des traveaux sur la ligne téléphonique), j'ai créé un programme en basic qui permet de créer et placer des sprites :
SPRITE.83p
| Code | programmeSPRITE(affichage)
Prompt X,Y,L1 //à enlever si utilisé comme sous programme
X -> S
fPart(L1(1 -> Z
iPart(L1(1 -> W
For(C,2,dim(L1
L1(C -> A
S -> X
While A
.5A -> A
If fPart(A
Then
If Z=.1 or Z=.2
Pxl-On(Y,X
Else
If Z=.1 or Z=.3
Pxl-Off(Y,X
End
iPart(A -> A
X+1 -> X
End
While X [inférieur ou égal] W
X+1 -> X
Pxl-On(Y,X
End
Y+1 -> Y
End |
DESSPRIT.83p
| Code | programmeDESSPRIT
{0,0 -> L1
Input "TYPE:",A
A -> L1(1
Disp "SPRITE:
Input "",Str1
DelVar Blength(Str1 -> L
While inString("01",sub(Str1,B+1,1
B+1 -> B
End
1 -> E
For(A,1,L,16
DelVar DE+1 -> E
sub(Str1,A,B -> Str2
For(C,B,1,-1
2D+expr(sub(Str2,C,1 -> D
End
D -> L1(E
End
B+L1(1 -> L1(1
L1 |
le sprite dessiné est à réaliser avec des "0" et des "1"; il faut enssuite compléter avec des espaces pour atteindre la ligne suivante. pour le type, mettre 0.1 pour un sprite qui "efface l'emplacement avant d'être copié à celui-ci" ; 0.2 pour un sprite qui "noircit les pixels s'il y a lieu, mais qui ne les étteint pas" ; 0.3 pour un sprite qui "étteint les pixels s'il y a lieu, mais qui ne les noircit pas"
Sandro
PS : maleureusement s'est un peu long, donc pas très addapté à un jeu très rapide
----------------------
mort à l'inutile, place à la mémoire libre et aux programmes |
