Ce jeu se joue à deux et met en scène deux vers s'affrontant dans des niveaux variés, puisque créés par VOUS !
Sur la page de présentation MAX POINTS indique le nombre de manches au bout desquels la partie est finie (infini si MAX POINTS vaut 0).
Le GAME TYPE correspond au type de niveau choisi: S pour le niveau standard, P pour utiliser une image (sauvegardé dans Pict PICTURE, par défaut 4) et M permet d'utiliser une matrice comme niveau (vous devez utiliser une matrice de 15x15 dans Mat D).
A propos, vous pouvez et vous vous devez de créer vos niveaux à l'aide d'ALPHA-TRACER (je vous assure qu'on s'éclate beaucoup avec ces deux softs).
Toutes les touches sont affichées à l'écran pour les menus ou présentes dans HELP (touche H) pour celles du jeu.
ATTENTION: pour jouer, tournez la calculatrice à 90°. J'ai instauré ce mode de jeu car c'est beaucoup plus facile pour jouer à deux...
// Pour quitter le jeu, appuyez sur EXIT
// Nom: Worms-Y2K
// Auteur: Gfx, alias Romain GUY
// Teste sur: Fx-8930 GT
// Wormaggedon !
0->A~Z:ViewWindow 0,126,0,0,62,0:AxesOff
Lbl M
Cls:0->E~F:3->P:1->T
Text 1,33,"**WORMS Y2K**"
F-Line 32,55,95,55
Text 54,75,"(C) 1998 GFX"
Text 36,75,"H: HELP"
Text 42,75,"P: PICTURE"
Text 18,2,"MAX POINTS: 3"
Text 24,2,"GAME TYPE: S"
Text 18,75,"PICTURE: 4"
Text 36,2,"+/-: POINTS"
Text 42,2,"G: GAME"
Text 48,2,"EXE: PLAY"
Text 54,2,"EXIT: QUIT"
Text 1,1,""
4->I
Do
Getkey=65=>Goto H
Getkey=31=>Goto G
Getkey=47=>Goto E
If Getkey=73:Then Isz I:I>6=>1->I:Text 18,11,I:Text 1,1,"":IfEnd
If Getkey=75:Then Isz T:T>3=>1->T:Text 24,47," ":T=1=>Text 24,47,"S":T=2=>Text 24,47,"P":T=3=>Text 24,47,"M":Text 1,1,"":IfEnd
If Getkey=42:Then Isz P:P>9=>0->P:Text 18,52,P:Text 1,1,"":IfEnd
If Getkey=32:Then Dsz P:P<1=>9->P:Text 18,52,P:Text 1,1,"":IfEnd
LpWhile Z=0
Lbl G
Cls
If T=2:Then I=1=>RclPict 1:I=2=>RclPict 2:I=3=>RclPict 3:I=4=>RclPict 4:I=5=>RclPict 5:I=6=>RclPict 6:IfEnd
If T<>3:Then Horizontal 0:Horizontal 62:Vertical 0:Vertical 126:IfEnd
If T=3:Then 15->M:ViewWindow 1,M,1,1,M,1:For 1->I To M:For 1->J To M:Mat D[I,J]=0=>Next:If JK: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 IK:ElseI->K:IfEnd:Mat D[I,J]=1 And Mat D[K,J]=1=>F-Line J,M+1-I,J,M-I:Next:Next:IfEnd
31->A:32->B:1->U
95->C:32->D:3->V
Lbl S
Getkey=47=>Goto M
U=1=>Isz A:V=1=>Isz C
U=2=>Isz B:V=2=>Isz D
U=3=>Isz A:V=3=>Isz C
U=4=>Isz B:V=4=>Isz D
PxlTest B,A
Ans=1=>Goto X
PxlTest D,C
Ans=1=>Goto Y
PxlOn B,A
PxlOn D,C
If Getkey=71:Then If U=1:Then 2->U:Goto 0:IfEnd:If U=3:Then 4->U:Goto 0:IfEnd:If U=2:Then 3->U:Goto 0:IfEnd:If U=4:Then 1->U:Goto 0:IfEnd:IfEnd
If Getkey=79:Then If U=1:Then 4->U:Goto 0:IfEnd:If U=3:Then 2->U:Goto 0:IfEnd:If U=2:Then 1->U:Goto 0:IfEnd:U=4=>3->U:IfEnd
Lbl 0
If Getkey=31:Then If V=1:Then 4->V:Goto S:IfEnd:If V=3:Then 2->V:Goto S:IfEnd:If V=2:Then 1->V:Goto S:IfEnd:If V=4:Then 3->U:Goto S:IfEnd:IfEnd
If Getkey=29:Then If V=1:Then 2->V:Goto S:IfEnd:If V=3:Then 4->V:Goto S:IfEnd:If V=2:Then 3->V:Goto S:IfEnd:V=1=>3->V:IfEnd
Goto S
Lbl X
Isz F
Text 25,50,"P1 LOSE"
Goto D
Lbl Y
Isz E
Text 25,50,"P2 LOSE"
Lbl D
Text 3,3,"P1:"
Text 3,19,E
Text 10,3,"P2:"
Text 10,19,F
If E+F=P:Then E>F=>Text 31,50,"P1 WINNER"
EText 31,50,"P2 WINNER"
E=F=>Text 31,50,"DRAW GAME"
Goto M:IfEnd
Text 20,90,""
Goto G
Lbl E
Cls
Text 1,1,"WORMS Y2K"
text 7,1,"(C)1998 ROMAIN GUY"
Text 19,1,"WWW.CHEZ.COM/POWERTEAM"
ViewWindow -6.3,6.3,1,-3.1,3.1,1:AxesOn:ClrText:Stop
Lbl H
Cls
Text 1,1,"WORM Y2K HELP SCREEN:"
F-Line 0,55,85,55
Text 20,2,"P1 ON THE LEFT, P2 ON THE RIGHT"
Text 38,10,"P1 LEFT: F1"
Text 44,22,"RIGHT: 0"
Text 38,72,"P2 LEFT: EXE"
Text 44,84,"RIGHT: F6"
Text 54,29,"EXIT TO QUIT GAME"
Goto M