* ¸ est le petit triangle dans le menu prgm de votre calculatrice*


ClrText
1->U
"DARK  DUNGEON
    PARTIE

 1-NOUVELLE
 2-CONTINUER"?->A
if A=2
Then Goto 1
IfEnd
0->B
1->C
1->H
1->J
0->K
0->X
1->Y
ClrText
"   CLASSES

 1-FIGHTER
 2-MAGE
 3-VOLEUR"?->B
If B=1
Then 4->D
3->E
3->F
1->G
6->I
IfEnd
If B=2
Then 1->D
2->E
2->F
6->G
3->I
IfEnd
If B=3
Then 3->D
2->E
4->F
2->G
4->I
IfEnd
Lbl D
ClrText
1->U
"  A BOOSTER
 1-FORCE
 2-ENDURANCE
 3-AGILETE
 4-INTELIGEN"?->A
If A=1
Then D+1->D
IfEnd
If A=2
Then E+1->E
IfEnd
If A=3
Then F+1->F
IfEnd
If A=4
Then G+1->G
IfEnd
If T=1
Then 0->T
Int 10Ran#+10+Int (2.5E)->A
"+ ENERGIE:"
A¸
L+A->L
If B=2
Then Int 8Ran#+8+Int (2.5G)->A
"+MAGIE:"
A¸
A+N->N
IfEnd
Goto 1
IfEnd
Int 8Ran#+27+Int (2E)Ran#+Int (3E)->L
If B=1
Then L+10+Int 10Ran#->L
IfEnd
L->M
If B=2
Then Int 8Ran#+27+Int (2G)Ran#+Int 3G->N
N->O
IfEnd
Lbl 1
ClrText
If U=0
Then 1->U
Goto J
IfEnd
"CLASSE:"
If B=1
Then "FIGHTER"
IfEnd
If B=2
Then "MAGE"
IfEnd
If B=3
Then "VOLEUR"
IfEnd
Do¸
"
 FORCE:"
D¸
"ENDURANCE:"
E¸
"AGILETE:"
F¸
"INTELIGENCE:"
G¸
"NIVEAU:"
C¸
"EXP:"
K¸
"EXP - NIV:"
1000+2000((C-1)^2)->A
A¸
"ENERGIE MAX:"
L¸
"ENERGIE:"
M¸
If B=2
Then "MAGIE MAX:"
N¸
"MAGIE:"
O¸
IfEnd
"NIV ARME:"
H¸
"FORCE ARME:"
I¸
"POTIONS:"
J¸
If Y=9
Then "SORTI DU
      DONGEON"
Do¸
Else "NIV DONGEON:"
Y¸
IfEnd
If M<1
Then Goto 7
IfEnd
If Y=9
Then Goto N
IfEnd
Lbl J
ClrText
"   DONGEON
 1-INFO
 2-POTION
 3-HEALING -18
 4-CONTINUER"?->A
If A=1
Then Goto 1
IfEnd
If A=2
Then 1->V
Goto 9
IfEnd
If A=3
Then If B *trouvez le signe pas égal* 2
Then "VOUS NETES
      PAS MAGE"
Do¸
Goto J
IfEnd
Goto B
IfEnd
X+1->X
0->U
ClrText
If X>20Y
Then If Y=8
Then "BOSS FINAL!"
Else "BOSS DU NIV!"
IfEnd
Do¸
Goto M
If End
Int 15Ran#+1->A
If A<3
Then Goto E
IfEnd
If A=3
Then Goto H
IfEnd
If A=4
Then Goto L
IfEnd
Lbl M
If X<21Y
Then "UN MONSTRE"
IfEnd
Int (4+Y-1)Ran#+1->A
If X>20Y
Then Y+4->A
IfEnd
If A=1
Then "GOBLIN
      NIV:"
