%Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:256 File Name:AIDE Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record "POUR TOUTE VALIDATION AUTRE QUE ENTRER DES VALEURS, CETTE VALIDATION CE FAIT PAR LA TOUCHE SHIFT POUR UNE MEILLEUR ERGONOMIE. POUR PLUS D'AIDE, VEUILLEZ ENVOYER UN E-MAIL A CETTE ADRESSE : clement.raux@free.fr CELLE ADRESSE EST AUSSI UNE ADRESSE MSN." %End %Header Record Format:TXT Communication SW:0 Data Type:PG Capacity:7951 File Name:equi dei Group Name: Password: Option1:NL Option2: Option3: Option4: %Data Record 0\->A~Z \ClrText "clement.raux@free.fr equi dei 0.7 beta by Clem27 " \Int (\Ran#*500)\->A \If A=250:\Then \ClrText:\Lbl 6:\Int (\Ran#*3)+1\->B:\If \Mat S[B,1]\<>0:\Then 0\->\Mat S[B,1]:\Else \Goto6:\IfEnd:"TON CHEVAL EST MORT D'UNE MALADIE OU DE VIEILLESSE !":\IfEnd 0\->A~Z \ClrText \Goto0 \Lbl 2 \If M<1\ Or M>15\ Or N<1\ Or N>15\ Or X<1\ Or X>15\ Or X<1\ Or X>15:\Then \ClrText:"ERROR LEVEL \!mark":\For 1\->X \To 100:\Next :4\->X:\GotoA:\IfEnd \ClrText \ClrGraph \CoordOff \GridOff \AxesOff LabelOff \ViewWindow 0,128,1,64,0,1,0,360,3.6 StoV-Win 1 1\->P~T \Vertical 110 \Vertical 113 \Vertical 111 \Vertical 112 \Horizontal 14 \Horizontal 25 \Horizontal 35 \Horizontal 45 \Horizontal 4 \Horizontal 3 \Horizontal 57 \Horizontal 56 \Horizontal 2 \Horizontal 1 \Horizontal 0 \Horizontal 58 \Horizontal 64 \Horizontal 59 \Horizontal 63 \Horizontal 60 \Horizontal 62 \Horizontal 61 \Text 57,22," " \Text 58,22," " \Text 57,23," " \Text 58,23,"clement.raux@free.fr" \Text 8,109," " \Text 18,109," " \Text 28,109," " \Text 38,109," " \Text 48,109," " \Goto3 \Lbl S (P+(\Int (\Ran#*\r))+1)\->P (Q+(\Int (\Ran#*\theta))+1)\->Q (R+(\Int (\Ran#*W))+1)\->R (S+(\Int (\Ran#*M))+1)\->S (T+(\Int (\Ran#*N))+1)\->T \Lbl 3 \Text 8,1," " \Text 8,P,"A" \Text 18,1," " \Text 18,Q,"B" \Text 28,1," " \Text 28,R,"J" \Text 38,1," " \Text 38,S,"C" \Text 48,1," " \Text 48,T,"D" \If P\>=110\ Or Q\>=110\ Or R\>=110\ Or S\>=110\ Or T\>=110:\Then \Goto8:\IfEnd \GotoS \Lbl 8 \If R\>=110:\Then F+E\->F:\ClrGraph:\ClrText:" RESULTAT :":\Locate 7,3,"YOU WIN !":\Else F-E\->F:\ClrGraph:\ClrText:" RESULTAT :":\Locate 6,3,"YOU LOSE !":\If F<0:\Then \Locate 6,4,"GAME OVER !":0\->A~Z:[[0,0,0][0,0,0][0,0,0][4000,0,0][0,0,0]]\->\Mat S:\IfEnd:\IfEnd \Locate 4,7,"PRESS SHIFT !" \Do \LpWhile \Getkey\<>78 \If U=365:\Then \ClrText " LES VALEURS :" \Locate 1,3,"J2=0" \Locate 1,4,"J3=0" \Locate 1,5,"J4=0" \Locate 1,6,"J5=0" \Locate 4,7,"PRESS SHIFT !" \If P\>=110:\Then \Locate 4,3,"1":\IfEnd \If Q\>=110:\Then \Locate 4,4,"1":\IfEnd \If S\>=110:\Then \Locate 4,5,"1":\IfEnd \If T\>=110:\Then \Locate 4,6,"1":\IfEnd \Do \LpWhile \Getkey\<>78 \IfEnd \Lbl 0 \ClrText " EQUIDEUS" 2\->X \Locate 1,2,"\->" \Locate 3,2,"NEW GAME" \Locate 3,3,"LOAD GAME" \Locate 3,4,"LEVEL" \Locate 3,5,"HELP" \Locate 3,6,"ARGENT" \Locate 3,7,"SAVE AND EXIT" \Lbl 7 \Getkey=78\=>\GotoC \If \Getkey=28\ And X>2:\Then \Locate 1,X," ":X-1\->X:\Locate 1,X,"\->":\Goto7:\IfEnd \If \Getkey=37\ And X<7:\Then \Locate 1,X," ":X+1\->X:\Locate 1,X,"\->":\Goto7:\IfEnd \Goto7 \Lbl C \If X=2:\Then [[0,0,0][0,0,0][0,0,0][2000,0,\r][\theta,M,N]]\->\Mat S:3\->X:\IfEnd \If X=3:\Then \Lbl U:\Mat S[1,1]\->A:\Mat S[2,1]\->G:\Mat S[3,1]\->D:\Mat S[1,2]\->B:\Mat S[1,3]\->C:\Mat S[2,2]\->H:\Mat S[2,3]\->I:\Mat S[3,2]\->J:\Mat S[3,3]\->O:\Mat S[4,1]\->F:\Mat S[4,3]\->\r:\Mat S[5,1]\->\theta:\Mat S[5,2]\->M:\Mat S[5,3]\->N:\Goto5:\IfEnd \Lbl A \If X=4:\Then \ClrText "LEVEL HORSE 1 :" \Do \Locate 16,1,\r \If \Getkey=27\ And \r<15:\Then \r+1\->\r:\Locate 16,1," ":\IfEnd \If \Getkey=38\ And \r>1:\Then \r-1\->\r:\Locate 16,1," ":\IfEnd \LpWhile \Getkey\<>78 "LEVEL HORSE 2 :" \Do \Locate 16,2,\theta \If \Getkey=27\ And \theta<15:\Then \Locate 16,2," ":\theta+1\->\theta:\IfEnd \If \Getkey=38\ And \theta>1:\Then \Locate 16,2," ":\theta-1\->\theta:\IfEnd \LpWhile \Getkey\<>78 "LEVEL HORSE 3 :" \Do \Locate 16,3,M \If \Getkey=27\ And M<15:\Then \Locate 16,3," ":M+1\->M:\IfEnd \If \Getkey=38\ And M>1:\Then \Locate 16,3," ":M-1\->M:\IfEnd \LpWhile \Getkey\<>78 "LEVEL HORSE 4 :" \Do \Locate 16,4,N \If \Getkey=27\ And N<15:\Then \Locate 16,4," ":N+1\->N:\IfEnd \If \Getkey=38\ And N>1:\Then \Locate 16,4," ":N-1\->N:\IfEnd \LpWhile \Getkey\<>78 \ClrText \Goto0 \IfEnd \If X=5:\Then \ClrText:\Prog "AIDEEQUI":\IfEnd \If X=6:\Then \ClrText:"TU AS EN CE MOMENT CETE ARGENT DANS LA PARTIE EN COUR :":\Mat S[4,1]\->F:\Locate 8,5,F:\Locate 16,5,"E":\Locate 3,7,"PRESS SHIFT!":\Lbl 4:\Getkey=78\=>\Goto0:\Goto4:\IfEnd \If X=7:\Then A\->\Mat S[1,1]:B\->\Mat S[1,2]:C\->\Mat S[1,3]:G\->\Mat S[2,1]:H\->\Mat S[2,2]:I\->\Mat S[2,3]:D\->\Mat S[3,1]:J\->\Mat S[3,2]:O\->\Mat S[3,3]:F\->\Mat S[4,1]:\r\->\Mat S[4,3]:\theta\->\Mat S[5,1]:M\->\Mat S[5,2]:N\->\Mat S[5,3]:\ClrText:\Stop:\IfEnd \IfEnd \Lbl 5 \ClrText \If B>15:\Then 15\->B:\IfEnd \If C>100:\Then 100\->C:\IfEnd \If H>15:\Then 15\->H:\IfEnd \If I>100:\Then 100\->H:\IfEnd \If J>15:\Then 15\->J:\IfEnd \If O>100:\Then 100\->O:\IfEnd " MENU JEUX" 2\->X \Locate 1,2,"\->" \Locate 3,2,"FAIRE UNE COURSE" \Locate 3,3,"NOURRIR MON CHEVAL" \Locate 3,4,"BOUTIQUE" \Locate 3,5,"ACHETER UN CHEVAL" \Locate 3,6,"ETAT DES CHEVAUX" \Locate 3,7,"RETOUR MENU" \Do \If \Getkey=28\ And X>2:\Then \Locate 1,X," ":X-1\->X:\Locate 1,X,"\->":\IfEnd \If \Getkey=37\ And X<7:\Then \Locate 1,X," ":X+1\->X:\Locate 1,X,"\->":\IfEnd \LpWhile \Getkey\<>78 \If X=7:\Then \Goto0:\IfEnd \If X=6:\Then \GotoD:\IfEnd \If X\<>2:\Then \GotoF:\IfEnd \If X=2:\Then U+(V-50)\->W:\ClrText "FAIRE UNE COURSE" 2\->X \Locate 1,2,"\->" \Locate 3,3,"COURSE 1 JOUEUR" \Locate 3,4,"JOIN A HOST" \Locate 3,5,"CREAT A HOST" \Locate 1,6,"(PAS BESOIN DE CABLE)" \Locate 3,2,"RETOUR" \Lbl L \Getkey=28\=>\GotoG \Getkey=37\=>\GotoH \Getkey=78\=>\GotoI \GotoL \Lbl G \If X>2:\Then \Locate 1,X," ":X-1\->X:\Locate 1,X,"\->":\IfEnd \GotoL \Lbl H \If X<5:\Then \Locate 1,X," ":X+1\->X:\Locate 1,X,"\->":\IfEnd \GotoL \Lbl I \If X=2:\Then \Goto5:\IfEnd \ClrText "ARGENT PARIE"?\->E \ClrText "ENTRE LE NUMERO DE TON CHEVAL"?\->Z \If Z=1:\Then (B+((C-50)/25))\->W:C-5\->C:\IfEnd \If Z=2:\Then (H+((I-50)/25))\->W:J-5\->J:\IfEnd \If Z=3:\Then (J+((O-50)-25))\->W:O-5\->O:\IfEnd \If X=3:\Then 0\->L:\Goto2:\IfEnd \If X=4:\Then "ENTRE CETTE VALEUR SUR LA CALCULATRICE SERVEUR :":\Locate 12,5,W:\Locate 6,7,"PRESS SHIFT":\Do:\LpWhile \Getkey\<>78:\ClrText:"ENTRE LA VALEUR DONNEE PAR LA CALCULATRICE SERVEUR"?\->Z:\If Z=1:\Then F+E\->F:\IfEnd:\If Z=0:\Then F-E\->F:\IfEnd:\If F<0:\Then \ClrText:\Locate 5,4,"GAME OVER":\Goto0:\IfEnd:\ClrText:\Locate 1,4,"TU AS :":\Locate 8,4,F:\Locate 15,4,"E":\Locate 4,7,"PRESS SHIFT":\Do:\LpWhile \Getkey\<>78:\Goto5:\IfEnd \If X=5:\Then 1\->L:\ClrText:"NOMBRE DE JOUEUR (NB : 2\(-)5)"?\->Z:\If Z=2:\Then \ClrText:"VALEUR DU J2 (A)"?\->\r:\ClrText:"LEVEL HORSE B "?\->\theta:"LEVEL HORSE C "?\->M:"LEVEL HORSE D "?\->N:\Goto2:\IfEnd:\If Z=3:\Then \ClrText:"VALEUR DU J2 (A)"?\->\r:"VALEUR DU J3 (B)"?\->\theta:\ClrText:"LEVEL HORSE C "?\->M:"LEVEL HORSE D "?\->N:\Goto2:\IfEnd:\If Z=4:\Then \ClrText:"VALEUR DU J2 (A)"?\->\r:"VALEUR DU J3 (B)"?\->\theta:"VALEUR DU J4 (C)"?\->M:"LEVEL HORSE D "?\->N:\Goto2:\IfEnd:\If Z=5:\Then \ClrText:"VALEUR DU J2 (A)"?\->\r:"VALEUR DU J3 (B)"?\->\theta:"VALEUR DU J4 (C)"?\->M:"VALEUR DU J5 (D)"?\->N:365\->U:\Goto2:\IfEnd:\IfEnd \IfEnd \Lbl F \If X=3:\Then \ClrText:"UNE CHANCE SUR 50 POUR 100\slash100 DE MORAL SUR UN CHEVAL. 0 POUR ANNULER OU LE NUMERO DU CHEVAL POUR NOURRIR (50E)"?\->X:\If X=0:\Then \Goto2:\IfEnd:(\Int (\Ran#*50))\->W:F-50\->F:\If W\<>25:\Then \ClrText:"PERDU ! ":\Goto5:\IfEnd:\If X=1:\Then 100\->C:\IfEnd:\If X=2:\Then 100\->I:\IfEnd:\If X=3:\Then 100\->O:\IfEnd:\ClrText:"GAGNE ! ":\Goto5:\IfEnd \If X=4:\Then \Lbl O:\ClrText:" BOUTIQUE":\Locate 3,3,"MORAL 100 1000 E":\Locate 3,5,"PUISSANCE +1 2000E":\Locate 3,7,"RETOUR":\Locate 3,4,"(MAX=100)":\Locate 3,6,"(MAX=15)":\Locate 1,3,"\->":3\->X:\Do:\If X>3\ And \Getkey=28:\Then \Locate 1,X," ":X-2\->X:\Locate 1,X,"\->":\IfEnd:\If X<7\ And \Getkey=37:\Then \Locate 1,X," ":X+2\->X:\Locate 1,X,"\->":\IfEnd:\LpWhile \Getkey\<>78:\If X=7:\Then \Goto5:\IfEnd:\If X=3\ And F\>=1000:\Then \ClrText:"NUMERO DU CHEVAL"?\->Y:\If Y=1:\Then 100\->C:\IfEnd:\If Y=2:\Then 100\->I:\IfEnd:\If Y=3:\Then 100\->O:\IfEnd:F-1000\->F:\ClrText:"MORAL 100 : OK !!! ":\Goto5:\IfEnd:\If X=5\ And F\>=2000:\Then \ClrText:"NUMERO DU CHEVAL"?\->Y:\If Y=1:\Then B+1\->B:\IfEnd:\If Y=2:\Then H+1\->H:\IfEnd:\If Y=3:\Then J+1\->J:\IfEnd:F-2000\->F:\ClrText:"PUISSANCE +1 : OK ":\Goto5:\IfEnd \IfEnd \If X=5:\Then \ClrText "ACHETER UN CHEVAL :" \Locate 1,2,"CANASSON \-> 2000 E" \Locate 1,3,"PUISSANCE : 3" \Locate 1,4,"CHEVAL NORMAL \->8000 E" \Locate 1,5,"PUISSANCE : 5" \Locate 1,6,"CHEVAL PURSANG\->20000E" \Locate 1,7,"PUISSANCE : 10" 3\->X 0\->Y \Locate 18,3,"***" \Do \Getkey=47\=>\Goto5 \If \Getkey=28\ And X>3:\Then \Locate 18,X," ":X-2\->X:\Locate 18,X,"***":\IfEnd \If \Getkey=37\ And X<7:\Then \Locate 18,X," ":X+2\->X:\Locate 18,X,"***":\IfEnd \LpWhile \Getkey\<>78 \If X=3\ And F\>=2000:\Then \If Y=0\ And A=0:\Then 3\->B:1\->Y:50\->C:1\->A:F-2000\->F:\Goto5:\IfEnd:\If A\<>0\ And G=0\ And Y=0:\Then 1\->Y:1\->G:3\->H:50\->I:F-2000\->F:\Goto5:\IfEnd:\If Y=0\ And A\<>0\ And G\<>0\ And D=0:\Then 1\->D:50\->O:3\->J:1\->Y:F-2000\->F:\Goto5:\IfEnd:\If A\<>0\ And G\<>0\ And D\<>0\ And Y=0:\Then \ClrText:1\->Y:"PLUS D'EMPLACEMENT DE LIBRE. SI VOUS VOULEZ CE CHEVAL, SELECTIONNER LE NUMERO D'EMPLACEMENT. SI VOUS NE VOULEZ PAS EN ECRASER, TAPER 0"?\->Q:\If Q=1:\Then 1\->A:50\->C:3\->B:F-2000\->F:\Goto5:\IfEnd:\If Q=0:\Then \Goto5:\IfEnd:\If Q=2:\Then 2\->G:50\->I:3\->H:F-2000\->F:\Goto5:\IfEnd:\IfEnd:\IfEnd \If X=5\ And F\>=8000:\Then \If A=0:\Then 5\->B:50\->C:2\->A:F-8000\->F:\Goto5:\IfEnd:\If A\<>0\ And G=0:\Then 2\->G:50\->I:5\->H:F-8000\->F:\Goto5:\IfEnd:\If A\<>0\ And G\<>0\ And D=0:\Then 2\->D:50\->O:5\->J:F-8000\->F:\Goto5:\IfEnd:\If A\<>0\ And G\<>0\ And D\<>0:\Then \ClrText:"PLUS D'EMPLACEMENT DE LIBRE. SI VOUS VOULEZ ECRASER UN EMPLACEMENT, TAPER LE NUMERO, POUR ANNULER, TAPER 0"?\->Q:\If Q=0:\Then \Goto5:\IfEnd:\If Q=1:\Then 2\->A:50\->C:5\->B:F-8000\->F:\Goto5:\IfEnd:\If Q=2:\Then 2\->G:50\->I:5\->H:F-8000\->F:\Goto5:\IfEnd:\If Q=3:\Then 2\->D:50\->O:5\->J:F-8000\->F:\Goto5:\IfEnd:\Goto5:\IfEnd:\IfEnd \If X=7\ And F\>=20000:\Then \If A=0:\Then 3\->A:50\->C:10\->B:F-20000\->F:\Goto5:\IfEnd:\If A\<>0\ And G=0:\Then 3\->G:50\->I:10\->H:F-20000\->F:\Goto5:\IfEnd:\If D=0\ And G\<>0\ And A\<>0:\Then 3\->D:50\->O:10\->J:F-20000\->F:\Goto5:\IfEnd:\If A\<>0\ And G\<>0\ And D\<>0:\Then \ClrText:"PLUS D'EMPLACEMENT DE LIBRE. SI VOUS VOULEZ ECRASER UN EMPLACEMENT, TAPER LE NUMERO, POUR ANNULER, TAPER 0"?\->Q:\If Q=0:\Then \Goto5:\IfEnd:\If Q=1:\Then 3\->A:10\->B:50\->C:F-20000\->F:\Goto5:\IfEnd:\If Q=2:\Then 3\->G:10\->H:50\->I:F-20000\->F:\Goto5:\IfEnd:\If Q=3:\Then 3\->D:10\->J:50\->O:F-20000\->F:\Goto5:\IfEnd:\Goto5:\IfEnd:\IfEnd \IfEnd \Lbl D \If X=6:\Then \Lbl 7 \ClrText "ETAT DES CHEVAUX" 3\->X \Locate 1,3,"\->" \Locate 3,3,"CHEVAL 1" \Locate 3,5,"CHEVAL 2" \Locate 3,7,"CHEVAL 3" \Do \If \Getkey=28\ And X>3:\Then \Locate 1,X," ":X-2\->X:\Locate 1,X,"\->":\IfEnd \If \Getkey=37\ And X<7:\Then \Locate 1,X," ":X+2\->X:\Locate 1,X,"\->":\IfEnd \LpWhile \Getkey\<>78 \If X=3:\Then \ClrText:"CHEVAL 1":\Locate 1,7,"MORAL :":\Locate 8,7,C:\Locate 1,2,"TYPE DE CHEVAL :":\If A=1:\Then \Locate 1,3,"CANASSON":\IfEnd:\If A=2:\Then \Locate 1,3,"CHEVAL NORMAL":\IfEnd:\If A=3:\Then \Locate 1,3,"CHEVAL PURE SANG":\IfEnd:\Locate 1,5,"PUISSANCE :":\Locate 13,5,B:\GotoY:\IfEnd \If X=5:\Then \ClrText:"CHEVAL 2":\Locate 1,2,"TYPE DE CHEVAL :":\If G=1:\Then \Locate 1,3,"CANASSON":\IfEnd:\If G=2:\Then \Locate 1,3,"CHEVAL NORMAL":\IfEnd:\If G=3:\Then \Locate 1,3,"CHEVAL PURE SANG":\IfEnd:\Locate 1,5,"PUISSANCE :":\Locate 13,5,H:\Locate 1,7,"MORAL :":\Locate 9,7,I:\GotoY:\IfEnd \If X=7:\Then \ClrText:"CHEVAL 3":\Locate 1,2,"TYPE DE CHEVAL :":\If D=1:\Then \Locate 1,3,"CANASSON":\IfEnd:\If D=2:\Then \Locate 1,3,"CHEVAL NORMAL":\IfEnd:\If D=3:\Then \Locate 1,3,"CHEVAL PURE SANG":\IfEnd:\Locate 1,5,"PUISSANCE :":\Locate 13,5,J:\Locate 1,7,"MORAL :":\Locate 8,7,O:\GotoY:\IfEnd \Lbl Y \Locate 4,6,"PRESS SHIFT!":\Do \LpWhile \Getkey\<>78 \ClrText \Goto5 \IfEnd \If X=7:\Then \ClrText:\Goto0:\IfEnd \IfEnd %End