AxesOff
GridOff
If listMAR(9)=5000
Then
ClrDraw
listMAR(1)->A
listMAR(2)->B
listMAR(3)->C
listMAR(4)->D
listMAR(5)->E
listMAR(6)->F
listMAR(7)->G
listMAR(8)->H
listMAR(9)->I
listMAR(10)->J
listMAR(11)->K
listMAR(12)->L
listMAR(13)->M
listMAR(14)->N
listMAR(15)->O
listMAR(16)->P
listMAR(17)->Q
listMAR(18)->R
listMAR(19)->S
listMAR(20)->T
listMAR(21)->U
listMAR(22)->V
listMAR(23)->W
listMAR(24)->X
listMAR(25)->Y
listMAR(26)->Z
listMAR(27)->[pheta]
Text(1,1,"MAMMA MIA! LET'S-A GO!")
Pause
Goto M
End
ClrDraw
Text(1,1,"THE GAME IS UP, KOOPA!")
Pause
Text(15,38,"MARIO?! ...YOU'VE")
Text(22,39,"MEDDLED WITH MY")
Text(29,13,"PLANS FOR THE LAST TIME!")
Pause
Text(43,26,"IT'S TIME I FINISHED")
Text(50,37,"YOU, ONCE AND FOR")
Text(57,77,"ALL!!")
Pause
0->V
Menu("CHOOSE SKILL LV.","EASY",ME,"NORMAL",HA,"HARD",EX,"MAMMA MIA!",IM)
Lbl ME
5750->C
6250->D
48->X
450->L
450->Q
8->M
8->K
33->O
37->P
700->R
Goto SE
Lbl HA
8000->C
11000->D
70->X
550->L
560->Q
15->M
10->K
53->O
66->P
1000->R
Goto SE
Lbl EX
randInt(8900,9999)->C
randInt(47500,52500)->D
randInt(90,110)->X
randInt(900,1000)->L
randInt(950,1050)->Q
randInt(37,43)->M
randInt(8,12)->K
79->O
88->P
randInt(1475,1525)->R
Goto SE
Lbl IM
randInt(13000,18000)->C
randInt(100000,120000)->D
randInt(100,150)->X
randInt(1800,2000)->L
randInt(2000,2200)->Q
randInt(40,50)->M
randInt(15,25)->K
90->O
99->P
randInt(2700,2800)->R
Goto SE
Lbl SE
D->E
C->F
0->J
1->G
(9/10)Q->Z
X->H
(9/10)L->N
0->S
0->T
Lbl M
5000->I
round(L,0)->L
round(Q,0)->Q
round(C,0)->C
round(E,0)->E
ClrHome
ClrDraw
Menu(" ATTACK! ","ATTACK",A,"SPECIAL",E,"STATUS",C,"QUIT",N)
Lbl A
Text(50,65,"BOWSER")
Text(57,67,round((E/D)*100,0)," PCNT")
If L<N
L+((1/75)N)->L
L+randInt(100,100)->A
While A0
1->A
End
round(A,0)->A
randInt(1,10)->B
If B=10
A*2->A
E-A->E
Text(1,1,"MARIO ATTACKS!")
Text(15,1,A," DAMAGE TO BOWSER!")
If B=10
Text(8,1,"CRITICAL HIT!")
If X<H
X+1->X
Text(57,67,round((E/D)*100,0)," PCNT")
Pause
If randInt(1,25)=25
Goto M
Lbl S
If E0
Goto L
ClrDraw
If Q<Z
Q+((1/85)Z)->Q
If (E/D)*10040
V+1->V
If V3
1->U
If V<3
randInt(1,6)->U
If U=1
Then
Text(1,1,"BOWSER USES")
Text(8,1,"FIRE BREATH!")
Text(50,1,"MARIO")
Text(57,1,round((C/F)*100,0)," PCNT")
Pause
randInt(1,3)->B
If B3
Then
(Q+randInt(100,100))*3->A
round(A,0)->A
C-A->C
Text(22,1,"DIRECT HIT!")
Text(29,1,"MARIO TAKES ",A," DAMAGE!")
If V3
0->V
Text(57,1,round((C/F)*100,0)," PCNT")
Pause
Goto W
Else
Text(22,1,"THE ATTACK MISSED!")
Pause
Goto W
End
End
If U=2
Then
ClrDraw
Text(50,1,"MARIO")
Text(57,1,round(L,0)," ATK")
Text(1,1,"BOWSER LETS OUT A")
Text(8,1,"MENACING ROAR.")
(L*.9)+randInt(15,15)->B
L-B->A
B->L
round(L,0)->L
round(A,0)->A
Text(22,1,"MARIO'S ATTACK")
Text(29,1,"DROPS BY ",A," !")
Text(57,1,L," ATK")
Pause
Goto W
End
If U=3 or U=4
Then
If ((E/D)*100)35 and K>0
Then
Text(50,65,"BOWSER")
Text(57,67,round((E/D)*100,0)," PCNT")
Text(1,1,"BOWSER EATS A MUSHROOM!")
K-1->K
R+randInt(100,200)->A
E+A->E
If E>D
Then
E-D->Y
A-Y->A
D->E
End
Text(8,1,"RECOVERED ",A," HP!")
Text(57,67,round((E/D)*100,0)," PCNT")
Pause
Goto W
Else
5->U
Goto AT
End
End
Lbl AT
If U=5 or U=6
Then
Text(50,1,"MARIO")
Text(57,1,round((C/F)*100,0)," PCNT")
Text(1,1,"BOWSER ATTACKS!")
Q+randInt(150,150)->A
While A0
1->A
End
randInt(1,10)->B
If B=10
A*2->A
round(A,0)->A
Text(15,1,A," DAMAGE TO MARIO!")
If B=10
Text(8,1,"CRITICAL HIT!")
C-A->C
Text(57,1,round((C/F)*100,0)," PCNT")
Pause
Goto W
End
Lbl H
If M=0
Then
Text(1,1,"NO MORE MUSHROOMS!")
Pause
Goto M
Else
Text(50,1,"MARIO")
Text(57,1,round((C/F)*100,0)," PCNT")
randInt(1,7)->B
If B=7:Then
Text(43,1,"IT'S A GOLD 'SHROOM!")
F-C->A
End
If B7
R+randInt(150,200)->A
M-1->M
C+A->C
If C>F
Then
C-F->Y
A-Y->A
F->C
End
Text(1,1,"MARIO EATS A MUSHROOM!")
Text(15,1,"RECOVERED ",A," HP.")
Text(57,1,round((C/F)*100,0)," PCNT")
randInt(2,8)->B
X+B->X
If X>H
Then
X-H->Y
B-Y->B
H->X
End
If L<N
L+((1/50)N)->L
Text(29,1,"RECOVERED ",B," AP.")
Pause
randInt(1,4)->B
If B=1 or B=2
Goto S
If B=3
Goto W
If B=4 and K>0
Then
ClrDraw
Text(50,65,"BOWSER")
Text(57,67,round((E/D)*100,0)," PCNT")
Text(1,1,"BOWSER EATS A MUSHROOM!")
K-1->K
R+randInt(100,200)->A
E+A->E
If E>D
Then
E-D->Y
A-Y->A
D->E
End
Text(15,1,"RECOVERED ",A," HP!")
Text(57,67,round((E/D)*100,0)," PCNT")
Pause
Goto W
Else
Goto M
End
Lbl E
Menu(" SPECIAL AP","EAT MUSHROOM",H,"FIRE BALLS 12",T,"JUMP",O,"KOOPA KICK 5",PB,"SENSE 4",B,"[CANCEL]",M)
Lbl O
If E>(7/20)D
Goto ZY
If E(7/20)D and G=0
Goto ZY
If E(7/20)D and G=1
Then
ClrDraw
Text(1,1,"HE'S WEARING DOWN...")
Text(50,65,"BOWSER")
Text(57,67,round((E/D)*100,0)," PCNT")
Pause
Text(8,1,"THERE'S A HAMMER")
Text(15,1,"BEHIND HIM...")
Pause
Menu(" GO FOR IT? ","YES",PK,"NO",ZY)
End
Lbl PK
randInt(3,5)->B
ClrDraw
Text(1,1,"MARIO JUMPS FOR THE HAMMER...")
Text(50,1,"MARIO")
Text(50,65,"BOWSER")
Text(57,1,L," ATK")
Text(57,65,Q," ATK")
Pause
If B=5
Then
Text(8,1,"GOT IT!")
If randInt(1,2)=2
Then
randInt(100,500)->A
E-A->E
Text(22,1,"AND BOWSER TOOK")
Text(29,1,A," DAMAGE!")
End
0->G
L*2.5->L
Q*.65->Q
round(L,0)->L
round(Q,0)->Q
Text(57,1,L," ATK")
Text(57,65,Q," ATK")
Pause
Goto S
Else
Text(8,1,"BOWSER BLOCKED HIM!")
Q*1.05->Q
round(Q,0)->Q
Text(57,67,Q," ATK")
Pause
Goto S
End
Lbl ZY
If K0
Then
ClrDraw
Text(1,1,"IT'S NOT WORTH DOING...")
Pause
Goto E
End
randInt(1,2)->B
If B=1
Then
ClrDraw
Text(1,1,"THE ATTACK DIDN'T")
Text(8,1,"AFFECT HIM...")
Pause
Goto S
Else
ClrDraw
If K>0
Then
Text(1,1,"DIRECT HIT!")
randInt(1,5)->B
K-B->K
While K<0
K+1->K
B-1->B
End
M+B->M
If randInt(1,3)=2
Then
randInt(100,400)->A
E-A->E
Text(29,1,"BOWSER TOOK",A," DAMAGE!")
End
Text(8,1,"BOWSER DROPPED")
Text(15,1,B," MUSHROOMS!")
Text(50,1,"MARIO")
Text(50,65,"BOWSER")
Text(57,1,M," MUSHROOMS")
Text(57,55,K," MUSHROOMS")
Pause
Goto S
Else
ClrDraw
Text(1,1,"NOTHING TO TAKE...")
Pause
Goto M
End
Lbl PB
ClrDraw
If X<5
Then
Text(1,1,"NOT ENOUGH AP!")
Text(50,1,"MARIO")
Text(57,1,X," AP")
Pause
Goto E
End
randInt(1,5)->B
X-9->X
Text(50,1,"MARIO")
Text(57,1,X," AP")
Text(50,65,"BOWSER")
Text(57,65,Q," ATK")
If B5
Then
(Q*.9)+randInt(15,15)->A
Q-A->B
A->Q
round(B,0)->B
round(Q,0)->Q
Text(1,1,"SCORE!")
Text(15,1,"BOWSER'S ATTACK")
Text(22,1,"DROPPED BY ",B," !")
Text(57,65,Q," ATK")
Pause
Goto S
Else
Text(1,1,"MISSED HIM!")
Pause
Goto S
End
Lbl T
ClrDraw
If X<12
Then
Text(1,1,"NOT ENOUGH AP!")
Text(50,1,"MARIO")
Text(57,1,X," AP")
Pause
Goto E
End
Text(1,1,"MARIO THROWS A")
Text(8,1,"CHAIN OF FIREBALLS!")
X-12->X
Text(50,1,"MARIO")
Text(57,1,X," AP")
Text(50,65,"BOWSER")
Text(57,67,round((E/D)*100,0)," PCNT")
Pause
randInt(1,5)->B
If B=3
Then
Text(15,1,"AND MISSED...")
Pause
Goto S
Else
3L+randInt(100,200)->A
E-A->E
Text(15,1,"GOT HIM!")
Pause
Text(22,1,A," DAMAGE!")
Text(57,67,round((E/D)*100,0)," PCNT")
Pause
Goto S
End
Lbl B
ClrDraw
If J=1
Goto C
If X<4
Then
ClrDraw
Text(1,1,"NOT ENOUGH AP!")
Text(50,1,"MARIO")
Text(57,1,X," AP")
Pause
Goto E
End
0->[pheta]
Lbl NA
[pheta]+1->[pheta]
Text(1,1,"SCANNING...")
If [pheta]<8
Goto NA
0->[pheta]
1->J
X-7->X
Text(15,1,"SCAN COMPLETE!")
Text(50,1,"MARIO")
Text(57,1,X," AP")
Pause
Lbl C
ClrDraw
Text(1,1,"MARIO:")
Text(1,40,"LV. ",O)
Text(1,65,"ATK:",L)
Text(8,1,C," HP.")
Text(8,40,round((C/F)*100,0)," PCNT.")
Text(15,1,M," MUSHROOMS LEFT.")
Text(15,67,X," AP")
Text(29,1,"BOWSER:")
Text(29,40,"LV. ",P)
Text(36,40,round((E/D)*100,0)," PCNT.")
Text(57,1,S," WINS.")
Text(57,40,T," LOSSES.")
If J1
Then
Text(29,65,"ATK:",Q)
Text(36,1,E," HP.")
Text(43,1,K," MUSHROOMS LEFT.")
End
If J1
J+1->J
If J>4
4->J
If J=4
Text(57,1,"THE SENSE SPELL HAS ENDED...")
If J=4
0->J
Pause
Goto M
Lbl W
If C0 or E0
Then
Goto L
Else
Goto M
Lbl L
ClrDraw
If C0 and D>0
Then
Text(1,1,"BATTLE LOST...")
Text(50,65,"BOWSER")
Text(57,67,round((E/D)*100,0)," PCNT")
T+1->T
0->I
Pause
Menu(" KEEP TRYING? ","YES",KG,"NO",DG)
Lbl KG
ClrDraw
Text(1,1,"YOU CAN'T BEAT ME")
Text(8,1,"THAT EASILY!")
Text(57,1,S," WINS.")
Text(57,40,T," LOSSES.")
Pause
Text(15,1,"HANG ON, PEACH!")
Pause
1->C
If M0
M+5->M
Goto M
Lbl DG
ClrDraw
Disp "GAME OVER."," "
Disp "WINS",S,"LOSSES",T
AxesOn
Stop
Else
ClrDraw
Text(1,27,"BEATEN AGAIN...")
Text(8,27,"CURSE YOU, MARIO!")
Text(50,1,"MARIO")
Text(57,1,round((C/F)*100,0)," PCNT")
Pause
Text(22,27,"JUST WAIT...")
Text(29,27,"...I'LL FINISH YOU...")
S+1->S
Text(57,1,S," WINS")
Text(57,40,T," LOSSES")
0->I
Pause
ClrDraw
Menu("FIGHT AGAIN?","YES",Y,"NO",N)
Lbl Y
F*.75->F
round(F,0)->F
F->C
D*.75->D
round(D,0)->D
D->E
L*.75->L
round(L,0)->L
N*.75->N
round(N,0)->N
Q*.75->Q
round(Q,0)->Q
Z*.75->Z
round(Z,0)->Z
R*.7->R
round(R,0)->R
O-4->O
If O<1
1->O
P-4->P
If P<1
1->P
ClrDraw
Text(1,30,"I'LL FINISH YOU")
Text(8,30,"YET!")
Pause
Goto M
Lbl N
ClrDraw
Text(1,1,"MAMMA MIA...")
Text(8,1,"I NEED A BREAK...")
Pause
If C>0 and E>0
Then
Menu("SAVE YOUR GAME?","YES",SY,"NO",NS)
Else
Goto GF
End
Lbl SY
5000->I
ClrDraw
27->dim(listMAR)
A->listMAR(1)
B->listMAR(2)
C->listMAR(3)
D->listMAR(4)
E->listMAR(5)
F->listMAR(6)
G->listMAR(7)
H->listMAR(8)
I->listMAR(9)
J->listMAR(10)
K->listMAR(11)
L->listMAR(12)
M->listMAR(13)
N->listMAR(14)
O->listMAR(15)
P->listMAR(16)
Q->listMAR(17)
R->listMAR(18)
S->listMAR(19)
T->listMAR(20)
U->listMAR(21)
V->listMAR(22)
W->listMAR(23)
X->listMAR(24)
Y->listMAR(25)
Z->listMAR(26)
[pheta]->listMAR(27)
Disp "GAME SAVED."
Pause
Goto GF
Lbl NS
0->I
Disp "NEXT TIME YOU","PLAY, YOU'LL","START A NEW","GAME."
Pause
Goto GF
Lbl GF
0->[pheta]
Lbl LI
[pheta]+1->[pheta]
Text(1,1,"MARIO VS. BOWSER")
Text(8,1,"VERSION 1.7")
Text(15,1,"BY MICHAEL CARR [C]2008")
If [pheta]<7
Goto LI
0->[pheta]
ClrDraw
AxesOn
ClrHome
Disp "THANKS FOR","PLAYING!"
Disp "WINS",S,"LOSSES",T