Int YRan#+1->W
W¸
W-1->W
Int 5Ran#+8+(Int 4Ran#+4)W->P
5+3W->Q
1+0.5W->R
2.6+2.2W->S
IfEnd
If A=2
Then "ORC
      NIV:"
Int YRan#+1->W
W¸
W-1->W
Int 8Ran#+12+(Int 5Ran#+8)W->P
8+3W->Q
2+1.5W->R
3.3+2.2W->R
IfEnd
If A=3
Then "TROLL
      NIV:"
Int YRan#+1->W
W¸
W-1->W
Int 10Ran#+18+(Int 6Ran#+10)W->P
9+5W->Q
2.3+1.7W->R
2.3+1.6W->S
IfEnd
If A=4
Then "IMP
      NIV:"
Int YRam#+1->W
W¸
W-1->W
Int 5Ran#+6+(Int 8Ran#+8)W->P
6+9W->Q
2.2+3.3W->R
2.8+3.3W->S
IfEnd
If A=5
Then "DRAGONLING
      NIV:"
Int (Y-1)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 25Ran#+50+(Int 25Ran#+35)W->P
18+10->Q
7+5.5W->R
5.4+3.6W->S
IfEnd
If A=6
Then "VAMPIRE
      NIV:"
Int (Y-2)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 55Ran#+85+(Int 40Ran#+70)W->P
26+16W->Q
13+9.8W->R
8+5.2W->S
IfEnd
If A=7
Then "LICH
      NIV:"
Int (Y-3)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 85Ran#+120+(Int 55Ram#+80)W->P
43+19W->Q
24+19.5W->R
10+6.5W->S
IfEnd
If A=8
Then "WYVERN
      NIV:"
Int (Y-4)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 110Ran#+220+(Int 75Ran#+100)W->P
35+15W->Q
45+36W->R
14.7+8.3W->S
IfEnd
If A=9
Then "HELLHOUND
      NIV:"
Int (Y-5)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 80Ran#+120+(Int 45Ran#+70)W->P
25+12W->Q
82+70W->R
19.6+11W->S
IfEnd
If A=10
Then "DRAGON ROUGE
      NIV:"
Int (Y-6)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 150Ran#+300+(Int 85Ran#+135)W->P
42+27W->Q
140+105W->R
27+13.6W->S
IfEnd
If A=11
Then "DRAGON NOIR
      NIV:"
Int (Y-7)Ran#+1->W
If W<1
Then 1->W
IfEnd
W¸
W-1->W
Int 180Ran#+375+(Int 100Ran#+170)W->P
45+29W->Q
175+120W->R
30+18.2W->S
IfEnd
If A=12
Then "
      DEAMON LORD"
