Vous trouverez ici trois programmes: un générateur de niveau (1 seul niveau) pour WormsY2K, une routine de création de niveaux à partir de matrices et le créateur allant avec (utile pour WormsY2K).

Le générateur de niveau pour WormsY2K (le niveau est sauvgardé dans Pic 4):

WiewWindow 0,126,0,0,62,0:AxesOff:GridOff
For 1->I To 126 Step 8
For 1->J To 62 Step 8
F-Line I,J,I+4,J
F-Line I+4,J,I+4,J+4
F-Line I+4,J+4,I,J+4
F-Line I,J+4,I,J
Next
Next
StoPict 4

Le programme MATE-GAD (MAtrix Engine for GAme Design) est une routine qui permet, en spécifiant les dimension de celle-ci, de dessiner un niveau à partir d'une matrice (ici Mat D mais vous pouvez changer le code):

0->A~Z:"MAP SIZE: "?->M:WiewWindow 1,M,1,1,M,1:AxesOff
For 1->I To M
For 1->J To M
Mat D[I,J]=0=>Next
If J<M:Then J+1->K:Else J->K:IfEnd
Mat D[I,J]=1 And Mat D[I,K]=1=>F-Line J,M+1-I,K,M+1-I
If I<M:Then I+1->K:Else I->K:IfEnd
Mat D[I,J]=1 And Mat D[K,J]=1=>F-Line J,M+1,K,M-I
Next
Next

Le programme MAPMAKER permet de créer une matrice de dimensions spécifiées. Le programme crée automatiquement une bordure autour du niveau. Vous pouvez créer votre niveau en éditant la matrice créée. Si vous placez 0 dans une cellule, rien ne se passera. Si vous placez 1, et à condition qu'un autre 1 soit adjacent, une ligne sera dessinée entre les deux 1. Voici le code:

ClrText
"DEFAULT MAP MAKER"
"MAP SIZE: "?->M
ClrText
Locate 1,1,"CREATING: "
Identity M->Mat D
Fill(0,Mat D
For 1->I To M
1->Mat D[I,1]
1->Mat D[1,I]
1->Mat D[M,I]
1->Mat D[I,M]
Locate 11,1,I
Next
ClrText

Sachez que WormsY2K accepte des matrices de taille 15x15 comme niveaux. N'hésitez pas à vous servir de MATE-GAD dans vos jeux !

<< Sommaire >>