* The sign ¸ is like a little triangle on your calculator in the prgm menu *


ClrText
1->U
"DARK  DUNGEON
    GAME

 1-NEW
 2-CONTINUE"?->A
if A=2
Then Goto 1
IfEnd
0->B
1->C
1->H
1->J
0->K
0->X
1->Y
ClrText
"    CLASS

 1-FIGHTER
 2-MAGE
 3-THIEF"?->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
"   BOOST
 1-STRENGHT
 2-ENDURANCE
 3-DEXTERITY
 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
"+ HEALTH:"
A¸
L+A->L
If B=2
Then Int 8Ran#+8+Int (2.5G)->A
"+MAGIC:"
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
"CLASS:"
If B=1
Then "FIGHTER"
IfEnd
If B=2
Then "MAGE"
IfEnd
If B=3
Then "THIEF"
IfEnd
Do¸
"
 STRENGHT:"
D¸
"ENDURANCE:"
E¸
"DEXTERITY:"
F¸
"INTELIGENCE:"
G¸
"LEVEL:"
C¸
"XP:"
K¸
"XP - LVL:"
1000+2000((C-1)^2)->A
A¸
"MAX HEALTH:"
L¸
"HEALTH:"
M¸
If B=2
Then "MAX MAGIC:"
N¸
"MAGIC:"
O¸
IfEnd
"WEAPON LVL:"
H¸
"WEAPON HIT:"
I¸
"POTIONS:"
J¸
If Y=9
Then "OUT OF THE
      DUNGEON"
Do¸
Else "DUNGEON LVL:"
Y¸
IfEnd
If M<1
Then Goto 7
IfEnd
If Y=9
Then Goto N
IfEnd
Lbl J
ClrText
"   DUNGEON
 1-INFO
 2-POTION
 3-HEALING -18
 4-CONTINUE"?->A
If A=1
Then Goto 1
IfEnd
If A=2
Then 1->V
Goto 9
IfEnd
If A=3
Then If B *find the not equal sign* 2
Then "YOURE NOT
      A MAGE"
Do¸
Goto J
IfEnd
Goto B
IfEnd
X+1->X
0->U
ClrText
If X>20Y
Then If Y=8
Then "FINAL BOSS!"
Else "LVL BOSS!"
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 "A MONSTER"
IfEnd
Int (4+Y-1)Ran#+1->A
If X>20Y
Then Y+4->A
IfEnd
If A=1
Then "GOBLIN
      LVL:"
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
      LVL:"
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
      LVL:"
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
      LVL:"
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
      LVL:"
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
      LVL:"
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
      LVL:"
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
      LVL:"
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
      LVL:"
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 "RED DRAGON
      LVL:"
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 "BLACK DRAGON
      LVL:"
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-ATTACK
2-MAGIC
3-POTION
4-ESCAPE"?->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
"HE HITS YOU!"
Do¸
If (1.5F+3C)Ran#>S RAN#
Then "BLOCKED!"
Do¸
Else "HE HITS OF:"
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
"HEALTH:"
M¸
If M<1
Then Goto 7
IfEnd
IfEnd
Goto 5
Lbl 3
If S Ran#>(1.5F+3C)Ran#
Then "HE BLOCKS!"
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 "CRITICAL HIT!"
Int (3I)+D+Int D Ran#->A
Else 0->A
IfEnd
"YOU HIT OF:"
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
"HES DEAD!"
Do¸
If X>20Y
Then Y=1->A
If A<9
Then "DUNGEON LVL:"
A¸
IfEnd
IfEnd
0->U
"+ XP:"
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 "+ WEAPON!"
Do¸
I+I/H->I
H=1->H
IfEnd
Goto C
Lbl 7
ClrText
"

  GAME OVER !"
Stop
Lbl 9
If J=0
Then "NO POTIONS"
Do¸
Else "POTIONS:"
J-1->J
J¸
"+ HEALTH:"
32+Int 17Ran#+Int (L/3)Ran#->A
A¸
M+A->M
If M>L
Then L->M
IfEnd
"HEALTH:"
M¸
If B=2
Then "+ MAGIC:"
Int (0.7N)+Int (0.3N)Ran#->A
A+O->O
If O>N
Then N->O
IfEnd
"MAGIC:"
O¸
IfEnd
IfEnd
If V=1
Then 0->V
Goto J
IfEnd
Goto 5
Lbl 0
If X>30Y
Then "YOU CANNOT
      ESCAPE"