Do¸
2000->P
80->Q
350->R
44->S
IfEnd
If X>20Y
Then P+(Int 0.4P)->P
Q+(Int 0.2Q)->Q
R+(Int 0.5R)->R
IfEnd
ClrText
Goto 4
Lbl 5
ClrText
"    COMBAT
1-ATTAQUER
2-MAGIE
3-POTION
4-SE SAUVER"?->A
If A=1
Then Goto 3
IfEnd
If A=2
Then Goto 8
IfEnd
If A=3
Then Goto 9
IfEnd
If A=4
Then Goto 0
IfEnd
Lbl 4
If Int 30Ran#+0.5F+0.5G>Int 30Ran#+0.5S
Then Goto 5
Else Goto 2
IfEnd
Lbl 2
"IL VOUS FRAPPE!"
Do¸
If (1.5F+3C)Ran#>S RAN#
Then "BLOQUE!"
Do¸
Else "IL TOUCHE DE:"
Q-Int (Q-Int (0.5Q)Ran#)Ran#-(Int (E*0.8C)Ran#+1)->A
If A<1
Then 1->A
IfEnd
A¸
M-A->M
"ENERGIE:"
M¸
If M<1
Then Goto 7
IfEnd
IfEnd
Goto 5
Lbl 3
If S Ran#>(1.5F+3C)Ran#
Then "IL BLOQUE!"
Do¸
Else Int (15-0.3F-0.5G)Ran#+1->A
If B=3
Then Int (10-0.4F-0.6G)Ran#+1->A
IfEnd
If A=1
Then "COUP CRITIK !"
Int (3I)+D+Int D Ran#->A
Else 0->A
IfEnd
"TOUCHE DE:"
A=I-Int (I/(Int 3Ran#+1))Ran#+Int (CD)Ran#->A
If A<1
Then 1->A
IfEnd
A¸
P-A->P
If P<1
Then Goto 6
IfEnd
IfEnd
Goto 2
Lbl 6
ClrText
"IL EST MORT!"
Do¸
If X>20Y
Then Y=1->A
If A<9
Then "NIVEAU DE
      DONGEON:"
A¸
IfEnd
IfEnd
0->U
"+ EXP:"
40R+Int (5R)Ran#->A
A¸
K+A->K
If Y=9
Then 1->U
Goto 1
IfEnd
Int 7Ran#+1->A
If X>20Y
Then 1->A
IfEnd
If A=1
Then "+ POTION"
Do¸
J+1->J
IfEnd
Int 15Ran#+1->A
If X>20Y
Then 1->A
Y=1->Y
IfEnd
If A=1
Then "+ ARME!"
Do¸
I+I/H->I
H=1->H
IfEnd
Goto C
Lbl 7
ClrText
"

  GAME OVER !"
Stop
Lbl 9
If J=0
Then "PAS DE
      POTIONS"
Do¸
Else "POTIONS:"
J-1->J
J¸
"+ ENERGIE:"
32+Int 17Ran#+Int (L/3)Ran#->A
A¸
M+A->M
If M>L
Then L->M
IfEnd
"ENERGIE:"
M¸
If B=2
Then "+ MAGIE:"
Int (0.7N)+Int (0.3N)Ran#->A
A+O->O
If O>N
Then N->O
IfEnd
"MAGIE:"
O¸
IfEnd
IfEnd
If V=1
Then 0->V
Goto J
IfEnd
Goto 5
Lbl 0
If X>30Y
Then "VOUS NE
      POUVEZ PAS
      VOUS SAUVER"
Do¸
Goto 2
IfEnd
Int (5-0.8F-0.3G)Ran#->A
If B=3
Then Int 2Ran#->A
IfEnd
If A<1
Then "VOUS VOUS
      ETES SAUVES!"
Do¸
Goto C
Else "MANQUE"
Do¸
Int 2Ran#+1->A
If A=1
Then Goto 2
IfEnd
Goto 5
IfEnd
Lbl 8
If B *trouvez le signe pas égal sur votre calculatrice* 2
Then "VOUS NETES
      PAS MAGE"
Do¸
Goto 5
IfEnd
ClrText
"   MAGIES
1-FIREBOLT -8
2-HEALING -18
3-FIREBALL-30"?->A
If A=1
Then Goto A
IfEnd
If A=2
Then Goto B
IfEnd
If A=3
Then Goto A
IfEnd
Lbl A
If A=1
Then If 0<8
Then "PAS ASSEZ DE
      MAGIE"
Do¸
Goto 5
IfEnd
O-8->O
IfEnd
If A=3
Then If C<5
Then "SORT DE
      NIVEAU 5"
Do¸
Goto 5
IfEnd
If O<30
Then "PAS ASSEZ
      DE MAGIE"
Do¸
Goto 5
IfEnd
O-30->O
IfEnd
"MAGIE:"
O¸
Int (20-S)Ran#+Int (4C)Ran#->W
If W<2
Then "SORT DISSIPE!"
Do¸
Else "TOUCHE DE:"
If A=1
Then Int 8Ran#+7+Int (6(C-1))Ran#+6(C-1)+Int (0.5GC)Ran#->A
Else Int 20Ran#+14+Int (15(C-1))Ran#+11(C-1)+Int (GC)Ran#->A
IfEnd
A¸
P-A->P
If P<1
Then Goto 6
IfEnd
IfEnd
Goto 2
Lbl B
If C<3
Then "SORT DE
      NIVEAU 3"
Do¸
If V=1
Then Goto J
IfEnd
Goto 5
IfEnd
If O<18
Then "PAS ASSEZ DE
      MAGIE"
Do¸
If V=1
Then 0->V
Goto J
IfEnd
Goto 5
IfEnd
"MAGIE:"
O-18->O
O¸
"+ ENERGIE:"
Int (0.7L)+Int (0.3L)Ran#->A
A¸
M+A->M
"ENERGIE:"
If M>L
Then L->M
IfEnd
M¸
If V=1
Then 0->V
Goto J
IfEnd
Goto 5
Lbl C
If k >=1000+2000((C-1)²)
Then ClrText
"   LVL UP !"
Do¸
1->T
C+1->C
Goto D
IfEnd
Goto 1
Lbl E
0->U
ClrText
"UN COFFRE !
1-FORCER
2-LOCKPICS
3-UNLOCK - 20
4-LAISSER"?->A
If A=4
Then Goto C
IfEnd
If A=1
Then Int 14Ran#+Int (2D)Ran#->A
If A>13
Then "REUSSI!"
Do¸
Goto F
Else Goto I
IfEnd
IfEnd
If A=2
Then If B *trouvez le signe pas égal sur votre calculatrice* 3
Then "VOUS NAVEZ
      PAS DE
      LOCKPICS"
Do¸
Goto E
Else Int 18Ran#+Int (F+0.5G)Ran#->A
If A>10
Then "REUSSI!"
Do¸
Goto F
Else Goto G
IfEnd
IfEnd
IfEnd
If A=3
Then If B *trouvez le signe pas égal sur votre calculatrice* 2
Then "VOUS NETES
      PAS MAGE"
Do¸
Goto E
Else If C<4
Then "SORT DE
      NIVEAU 4"
Do¸
Goto E
IfEnd
If 0<20
Then "PAS ASSEZ DE
      MAGIE"
Do¸
Goto E
Else O-20->O
"MAGIE:"
O¸
Goto F
IfEnd
IfEnd
IfEnd
Lbl I
Int 2Ran#+1->A
If A=1
Then Goto G
Else Goto H
IfEnd
Lbl G
"MANQUE"
Do¸
Goto C
Lbl H
"UN PIEGE!"
Do¸
Int 20Ran#-Int (F+I)Ran#->A
If A>0
Then "VOUS PERDEZ:"
Int (2C)Ran#+C-(Int (E*0.8C)Ran#)->A
If A<1
Then 1->A
IfEnd
A¸
M-A->M
"ENERGIE:"
M¸
If M<1
Then Goto 7
IfEnd
Else "VOUS LAVEZ
      EVITE!"
Do¸
IfEnd
Goto C
Lbl F
Int 2Ran#+1->A
"+ POTION:"
A¸
J+A->J
Int 10Ran#+1->A
If A=1
Then "+ ARME"
Do¸
I+I/H->I
H+1->H
IfEnd
Goto C
Lbl K
ClrText
"UN TRESOR!
 + 2 POTIONS"
Do¸
J+2->J
Int 5Ran#+1->A
If A=1
Then "+ ARME"
Do¸
I+I/H->I
H+1->H
IfEnd
Goto 1
Lbl L
"UN PASSAGE
 SECRET!"
Do¸
Int 7Ran#+1->A
If B=3
Then A-Int GRan#->A
IfEnd
If A<2
Then Goto K
IfEnd
If A<4
Then Goto E
IfEnd
If A>3
Then "VIDE"
Do¸
Goto 1
IfEnd
Lbl N
ClrText
9->Y
"

 VICTOIRE !!"
Stop