%Header Record
Format:MCS1
Type Number:1
File Name:SW~COMBA
Option Name:
Communication SW:0
Capacity:7647
Data Type:PG
%Data Record
Password:
BaseN:0
0\->\theta
\Mat K[1,10]=0\=>\Stop
\Lbl 0
\Mat K[1,10]\->Z
0\->B~E
\Cls
\If Z=1
\Then \Int 70\Ran#+1\->B
\Int 40\Ran#+1\->C
\Int 40\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=2
\Then \Int 25\Ran#+1\->B
\Int 5\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=3
\Then \Int 25\Ran#+1\->B
\Int 10\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=4
\Then 35\->B
0\->C
10\->D
\IfEnd
\If Z=5
\Then \Int 25\Ran#+1\->B
0\->C
\Int 5\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=6
\Then \Int 35\Ran#+1\->B
\Int 10\Ran#+1\->C
\Int 10\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=7
\Then \Int 25\Ran#+1\->B
0\->C
\Int 8\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=8
\Then \Int 35\Ran#+1\->B
0\->C
\Int 10\Ran#+1\->D
\Int 3\Ran#+1\->E
\IfEnd
\If Z=9
\Then 70\->B
70\->C
25\->D
\IfEnd
\If Z=10
\Then 120\->B
70\->C
40\->D
\IfEnd
\If Z=11
\Then 150\->B
100\->C
65\->D
\IfEnd
\If Z=12
\Then 125\->B
150\->C
75\->D
\IfEnd
\If Z=13
\Then \Int 75\Ran#+1\->B
0\->C
\Int 45\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=14
\Then 200\->B
75\->C
100\->D
\IfEnd
\If Z=15
\Then \Int 100\Ran#+1\->B
0\->C
\Int 45\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=16
\Then 150\->B
0\->C
80\->D
\IfEnd
\If Z=17
\Then 200\->B
0\->C
90\->D
\IfEnd
\If Z=18
\Then 155\->B
0\->C
45\->D
\IfEnd
\If U=19
\Then \Int 150\Ran#+1\->B
0\->C
\Int 45\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=20
\Then \Int 200\Ran#+1\->B
0\->C
\Int 90\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=21
\Then \Mat K[8,9]\->E
\Int 120\Ran#+1\->B
0\->C
\Int 120\Ran#+1\->D
\IfEnd
\If Z=22
\Then \Int 150\Ran#+1\->B
0\->C
\Int 65\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=23
\Then \Int 140\Ran#+1\->B
0\->C
\Int 65\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=24
\Then 180\->B
0\->C
75\->D
\IfEnd
\If Z=25
\Then 125\->B
0\->C
75\->D
\IfEnd
\If Z=26
\Then \Mat K[9,6]\->E
100+10E\->B
10E\->C
75\->D
\IfEnd
\If Z=27
\Then \Int 200\Ran#+1\->B
\Int 70\Ran#+1\->C
\Int 65\Ran#+1\->D
\Int 4\Ran#+1\->E
\IfEnd
\If Z=28
\Then 200\->B
75\->C
100\->D
\IfEnd
\If Z=29
\Then 350\->B
200\->C
75\->D
\IfEnd
C=0\=>\Int 50\Ran#+1\->C
\Lbl 1
\If \theta=1
\Then \Mat K[2,1]+((\Mat K[5,1]+\Mat K[5,2])/20)\->\Mat K[2,1]
\Mat K[2,1]>\Mat K[2,2]\=>\Mat K[2,2]\->\Mat K[2,1]
\Int \Mat K[2,1]\->\Mat K[2,1]
\Mat K[2,3]+((\Mat K[5,1]+\Mat K[5,2])/20)\->\Mat K[2,3]
\Mat K[2,3]>\Mat K[2,4]\=>\Mat K[2,4]\->\Mat K[2,3]
\Int \Mat K[2,3]\->\Mat K[2,3]
0\->\theta
\IfEnd
\Cls
\Text 1,5,"BASTIEN:"
\Horizontal 57
\Text 15,5,"VIE\(-)"
\Text 22,5,"FORCE\(-)"
\Text 29,5,"DEFENSE\(-)"
\Text 15,40,\Mat K[2,1]
\Text 22,40,\Mat K[2,3]
\Text 29,40,\Mat K[5,7]
\F-Line 63,27,63,63
\Horizontal 27
Z=1\=>E=1\=>\Text 1,68,"MAITRE SITH"
Z=1\=>E=2\=>\Text 1,68,"JEDI OBSCUR"
Z=1\=>E=3\=>\Text 1,68,"PADAWAN"
Z=1\=>E=4\=>\Text 1,68,"ASSASSIN SITH"
Z=2\=>E=1\=>\Text 1,68,"SHAMAN DOBO"
Z=2\=>E=2\=>\Text 1,68,"CHASEUR UBESE"
Z=2\=>E=3\=>\Text 1,68,"RODIEN"
Z=2\=>E=4\=>\Text 1,68,"SOLDAT"
Z=3\=>E=1\=>\Text 1,68,"ASSASSIN SITH"
Z=3\=>E=2\=>\Text 1,68,"GRENADIER SITH"
Z=3\=>E=3\=>\Text 1,68,"DRESSEUR SITH"
Z=3\=>E=4\=>\Text 1,68,"MAITRE D'ARMES"
Z=4\=>\Text 1,68,"MAITRE SITH"
Z=5\=>E=1\=>\Text 1,68,"RAKGOULE"
Z=5\=>E=2\=>\Text 1,68,"RAKGOULE MORTEL"
Z=5\=>E=3\=>\Text 1,68,"GIZKA"
Z=5\=>E=4\=>\Text 1,68,"LAIGREK"
Z=6\=>E=1\=>\Text 1,68,"JEDI"
Z=6\=>E=2\=>\Text 1,68,"PADAWAN"
Z=6\=>E=3\=>\Text 1,68,"MAITRE JEDI"
Z=6\=>E=4\=>\Text 1,68,"SOLDAT"
Z=7\=>E=1\=>\Text 1,68,"GIZKA"
Z=7\=>E=2\=>\Text 1,68,"LAIGREK"
Z=7\=>E=3\=>\Text 1,68,"KINRATH"
Z=7\=>E=4\=>\Text 1,68,"PETIT BOMA"
Z=8\=>E=1\=>\Text 1,68,"KINRATH"
Z=8\=>E=2\=>\Text 1,68,"KINRATH MORTEL"
Z=8\=>E=3\=>\Text 1,68,"MERE KINRATH"
Z=9\=>\Text 1,68,"SEIGNEURS SITH"
Z=10\=>\Text 1,68,"DARK NIHILIUS"
Z=11\=>\Text 1,68,"DARK SION"
Z=12\=>\Text 1,68,"DARK MALAK"
Z=13\=>E=1\=>\Text 1,68,"OMBRE"
Z=13\=>E=2\=>\Text 1,68,"SEIGNEUR SITN"
Z=13\=>E=3\=>\Text 1,68,"JEDI OBSCUR"
Z=13\=>E=4\=>\Text 1,68,"BOMA"
Z=14\=>\Text 1,68,"GROS RANCOR"
Z=15\=>E=1\=>\Text 1,68,"RAKGOULE"
Z=15\=>E=2\=>\Text 1,68,"KINRATH"
Z=15\=>E=3\=>\Text 1,68,"GROS RANCOR"
Z=15\=>E=4\=>\Text 1,68,"MERE LAIGREK"
Z=16\=>\Text 1,68,"CONTRE\(-)BANDIER"
Z=17\=>\Text 1,68,"RIGGEN"
Z=18\=>\Text 1,68,"LOPA BUSTO"
Z=19\=>E=1\=>\Text 1,68,"GRENADIER SITH"
Z=19\=>E=2\=>\Text 1,68,"JEDI SITH"
Z=19\=>E=3\=>\Text 1,68,"DRESSEUR SITH"
Z=19\=>E=4\=>\Text 1,68,"ASSASSIN SITH"
Z=20\=>E=1\=>\Text 1,68,"DROID TEKA"
Z=20\=>E=2\=>\Text 1,68,"DROID POMPIER"
Z=20\=>E=3\=>\Text 1,68,"DROID T4"
Z=20\=>E=4\=>\Text 1,68,"HK-47"
Z=21\=>E=1\=>\Text 1,68,"DROID TEKA"
Z=21\=>E=2\=>\Text 1,68,"DROID T9"
Z=21\=>E=3\=>\Text 1,68,"HK-47"
Z=21\=>E=4\=>\Text 1,68,"HK-50"
Z=22\=>E=1\=>\Text 1,68,"DROID"
Z=22\=>E=2\=>\Text 1,68,"ASSASSIN SITH"
Z=22\=>E=3\=>\Text 1,68,"JEDI OBSCUR"
Z=22\=>E=4\=>\Text 1,68,"GROS RANCOR"
Z=23\=>E=1\=>\Text 1,68,"GAND"
Z=23\=>E=2\=>\Text 1,68,"TWIL'EK"
Z=23\=>E=3\=>\Text 1,68,"WOKKIE"
Z=23\=>E=4\=>\Text 1,68,"UBESE"
Z=24\=>\Text 1,68,"BANDITS"
Z=25\=>\Text 1,68,"HK-47"
Z=26\=>\Text 1,68,"MAITRE JEDI"
Z=27\=>E=1\=>\Text 1,68,"JEDI OBSCUR"
Z=27\=>E=2\=>\Text 1,68,"GROS BOMA"
Z=27\=>E=3\=>\Text 1,68,"GROS RANCOR"
Z=27\=>E=4\=>\Text 1,68,"SEIGNEUR SITH"
Z=28\=>\Text 1,68,"MAITRE JEDI"
Z=29\=>\Text 1,68,"MAITRES JEDI"
\Text 15,68,"VIE\(-)"
\Text 22,68,"ATCK\(-)"
\Text 29,68,"DEFENSE\(-)"
\Text 15,105,B
\Text 22,105,C
\Text 29,105,D
\Text 43,5,"1) ATTAQUE"
\Text 43,68,"2) OUVRIR SAC"
\Mat K[1,9]\>=10\=>\Text 50,40,"3) POUVOIR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52
L=72\=>\Goto2
L=62\=>\Goto3
L=52\ And \Mat K[1,9]\>=10\=>\Goto4
\Goto0
\Lbl 2
\Cls
\Text 1,5,"ATTAQUES:"
\Text 15,5,"1) ATTAQUE"
\Text 22,5,"2) DELUGE DE COUPS"
\Text 29,5,"3) ATTAQUE EN PUISSANCE"
\Text 36,5,"4) COUP CRITIQUE"
\Text 8,100,"DEGATS:"
\Text 15,115,\Mat K[4,2]
\Text 22,115,\Mat K[4,1]
\Text 29,115,\Mat K[4,3]
\Text 36,115,\Mat K[4,4]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\Mat K[4,2]\->A
L=62\=>\Mat K[4,1]\->A
L=52\=>\Mat K[4,3]\->A
L=73\=>\Mat K[4,4]\->A
L=29\=>\Goto1
\Goto5
\Lbl 3
\Cls
\Text 1,5,"SAC:"
\Text 15,5,"1) MEDIPACK"
\Text 22,5,"2) TROUSSE DE SOINS"
\Text 29,5,"3) TROUSSE DE VIE"
\Text 36,5,"4) SOINS MAX"
\Text 15,90,\Mat K[1,7]
\Text 22,90,\Mat K[3,8]
\Text 29,90,\Mat K[3,9]
\Text 36,90,\Mat K[3,10]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
\If L=72\ And \Mat K[1,7]\>=1
\Then \Mat K[2,1]+20\->\Mat K[2,1]
\Mat K[1,7]-1\->\Mat K[1,7]
\Mat K[2,1]>\Mat K[2,2]\=>\Mat K[2,2]\->\Mat K[2,1]
\Goto6
\IfEnd
\If L=62\ And \Mat K[3,8]\>=1
\Then \Mat K[2,1]+45\->\Mat K[2,1]
\Mat K[3,8]-1\->\Mat K[3,8]
\Mat K[2,1]>\Mat K[2,2]\=>\Mat K[2,2]\->\Mat K[2,1]
\Goto6
\IfEnd
\If L=52\ And \Mat K[3,9]\>=1
\Then \Mat K[2,1]+60\->\Mat K[2,1]
\Mat K[3,9]-1\->\Mat K[3,9]
\Mat K[2,1]>\Mat K[2,2]\=>\Mat K[2,2]\->\Mat K[2,1]
\Goto6
\IfEnd
\If L=73\ And \Mat K[3,10]\>=1
\Then \Mat K[2,2]\->\Mat K[2,1]
\Mat K[3,10]-1\->\Mat K[3,10]
\Goto6
\IfEnd
L=29\=>\Goto1
\Goto3
\Lbl 4
\Cls
\Text 1,5,"POUVOIRS:"
\Text 8,5,"FORCE:"
\Text 8,40,\Mat K[2,3]
\Text 15,5,"1) SOINS"
\Text 22,5,"2) ECLAIR"
\Text 29,5,"3) STASE"
\Text 36,5,"4) VAGUE DE FORCE"
\Text 43,5,"5) LANCE DE SABRE"
\Text 50,5,"6) ABSORBTION DE VIE"
\Text 57,5,"7) MISE A MORT"
\Text 15,90,\Mat K[3,1]
\Text 22,90,\Mat K[3,2]
\Text 29,90,\Mat K[3,3]
\Text 36,90,\Mat K[3,4]
\Text 43,90,\Mat K[3,5]
\Text 50,90,\Mat K[3,6]
\Text 57,90,\Mat K[3,7]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>53\ And L\<>74\ And L\<>29
\If L=72\ And \Mat K[3,1]\<=\Mat K[2,3]
\Then \Mat K[2,1]+\Mat K[3,1]\->\Mat K[2,1]
\Mat K[2,3]-\Mat K[3,1]\->\Mat K[2,3]
\Goto6
\IfEnd
\If L=62\ And \Mat K[3,2]\<=\Mat K[2,3]
\Then \Mat K[3,2]\->A
\Mat K[2,3]-\Mat K[3,2]\->\Mat K[2,3]
1\->\r
\Goto5
\IfEnd
\If L=52\ And \Mat K[3,3]\<=\Mat K[2,3]
\Then \Mat K[3,3]\->A
\Mat K[2,3]-\Mat K[3,3]\->\Mat K[2,3]
1\->\r
\Goto5
\IfEnd
\If L=73\ And \Mat K[3,4]\<=\Mat K[2,3]
\Then \Mat K[3,4]\->A
\Mat K[2,3]-\Mat K[3,4]\->\Mat K[2,3]
1\->\r
\Goto5
\IfEnd
\If L=63\ And \Mat K[3,5]\<=\Mat K[2,3]
\Then \Mat K[3,5]\->A
\Mat K[2,3]-\Mat K[3,5]\->\Mat K[2,3]
1\->\r
\Goto5
\IfEnd
\If L=53\ And \Mat K[3,6]\<=\Mat K[2,3]
\Then \Mat K[3,6]\->A
\Mat K[2,3]-\Mat K[3,6]\->\Mat K[2,3]
\Mat K[2,1]+\Mat K[3,6]\->\Mat K[2,1]
1\->\r
\Goto5
\IfEnd
\If L=74\ And \Mat K[3,7]\<=\Mat K[2,3]
\Then \Mat K[3,7]\->A
\Mat K[2,3]-\Mat K[3,7]\->\Mat K[2,3]
1\->\r
\Goto5
\IfEnd
L=29\=>\Goto1
\Goto4
\Lbl 5
\r\<>1\=>\Int 10\Ran#+1=5\=>\Goto6
A+\Mat K[5,5]/10\->A
A+\Mat K[1,8]\->A
B-\Int A+D/10\->B
\Text 50,5,"VOUS FAITES UN COUP DE\(-)       "
\Text 57,5,"                              "
\Text 57,5,\Int A\Disp\Int B\->B
B\<=0\=>\Goto7
0\->\r
\Goto6
\Lbl 6
\Int 10\Ran#+1=5\=>\Goto1
\Cls
\Text 1,5,"VOUS ETES ATTAQUE"\Disp\Mat K[2,1]-C+\Mat K[5,7]/10\->\Mat K[2,1]
\Int \Mat K[2,1]\->\Mat K[2,1]
\Mat K[2,1]\<=0\=>\Goto8
1\->\theta
\Goto1
\Lbl 7
Z=11\=>\Goto9
\Cls
\Text 1,5,"VOUS AVEZ TUE VOTRE ENEMIE"
\Text 15,5,"EXP GAGNE\(-)"
\Text 22,5,"EXP RESTANT\(-)"
(C+D)*10\->E
\Text 15,60,E
\Mat K[6,10]-E\->\Mat K[6,10]
\Mat K[6,10]\<=0\=>0\->\Mat K[6,10]
\Text 22,60,\Mat K[6,10]\Disp\Mat K[1,3]+\Int (E/3)\->\Mat K[1,3]
0\->\Mat K[1,10]
\Goto9
\Lbl 8
\Cls
\Text 1,5,"VOUS ETES MORT:"
\Text 15,5,"1) 200\(-)SOINS MAX"
\Text 22,5,"2) 100\(-)1/2 SOINS"
\Text 29,5,"3) SOINS RAPIDES"
\Text 43,5,"ARGENT\(-)"
\Text 43,50,\Mat K[1,3]
Z=27\=>\Mat K[9,7]-1\->\Mat K[9,7]
0\->\Mat K[1,10]
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52
\If L=72\ And \Mat K[1,3]\>=200
\Then \Mat K[1,3]-200\->\Mat K[1,3]
\Mat K[2,2]\->\Mat K[2,1]
\Return
\IfEnd
\If L=62\ And \Mat K[1,3]\>=100
\Then \Mat K[1,3]-100\->\Mat K[1,3]
\Mat K[2,2]/2\->\Mat K[2,1]
\Return
\IfEnd
\If L=52
\Then 1\->\Mat K[2,1]
\Return
\IfEnd
\Goto8
\Lbl 9
\Mat K[6,10]\<=0\=>\Prog "SW~NIVEA"
Z=2\=>\Mat K[1,3]+200\->\Mat K[1,3]
Z=4\=>10\->\Mat K[8,4]
Z=4\=>\Mat K[8,3]+1\->\Mat K[8,3]
Z=9\=>10\->\Mat K[8,5]
Z=10\=>10\->\Mat K[8,9]
Z=10\=>\Mat K[8,7]+1\->\Mat K[8,7]
Z=11\=>\Mat K[9,10]+1\->\Mat K[9,10]
Z=12\ And \Mat K[9,3]=2\=>\Mat K[9,2]+1\->\Mat K[9,2]
Z=12\ And \Mat K[9,3]=2\=>10\->\Mat K[9,3]
Z=12\ And \Mat K[9,3]=10\ And \Mat K[9,8]=0\=>5\->\Mat K[9,8]
Z=12\ And \Mat K[9,8]=5\=>10\->\Mat K[9,8]
Z=14\=>6\->\Mat K[8,5]
Z=16\=>10\->\Mat K[8,8]
Z=17\=>10\->\Mat K[9,1]
Z=17\=>\Mat K[8,7]+1\->\Mat K[8,7]
Z=18\=>11\->\Mat K[9,1]
Z=18\=>\Mat K[8,7]+1\->\Mat K[8,7]
Z=21\=>\Mat K[8,9]+1\->\Mat K[8,9]
Z=24\=>10\->\Mat K[9,4]
Z=24\=>\Mat K[9,2]+2\->\Mat K[9,2]
Z=26\=>\Mat K[9,6]+1\->\Mat K[9,6]
Z=28\=>\Mat K[9,7]+1\->\Mat K[9,7]
Z=29\=>10\->\Mat K[9,9]
Z=11\ And \Mat K[9,10]=10\=>\Prog "SW~FIN"
Z=29\=>\Prog "SW~FIN"
Z=11\=>\Goto0
\Int 6\Ran#=3\=>\GotoA
\Return
\Lbl A
\Cls
\Text 1,5,"VOUS TROUVEZ:"
\Int 9\Ran#+1\->A
A=1\=>\Text 8,5,"UN MEDIPACK"\DispA=2\=>\Text 8,5,"UN STIMULANT"\DispA=3\=>\Text 8,5,"UNE TROUSSE DE SOINS"\DispA=4\=>\Text 8,5,"UNE TROUSSE DE VIE"\DispA=5\=>\Text 8,5,"UN SOINS MAX"\DispA=6\=>\Text 8,5,"UN BOUCLIER"\DispA=7\=>\Text 8,5,"UNE CEINTURE"\DispA=8\=>\Text 8,5,"UN IMPLANT"\DispA=9\=>\Text 8,5,"DES GANTS"\DispA=1\=>\Mat K[1,7]+1\->\Mat K[1,7]
A=2\=>\Mat K[2,6]+1\->\Mat K[2,6]
A=3\=>\Mat K[3,8]+1\->\Mat K[3,8]
A=4\=>\Mat K[3,9]+1\->\Mat K[3,9]
A=5\=>\Mat K[3,10]+1\->\Mat K[3,10]
A=6\=>\Mat K[4,7]+1\->\Mat K[4,7]
A=7\=>\Mat K[4,8]+1\->\Mat K[4,8]
A=8\=>\Mat K[4,9]+1\->\Mat K[4,9]
A=9\=>\Mat K[4,10]+1\->\Mat K[4,10]
\Return\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~FIN
Option Name:
Communication SW:0
Capacity:1067
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 0
\Mat K[9,9]=0\ And \Mat K[9,10]=10\=>\Goto1
\Mat K[9,9]=10\ And \Mat K[9,10]\<=5\=>\Goto2
\Stop
\Lbl 1
\Cls
\Text 1,5,"MAITRE JEDI:"
\Text 15,5,"VOUS AVEZ DETRUIT LES"
\Text 22,5,"SITHS QUI AVAIENT"
\Text 29,5,"SURVECU.NOUS POUVONS"
\Text 36,5,"DESORMAIS RECONSTRUIRE UNE"
\Text 43,5,"NOUVELLE ACADEMIE AVEC DE"
\Text 50,5,"NOUVEAUX PADAWAN."
\Text 57,5,"VOTRE NOM RESTERA POUR"\Disp\Cls
\Text 1,5,"TOUJOURS GRAVE DANS LA"
\Text 8,5,"MEMOIRE DES JEDI"
\Text 22,5,"MERCI"\Disp\Cls
\Text 1,5,"PROGRAMMATION: BASTOUNET"
\Text 8,5,"IDEE: BASTOUNET"
\Text 15,5,"DOCS: ATLYRE"
\Text 22,5,"SCENARIO: BASTOUNET"
\Text 36,5,"WWW.CASIOPROGRAMMEUR.TK"
\Text 43,5,"VENEZ SUR LE SITE"
\Fill(0,\Mat K)
\Text 57,5,"SAUVEGARDE EFFACEE"\Disp\ClrGraph
\Stop
\Lbl 2
\Cls
\Text 1,5,"DARK SION:"
\Text 15,5,"LE COTE OBSCUR EST MAINTENANT"
\Text 22,5,"LE SEUL QUI EST PRESENT"
\Text 29,5,"DANS LA GALAXYE.MERCI DE"
\Text 36,5,"TON AIDE.NOUS POUVONS"
\Text 43,5,"REGNER SUR LE MONDE."
\Text 50,5,"LES SITHS SONT TOUJOURS LES"
\Text 57,5,"PLUS PUISSANTS"\Disp\Cls
\Text 1,5,"PROGRAMMATION: BASTOUNET"
\Text 8,5,"IDEE: BASTOUNET"
\Text 15,5,"DOCS: ATLYRE"
\Text 22,5,"SCENARIO: BASTOUNET"
\Text 36,5,"WWW.CASIOPROGRAMMEUR.TK"
\Text 43,5,"VENEZ SUR LE SITE"
\Fill(0,\Mat K)
\Text 57,5,"SAUVEGARDE EFFACEE"\Disp\ClrGraph
\Stop\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~KOTOR
Option Name:
Communication SW:0
Capacity:7095
Data Type:PG
%Data Record
Password:
BaseN:0
\Lbl 0
1\->X~Z
1\->A
\Cls
\ViewWindow 1,127,0,1,63,0
\F-Line 63,56,63,20
\F-Line 65,56,65,20
\PlotOn 64,57
\F-Line 61,1,67,1
\F-Line 61,19,67,19
\F-Line 62,2,62,18
\F-Line 66,2,66,18
\F-Line 63,7,63,17
\F-Line 64,7,64,17
\F-Line 65,7,65,17
\PlotOff 64,14
\Text 5,17,"STAR WARS"
\Text 5,78,"KOTOR 2"
\F-Line 1,50,60,50
\F-Line 1,51,60,51
\F-Line 1,52,60,52
\F-Line 68,50,127,50
\F-Line 68,51,127,51
\F-Line 68,52,127,52
\Horizontal 63
\Horizontal 62
\Horizontal 61
\F-Line 1,10,61,10
\F-Line 67,10,127,10
\Text 57,1,"(C) 2005~~CASIO"
\Text 57,70,"PROGAMMEUR~~"
33\->B
31\->C
32\->D
\For 1\->A \To 2
\F-Line 18,C,22,C
\F-Line 19,D,21,D
\PlotOn 20,B
C-8\->C
D-10\->D
B-12\->B
\Next 
1\->A
\Lbl 1
\Getkey=37\=>A+1\->A
\Getkey=28\=>A-1\->A
A=5\=>1\->A
A=0\=>4\->A
\If A=1
\Then \Text 35,1,"\(-) JOUER \(-)    "
\If \Getkey=31
\Then \Text 17,77,"1\(-)CHARGER"
\Text 24,77,"2\(-)NOUVEAU"
\Lbl 2
\If \Getkey=47
\Then \Cls
\Goto0
\IfEnd
\If \Getkey=72
\Then \Text 36,77,"CHARGEMENT"
\Text 42,90,"\Mat K"
\sqrt\Mat K[1,1]*42\<>\Mat K[1,2]\=>\Stop
\sqrt\Mat K[2,8]*42\<>\Mat K[2,9]\=>\Stop
\Mat K[1,1]=0\=>\Stop
\Goto3
\IfEnd
\If \Getkey=62
\Then \Cls
\Text 1,1,"STAR WARS"
\Horizontal 57
\Text 16,18,"L'ANCIENNE SAUVEGARDE"
\Text 22,36,"SERA PERDUE"
\Text 30,15,"\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)\(-)"
\Text 38,19,"1\(-)CONTINUER"
\Text 44,19,"2\(-)ANNULER"
\Do
\If \Getkey=72
\Then \Cls
\Text 1,1,"CHOISIR VOTRE PERSO:"
\Text 15,1,"1) SOLDAT GARCON"
\Text 22,1,"2) SOLDAT FILLE"
\Text 29,1,"3) VOLEUR"
\Text 36,1,"4) VOLEUSE"
\Text 43,1,"5) ECLAIREUR"
\Text 50,1,"6) ECLAIREUSE"
\Do
\Getkey\->A
\LpWhile A=0
A=72\=>1\->B
A=62\=>2\->B
A=52\=>3\->B
A=73\=>4\->B
A=63\=>5\->B
A=53\=>6\->B
\Cls
\Text 1,5,"IL Y A TRES LONGTEMPS, DANS"
\Text 8,5,"UNE GALAXYE TRES LOINTAINE..."
\Text 22,5,"LORS DE LA FIN DE LA GUERRE"
\Text 29,5,"ENTRE LES SITHS ET LES JEDI"
\Text 36,5,"LES PLANETES SE SONT REMISENT"
\Text 43,5,"A SE RECONSTRUIRENT.LES JEDI"
\Text 50,5,"QUI SONT RESTES EN VIE SONT"
\Text 57,5,"PEU NOMBREUX."\Disp\Cls
\Text 1,5,"VOUS ETES UN"
B=1\=>\Text 1,60,"SOLDAT."
B=2\=>\Text 1,56,"E SOLDAT."
B=3\=>\Text 1,60,"VOLEUR."
B=4\=>\Text 1,56,"E VOLEUSE."
B=5\=>\Text 1,60,"ECLAIREUR."
B=6\=>\Text 1,56,"E ECLAIREUSE."
\Text 8,5,"VOUS ETES SUR LA PLANETE DE"
\Text 15,5,"TARIS.UNE PLANETE QUI A ETE"
\Text 22,5,"DETRUITE PAR DARK MALAK."
\Text 36,5,"UN JOUR VOUS TOMBEZ PAR"
\Text 43,5,"HASARD SUR UN MESSAGE QUI"
\Text 50,5,"EST CRYPTE.LE SEUL MOYEN"
\Text 57,5,"EST DE TROUVER LE MOYEN DE"\Disp\Cls
\Text 1,5,"LE DECRYPTER."
\Text 8,5,"VOUS DEVEZ REUSSIR DES"
\Text 15,5,"EPREUVES POUR TROUVER LE"
\Text 22,5,"CRYPTAGE DU MESSAGE."
\Text 36,5,"BONNE CHANCE..."\Disp[[1,42,0,0,0,0,0,0,B,0][10,10,0,0,1,0,30,1,42,0][0,0,0,0,0,0,0,0,0,0][5,5,5,5,0,0,0,0,0,0][1,1,1,1,1,1,1,1,1,1][1,1,1,1,1,1,1,1,0,1000][0,0,0,0,0,0,0,0,0,0][1,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0]]\->\Mat K
\Goto3
\IfEnd
\If \Getkey=62
\Then \Cls
\Goto0
\IfEnd
\LpWhile \Getkey\<>0
\IfEnd
\Goto2
\IfEnd
\IfEnd
\If A=2
\Then \Text 35,1," \(-) AIDE \(-)   "
\If \Getkey=31
\Then \Cls
\Text 1,1,"STAR WARS                \->AIDE"
\Horizontal 57
\Text 9,1,"DANS LE JEU:"
\Text 15,1,"SHIFT\->ACHETER OBJET"
\Text 21,1,"MENU\->VOIR HP/MP/NIV/EXP"
\Text 27,1,"LORS DES COMBATS:"
\Text 33,1,"1~3 \->CHOISR ACTION"
\Text 39,1,"PUIS 1~3 \->CHOISIR UN OBJET,"
\Text 45,1,"UNE ATTAQUE OU UN POUVOIR"
\Text 51,1,"[OPTN] POUR EQUIPER SON"
\Text 57,1,"PERSONNAGE"\Disp\Cls
\Text 1,1,"STAR WARS                \->AIDE"
\Horizontal 57
\Text 9,1,"CE PROGRAMME UTILISE:"
\Text 15,5,"MATRICE [K]"
\Text 21,10,"LA MATRICE [K] UTILIE 900"
\Text 27,10,"BYTES.ELLE EST PROTEGEE"
\Text 33,1,"VOUS DEVEZ QUITTEZ LE JEU"
\Text 39,1,"CORRECTEMNET POUR EVITER"
\Text 45,1,"LES BUGS."
\Text 51,1,"52249 BYTES TOUT COMPRIS"\Disp\Cls
\Goto0
\IfEnd
\IfEnd
\If A=3
\Then \Text 35,1," \(-) INFO \(-)  "
\If \Getkey=31
\Then \Cls
\Text 1,1,"STAR WARS                \->INFO"
\Horizontal 57
\Text 10,30,"PROGRAMMATION:"
\Text 17,32,"~BASTOUNET~"
\Text 25,1,"DOCUMENTATION...........ATLYRE"
\Text 31,1,"DESIGN...............BASTOUNET"
\Text 38,1,"L'UTILISATION DE CE PROG."
\Text 44,1,"EN COURS N'ENTRAINE PAS"
\Text 50,1,"LA RESPONSABILITE DU"
\Text 56,1,"PROGRAMMEUR"\Disp\Cls
\Text 1,1,"INFO"
\Horizontal 57
\Text 12,1,"STAR WARS KOTOR 2  CASIO"
\Text 18,1,"INFOS/CREDITS/PROGRAMMES"
\Text 25,1,"WWW.CASIOPROGRAMMEUR.COM"
\Text 34,1,"REMERCIEMENTS A TOUS MES AMIS"
\Text 40,1,"QUI ONT SOUTENU CE PROJET"
\Text 49,1,"2005\(-)BASTOUNET"
\Text 55,1,"TOUS DROITS RESERVES"\Disp\Cls
\Goto0
\IfEnd
\IfEnd
\If A=4
\Then \Text 35,1,"\(-) QUITTER \(-)"
\If \Getkey=31
\Then \Text 17,72,"ETES\(-)VOUS SUR"
\Text 23,72,"DE VOULOIR"
\Text 29,72,"QUITTER"
\Text 41,72,"1) OUI"
\Text 47,72,"2) NON"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
L=62\=>\Goto0
\If L=72
\Then \ClrGraph
\ClrList
\ClrText
0\->A~Z
\Stop
\IfEnd
\IfEnd
\IfEnd
\Goto1
\Lbl 3
\sqrt\Mat K[1,1]*42\->\Mat K[1,2]
\sqrt\Mat K[2,8]*42\->\Mat K[2,9]
\ClrText
\Mat K[2,1]\<=0\=>1\->\Mat K[2,1]
\Mat K[1,1]\->A
A\>=1\=>\Locate 15,5,"T"
A\>=2\=>\Locate 6,6,"D"
A\>=3\=>\Locate 12,1,"K"
A\>=4\=>\Locate 17,7,"Y"
A\>=5\=>\Locate 5,2,"N"
A\>=6\=>\Locate 3,7,"M"
10\->C
4\->D
\Lbl 4
0\->\theta
\Getkey\->B
B\<>0\=>\Locate C,D," "
B=28\=>D>1\=>\Dsz D
B=37\=>D<7\=>\Isz D
B=27\=>C<21\=>\Isz C
B=38\=>C>1\=>\Dsz C
B=78\=>\Goto7
B=68\=>\Goto6
B=58\=>\Goto8
B=48\=>\Goto5
B=47\=>\Goto0
\Locate C,D,"*"
C=15\=>D=5\=>A\>=1\=>\Prog "SW~PLAN1"
C=6\=>D=6\=>A\>=2\=>\Prog "SW~PLAN2"
C=12\=>D=1\=>A\>=3\=>\Prog "SW~PLAN3"
C=17\=>D=7\=>A\>=4\=>\Prog "SW~PLAN4"
C=5\=>D=2\=>A\>=5\=>\Prog "SW~PLAN5"
C=3\=>D=7\=>A\>=6\=>\Prog "SW~PLAN6"
\theta=1\=>\Goto3
\Goto4
\Lbl 5
\Cls
\Text 1,5,"STATS:"
\F-Line 5,4,5,56
\F-Line 7,4,7,56
\PlotOn 6,4
\PlotOn 6,56
\Text 8,10,"LUMINEUX"
\Text 32,10,"NEUTRE"
\Text 57,10,"OBSCUR"
\F-Line 50,5,122,5
\F-Line 50,5,50,60
\F-Line 122,5,122,60
\F-Line 50,60,122,60
\Text 8,55,"VIE\(-)"
\Text 15,55,"FORCE\(-)"
\Text 22,55,"DEFENSE\(-)"
\Text 29,55,"ARGENT\(-)"
\Text 36,55,"NIVEAU\(-)"
\Text 8,90,\Mat K[2,1]
\Text 15,90,\Mat K[2,3]
\Text 22,90,\Mat K[5,7]
\Text 29,90,\Mat K[1,3]
\Text 36,90,\Mat K[2,8]
\Mat K[1,9]=1\=>\Text 43,55,"SOLDAT"
\Mat K[1,9]=2\=>\Text 43,55,"SOLDAT"
\Mat K[1,9]=3\=>\Text 43,55,"VOLEUR"
\Mat K[1,9]=4\=>\Text 43,55,"VOLEUSE"
\Mat K[1,9]=5\=>\Text 43,55,"ECLAIREUR"
\Mat K[1,9]=6\=>\Text 43,55,"ECLAIREUSE"
\Mat K[1,9]=11\=>\Text 43,55,"JEDI GARDIEN"
\Mat K[1,9]=12\=>\Text 43,55,"JEDI GARDIENNE"
\Mat K[1,9]=13\=>\Text 43,55,"JEDI SENTINEL"
\Mat K[1,9]=14\=>\Text 43,55,"JEDI SENTINELE"
\Mat K[1,9]=15\=>\Text 43,55,"JEDI CONSULAIRE"
\Mat K[1,9]=16\=>\Text 43,55,"JEDI CONSULAIRE"
\Mat K[1,9]=20\=>\Text 43,55,"JEDI OBSCUR"
\Mat K[1,9]=21\=>\Text 43,55,"JEDI OBSCURE"
\Text 50,55,"ARME\(-)"
\Mat K[1,8]=0\=>\Text 50,77,"AUCUNE"
\Mat K[1,8]=1\=>\Text 50,77,"BLASTER"
\Mat K[1,8]=2\=>\Text 50,77,"VIBRO-LAME"
\Mat K[1,8]=3\=>\Text 50,77,"SABRE-LASER"
\Mat K[2,7]\->A
\PlotOn 4,30
\PlotOn 8,30
\F-Line 6,30,6,A\Disp\Goto3
\Lbl 6
\Cls
\Text 1,5,"PERSONNAGE:"
\Text 15,5,"1) CEINTURE"
\Text 22,5,"2) IMPLANT"
\Text 29,5,"3) GANTS"
\Text 36,5,"4) BOUCLIER"
\Text 43,5,"5) STIMULANT"
\Text 15,90,\Mat K[4,8]
\Text 22,90,\Mat K[4,9]
\Text 29,90,\Mat K[4,10]
\Text 36,90,\Mat K[4,7]
\Text 43,90,\Mat K[2,6]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>29
\If L=72\ And \Mat K[4,8]\<>0
\Then \Mat K[4,2]+\Mat K[4,8]\->\Mat K[4,2]
0\->\Mat K[4,8]
\Text 57,5,"C'EST BON"\Disp\Goto6
\IfEnd
\If L=62\ And \Mat K[4,9]\<>0
\Then \For 1\->B \To 10
\Mat K[5,B]+1\->\Mat K[5,1]
\Next 
\Mat K[4,9]-1\->\Mat K[4,9]
\Text 57,5,"C'EST BON"\Disp\Goto6
\IfEnd
\If L=52\ And \Mat K[4,10]\<>0
\Then \Mat K[2,4]+\Mat K[4,10]\->\Mat K[2,4]
0\->\Mat K[4,10]
\Mat K[2,4]\->\Mat K[2,3]
\Text 57,5,"C'EST BON"\Disp\Goto6
\IfEnd
\If L=73\ And \Mat K[4,7]\<>0
\Then \Mat K[4,7]+\Mat K[5,7]\->\Mat K[5,7]
0\->\Mat K[4,7]
\Text 57,5,"C'EST BON"\Disp\Goto6
\IfEnd
\If L=63\ And \Mat K[2,6]\<>0
\Then \For 1\->B \To 4
\Mat K[4,B]+1\->\Mat K[4,B
\Next 
\Text 57,5,"C'EST BON"\Disp\Mat K[2,6]-1\->\Mat K[2,6]
\Goto6
\IfEnd
L=29\=>\Goto3
\Text 57,5,"IMPOSSIBLE"\Disp\Goto6
\Lbl 7
\Cls
\Text 1,5,"MAGASIN:"
\Text 15,5,"1) MEDIPACK\(-)50"
\Text 22,5,"2) TROUSSE DE SOINS\(-)100"
\Text 29,5,"3) TROUSSE DE VIE\(-)200"
\Text 36,5,"4) SOINS MAX\(-)300"
\Text 50,5,"ARGENT\(-)"
\Text 50,40,\Mat K[1,3]
\Text 15,110,\Mat K[1,7]
\Text 22,110,\Mat K[3,8]
\Text 29,110,\Mat K[3,9]
\Text 36,110,\Mat K[3,10]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
\If L=72\ And \Mat K[1,3]\>=50
\Then \Mat K[1,7]+1\->\Mat K[1,7]
\Mat K[1,3]-50\->\Mat K[1,3]
\Goto7
\IfEnd
\If L=62\ And \Mat K[1,3]\>=100
\Then \Mat K[3,8]+1\->\Mat K[3,8]
\Mat K[1,3]-100\->\Mat K[1,3]
\Goto7
\IfEnd
\If L=52\ And \Mat K[1,3]\>=200
\Then \Mat K[3,9]+1\->\Mat K[3,9]
\Mat K[1,3]-200\->\Mat K[1,3]
\Goto7
\IfEnd
\If L=73\ And \Mat K[1,3]\>=300
\Then \Mat K[3,10]+1\->\Mat K[3,10]
\Mat K[1,3]-300\->\Mat K[1,3]
\Goto7
\IfEnd
L=29\=>\Goto3
\Goto7
\Lbl 8
\Cls
\Text 1,5,"MAGASIN:"
\Text 15,5,"1) IMPLANT\(-)2000"
\Text 22,5,"2) CEINTURE\(-)2000"
\Text 29,5,"3) GANTS\(-)2000"
\Text 36,5,"4) BOUCLIER\(-)2000"
\Text 43,5,"5) STIMULANT\(-)2000"
\Text 57,5,"ARGENT\(-)"
\Text 57,40,\Mat K[1,3]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>29
\If L=72\ And \Mat K[1,3]\>=2000
\Then \Mat K[1,3]-2000\->\Mat K[1,3]
\Mat K[4,9]+1\->\Mat K[4,9]
\Goto8
\IfEnd
\If L=62\ And \Mat K[1,3]\>=2000
\Then \Mat K[1,3]-2000\->\Mat K[1,3]
\Mat K[4,8]+1\->\Mat K[4,8]
\Goto8
\IfEnd
\If L=52\ And \Mat K[1,3]\>=2000
\Then \Mat K[1,3]-2000\->\Mat K[1,3]
\Mat K[4,10]+1\->\Mat K[4,10]
\Goto8
\IfEnd
\If L=73\ And \Mat K[1,3]\>=2000
\Then \Mat K[1,3]-2000\->\Mat K[1,3]
\Mat K[4,7]+1\->\Mat K[4,7]
\Goto8
\IfEnd
\If L=63\ And \Mat K[1,3]\>=2000
\Then \Mat K[1,3]-2000\->\Mat K[1,3]
\Mat K[2,6]+1\->\Mat K[2,6]
\Goto8
\IfEnd
L=29\=>\Goto3
\Goto8\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~NIVEA
Option Name:
Communication SW:0
Capacity:2416
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[6,10]>0\=>\Stop
\sqrt\Mat K[2,8]*42\<>\Mat K[2,9]\=>\Stop
\Lbl 0
\Mat K[2,2]\->\Mat K[2,1]
\Mat K[2,4]\->\Mat K[2,3]
\Mat K[2,8]+1\->\Mat K[2,8]
\sqrt\Mat K[2,8]*42\->\Mat K[2,9]
\For 1\->A \To 10
\Mat K[5,A]+\Int 8\Ran#+1\->\Mat K[5,A]
\Next 
\For 1\->A \To 8
\Mat K[6,A]+\Int 8\Ran#+1\->\Mat K[6,A]
\Next 
\If \Mat K[1,9]\>=11
\Then \For 1\->A \To 7
\Mat K[3,A]+\Int 15\Ran#+1\->\Mat K[3,A]
\Next 
\IfEnd
\For 1\->A \To 6
\Mat K[4,A]+\Int 8\Ran#+1\->\Mat K[4,A]
\Next 
\If \Mat K[1,9]=1\ Or \Mat K[1,9]=2
\Then \Mat K[2,1]+\Int 10\Ran#+1\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\IfEnd
\If \Mat K[1,9]=3\ Or \Mat K[1,9]=4
\Then \Mat K[2,1]+\Int 8\Ran#+1\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\IfEnd
\If \Mat K[1,9]=5\ Or \Mat K[1,9]=6
\Then \Mat K[2,1]+\Int 6\Ran#+1\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\IfEnd
\If \Mat K[1,9]=11\ Or \Mat K[1,9]=12
\Then \Mat K[2,1]+\Int 10\Ran#+5\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\Mat K[2,3]+\Int 5\Ran#+5\->\Mat K[2,3]
\Mat K[2,3]\->\Mat K[2,4]
\IfEnd
\If \Mat K[1,9]=13\ Or \Mat K[1,9]=14
\Then \Mat K[2,1]+\Int 8\Ran#+5\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\Mat K[2,3]+\Int 8\Ran#+5\->\Mat K[2,3]
\Mat K[2,3]\->\Mat K[2,4]
\IfEnd
\If \Mat K[1,9]=15\ Or \Mat K[1,9]=16
\Then \Mat K[2,1]+\Int 6\Ran#+5\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\Mat K[2,3]+\Int 10\Ran#+15\->\Mat K[2,3]
\Mat K[2,3]\->\Mat K[2,4]
\IfEnd
\If \Mat K[1,9]=20\ Or \Mat K[1,9]=21
\Then \Mat K[2,1]+\Int 10\Ran#+5\->\Mat K[2,1]
\Mat K[2,1]\->\Mat K[2,2]
\Mat K[2,3]+\Int 10\Ran#+5\->\Mat K[2,3]
\Mat K[2,3]\->\Mat K[2,4]
\IfEnd
\Mat K[2,8]*1000\->\Mat K[6,10]
\Lbl 1
\Cls
\Text 1,5,"NOUVEAU NIVEAU GAGNE:"
\Text 15,5,"NIVEAU:"
\Text 15,35,\Mat K[2,8]
\Text 22,5,"VIE:"
\Text 22,25,\Mat K[2,1]
\Text 29,5,"FORCE:"
\Text 29,30,\Mat K[2,3]
\Text 36,5,"XP RESTANTS:"
\Text 36,60,\Mat K[6,10]\Disp\Lbl 2
\Cls
\Text 1,5,"SAGESSE:"
\Text 7,5,"CHARISME:"
\Text 13,5,"INTELLIGENCE:"
\Text 19,5,"CONSTITUTION:"
\Text 25,5,"FORCE:"
\Text 31,5,"DEXTERITE:"
\Text 37,5,"DEFENSE:"
\Text 43,5,"VIGEURE:"
\Text 49,5,"REFLEXES:"
\Text 55,5,"VOLONTEE:"
\Text 1,80,\Mat K[5,1]
\Text 7,80,\Mat K[5,2]
\Text 13,80,\Mat K[5,3]
\Text 19,80,\Mat K[5,4]
\Text 25,80,\Mat K[5,5]
\Text 31,80,\Mat K[5,6]
\Text 37,80,\Mat K[5,7]
\Text 43,80,\Mat K[5,8]
\Text 49,80,\Mat K[5,9]
\Text 55,80,\Mat K[5,10]\Disp\Lbl 3
\Cls
\Text 1,5,"DEMOLITION:"
\Text 8,5,"REPARATION:"
\Text 15,5,"INFORMATIQUE:"
\Text 22,5,"PREMIERS SECOURS:"
\Text 29,5,"DISCRETION:"
\Text 36,5,"VIGILANCE:"
\Text 43,5,"PERSUATION:"
\Text 50,5,"SECURITE:"
\Text 1,80,\Mat K[6,1]
\Text 8,80,\Mat K[6,2]
\Text 15,80,\Mat K[6,3]
\Text 22,80,\Mat K[6,4]
\Text 29,80,\Mat K[6,5]
\Text 36,80,\Mat K[6,6]
\Text 43,80,\Mat K[6,7]
\Text 49,80,\Mat K[6,8]\Disp\Mat K[1,9]<10\=>\Goto5
\Lbl 4
\Cls
\Text 1,5,"SOINS:"
\Text 8,5,"ECLAIR:"
\Text 15,5,"STASE:"
\Text 22,5,"VAGUE DE FORCE:"
\Text 29,5,"LANCE DE SABRE\(-)LASER:"
\Text 36,5,"ABSORBTION DE VIE:"
\Text 43,5,"MISE A MORT:"
\Text 1,90,\Mat K[3,1]
\Text 8,90,\Mat K[3,2]
\Text 15,90,\Mat K[3,3]
\Text 22,90,\Mat K[3,4]
\Text 29,90,\Mat K[3,5]
\Text 36,90,\Mat K[3,6]
\Text 43,90,\Mat K[3,7]\Disp\Lbl 5
\Cls
\Text 1,5,"DELUGE DE COUPS:"
\Text 8,5,"ATTAQUE:"
\Text 15,5,"ATTAQUE EN PUISS.:"
\Text 22,5,"COUP CRITIQUE:"
\Text 29,5,"ARME DE PREDILECTION:"
\Text 36,5,"AFFINITE AVEC LA FORCE:"
\Text 1,100,\Mat K[4,1]
\Text 8,100,\Mat K[4,2]
\Text 15,100,\Mat K[4,3]
\Text 22,100,\Mat K[4,4]
\Text 29,100,\Mat K[4,5]
\Text 36,100,\Mat K[4,6]\Disp\Return\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~PLAN1
Option Name:
Communication SW:0
Capacity:4349
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[1,1]<1\=>\Stop
\Lbl 0
\Cls
\Text 1,5,"TARIS:"
\Text 15,5,"1) ARENE DE COMBAT"
\Mat K[8,1]\<=4\=>\Text 22,5,"2) DECRYPTER MESSAGE"
\Mat K[8,1]=5\=>\Text 22,5,"2) LIRE MESSAGE"
\Mat K[8,1]\>=6\=>\Text 22,5,"2) EGOUTS"
\Text 29,5,"3) COURSE DE FONCEUR"
\Text 57,110,"EXIT"
\Do
\Getkey\->A
\LpWhile A\<>72\ And A\<>62\ And A\<>52\ And A\<>29
A=72\=>\Goto1
A=62\=>\Goto2
A=52\=>\Goto3
A=29\=>1\->\theta
A=29\=>\Return
\Lbl 1
\Cls
\Text 1,5,"BIENVENUE A L'ARENE DE"
\Text 8,5,"COMBAT DE TARIS"
\Text 22,5,"AUJOURD'HUI BASTIEN VA"
\Text 29,5,"AFFRONTER UN NOUVEAU"
\Text 36,5,"CANDIDAT."
\Text 50,5,"BONNE CHANCE A NOS DEUX"
\Text 57,5,"CANDIDATS."\Disp2\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\Lbl 2
\Mat K[8,1]=1\=>\GotoA
\Mat K[8,1]=2\=>\GotoB
\Mat K[8,1]=3\=>\GotoC
\Mat K[8,1]=5\=>\GotoD
\Mat K[8,1]\>=6\=>\GotoE
\Lbl A
\Cls
\Text 1,5,"PREMIER TEST SUR TROIS"
\Text 15,5,"VOUS DEVEZ APPUYER SUR"
\Text 22,5,"LA BONNE TOUCHE POUR"
\Text 29,5,"REUSSIR VOTRE TEST"
\Text 43,5,"UNE ERREURE ET VOUS"
\Text 50,5,"RATEZ VOTRE TEST"
\Text 57,5,"[EXE] POUR COMMENCER"\Disp\ClrText
\Int 20\Ran#+1\->G
\Int 6\Ran#+1\->H
\Int 200\Ran#+30\->A
\Int 9\Ran#\->D
0\->B
D=0\=>71\->E
D=1\=>72\->E
D=2\=>62\->E
D=3\=>52\->E
D=4\=>73\->E
D=5\=>63\->E
D=6\=>53\->E
D=7\=>74\->E
D=8\=>64\->E
D=9\=>54\->E
0\->M
0\->F
\Do
M=1\=>\Getkey\->F
B+2.5\->B
\If B\>=A
\Then M\<>1\=>B\->I
\Locate G,H,D
1\->M
\IfEnd
\LpWhile F=0
\Cls
\If F\<>E
\Then \Text 29,37,"MAUVAISE TOUCHE"\Disp\Goto0
\IfEnd
\Text 15,5,"TEMPS\(-)"
\Text 15,40,B-I
\Text 22,5,"A FAIRE\(-) \<=20"
\If B-I>20
\Then \Text 36,5,"DESOLE MAIS TU DOIS ETRE"
\Text 43,5,"PLUS RAPIDE."\Disp\Goto0
\IfEnd
\If B-I\<=20
\Then \Text 36,5,"PREMEIER TEST REUSSI"
\Text 43,5,"BONNE CHANCE POUR LES"
\Text 50,5,"TEST SUIVANTS"\Disp2\->\Mat K[8,1]
\Goto0
\IfEnd
\Lbl B
\Cls
\Text 1,5,"APPUYE LE PLUS RAPIDEMENT"
\Text 8,5,"SUR LA TOUCHE CORRESPONDANTE"
\Text 15,5,"POUR GAGNER TON DEFI"
\Text 57,5,"[EXE] POUR COMMENCER"\Disp\ClrText
0\->C
-1\->D
\Do
1+D\->D
\Int 10\Ran#\->F
F=0\=>71\->Q
F=1\=>72\->Q
F=2\=>62\->Q
F=3\=>52\->Q
F=4\=>73\->Q
F=5\=>63\->Q
F=6\=>53\->Q
F=7\=>74\->Q
F=8\=>64\->Q
F=9\=>54\->Q
\Locate 10,4,F
\Do
\Getkey\->B
.03+C\->C
\LpWhile B\<>Q
\LpWhile D\<>15
\Cls
\Text 22,5,"TEMPS\(-)"
\Text 22,35,C
\Text 29,5,"A FAIRE\(-) <19"
\If C<19
\Then \Text 36,5,"SECOND TEST REUSSI"
\Text 43,5,"IL TE RESTE UN TEST"
\Text 50,5,"BONNE CHANCE."\Disp3\->\Mat K[8,1]
\Goto0
\IfEnd
\If C\>=19
\Then \Text 36,5,"DESOLE MAIS TU DOIS ETRE"
\Text 43,5,"PLUS RAPIDE"\Disp\Goto0
\IfEnd
\Lbl C
\Cls
\Text 1,5,"TEST TROIS SUR TROIS"
\Text 15,5,"APPUYE SUR LA TOUCHE"
\Text 22,5,"CORRESPONDANTE POUR QUE"
\Text 29,5,"L'EQUATION SOIT JUSTE"
\Text 43,5,"UNE ERREURE ET C'EST FINI"
\Text 57,5,"[EXE] POUR COMMENCER"\Disp0\->F
0\->E
\ClrText
\Locate 11,4,"?"
\Locate 13,4,"="
\Do
\Int 9\Ran#+1\->A
\Int 9\Ran#+1\->B
\Int 2\Ran#\->I
I=0\=>A+B\->C
I=1\=>A*B\->C
\Locate 7,4,A
I=0\=>\Locate 9,4,"+"
I=1\=>\Locate 9,4,"*"
\Locate 15,4,"  "
\Locate 15,4,C
B=1\=>72\->D
B=2\=>62\->D
B=3\=>52\->D
B=4\=>73\->D
B=5\=>63\->D
B=6\=>53\->D
B=7\=>74\->D
B=8\=>64\->D
B=9\=>54\->D
\Do
\Getkey\->L
1+E\->E
E\>=1000\=>\Goto\r
\LpWhile L=0
L\<>D\=>\Goto\r
1+F\->F
\LpWhile F\>=0
\Lbl \r
\Cls
\Text 15,5,"SCORE"
\Text 15,40,F
\Text 22,5,"A FAIRE\(-) \>=20"
\If F<20
\Then \Text 36,5,"DESOLE MAIS TU DOIS ETRE"
\Text 43,5,"PLUS RAPIDE"\Disp\Goto0
\IfEnd
\If F\>=20
\Then \Text 36,5,"TEST TROIS REUSSIS"
\Text 43,5,"BONNE CHANCE."\Disp5\->\Mat K[8,1]
\Goto0
\IfEnd
\Lbl D
\Cls
\Text 1,5,"MAITRE EL\(-)ZARKIS"
\Text 15,5,"LES SITHS SONT PRESENTS"
\Text 22,5,"SUR TARIS"
\Text 29,5,"ILS M'ONT ENFERME DANS"
\Text 36,5,"LES EGOUTS"
\Text 43,5,"VENEZ ME CHERCHER OU ALLEZ"
\Text 50,5,"PREVENIR MAITRE ATRIS"
\Text 57,5,"MERCI"\Disp\Cls
\Text 1,5,"QUE FAIRE ?"
\Text 15,5,"1) ALLER DANS LES EGOUTS"
\Text 22,5,"2) CHERCHER MAITRE ATRIS"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then \Text 36,5,"VOUS PARTEZ DANS LES EGOUTS"\Disp6\->\Mat K[8,1]
\GotoE
\IfEnd
\If L=62
\Then \Text 36,5,"VOUS NE SAVEZ PAS QUI"
\Text 43,5,"MAITRE ATRIS.VOUS DEVEZ"
\Text 50,5,"ALLER DANS LES EGOUTS"\Disp6\->\Mat K[8,1]
\GotoE
\IfEnd
\Lbl E
\Cls
\Text 1,5,"EGOUTS:"
\Text 15,5,"1) EXPLORER"
\Mat K[8,1]=6\=>\Text 22,5,"2) CHERCHER MAITRE EL\(-)ZARKIS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72
\Then 5\->\Mat K[1,10]
\Prog "SW~COMBA"
\GotoE
\IfEnd
\If L=62\ And \Mat K[8,1]=6
\Then \Cls
\Text 1,5,"VOUS TROUVEZ LE MAITRE"
\Text 8,5,"JEDI DU MESSAGE."
\Text 15,5,"QUE FAIRE ?"
\Text 29,5,"1) PORTER SECOURS"
\Text 36,5,"2) LAISSER MOURIR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then \Cls
\Text 1,5,"MERCI DE M'AVOIR SAUVE"
\Text 8,5,"VENEZ ME VOIR SUR DANTOOINE"
\Text 15,5,"UN DE CES JOURS"
\Text 29,5,"+1 COTE LUMINEUX"
\Text 36,5,"BLASTER OBTENU"\Disp1\->\Mat K[1,8]
\Mat K[2,7]+1\->\Mat K[2,7]
2\->\Mat K[1,1]
\sqrt\Mat K[1,1]*42\->\Mat K[1,2]
11\->\Mat K[8,1]
\Goto0
\IfEnd
\If L=62
\Then \Cls
\Text 1,5,"AIDEZ\(-)MOI.IL Y A UNE"
\Text 8,5,"ACADEMIE JEDI SUR DANTOOINE"
\Text 15,5,"ALLEZ VOIR MAITRE ATRIS"
\Text 22,5,"ELLE SAURA QUOI FAIRE."
\Text 36,5,"+2 COTE OBSCUR"
\Text 43,5,"BLASTER OBTENU"
\Text 50,5,"LENTILLE DE FOCA.OBTENUE"\Disp1\->\Mat K[1,8]
1\->\Mat K[7,9]
\Mat K[2,7]-2\->\Mat K[2,7]
2\->\Mat K[1,1]
\sqrt\Mat K[1,1]*42\->\Mat K[1,2]
12\->\Mat K[8,1]
\Goto0
\IfEnd
\IfEnd
L=29\=>\Goto0
\GotoE
\Lbl 3
7\->\Dim \List 1
7\->\Dim \List 2
\Fill(7,\List 1)
\Fill(0,\List 2)
1\->A~B
7\->H
0\->S
10\->P
0\->D
\ClrText
\Do
S+1\->S
D+1\->D
A=1\=>(\Int (3\Ran#-1)\->T
1-A\->A
\List 1[H]+T\->C
C=14\=>0\->T
C=1\=>0\->T
\List 1[H]+T\->\List 2[B]
D\<=7\=>\Fill(0,\List 2)
B\->H
B+1\->B
B=8\=>1\->B
"\(-)"
\Getkey\->K
K=38\=>P-1\->P
K=27\=>P+1\->P
\Locate P,1,"V"
\Locate 1,7,"#####################"
\Locate \List 1[H],7,"      "
\List 1[H]+\Int 6\Ran#\->\List 2[H]
\Locate \List 2[H],7,"O"
\LpWhile P\>=\List 1[B]\ And P<\List 1[B]+6\ And P\<>\List 2[B]
\Lbl G
\For 1\->I \To 10
\Locate P,1,"+"
\Locate P,1," "
\Next 
\Locate 10,5," "
\For 1\->I \To 10
\Locate 10,4,"CRASH!!!"
\Next 
\Locate 10,6,"CREDITS:"
\Locate 18,6,S
\Mat K[1,3]+S\->\Mat K[1,3]
\Do:\LpWhile \Getkey\<>31
\ClrList
\Goto0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~PLAN2
Option Name:
Communication SW:0
Capacity:6826
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[1,1]<2\=>\Stop
\Lbl 0
\Cls
\Text 1,5,"DANTOOINE:"
\Text 15,5,"1) PLAINE DE KOONDA"
\Mat K[8,1]\>=10\=>\Text 22,5,"2) ENCLAVE JEDI"
\Mat K[8,1]=11\=>\Text 29,5,"3) MAITRE EL\(-)ZARKIS"
\Mat K[8,1]=12\=>\Text 29,5,"3) MAITRE ATRIS"
\Text 36,5,"4) CAVERNE DE CRISTAL"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\Goto1
L=62\=>\Goto2
L=52\=>\Goto3
L=73\=>\Goto4
L=29\=>1\->\theta
L=29\=>\Return
\Lbl 1
\Cls
\Text 1,5,"PLAINE DE KOONDA:"
\Text 15,5,"1) PROPRIETE SANDRALE"
\Text 22,5,"2) PROPRIETE MATALE"
\Text 29,5,"3) EXPLORER PLAINE"
\Mat K[8,4]=1\=>\Text 36,5,"4) CHERCHER MAITRE SITH"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\GotoA
L=62\=>\GotoB
L=52\=>\GotoC
L=73\ And \Mat K[8,4]=1\=>\GotoD
L=29\=>\Goto0
\Goto1
\Lbl A
\Cls
\Text 1,5,"PROPRIETE SANDRALE:"
\If \Mat K[8,2]\<=1
\Then \Text 15,5,"LA PROPRIETE EST FERMEE"
\Text 22,5,"VOUS NE POURREZ RIEN"
\Text 29,5,"ICI.VOUS POUVEZ PARTIR"\Disp\Goto1
\IfEnd
\If \Mat K[8,2]\>=2
\Then \Text 15,5,"LA PORTE EST OUVERTE."
\Text 22,5,"VOUS POUVEZ RENTRER DANS"
\Text 29,5,"LA MAISON."
\Mat K[8,2]\>=2\=>\Text 43,5,"1) ENTRER DEDANS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>29
\If L=72\ And \Mat K[8,2]\>=2
\Then \Cls
\Text 1,5,"VOUS ENTREZ DANS LA"
\Text 8,5,"PROPRIETE SANDRALE"
\Text 22,5,"QUE FAIRE ?"
\Text 29,5,"1) FOUILLER"
\Text 36,5,"2) SORTIR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then \Int 6\Ran#\->A
\If A=3\ And \Mat K[1,8]<2
\Then \Text 50,5,"VOUS TROUVEZ UN VIBRO\(-)LAME"\Disp2\->\Mat K[1,8]
\GotoA
\IfEnd
\If A\<>3\ Or \Mat K[1,8]\>=2
\Then \Text 50,5,"IL N'Y A RIEN ICI"\Disp\IfEnd
\GotoA
\IfEnd
\IfEnd
L=29\=>\Goto1
\GotoA
\Lbl B
\Cls
\Text 1,5,"PROPRIETE MATALE:"
\Text 15,5,"1) ENTRER"
\Mat K[8,2]=1\=>\Text 22,5,"2) CHERCHER PERE SANDRALE"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72
\Then \Cls
\Text 1,5,"LA PROPRIETE MATALE EST"
\Text 8,5,"VIDE.IL Y A JUSTE UN MOT"
\Text 15,5,"SUR LA TABLE."
\Text 29,5,"JE SUIS DANS LES CHAMPS."
\Text 36,5,"JE REVIENS TOUT A L'HEURE"
\Text 43,5,"REVENEZ ME VOIR"
\Text 57,5,"VOUS QUITTEZ LA MAISON"\Disp\GotoB
\IfEnd
\If L=62\ And \Mat K[8,2]=1
\Then \Cls
\Text 1,5,"MERCI.CE VIEUX FOU DE"
\Text 8,5,"MATALE MA ENFERME DANS"
\Text 15,5,"SA MAISON."
\Text 22,5,"JE DEVRAIS ALLER VOIR"
\Text 29,5,"LE CONSEIL JEDI."
\Text 43,5,"OBJET TROUVE: PASS PROPRIETE"
\Text 50,5,"SANDRALE."\Disp10\->\Mat K[8,2]
\Goto1
\IfEnd
L=29\=>\Goto1
\GotoB
\Lbl C
7\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto1
\Lbl D
4\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto1
\Lbl 2
\Cls
\If \Mat K[1,9]<10
\Then \Text 1,5,"NOUS SOMMES DESOLE"
\Text 8,5,"MAIS SEUL LES JEDI ONT"
\Text 15,5,"LA PERMISSION DE RENTRER"
\Text 22,5,"DANS L'ENCLAVE JEDI"
\Text 29,5,"VOUS DEVEZ PARTIR"
\Text 50,5,"VOUS RETOURNEZ HORS DE"
\Text 57,5,"L'ENCLAVE JEDI"\Disp\Goto0
\IfEnd
\Text 1,5,"ENCLAVE JEDI:"
\Text 15,5,"1) COMBAT"
\Text 22,5,"2) CONSEIL JEDI"
\Text 29,5,"3) TEMPLE JEDI"
\Text 36,5,"4) ETABLI"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\GotoE
L=62\=>\GotoF
L=52\=>\GotoG
L=73\=>\GotoH
L=29\=>\Goto0
\Lbl E
6\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto2
\Lbl F
\If \Mat K[8,3]=0
\Then \Cls
\Text 1,5,"CONSEIL JEDI:"
\Text 15,5,"POUR COMMENCER TU DOIS"
\Text 22,5,"TROUVER UN MAITRE SITH"
\Text 29,5,"QUI RODE SUR DANTOOINE"
\Text 36,5,"IL EST TRES PUISSANT."
\Text 43,5,"TU DEVRA DONC TE PREPARER"
\Text 50,5,"AVANT TON COMBAT.BONNE"
\Text 57,5,"CHANCE."\Disp1\->\Mat K[8,3]
1\->\Mat K[8,4]
\Goto2
\IfEnd
\If \Mat K[8,3]=2
\Then \Cls
\Text 1,5,"CONSEIL JEDI:"
\Text 15,5,"TU DOIS RASSEMBLER LES"
\Text 22,5,"DERNIERS SEIGNEURS SITH"
\Text 29,5,"SUR KORRIBAN."
\Text 36,5,"POUR CELA TU DEVRAS FAIRE"
\Text 43,5,"COMME SI TU ETAIS DU"
\Text 50,5,"COTE OBSCUR."
\Text 57,5,"BONNE CHANCE."\Disp3\->\Mat K[8,3]
3\->\Mat K[1,1]
\sqrt3*42\->\Mat K[1,2]
1\->\Mat K[8,5]
\Goto2
\IfEnd
\If \Mat K[8,3]\>=3\ And \Mat K[9,8]<10\ And \Mat K[8,5]=10
\Then \Cls
\Text 1,5,"CONSEIL JEDI:"
\Text 15,5,"TU PEUX DESORMAIS TE"
\Text 22,5,"DEPLACER DANS LA GALAXYE"
\Text 29,5,"VA OU BON TE SEMBLE MAIS"
\Text 36,5,"FAIT ATTENTION AU COTE"
\Text 43,5,"OBSCUR DE LA FORCE."\Disp\Mat K[8,3]\<=5\=>5\->\Mat K[8,3]
\Mat K[1,1]<5\=>4\->\Mat K[1,1]
\Mat K[1,1]<5\=>\sqrt4*42\->\Mat K[1,2]
\Goto2
\IfEnd
\If \Mat K[9,8]=10
\Then \Cls
\Text 1,5,"CONSEIL JEDI:"
\Text 15,5,"BRAVO.TU VAS DEVOIR"
\Text 22,5,"TE BATTRE ENCORE CONTRE"
\Text 29,5,"LE DERNIER DE JEDI"
\Text 36,5,"OBSCUR.IL S'APPELLE DARK"
\Text 43,5,"SION.IL EST TRES PUISSANT"
\Text 50,5,"PRENDS GARDE A TOI"\Disp7\->\Mat K[8,3]
1\->\Mat K[9,10]
6\->\Mat K[1,1]
\sqrt6*42\->\Mat K[1,2]
\Goto2
\IfEnd
\Goto2
\Lbl G
\Cls
\Text 1,5,"TEMPLE JEDI:"
\Text 15,5,"CREDITS\(-)"
\Text 15,40,\Mat K[1,3]
\Text 22,5,"1) 200\(-)REPOS 1H"
\Text 29,5,"2) 100\(-)REPOS 1/2H"
\Text 36,5,"3) MEDITATION"
\Text 43,5,"VIE\(-)"
\Text 43,40,\Mat K[2,1]
\Text 50,5,"FORCE\(-)"
\Text 50,40,\Mat K[2,3]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
\If L=72\ And \Mat K[1,3]\>=200
\Then \Mat K[2,2]\->\Mat K[2,1]
\Mat K[1,3]-200\->\Mat K[1,3]
\If \Int 6\Ran#+1=3\ And \Mat K[2,7]<40
\Then \Mat K[2,7]+1\->\Mat K[2,7]
\Text 57,5,"+1 COTE LUMINEUX"\Disp\IfEnd
\GotoG
\IfEnd
\If L=62\ And \Mat K[1,3]\>=100\ And \Mat K[2,1]<\Mat K[2,2]/2
\Then \Mat K[2,2]/2\->\Mat K[2,1]
\Mat K[1,3]-100\->\Mat K[1,3]
\If \Int 6\Ran#+1=3\ And \Mat K[2,7]<40
\Then \Mat K[2,7]+1\->\Mat K[2,7]
\Text 57,5,"+1 COTE LUMINEUX"\Disp\IfEnd
\GotoG
\IfEnd
\If L=52
\Then \Mat K[2,4]\->\Mat K[2,3]
\GotoG
\IfEnd
L=29\=>\Goto2
\GotoG
\Lbl H
\Cls
\Text 1,5,"ETABLI:"
\If \Mat K[1,8]\<=2
\Then \Text 15,5,"SEUL LE SABRE\(-)LASER"
\Text 22,5,"EST MODIFIABLE"\Disp\Goto2
\IfEnd
\Mat K[1,8]=3\=>\Text 15,5,"1) AMELIORER SABRE\(-)LASER"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>29
\If L=72\ And \Mat K[1,8]=3
\Then \Cls
\Text 1,5,"SABRE\(-)LASER"
\Text 15,5,"1) CRISTAL D'AMELIORATION"
\Text 22,5,"2) CRISTAL FOCALISATION"
\Text 29,5,"3) CRISTAL SPECIAL"
\Text 36,5,"4) CELLULE D'ENERGIE"
\Text 43,5,"5) LENTILLE DE FOCALISATION"
\Text 50,5,"6) EMETTEUR DE PARADE"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>53\ And L\<>29
0\->A
\If L=72\ And \Mat K[6,9]\>=\Mat K[7,1]\ And \Mat K[6,9]\<>0
\Then \Mat K[6,9]\->\Mat K[7,1]
0\->\Mat K[6,9]
\IfEnd
\If L=62\ And \Mat K[7,7]\>=\Mat K[7,3]\ And \Mat K[7,7]\<>0
\Then \Mat K[7,7]\->\Mat K[7,3]
0\->\Mat K[7,7]
1\->A
\IfEnd
\If L=52\ And \Mat K[2,10]=1
\Then 1\->\Mat K[7,4]
5\->\Mat K[2,10]
2\->A
\IfEnd
\If L=73\ And \Mat K[7,8]\>=\Mat K[7,2]\ And \Mat K[7,8]\<>0
\Then \Mat K[7,8]\->\Mat K[7,2]
0\->\Mat K[7,8]
1\->A
\IfEnd
\If L=63\ And \Mat K[7,9]\>=\Mat K[7,5]\ And \Mat K[7,9]\<>0
\Then \Mat K[7,9]\->\Mat K[7,5]
0\->\Mat K[7,9]
1\->A
\IfEnd
\If L=53\ And \Mat K[7,10]\>=\Mat K[7,6]\ And \Mat K[7,10]\<>0
\Then \Mat K[7,10]\->\Mat K[7,6]
0\->\Mat K[7,10]
1\->A
\IfEnd
A=0\=>\Text 57,5,"PAS DE PIECE"\DispA=1\=>\Text 57,5,"C'EST BON"\DispA=2\=>\Text 57,5,"DEJA INSTALLE"\DispL=29\=>\GotoH
\IfEnd
L=29\=>\Goto2
\GotoH
\Lbl 3
\Cls
\Text 1,5,"MAITRE JEDI"
\If \Mat K[8,2]=0
\Then \Text 15,5,"J'AI RESSENTIS LA FORCE"
\Text 22,5,"QUI COULE EN VOUS."
\Text 29,5,"JE SERAI PRET A VOUS"
\Text 36,5,"FORMER SI VOUS REUSSISSEZ"
\Text 43,5,"A RETROUVER LE PERE"
\Text 50,5,"SANDRALE ET ETRE AU NIVEAU 3"\Disp1\->\Mat K[8,2]
\Goto0
\IfEnd
\If \Mat K[8,2]=10\ And \Mat K[2,8]\>=3
\Then \Text 15,5,"CHOISIR VOTRE TYPE:"
\Text 22,5,"1) JEDI GARDIEN"
\Text 29,5,"2) JEDI SENTINEL"
\Text 36,5,"3) JEDI CONSULAIRE"
\Text 43,5,"4) JEDI OBSCUR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73
\Mat K[1,9]=1\ Or \Mat K[1,9]=3\ Or \Mat K[1,9]=5\=>1\->A
\Mat K[1,9]=2\ Or \Mat K[1,9]=4\ Or \Mat K[1,9]=6\=>2\->A
L=72\=>A=1\=>11\->\Mat K[1,9]
L=72\=>A=2\=>12\->\Mat K[1,9]
L=62\=>A=1\=>13\->\Mat K[1,9]
L=62\=>A=2\=>14\->\Mat K[1,9]
L=52\=>A=1\=>15\->\Mat K[1,9]
L=52\=>A=2\=>16\->\Mat K[1,9]
L=73\=>A=1\=>20\->\Mat K[1,9]
L=73\=>A=2\=>21\->\Mat K[1,9]
L=73\=>\Mat K[2,7]-10\->\Mat K[2,7]
L\<>73\=>\Mat K[2,7]+5\->\Mat K[2,7]
11\->\Mat K[8,2]
3\->\Mat K[1,8]
10\->\Mat K[2,3]
10\->\Mat K[2,4]
\For 1\->A \To 7
5\->\Mat K[3,A]
\Next 
\Goto0
\IfEnd
\If \Mat K[8,2]\<=10\ And \Mat K[2,8]<3
\Then \Text 15,5,"TU DOIS ETRE AU NIVEAU 3"\Disp\Goto0
\IfEnd
\If \Mat K[8,2]\>=11
\Then \Text 15,5,"JE NE PEUX PLUS RIEN"
\Text 22,5,"VOUS APPRENDRE"\Disp\Goto0
\IfEnd
\Goto0
\Lbl 4
\Cls
\Text 1,5,"CAVERNE DE CRISTAL:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Text 29,5,"3) CRISTAL DE BASTIEN"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
L=72\=>\GotoI
L=62\=>\GotoJ
L=52\=>\GotoK
L=29\=>\Goto0
\Lbl I
8\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\Lbl J
\Cls
\Int 6\Ran#+1\->A
\If A=3
\Then \Text 1,5,"VOUS TROUVEZ UN CRISTAL"
\Text 8,5,"VOUS POUVEZ L'INSERER"
\Text 15,5,"DANS VOTRE SABRE\(-)LASER"
\Text 22,5,"POUR L'AMELIORER"\Disp1\->\Mat K[6,9]
\Goto4
\IfEnd
\If A\<>3
\Then \Text 1,5,"IL N'Y A RIEN DANS"
\Text 8,5,"LA CAVERNE DE CRISTAL"\Disp\Goto4
\IfEnd
\Lbl K
\Cls
\If \Mat K[2,10]=0
\Then \Text 1,5,"LE CRISTAL DE BASTIEN"
\Text 8,5,"VOUS PERMET DE CREER UN"
\Text 15,5,"SABRE\(-)LASER."
\Text 22,5,"VOUS DEVEZ L'INSERER"
\Text 29,5,"DANS VOTRE SABRE\(-)LASER"\Disp1\->\Mat K[2,10]
\Goto4
\IfEnd
\If \Mat K[2,10]\<>0
\Then \Text 1,5,"VOUS AVEZ DEJA LE"
\Text 8,5,"CRISTAL DE BASTIEN"\Disp\Goto4
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~PLAN3
Option Name:
Communication SW:0
Capacity:5286
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[1,1]<3\=>\Stop
\Lbl 0
\Cls
\Text 1,5,"KORRIBAN:"
\Text 15,5,"1) ACADEMIE SITH"
\Text 22,5,"2) VALLEE DE KORRIBAN"
\Text 29,5,"3) TEMPLE SITH"
\Mat K[8,5]<6\=>\Text 36,5,"4) CONSEIL SITH"
\Mat K[8,5]=6\=>\Text 36,5,"4) SEIGNEURS SITHS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\Goto1
L=62\=>\Goto2
L=52\=>\Goto3
L=73\=>\Mat K[8,5]<6\=>\Goto4
L=73\=>\Mat K[8,5]=6\=>\Goto5
L=29\=>1\->\theta
L=29\=>\Return
\Goto0
\Lbl 1
\Cls
\Text 1,5,"ACADEMIE SITH:"
\Text 15,5,"1) COMBAT"
\Text 22,5,"2) CODE SITH"
\Mat K[8,6]=1\=>\Text 29,5,"3) PASSER LE TEST"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
L=72\=>\GotoA
L=62\=>\GotoB
L=52\=>\Mat K[8,6]=1\=>\GotoC
L=29\=>\Goto0
\Goto1
\Lbl A
3\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto1
\Lbl B
\Cls
\Text 1,5,"CODE DES SITHS:"
\Text 15,5,"PASSION\->PUISSANCE"
\Text 22,5,"PUISSANCE\->POUVOIR"
\Text 29,5,"POUVOIR\->VICTOIRE"
\Text 36,5,"VICTOIRE\->JE BRISE MES CHAINES"
\Text 50,5,"VOUS DEVEZ SAVOIR LE CODE"
\Text 57,5,"DES SITHS POUR LE TEST"\Disp\Goto1
\Lbl C
0\->A
\Cls
\Text 1,5,"LORS DES REUNIONS ENTRE"
\Text 8,5,"LES GRANDS MAITRES, ILS"
\Text 15,5,"FORMAIENT UN CERCLE.DU"
\Text 22,5,"PLUS PUISSANT AU MOINS"
\Text 29,5,"PUISSANT.AJUNTA PAL ETAIT"
\Text 36,5,"LE 6EME,EN FACE DE LUI"
\Text 43,5,"FREDDON NADD ETAIT 18EME"
\Text 50,5,"COMBIEN Y A-T-IL DE JEDI ?"
\Text 57,5,"1)22  2)23  3)24  4)25  5)26"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63
L=62\=>\Isz A
\Cls
\Text 1,5,"COMPLETER LA CHAINE:"
\Text 15,5,"IL N'Y PAS DE"
\Int 4\Ran#+1\->B
B=1\=>\Text 15,60,"PASSION"
B=2\=>\Text 15,60,"PUISSANCE"
B=3\=>\Text 15,60,"POUVOIR"
B=4\=>\Text 15,60,"VICTOIRE"
\Text 22,5,"1) CHAINE SE BRISENT"
\Text 29,5,"2) POUVOIR"
\Text 36,5,"3) VICTOIRE"
\Text 43,5,"4) PUISSANCE"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73
L=72\=>1\->C
L=62\=>2\->C
L=52\=>3\->C
L=73\=>4\->C
C=1\=>B=4\=>\Isz A
C=2\=>B=2\=>\Isz A
C=3\=>B=3\=>\Isz A
C=4\=>B=1\=>\Isz A
\Cls
\Text 1,5,"QUEL ANIMAL EST LE PLUS"
\Text 8,5,"PUISSANT ?"
\Text 22,5,"1) UN GIZKA"
\Text 29,5,"2) UN SHYRAK"
\Text 36,5,"3) UN HSSISS"
\Text 43,5,"4) UN BOMA"
\Text 50,5,"5) UN TUK'ATA"
\Text 57,5,"6) UN LAIGREK"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>53
L=52\=>\Isz A
\Cls
\Text 1,5,"RESULTAT:"
\Text 8,5,A
\Text 8,15,"SUR TROIS"
\If A<3
\Then \Text 22,5,"TU DOIS REUSSIR LE TEST"\Disp\Goto1
\IfEnd
\If A=3
\Then \Text 22,5,"BRAVO TU ES DESORMAIS"
\Text 29,5,"UN SITH."\Disp10\->\Mat K[8,6]
2\->\Mat K[8,5]
\Goto1
\IfEnd
\Lbl 2
\Cls
\Text 1,5,"VALLEE DE KORRIBAN:"
\Text 15,5,"1) TOMBEAU D'AJUNTA PAL"
\Text 22,5,"2) TOMBEAU DE TULAK HORD"
\Text 29,5,"3) TOMBEAU DE MARKA RAGNOS"
\Text 36,5,"4) TOMBEAU DE NAGA SHADOW"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\GotoD
L=62\=>\GotoE
L=52\=>\GotoF
L=73\=>\GotoG
L=29\=>\Goto0
\Lbl D
\Cls
\Text 1,5,"TOMBEAU D'AJUNTA PAL:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72
\Then 13\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto2
\IfEnd
\If L=62
\Then \Int 6\Ran#+1\->A
A=3\=>\Text 36,5,"LENTILLE TROUVEE"\DispA\<>3\=>\Text 36,5,"IL N'Y A RIEN ICI"\DispA=3\=>1\->\Mat K[7,9]
\Goto2
\IfEnd
L=29\=>\Goto2
\Lbl E
\Cls
\Text 1,5,"TOMBEAU DE TULAK HORD:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Mat K[8,5]=2\=>\Text 29,5,"3) MAITRE DARKNOS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
\If L=72
\Then 13\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto2
\IfEnd
\If L=62
\Then \Int 6\Ran#+1\->A
A=3\=>\Text 36,5,"EMETTEUR TROUVE"\DispA\<>3\=>\Text 36,5,"IL N'Y A RIEN ICI"\Disp1\->\Mat K[7,10]
\Goto2
\IfEnd
\If L=52\ And \Mat K[8,5]=2
\Then \Cls
\Text 1,5,"BIENVENUE MON JEUNE"
\Text 8,5,"PADAWAN.SI TU VEUX DEVENIR"
\Text 15,5,"PUISSANT TU DOIS DETRUIRE"
\Text 22,5,"TOUS CEUX QUI TE POSENT"
\Text 29,5,"UN PROBLEME."
\Text 36,5,"MONTE AU NIVEAU 7"\Disp\Mat K[2,8]<7\=>\Goto2
\Text 43,5,"JE SERAI PRESENT"
\Text 50,5,"LORS DE VOTRE REUNION"\Disp3\->\Mat K[8,5]
\Goto2
\IfEnd
L=29\=>\Goto2
\GotoE
\Lbl F
\Cls
\Text 1,5,"TOMBEAU DE MARKA RAGNOS:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Mat K[8,5]=3\=>\Text 29,5,"3) MAITRE DIDIUS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
\If L=72
\Then 13\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto2
\IfEnd
\If L=62
\Then \Int 6\Ran#+1\->A
A=3\=>\Text 43,5,"MEDIPACK TROUVE"\DispA\<>3\=>\Text 43,5,"IL N'Y A RIEN ICI"\DispA=3\=>\Mat K[1,7]+1\->\Mat K[1,7]
\Goto2
\IfEnd
\If L=52\ And \Mat K[8,5]=3
\Then \Cls
\Text 1,5,"POUR QUE JE VIENNE A VOTRE"
\Text 8,5,"REUNION VOUS DEVEZ ETRE"
\Text 15,5,"AU NIVEAU 9 MINIMUM"\Disp\Mat K[2,8]<9\=>\Goto2
\Text 22,5,"JE VIENDRAIS A VOTRE"
\Text 29,5,"REUNION"\Disp4\->\Mat K[8,5]
\Goto2
\IfEnd
L=29\=>\Goto2
\GotoF
\Lbl G
\Cls
\Text 1,5,"TOMBEAU DE NAGA SHADOW:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Mat K[8,5]=4\=>\Text 29,5,"3) MAITRE MOHRIUS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
\If L=72
\Then 13\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto2
\IfEnd
\If L=62
\Then \Text 43,5,"IL N'Y A RIEN ICI"\Disp\Goto2
\IfEnd
\If L=52\ And \Mat K[8,5]=4
\Then \Cls
\Text 1,5,"VOUS DEVEZ ETRE AU NIVEAU"
\Text 8,5,"11 MINIMUM POUR QUE JE"
\Text 15,5,"VIENNE A VOTRE REUNION"\Disp\Mat K[2,8]<11\=>\Goto2
\Text 22,5,"JE VIENDRAIS A VOTRE REUNION"\Disp5\->\Mat K[8,5]
\Goto2
\IfEnd
L=29\=>\Goto2
\GotoG
\Lbl 3
\Cls
\Text 1,5,"TEMPLE SITH:"
\Text 15,5,"1) +1 OBS\(-) SOINS MAX"
\Text 22,5,"2) +2 OBS\(-) +2 ATTAQUE"
\Text 36,5,"VIE\(-)"
\Text 36,40,\Mat K[2,1]
\Text 43,5,"ATTAQUE\(-)"
\Text 43,40,\Mat K[4,2]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72\ And \Mat K[2,1]<\Mat K[2,2]
\Then \Mat K[2,2]\->\Mat K[2,1]
\Mat K[2,7]-1\->\Mat K[2,7]
\Goto3
\IfEnd
\If L=62\ And \Mat K[4,2]<20
\Then \Mat K[2,7]-2\->\Mat K[2,7]
\Mat K[4,2]+2\->\Mat K[4,2]
\Mat K[2,7]\<=5\=>5\->\Mat K[2,7]
\Goto3
\IfEnd
L=29\=>\Goto0
\Goto3
\Lbl 4
\Cls
\Text 1,5,"CONSEIL SITH:"
\If \Mat K[8,5]<4
\Then \Text 15,5,"SI VOUS VOULEZ FAIRE"
\Text 22,5,"UNE REUNION AVEC LES"
\Text 29,5,"SEIGNEURS SITH,VOUS DEVEZ"
\Text 36,5,"LES CONVAICRES DE VENIR"
\Text 43,5,"AVEC VOUS."\Disp\Mat K[8,6]=0\=>1\->\Mat K[8,6]
\Goto0
\IfEnd
\If \Mat K[8,5]=5
\Then \Text 15,5,"LES SEIGNEURS SITH"
\Text 22,5,"VOUS RENCONTRERONS SI"
\Text 29,5,"VOUS REUSISSEZ CETTE EPREUVE."
\Text 36,5,"VOUS DEVEZ TUER UN GROS"
\Text 43,5,"RANCOR."\Disp14\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\IfEnd
\Lbl 5
\Cls
\Text 1,5,"REUNION JEDI:"
\Text 15,5,"BIENVENUE MAITRE JEDI."
\Text 22,5,"FAIRE UN CHOIX:"
\Text 36,5,"1) DETRUIRE LES SITH"
\Text 43,5,"2) PASSER DU COTE OBSCUR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then 9\->\Mat K[1,10]
\Prog "SW~COMBA"
\Mat K[8,5]=10\=>\Mat K[2,7]+10\->\Mat K[2,7]
\Mat K[8,5]=10\=>3\->\Mat K[8,3]
\Goto0
\IfEnd
\If L=62\ And \Mat K[8,5]=6
\Then \Mat K[2,7]-5\->\Mat K[2,7]
\Mat K[2,7]\<=5\=>5\->\Mat K[2,7]
11\->\Mat K[8,5]
4\->\Mat K[8,3]
\Mat K[1,9]=11\ Or \Mat K[1,9]=13\ Or \Mat K[1,9]=15\=>1\->A
\Mat K[1,9]=12\ Or \Mat K[1,9]=14\ Or \Mat K[1,9]=16\=>2\->A
A=1\=>20\->\Mat K[1,9]
A=2\=>21\->\Mat K[1,9]
\Goto0
\IfEnd
\Goto0\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~PLAN4
Option Name:
Communication SW:0
Capacity:8529
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[1,1]<4\=>\Stop
\Lbl 0
\Cls
\Text 1,5,"YAVIN:"
\Text 15,5,"1) LOPA BUSTO"
\Text 22,5,"2) CANTINA"
\Mat K[8,9]\>=1\=>\Text 29,5,"3) BASE SITH"
\Mat K[8,10]\>=1\=>\Text 36,5,"4) SOUS\(-)TERRAIN"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\Goto1
L=62\=>\Goto2
L=52\ And \Mat K[8,9]\>=1\=>\Goto3
L=73\ And \Mat K[8,10]\>=1\=>\Goto4
L=29\=>1\->\theta
L=29\=>\Return
\Goto0
\Lbl 1
\If \Mat K[8,7]=0
\Then \Cls
\Text 1,5,"BIENVENUE,JE SUIS LOPA BUSTO"
\Text 8,5,"JE M'OCCUPE DE TOUS LES"
\Text 15,5,"PROBLEMES SUR YAVIN."
\Text 22,5,"CEPENDANT JE NE PEUX PAS"
\Text 29,5,"TOUT REGLER.SI VOUS POUVEZ"
\Text 36,5,"M'AIDER J'EN SERAIS TRES"
\Text 43,5,"RECONNAISSANTE."
\Text 57,5,"REVENEZ ME VOIR"\Disp1\->\Mat K[8,7]
\Goto0
\IfEnd
\If \Mat K[8,7]=1
\Then \Cls
\Text 1,5,"DES CONTREBANDIERS VOLENT"
\Text 8,5,"DE LA MARCHANDISE SUR YAVIN"
\Text 15,5,"VOUS DEVEZ VOUS EN"
\Text 22,5,"OCCUPER."
\Text 29,5,"VOUS AUREZ UNE RECOMPENSE."
\Text 36,5,"SI VOUS REUSSISSEZ."
\Text 50,5,"BONNE CHANCE."\Disp\Mat K[8,8]=0\=>1\->\Mat K[8,8]
\Goto0
\IfEnd
\If \Mat K[8,7]=2\ And \Mat K[8,8]=10
\Then \Cls
\Text 1,5,"VOILA 1000 CREDITS."
\Text 8,5,"CHOIX:"
\Mat K[2,7]\>=25\=>\Text 15,5,"1) NE PAS PRENDRE"
\Text 22,5,"2) DEMANDER PLUS"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72\ And \Mat K[2,7]\>=25
\Then \Text 36,5,"TRES BIEN MERCI."
\Text 43,5,"+2 COTE LUMINEUX"\Disp\Mat K[2,7]+2\->\Mat K[2,7]
3\->\Mat K[8,7]
\Goto0
\IfEnd
\If L=62
\Then \Text 36,5,"JE PENSAIS VOUS AVOIR"
\Text 43,5,"ASSEZ DONNE."
\Text 50,5,"+2 COTE OBSCUR."
\Text 57,5,"2000 CREDITS OBTENUS"\Disp\Mat K[2,7]-2\->\Mat K[2,7]
\Mat K[2,7]\<=5\=>5\->\Mat K[2,7]
\Mat K[1,3]+2000\->\Mat K[1,3]
3\->\Mat K[8,7]
\IfEnd
\Goto0
\IfEnd
\If \Mat K[8,7]=3
\Then \Cls
\Text 1,5,"LES SITHS SONT PRESENTS"
\Text 8,5,"SUR YAVIN.JE PENSE QUE"
\Text 15,5,"VOUS DEVRIEZ ALLER"
\Text 22,5,"VOIR LA BASE SITH"
\Text 36,5,"PASS BASE SITH OBTENU"
\Text 50,5,"BONNE CHANCE."\Disp\Mat K[8,9]=0\=>1\->\Mat K[8,9]
\Goto0
\IfEnd
\If \Mat K[8,7]=4
\Then \Cls
\Text 1,5,"VOILA 4000 CREDITS."
\Text 8,5,"GARDEZ LES.VOUS AUREZ"
\Text 15,5,"SUREMENT PLUS BESOIN"
\Text 22,5,"DES CES CREDITS QUE MOI."
\Text 36,5,"4000 CREDITS OBTENUS."
\Text 50,5,"REVENEZ ME VOIR"\Disp\Mat K[1,3]+4000\->\Mat K[1,3]
5\->\Mat K[8,7]
\Goto0
\IfEnd
\If \Mat K[8,7]=5
\Then \Cls
\Text 1,5,"ON DIT QUE DES DISSIDANTS"
\Text 8,5,"SE CACHENT DANS LES SOUS\(-)"
\Text 15,5,"TERRAINS.NOUS POURIONS"
\Text 22,5,"LES AIDER."
\Text 36,5,"J'ESPERE QUE VOUS Y"
\Text 43,5,"ARRIVEREZ."
\Text 50,5,"BONNE CHANCE."\Disp\Mat K[8,10]=0\=>1\->\Mat K[8,10]
\Goto0
\IfEnd
\If \Mat K[8,7]=6
\Then \Cls
\Text 1,5,"BRAVO.VOUS ETES UN BON JEDI."
\Text 8,5,"VOUS NE SAVEZ SUREMENT"
\Text 15,5,"QUE J'ETAIS UNE JEDI"
\Text 22,5,"MAIS L'ORDRE M'A BANNIE"
\Text 29,5,"JE PEUX VOUS APPRENDRE"
\Text 36,5,"COMMENT MIEUX UTILISER"
\Text 43,5,"LA FORCE."
\Text 57,5,"BONUS DE FORCE +"
\Int (\Mat K[1,9]/2)\->A
\Text 57,72,A\DispA+\Mat K[2,4]\->\Mat K[2,4]
\Mat K[2,4]\->\Mat K[2,3]
7\->\Mat K[8,7]
\Goto0
\IfEnd
\If \Mat K[8,7]=7
\Then \Cls
\Text 1,5,"IL Y A DANS LA CANTINA"
\Text 8,5,"UN HOMME QUI S'APELLE"
\Text 15,5,"RIGGEN.VOUS DEVRIEZ ALLER"
\Text 22,5,"LE VOIR.IL VOUS DONNERA"
\Text 29,5,"DES INFORMATIONS SUR LES"
\Text 36,5,"SITHS."
\Text 50,5,"REVENEZ ME VOIR ENSUITE"\Disp\Mat K[9,1]=0\=>1\->\Mat K[9,1]
\Goto0
\IfEnd
\If \Mat K[8,7]=8
\Then \Cls
\Text 1,5,"MERCI DE M'AVOIR SAUVEE."
\Text 8,5,"VOICI UN CRISTAL TRES"
\Text 15,5,"RARE.VOUS POUVEZ LE METTRE"
\Text 22,5,"DANS VOTRE SABRE LASER"
\Text 36,5,"AU REVOIR."\Disp5\->\Mat K[6,9]
10\->\Mat K[8,7]
\Goto0
\IfEnd
\If \Mat K[8,7]=9
\Then 18\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\IfEnd
\If \Mat K[8,7]\>=10
\Then \Cls
\Text 1,5,"LOPA BUSTO N'EST PLUS"
\Text 8,5,"ICI."
\Text 22,5,"VOUS DEVEZ PARTIR"\Disp\Mat K[1,1]<5\=>5\->\Mat K[1,1]
\sqrt5*42\->\Mat K[1,2]
\Goto0
\IfEnd
\IfEnd
\Lbl 2
\Cls
\Text 1,5,"CANTINA:"
\If \Mat K[8,7]\<=0
\Then \Text 15,5,"LA CANTINA EST FERMEE"
\Text 22,5,"SUITE A DES INCIDENTS"\Disp\Goto0
\IfEnd
\Mat K[8,8]=1\=>\Text 15,5,"1) CHERCHER CONTRE\(-)BANDIERS"
\Mat K[8,8]\>=2\=>\Text 15,5,"1) JOUER AU PAZAAK"
\Text 22,5,"2) JOUER AU BOONTA"
\Mat K[9,1]=1\=>\Text 29,5,"3) PARLER A RIGGEN"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
L=72\ And \Mat K[8,8]=1\=>\GotoA
L=72\ And \Mat K[8,8]\>=2\=>\GotoB
L=62\=>\GotoC
L=52\ And \Mat K[9,1]=1\=>\Goto\theta
L=29\=>\Goto0
\Goto2
\Lbl A
\Cls
\Text 1,5,"QUE VOULEZ-VOUS ?"
\Text 15,5,"NOUS AVONS RIEN A VOIR"
\Text 22,5,"AVEC VOUS.DEGAGEZ."
\Text 36,5,"FAIRE UN CHOIX:"
\Text 43,5,"1) LEUR PARLER DE LOPA BUSTO"
\Text 50,5,"2) LEUR DIRE DE FUIR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
L=72\=>\Text 57,1,"+2 COTE LUMINEUX"\DispL=62\=>\Text 57,1,"+1 COTE LUMINEUX"\DispL=72\=>16\->\Mat K[1,10]
L=72\=>\Prog "SW~COMBA"
L=62\=>10\->\Mat K[8,8]
L=72\=>\Mat K[2,7]+2\->\Mat K[2,7]
L=62\=>\Mat K[2,7]+1\->\Mat K[2,7]
\Mat K[8,8]=10\=>2\->\Mat K[8,7]
\Goto0
\Lbl B
\ClrText
"ARGENT:"
\Locate 8,1,\Mat K[1,3]
"COMBIEN"?\->C
\Int C\->C
C\<=0\=>\Goto2
C>\Mat K[1,3]\=>\Goto2
\Int 10\Ran#+1\->D
\Int 10\Ran#+1\->E
{D,D,0,0,0,0,0,0,0,0}\->\List 1
{E,E,0,0,0,0,0,0,0,0}\->\List 2
2\->A~B
\Do
\ClrText
\Locate 1,1,"JOUEUR 1:"
\Locate 1,2,"JOUEUR 2:"
\Locate 10,1,\List 1[1]
\Locate 10,2,\List 2[1]
\Locate 1,4,"1) PRENDRE CARTE"
\Locate 1,5,"2) FINIR"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then \Isz A
\Int 10\Ran#+1\->\List 1[A]
\IfEnd
L=62\=>10\->A
\If A\<=10\ And B<10
\Then \If \List 1[1]>\List 2[1]
\Then \Isz B
\Int 10\Ran#+1\->\List 2[B]
\IfEnd
\If \List 2[1]\<=20\ And \List 2[1]\>=17
\Then 10\->B
\IfEnd
\IfEnd
0\->\List 1[1]
0\->\List 2[1]
\For 2\->D \To 10
\List 1[D]+\List 1[1]\->\List 1[1]
\List 2[D]+\List 2[1]\->\List 2[1]
\Next 
\List 1[1]>20\=>10\->A
\List 2[1]>20\=>10\->B
\LpWhile \List 1[1]<21\ And \List 2[1]<21\ And A<10\ And B<10
\Locate 10,1,\List 1[1]
\Locate 10,2,\List 2[1]
\Locate 1,4,"                "
\Locate 1,5,"        "
\If \List 1[1]>20\ And \List 2[1]\<=20
\Then \Locate 1,4,"VOUS AVEZ PERDU!"
2\->A
\IfEnd
\If \List 2[1]>20\ And \List 1[1]\<=20
\Then \Locate 1,4,"VOUS AVEZ GAGNE!"
1\->A
\IfEnd
\If \List 1[1]>\List 2[1]\ And \List 1[1]\<=20
\Then \Locate 1,4,"VOUS AVEZ GAGNE!"
1\->A
\IfEnd
\If \List 1[1]<\List 2[1]\ And \List 2[1]\<=20
\Then \Locate 1,4,"VOUS AVEZ PERDU!"
2\->A
\IfEnd
\If \List 1[1]=\List 2[1]\ Or (\List 1[1]>20\ And \List 2[1]>20)
\Then \Locate 1,4,"EGALITE"
3\->A
\IfEnd
\Do
\Getkey\->L
\LpWhile L\<>31
A=1\=>2*C+\Mat K[1,3]\->\Mat K[1,3]
A=2\=>\Mat K[1,3]-C\->\Mat K[1,3]
\ClrList
\Goto2
\Lbl C
\ClrText
"ARGENT:"
\Locate 8,1,\Mat K[1,3]
"COMBIEN"?\->C
\Int C\->C
C\<=0\=>\Goto2
C>\Mat K[1,3]\=>\Goto2
\ClrText
\Do
\ClrText
"CHOISIR UN NOMBRE:"
"DE 1 A 5"
" "
"QUEL NOMBRE"?\->A
\Int A\->A
\LpWhile A<1\ Or A>5
\ClrText
\Int 5\Ran#+1\->B
\If A=B
\Then "VOUS AVEZ GAGNE"\Disp\Mat K[1,3]+2*C\->\Mat K[1,3]
\IfEnd
\If A\<>B
\Then "VOUS AVEZ PERDU"\Disp\Mat K[1,3]-C\->\Mat K[1,3]
\IfEnd
\Goto2
\Lbl \theta
\Cls
\Text 1,5,"RIGGEN:"
\Text 15,5,"LOPA M'A DIT QUE VOUS"
\Text 22,5,"VOULIEZ ME VOIR."
\Text 36,5,"FAIRE UN CHOIX:"
\Text 43,5,"1) AIDER LOPA BUSTO"
\Text 50,5,"2) PARTIR AVEC RIGGEN"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then 17\->\Mat K[1,10]
\Prog "SW~COMBA"
\Mat K[9,1]=5\=>8\->\Mat K[8,7]
\IfEnd
\If L=62
\Then 18\->\Mat K[1,10]
\Prog "SW~COMBA"
\Mat K[9,1]=5\=>9\->\Mat K[8,7]
\IfEnd
\Goto0
\Lbl 3
\Cls
\Text 1,5,"BASE SITH:"
\Text 15,5,"1) REACTEUR PRINCIPAL"
\Text 22,5,"2) SALLE DE COMBAT"
\Text 29,5,"3) SALLE DES DROIDS"
\Text 36,5,"4) TOUR DE CONTROLE"
\Text 43,5,"5) CENTRE DE COMMANDES"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>29
L=72\=>\GotoD
L=62\=>\GotoE
L=52\=>\GotoF
L=73\=>\GotoG
L=63\=>\GotoH
L=29\=>\Goto0
\Lbl D
\Cls
\Text 1,5,"REACTEUR PRINCIPAL:"
\Mat K[8,9]=5\=>\Text 15,5,"1) PLACER CELLULE"
\If \Mat K[8,9]<4
\Then \Text 22,5,"LE REACTEUR NE MARCHE"
\Text 29,5,"PAS.IL FAUT UNE CELLULE"
\Text 36,5,"D'ENERGIE."
\IfEnd
\If \Mat K[8,9]=5
\Then \Text 22,5,"VOUS DEVEZ INSERER LA"
\Text 29,5,"CELLULE DANS LE REACTEUR"
\Text 36,5,"POUR LE METTRE EN MARCHE."
\IfEnd
\If \Mat K[8,9]\>=6
\Then \Text 22,5,"LE REACTEUR FONCTIONNE"
\Text 29,5,"CORRECTEMENT."
\IfEnd
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>29
\If L=72\ And \Mat K[8,9]=5
\Then \Text 50,5,"CELLULE PLACEE"\Disp6\->\Mat K[8,9]
\GotoD
\IfEnd
L=29\=>\Goto3
\GotoD
\Lbl E
\Cls
\Text 1,5,"SALLE DE COMBAT:"
\Text 15,5,"1) DEMARER SESSION"
\Text 29,5,"LA SALLE DE COMBAT PREMET"
\Text 36,5,"DE VOUS BATTRE CONTRE UN"
\Text 43,5,"AUTRE ADVERSAIRE."
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>29
\If L=72
\Then 19\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\IfEnd
L=29\=>\Goto3
\Lbl F
\Cls
\Text 1,5,"SALLE DES DROIDS:"
\Text 15,5,"1) ENTRAINEMENT"
\Mat K[8,9]=1\=>\Text 22,5,"2) DROID TEKA"
\Mat K[8,9]=2\=>\Text 22,5,"2) DROID T9"
\Mat K[8,9]=3\=>\Text 22,5,"2) DROID HK-47"
\Mat K[8,9]=4\=>\Text 22,5,"2) DROID HK-50"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72
\Then 20\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\IfEnd
\If L=62\ And \Mat K[8,9]\<=4
\Then 21\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\IfEnd
L=29\=>\Goto3
\GotoF
\Lbl G
\Cls
\Text 1,5,"TOUR DE CONTROLE:"
\Text 15,5,"1) EXPLORER"
\Mat K[8,9]=5\=>\Text 22,5,"2) MODIFIER REACTEUR"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72
\Then 22\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\IfEnd
\If L=62\ And \Mat K[8,9]=5
\Then \Text 36,5,"LE REACTEUR EST MODIFIE"
\Text 43,5,"VOUS POUVEZ ALLER DANS"
\Text 50,5,"LE CENTRE DE CONTROLE"\Disp6\->\Mat K[8,9]
\Goto3
\IfEnd
L=29\=>\Goto3
\GotoG
\Lbl H
\Cls
\Text 1,5,"CENTRE DE COMMANDES:"
\Mat K[8,9]=6\=>\Text 15,5,"1) ENTRER DANS LE CENTRE"
\If \Mat K[8,9]<6
\Then \Text 22,5,"LE CENTRE DE COMMANDES"
\Text 29,5,"EST FERME."
\Text 36,5,"VOUS DEVEZ ACTIVER LE"
\Text 43,5,"REACTEUR ET LE MODIFIER."
\IfEnd
\If \Mat K[8,9]\>=7
\Then \Text 15,5,"IL N'Y A RIEN DANS LE"
\Text 22,5,"CENTRE DE COMMANDES."
\Text 29,5,"SUITE A VOTRE COMBAT AVEC"
\Text 36,5,"DARK NILHIUS"
\IfEnd
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>29
\If L=72\ And \Mat K[8,9]=6
\Then \Text 29,5,"VOUS TOMBEZ NEZ A NEZ"
\Text 36,5,"AVEC DARK NILHIUS UN JEDI"
\Text 43,5,"DU COTE OBSCUR"\Disp10\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\IfEnd
L=29\=>\Goto3
\GotoH
\Lbl 4
\Cls
\Text 1,5,"SOUS\(-)TERRAINS:"
\Text 15,5,"1) EXPLORER"
\Mat K[8,10]<4\=>\Text 22,5,"2) AIDER LES REFUGIERS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
L=72\=>\GotoI
L=62\ And \Mat K[8,10]<3\=>\GotoJ
L=29\=>\Goto0
\Goto4
\Lbl I
15\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto4
\Lbl J
\If \Mat K[8,10]=1
\Then \Cls
\Text 1,5,"REFUGIERS:"
\Text 15,5,"NOUS VOULONS DES CREDITS"
\Text 22,5,"POUR QUE NOUS PUISSIONS"
\Text 29,5,"ACHETER DE LA NOURRITURE"
\Text 43,5,"FAIRE UN CHOIX:     CREDITS"
\Text 50,110,\Mat K[1,3]
\Text 50,5,"1) DONNER 500 CREDITS"
\Text 57,5,"2) LAISSER MOURIR DE FAIM"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72\ And \Mat K[1,3]\>=500
\Then 2\->\Mat K[8,10]
\Mat K[1,3]-500\->\Mat K[1,3]
\Mat K[2,7]+5\->\Mat K[2,7]
\Mat K[2,7]\>=58\=>58\->\Mat K[2,7]
\Goto0
\IfEnd
\If L=62
\Then \Mat K[2,7]-5\->\Mat K[2,7]
\Mat K[2,7]\<=5\=>5\->\Mat K[2,7]
3\->\Mat K[8,10]
\Goto0
\IfEnd
\Goto4
\IfEnd
\If \Mat K[8,10]=2
\Then \Cls
\Text 1,5,"REFUGIERS:"
\Text 15,5,"MERCI DE NOUS AVOIR AIDE."
\Text 22,5,"VOICI UN EMETEUR POUR"
\Text 29,5,"SABRE LASER."
\Text 36,5,"BONNE CHNACE"\Disp5\->\Mat K[7,10]
10\->\Mat K[8,10]
6\->\Mat K[8,7]
\Goto4
\IfEnd
\If \Mat K[8,10]=3
\Then \Cls
\Text 1,5,"LES REFFUGIERS SONT TOUS"
\Text 8,5,"MORT DE FAIM.VOUS DEVRIEZ"
\Text 15,5,"DIRE A LOPA BUSTO QUE"
\Text 22,5,"VOUS LES AVEZ AIDE."
6\->\Mat K[8,7]
10\->\Mat K[8,10]
\Goto4
\IfEnd\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~PLAN5
Option Name:
Communication SW:0
Capacity:5301
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[1,1]<5\=>\Stop
\Lbl 0
0\->A
\Cls
\Text 1,5,"NAR SHAADA:"
\Text 15,5,"1) BANQUE"
\Text 22,5,"2) BUREAUX DES FST"
\Mat K[9,3]\>=1\=>\Text 29,5,"3) TEMPLE SITH"
\Mat K[9,4]\>=1\=>\Text 36,5,"4) JEKK'JEKK TARR"
\Mat K[9,5]\>=1\=>\Text 43,5,"5) STATION ORBITALE"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>63\ And L\<>29
L=72\=>\Goto1
L=62\=>\Goto2
L=52\ And \Mat K[9,3]\>=1\=>\Goto3
L=73\ And \Mat K[9,4]\>=1\=>\Goto4
L=63\ And \Mat K[9,5]\>=1\=>\Goto5
L=29\=>1\->\theta
L=29\=>\Return
\Goto0
\Lbl 1
\Cls
\Text 1,5,"BANQUE:"
\Mat K[1,5]\<=0\=>\Text 15,5,"1) NOUVEAU COMPTE"
A=0\ And \Mat K[1,5]\<>0\=>\Text 15,5,"1) SE CONNECTER"
A=1\=>\Text 15,5,"1) RETIRER CREDITS"
A=1\=>\Text 22,5,"2) DEPOSER CREDITS"
A=1\=>\Text 29,5,"3) DETRUIRE COMPTE"
A=1\=>\Text 43,5,"ARGENT DEPOSE\(-)"
A=1\=>\Text 43,70,\Mat K[1,4]
\Text 50,5,"ARGENT SUR SOI\(-)"
\Text 50,70,\Mat K[1,3]
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
L=72\ And \Mat K[1,5]\<=0\=>\GotoA
L=72\ And \Mat K[1,5]\<>0\ And A=0\=>\GotoB
L=72\ And A=1\=>\GotoC
L=62\ And A=1\=>\GotoD
L=52\ And A=1\=>\GotoE
L=29\=>\Goto0
\Lbl A
\ClrText
"CHOISIR UN ID"?\->B
"CHOISIR CODE PIN"?\->C
\sqrtB*C/2\->D
D\->\Mat K[1,6]
B\->\Mat K[1,5]
\Cls
\Text 8,5,"COMPTE CREE"
\Text 22,5,"ID\(-)"
\Text 22,50,B
\Text 29,5,"CODE PIN\(-)"
\Text 29,50,C\Disp\Goto1
\Lbl B
\ClrText
"ID"?\->B
"CODE PIN"?\->C
B\<>\Mat K[1,5]\ Or \sqrtB*C/2\<>\Mat K[1,6]\=>0\->A
B=\Mat K[1,5]\ And \sqrtB*C/2=\Mat K[1,6]\=>1\->A
\Goto1
\Lbl C
\ClrText
"COMBIEN"?\->B
\Abs B\->B
B>\Mat K[1,4]\=>"C'EST TROP"\DispB>\Mat K[1,4]\=>\GotoC
\Mat K[1,4]-B\->\Mat K[1,4]
\Mat K[1,3]+B\->\Mat K[1,3]
"C'EST BON"\Disp\Goto1
\Lbl D
\ClrText
"COMBIEN"?\->B
\Abs B\->B
B>\Mat K[1,3]\=>"C'EST TROP"\DispB>\Mat K[1,3]\=>\GotoD
\Mat K[1,3]-B\->\Mat K[1,3]
\Mat K[1,4]+B\->\Mat K[1,4]
"C'EST BON"\Disp\Goto1
\Lbl E
\Cls
\Text 1,5,"ETES\(-)VOUS SUR DE VOULOIR"
\Text 8,5,"DETRUIRE CE COMPTE ?"
\Text 22,5,"1) OUI"
\Text 29,5,"2) NON"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then 0\->\Mat K[1,5]
0\->\Mat K[1,6]
\Mat K[1,3]+\Mat K[1,4]\->\Mat K[1,3]
0\->\Mat K[1,4]
\Text 43,5,"C'EST BON"\Disp0\->A
\Goto1
\IfEnd
L=62\=>\Goto1
\Lbl 2
\Cls
\Text 1,5,"BUREAUX DES FST:"
\If \Mat K[9,2]=0
\Then \Text 15,5,"BIENVENUE MAITRE JEDI"
\Text 22,5,"NOUS ATTENDONS VOTRE VISITE"
\Text 29,5,"VENEZ NOUS VOIR LORSQUE"
\Text 36,5,"VOUS AVEZ DU TEMPS LIBRE."\Disp1\->\Mat K[9,2]
\Goto0
\IfEnd
\If \Mat K[9,2]=1
\Then \Text 15,5,"IL Y A UN TEMPLE SITH"
\Text 22,5,"SUR NAR SHAADA.VOUS"
\Text 29,5,"DEVRIEZ VOIR CE TEMPLE"
\Text 36,5,"VOUS Y DECOUVRIREZ PEUT"
\Text 43,5,"ETRE DES INDICES SUR LES"
\Text 50,5,"DERNIERS SITHS QUI SONT"
\Text 57,5,"TOUJOURS EN VIE."\Disp2\->\Mat K[9,2]
1\->\Mat K[9,3]
\Goto0
\IfEnd
\If \Mat K[9,2]=3
\Then \Text 15,5,"J'ESPERE QUE VOUS AVEZ"
\Text 22,5,"TROUVE CE QUE VOUS CHERCHIER"
\Text 29,5,"DANS LE TEMPLE SITH."
\Text 36,5,"VOUS NOUS AVEZ AIDE EN"
\Text 43,5,"DETRUISANT LES SITHS"\Disp\Text 57,5,"LENTILLE DE FOCA.AMELIOREE"\Disp4\->\Mat K[9,2]
5\->\Mat K[7,10]
\Goto0
\IfEnd
\If \Mat K[9,2]=4
\Then \Text 15,5,"SUR NAR SHAADA,IL EXISTE"
\Text 22,5,"UNE CANTINA AVEC DES"
\Text 29,5,"PIECES ADAPTEES AUX CLIENTS"
\Text 36,5,"IL Y A DES BANDITS.AIDEZ\(-)NOUS"
\Text 43,5,"A LES CHASSER DE NAR SHAADA"\Disp5\->\Mat K[9,2]
1\->\Mat K[9,4]
\Goto0
\IfEnd
\If \Mat K[9,2]=6
\Then \Text 15,5,"LES BANDITS SONT PARTIS"
\Text 22,5,"DE NAR SHAADA."
\Text 29,5,"LES FST VOUS REMERCIENT"
\Text 36,5,"DU FOND DU COEUR.EN GAGE"
\Text 43,5,"DE BONNE VOLONTEE NOUS VOUS"
\Text 50,5,"OFFRONS LES CODE DE LA"
\Text 57,5,"STATION ORBITALE."\Disp1\->\Mat K[9,5]
7\->\Mat K[9,2]
\Goto0
\IfEnd
\If \Mat K[9,2]=2\ Or \Mat K[9,2]=4
\Then \Text 15,5,"VOUS DEVEZ FINIR"
\Text 22,5,"VOTRE MISSION"\Disp\Goto0
\IfEnd
\If \Mat K[9,2]\>=7
\Then \Text 15,5,"NOUS NE POUVONS RIEN"
\Text 22,5,"VOUS DEMANDER.VOUS AVEZ DEJA"
\Text 29,5,"TANT OEUVRE."
\Text 36,5,"MERCI BEAUCOUP."\Disp\Goto0
\IfEnd
\Goto0
\Lbl 3
\Cls
\Text 1,5,"TEMPLE SITH:"
\Text 15,5,"1) FORCE DU COTE OBSCUR"
\Text 22,5,"2) COMBAT"
\Mat K[9,3]=1\=>\Text 29,5,"3) PARLER A DARK MALAK"
\Mat K[9,3]=2\=>\Text 29,5,"3) AFFRONTER DARK MALAK"
\Mat K[9,3]\>=3\=>\Text 29,5,"3) MEDITATION"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
L=72\=>\GotoF
L=62\=>\GotoG
L=52\ And \Mat K[9,3]=1\=>\GotoH
L=52\ And \Mat K[9,3]=2\=>\GotoI
L=52\ And \Mat K[9,3]\>=3\=>\GotoJ
L=29\=>\Goto0
\Lbl F
\If \Mat K[2,7]>5
\Then \Text 43,5,"+5 COTE OBSCUR"\Disp\Mat K[2,7]-5\->\Mat K[2,7]
\Goto3
\IfEnd
\If \Mat K[2,7]\<=5
\Then \Text 43,5,"VOUS ETES AU MAXIMUM"\Disp\Goto3
\IfEnd
\Lbl G
1\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\Lbl H
\Cls
\Text 1,5,"DARK MALAK:"
\Text 15,5,"J'AI REUSSI A SURVIVRE"
\Text 22,5,"LORSQUE REVAN A CRUT M'AVOIR"
\Text 29,5,"VAINCU.ALORS QUE J'UTILISAIS"
\Text 36,5,"LE POUVOIR DE VIE QUE KREYA"
\Text 43,5,"M'AVAIT APPRIS."
\Text 50,5,"DEGAGEZ AVANT QUE JE VOUS"
\Text 57,5,"TUE."\Disp2\->\Mat K[9,3]
\Goto0
\Lbl I
12\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\Lbl J
\Mat K[2,4]\->\Mat K[2,3]
\Text 43,5,"MEDITATION..."\Disp\Goto3
\Lbl 4
\Cls
\Text 1,5,"JEKK'JEKK TARR:"
\Text 15,5,"1) EXPLORER"
\Mat K[9,4]\<=5\=>\Text 22,5,"2) BANDITS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
L=72\=>\GotoK
L=62\ And \Mat K[9,4]\<=5\=>\GotoL
L=29\=>\Goto0
\Goto4
\Lbl K
23\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto4
\Lbl L
24\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto4
\Lbl 5
\Cls
\Text 1,5,"STATION ORBITALE:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) POSTE DE CONTROLE"
\Text 29,5,"3) CONSOLE DE COMMUNICATION"
\Mat K[9,8]=5\=>\Text 36,5,"4) DARK MALAK"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\GotoM
L=62\=>\GotoN
L=52\=>\GotoO
L=73\ And \Mat K[9,8]=5\=>\GotoP
L=29\=>\Goto0
\Goto5
\Lbl M
25\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto5
\Lbl N
\Cls
\Text 1,5,"POSTE DE CONTROLE:"
\Mat K[9,5]=1\=>\Text 15,5,"1) CAMERAS"
\Mat K[9,5]=1\=>\Text 22,5,"2) DETRUIRE POSTE"
\If \Mat K[9,5]>1
\Then \Text 15,5,"VOUS AVEZ DETRUIT LE"
\Text 22,5,"POSTE DE CONTROLE"
\IfEnd
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72\ And \Mat K[9,5]=1
\Then \Cls
\Text 1,5,"VOUS VOYEZ UN HOMME QUI"
\Text 8,5,"SE DEPLACE SUR LA STATION"
\Text 15,5,"IL EST IMPOSSIBLE CEPENDANT"
\Text 22,5,"DE SAVOIR QUI EST CET"
\Text 29,5,"HOMME QUI RODE"\Disp\GotoN
\IfEnd
\If L=62\ And \Mat K[9,5]=1
\Then \Text 36,5,"CONSOLE DETRUITE"\Disp2\->\Mat K[9,5]
\GotoN
\IfEnd
L=29\=>\Goto5
\GotoN
\Lbl O
\Cls
\Text 1,5,"CONSOLE DE COMMUNICATION:"
\Text 15,5,"1) UITILISER"
\Text 22,5,"2) VERIFIER FONCTIONNEMENT"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>29
\If L=72
\Then \Cls
\Text 1,5,"VOUS ESSAYEZ DE PARLER"
\Text 8,5,"AVEC DES HOMMES QUI POURRAIENT"
\Text 15,5,"ETRE AVEC VOUS SUR LA"
\Text 22,5,"STATION ORBITALE."
\Text 29,5,"MAIS PERSONNE NE VOUS REPONDS"\Disp\GotoO
\IfEnd
\If L=62
\Then \Text 36,5,"LA CONSOLE FONCTIONNE"
\Text 43,5,"CORRECTEMENT"\Disp\GotoO
\IfEnd
L=29\=>\Goto5
\Lbl P
\Cls
\Text 1,5,"DARK MALAK:"
\Text 15,5,"VOUS CROYEZ VRAIMENT QUE"
\Text 22,5,"VOUS M'AVIEZ TUE."
\Text 29,5,"EN REALITE C'EST MOI QUI"
\Text 36,5,"VA VOUS TUER."\Disp12\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto5\@00
%End
%Header Record
Format:MCS1
Type Number:1
File Name:SW~PLAN6
Option Name:
Communication SW:0
Capacity:3630
Data Type:PG
%Data Record
Password:
BaseN:0
\Mat K[1,1]<6\=>\Stop
\Lbl 0
\Cls
\Text 1,5,"MALACHOR:"
\Text 8,5,"IL Y A UNE PORTE DEVANT VOUS"
\Mat K[9,6]<10\=>\Text 22,5,"1) OUVRIR PORTE"
\Mat K[9,7]\<=11\ And \Mat K[9,6]\>=10\=>\Text 22,5,"1) ENTRER"
\Text 29,5,"2) EXPLORER"
\Mat K[8,1]=11\=>\Text 36,5,"3) PARLER A MAITRE EL\(-)ZARKIS"
\Mat K[8,1]=12\=>\Text 36,5,"3) PARLER A MAITRE ATRIS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
L=72\ And \Mat K[9,6]<10\=>\Goto1
L=72\ And \Mat K[9,6]=10\ And \Mat K[9,7]<10\=>\Goto2
L=72\ And \Mat K[9,6]\>=10\ And \Mat K[9,7]\>=10\=>\Goto3
L=62\=>\Goto4
L=52\=>\Goto5
L=29\=>1\->\theta
L=29\=>\Return
\Goto0
\Lbl 1
\Cls
\Text 1,5,"VOUS VOULEZ RENTRER."
\Text 8,5,"MAIS UN ENEMIE VOUS BLOQUE"
\Text 15,5,"LE PASSAGE."
\Text 22,5,"VOUS DEVEZ LE TUER"\Disp26\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\Lbl 2
\Mat K[9,7]\<=1\=>1\->\Mat K[9,7]
\Cls
\Text 1,5,"POUR ENTRER VOUS DEVEZ BATTRE"
\Text 8,5,"10 MAITRES JEDI LES UNS"
\Text 15,5,"APRES LES AUTRES."
\Text 22,5,"CES MAITRES SONT DU COTE"
\Text 29,5,"OBSCUR.SI VOUS PERDEZ,UN"
\Text 36,5,"MAITRE JEDI QUE VOUS AUREZ"
\Text 43,5,"VAINCU AVANT POURRA REVENIR"
\Text 50,5,\Mat K[9,7]
\Text 50,25,"/10"
\Text 57,5,"BONNE CHANCE"\Disp28\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\Lbl 3
\Cls
\Text 1,5,"TRAYUS:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) ACADEMIE DE TRAYUS"
\Text 29,5,"3) CROISSANT DE TRAYUS"
\Mat K[9,10]=0\ And \Mat K[2,7]<30\=>\Text 36,5,"4) MAITRE JEDI"
\Mat K[9,10]\<=4\ And \Mat K[2,7]\>=30\=>\Text 36,5,"4) DARK SION"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>73\ And L\<>29
L=72\=>\GotoA
L=62\=>\GotoB
L=52\=>\GotoC
L=73\ And \Mat K[2,7]\>=30\=>\GotoD
L=73\ And \Mat K[2,7]<30\=>\GotoE
L=29\=>\Goto0
\Lbl A
27\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto1
\Lbl B
\Cls
\Text 1,5,"ACADEMIE DE TRAYUS:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Mat K[8,1]=11\=>\Text 29,5,"3) MAITRE EL\(-)ZARKIS"
\Mat K[8,1]=12\=>\Text 29,5,"3) MAITRE ATRIS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
\If L=72
\Then 27\->\Mat K[1,10]
\Prog "SW~COMBA"
\GotoB
\IfEnd
\If L=62
\Then \Int 6\Ran#+1\->A
A=3\ And \Mat K[7,6]<10\=>\Text 43,5,"EMMETTEUR AMELIORE TROUVE"\DispA\<>3\ Or \Mat K[7,6]=10\=>\Text 43,5,"IL N'Y A RIEN"\DispA=3\ And \Mat K[7,6]\<>10\=>10\->\Mat K[7,10]
\GotoB
\IfEnd
\If L=52
\Then \Cls
\Text 1,5,"L'ACADEMIE DE TRAYUS ETAIT"
\Text 8,5,"LE REPERE DES SITHS AVANT"
\Text 15,5,"QUE LES JEDI ONT ATTAQUE"
\Text 22,5,"MALACHOR POUR DETRUIRE"
\Text 29,5,"L'ACADEMIE."
\Text 36,5,"LES SITHS QUI ONT SURVECU"
\Text 43,5,"ONT RECONSTRUIT L'ACADEMIE"
\Text 50,5,"NOUS DEVONT LA DETRUIRE"
\Text 57,5,"AVEC TOUS LES SITHS"\Disp\GotoB
\IfEnd
L=29\=>\Goto3
\Lbl C
\Cls
\Text 1,5,"CROISSANT DE TRAYUS:"
\Text 15,5,"1) EXPLORER"
\Text 22,5,"2) FOUILLER"
\Mat K[8,1]=11\=>\Text 29,5,"3) MAITRE EL\(-)ZARKI"
\Mat K[8,1]=12\=>\Text 29,5,"3) MAITRE ATRIS"
\Text 57,110,"EXIT"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62\ And L\<>52\ And L\<>29
\If L=72
\Then 27\->\Mat K[1,10]
\Prog "SW~COMBA"
\GotoC
\IfEnd
\If L=62
\Then \Int 6\Ran#+1\->A
A=3\ And \Mat K[7,1]<10\=>\Text 43,5,"CRISTAL TROUVE"\DispA\<>3\ Or \Mat K[7,1]=10\=>\Text 43,5,"IL N'Y A RIEN ICI"\DispA=3\ And \Mat K[7,1]<10\=>10\->\Mat K[7,7]
\GotoC
\IfEnd
\If L=52
\Then \Cls
\Text 1,5,"LE CROISSANT DE TRAYUS"
\Text 8,5,"EST L'ENDROIS OU LES"
\Text 15,5,"PADAWANS OBSCUR SE"
\Text 22,5,"REGROUPAIENT LORS DES"
\Text 29,5,"REUNIONS OU ENTRE LES"
\Text 36,5,"COURS."\Disp\GotoC
\IfEnd
L=29\=>\Goto3
\Lbl D
0\->\Mat K[9,10]
\Cls
\Text 1,5,"DARK SION:"
\Text 15,5,"VENEZ AVEC MOI.JE VOUS"
\Text 22,5,"MONTRERAIS LA PUISSANCE DU"
\Text 29,5,"COTE OBSCUR."
\Text 36,5,"SI VOUS REFFUSEZ,JE VOUS TUE"
\Text 50,5,"FAIRE CHOIX:"
\Text 57,5,"1) AFFRONTER    2) SUIVRE SION"
\Do
\Getkey\->L
\LpWhile L\<>72\ And L\<>62
\If L=72
\Then 11\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\IfEnd
\If L=62
\Then 10\->\Mat K[2,7]
\Prog "SW~FIN"
\IfEnd
\Lbl E
\Cls
\Text 1,5,"MAITRES JEDI:"
\Text 15,5,"ALORS VOUS AUSSI VOUS ETES"
\Text 22,5,"UN SITH.NOUS SOMMES OBLIGES"
\Text 29,5,"DE VOUS DETRUIRE."
\Text 36,5,"DESOLE MAIS VOUS ETES"
\Text 43,5,"DESORMAIS TROP PUISSANT"
\Text 50,5,"AU REVOIR"\Disp29\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto3
\Lbl 4
28\->\Mat K[1,10]
\Prog "SW~COMBA"
\Goto0
\Lbl 5
\Cls
\Text 1,5,"MAITRE EL\(-)ZARKIS:"
\Text 15,5,"MALACHOR ETAIT LE REPERE"
\Text 22,5,"DES SITHS."
\Text 29,5,"ILS ONT ETE CHASSES LORS"
\Text 36,5,"DES GUERRES MANDALORIENNES"
\Text 43,5,"SEULS QUELEQUES JEDI SONT"
\Text 50,5,"RESTE ICI COMME DARK TRAYA"
\Text 57,5,"QUI A ETE VAICU DANS LE NOYAU"\Disp\Cls
\Text 1,5,"DE TRAYUS."
\Text 8,5,"LE NOYAU A ETE PAR LA SUITE"
\Text 15,5,"DETRUIT."
\Text 22,5,"VOUS DEVEZ DETRUIRE LES SITHS"
\Text 29,5,"POUR RESTAURER LA PAIX"
\Text 36,5,"DANS LA GALAXYE"
\Text 43,5,"BONNE CHANCE"\Disp\Goto0\@00
%End