Do¸
Goto 2
IfEnd
Int (5-0.8F-0.3G)Ran#->A
If B=3
Then Int 2Ran#->A
IfEnd
If A<1
Then "YOU ESCAPED!"
Do¸
Goto C
Else "MISSED"
Do¸
Int 2Ran#+1->A
If A=1
Then Goto 2
IfEnd
Goto 5
IfEnd
Lbl 8
If B *find the not equal sign* 2
Then "YOURE NOT
      A MAGE"
Do¸
Goto 5
IfEnd
ClrText
"   SPELLS
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 "NOT ENOUGH
      MAGIC"
Do¸
Goto 5
IfEnd
O-8->O
IfEnd
If A=3
Then If C<5
Then "LVL 5 SPELL"
Do¸
Goto 5
IfEnd
If O<30
Then "NOT ENOUGH
      MAGIC"
Do¸
Goto 5
IfEnd
O-30->O
IfEnd
"MAGIC:"
O¸
Int (20-S)Ran#+Int (4C)Ran#->W
If W<2
Then "SPELL MISSED!"
Do¸
Else "YOU HIT OF:"
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 "LVL 3 SPELL"
Do¸
If V=1
Then Goto J
IfEnd
Goto 5
IfEnd
If O<18
Then "NOT ENOUGH
      MAGIC"
Do¸
If V=1
Then 0->V
Goto J
IfEnd
Goto 5
IfEnd
"MAGIC:"
O-18->O
O¸
"+ HEALTH:"
Int (0.7L)+Int (0.3L)Ran#->A
A¸
M+A->M
"HEALTH:"
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
"A CHEST !
1-FORCE
2-LOCKPICS
3-UNLOCK - 20
4-LEAVE"?->A
If A=4
Then Goto C
IfEnd
If A=1
Then Int 14Ran#+Int (2D)Ran#->A
If A>13
Then "DONE!"
Do¸
Goto F
Else Goto I
IfEnd
IfEnd
If A=2
Then If B *find the not equal sign* 3
Then "YOU DONT
      HAVE LOCKPICS"
Do¸
Goto E
Else Int 18Ran#+Int (F+0.5G)Ran#->A
If A>10
Then "DONE!"
Do¸
Goto F
Else Goto G
IfEnd
IfEnd
IfEnd
If A=3
Then If B *find the not equal sign* 2
Then "YOURE NOT
      A MAGE"
Do¸
Goto E
Else If C<4
Then "LVL 4 SPELL"
Do¸
Goto E
IfEnd
If 0<20
Then "NOT ENOUGH
      MAGIC"
Do¸
Goto E
Else O-20->O
"MAGIC:"
O¸
Goto F
IfEnd
IfEnd
IfEnd
Lbl I
Int 2Ran#+1->A
If A=1
Then Goto G
Else Goto H
IfEnd
Lbl G
"MISSED"
Do¸
Goto C
Lbl H
"A TRAP!"
Do¸
Int 20Ran#-Int (F+I)Ran#->A
If A>0
Then "YOU SUFFER:"
Int (2C)Ran#+C-(Int (E*0.8C)Ran#)->A
If A<1
Then 1->A
IfEnd
A¸
M-A->M
"HEALTH:"
M¸
If M<1
Then Goto 7
IfEnd
Else "YOU EVADED!"
Do¸
IfEnd
Goto C
Lbl F
Int 2Ran#+1->A
"+ POTION:"
A¸
J+A->J
Int 10Ran#+1->A
If A=1
Then "+ WEAPON"
Do¸
I+I/H->I
H+1->H
IfEnd
Goto C
Lbl K
ClrText
"A TREASURE!
 + 2 POTIONS"
Do¸
J+2->J
Int 5Ran#+1->A
If A=1
Then "+ WEAPON"
Do¸
I+I/H->I
H+1->H
IfEnd
Goto 1
Lbl L
"A SECRET
 PASSAGE!"
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
"

 VICTORY !!!"
Stop