				Mage War: Mage of Fire

		This is the first game in the Mage War Trilogy. This game is an 
	RPG. Of course the name should give away some of the aspects of the
	game...your a mage...you cast spells...kill things...read...:) The main
	difference in the three games is that they have different spells, the
	main area looks different, and a few other small changes.


		For those of you not in the know, CLRHOME is not typed out using ALPHA.
	You have to go into PRGM and choose it (PRGM, I/O, 4). This includes all the other
	commands except the stuff in " " .

		In the DISP if you see (X spaces), don't type that out. This is just to 
	tell you how many spaces to have inbetween. X is the amount of spaces. ex:(2 spaces)

	


	Model: TI-80
	Date: February 6,2001
	Size: N/A (I recommend you have no other extra programs or lists saved.)
	Genre: RPG
	Creator: [DSM]*Wolf*
	Players: 1	
	Graphics: (part text)/2-D graphical
	Other: 1/3 of the trilogy
		
	E-mail: stk_5m@hotmail.com




		Known bugs:  None so far.








Program:  AREA
Size:  970  

:0->M
:PRGM_AREAD
:PRGM_MOVE
:LBL 0
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:0->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","(5 spaces)6:>","(7 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 3
:IF C=6
:GOTO 1
:IF C=9
:PRGM_STATS
:GOTO 0
:LBL 1
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:1->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<(2 spaces)6:>","(7 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 4
:IF C=4
:GOTO 0
:IF C=6
:GOTO 2
:IF C=9
:PRGM_STATS
:GOTO 1
:LBL 2
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:2->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<","(7 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 5
:IF C=4
:GOTO 1
:IF C=9
:PRGM_STATS
:GOTO 2
:LBL 3
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:3->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","(5 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 6
:IF C=5
:GOTO 0
:IF C=6
:GOTO 4
:IF C=9
:PRGM_STATS
:GOTO 3
:LBL 4
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:4->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<(2 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 7
:IF C=5
:GOTO 1
:IF C=4
:GOTO 3
:IF C=6
:GOTO 5
:IF C=9
:PRGM_STATS
:GOTO 4
:LBL 5
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:5->M
:PRGM_MOVE
:CLRHOME
:DISP "(2 spaces)8:^","4:<","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=8
:GOTO 8
:IF C=5
:GOTO 2
:IF C=4
:GOTO 4
:IF C=9
:PRGM_STATS
:GOTO 5
:LBL 6
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:6->M
:PRGM_MOVE
:CLRHOME
:DISP "","(5 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=5
:GOTO 3
:IF C=6
:GOTO 7
:IF C=9
:PRGM_STATS
:GOTO 6
:LBL 7
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:7->M
:PRGM_MOVE
:CLRHOME
:DISP "","4:<(2 spaces)6:>","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=5
:GOTO 4
:IF C=4
:GOTO 6
:IF C=6
:GOTO 8
:IF C=9
:PRGM_STATS
:GOTO 7
:LBL 8
:PRGM_MOVE
:PRGM_MR
:PRGM_RN
:8->M
:PRGM_MOVE
:CLRHOME
:DISP "(7 spaces)7:CAVE","4:<","(2 spaces)5:V(2 spaces)9:STATS"
:INPUT C
:IF C=5
:GOTO 5
:IF C=4
:GOTO 7
:IF C=7
:PRGM_BENEM
:IF C=9
:PRGM_STATS
:GOTO 8





Program:  AREAD
Size:  N/A

:CLRDRAW
:LINE(49,43,51,45
:LINE(52,44,53,45
:LINE(53,46,54,47
:LINE(60,47,62,45
:LINE(62,44,63,43
:LINE(55,43,58,43
:LINE(58,44,55,44
:LINE(55,45,58,45
:LINE(57,46,56,46
:LINE(38,45,38,46
:LINE(40,46,40,45
:PT-ON(39,47
:LINE(34,42,34,43
:LINE(36,43,36,42
:PT-ON(35,44
:LINE(28,43,28,42
:LINE(30,43,30,42
:PT-ON(29,44
:LINE(24,45,24,46
:LINE(26,46,26,45
:PT-ON(25,47
:LINE(32,47,32,44
:LINE(31,46,33,46
:LINE(26,27,27,28
:LINE(28,29,30,29
:LINE(31,28,32,27
:LINE(32,26,30,26
:LINE(28,26,27,26
:PT-ON(29,27
:LINE(63,10,60,10
:LINE(59,9,58,9
:PT-ON(57,10
:LINE(56,10,53,7
:LINE(52,6,52,3
:LINE(53,2,54,1
:LINE(56,6,57,7
:PT-ON(58,6
:LINE(61,6,62,7
:PT-ON(63,6
:LINE(55,2,56,3
:PT-ON(57,2
:LINE(60,2,61,3
:PT-ON(62,2





Program:  BENEM
Size:  N/A

:CLRHOME
:DISP "","","","(6 spaces)!!!"
:PAUSE
:1700->B
:300->E
:LBL 0
:PRGM_FD
:CLRHOME
:DISP "HP:",A
:DISP "MAGE BISHOP:",B
:DISP "1:FIGHT 2:SPELL"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 5
:GOTO 0
:LBL 1
:RANDINT(D*2,S->H
:B-H->B
:LBL 2
:RANDINT(D*2,S+50->H
:H-(D/2)->H
:A-H->A
:IF B<=0
:GOTO 3
:IF A<=0
:GOTO 4
:IF A>0
:GOTO 0
:IF B>0
:GOTO 0
:LBL 3
:CLRHOME
:DISP "YOU WON!"
:PAUSE
:PRGM_CREDS
:LBL 4
:CLRHOME
:DISP "YOU ARE DEAD!"
:PAUSE
:PRGM_MWMOF
:LBL 5
:PRGM_SMEN
:IF P=2
:PRGM_S2
:IF P=3
:PRGM_S3
:IF P=4
:PRGM_S4
:IF P=5
:PRGM_S5
:GOTO 2





Program:  CREDS
Size:  235

:CLRHOME
:DISP "YOU BEAT THE","GAME!","","THANKS FOR","PLAYING!"
:PAUSE
:CLRHOME
:DISP "PROGRAMMER:","(DSM)*Wolf*",""," (OTHER STUFF","TOO)" (use dots in ANGLE menu for *)
:PAUSE
:CLRHOME
:DISP "","","","TO BE CONTINUED?"
:PAUSE
:IF Q=1
:GOTO 0
:Z->A
:W->R
:PRGM_SAV
:PRGM_MWMOF
:LBL 0
:CLRHOME
:DISP "NEW SPELL!"
:PAUSE
:1->O
:0->Q
:Z->A
:W->R
:PRGM_SAV
:PRGM_MWMOF





Program:  ENEM
Size:  N/A

:0->E
:CLRHOME
:DISP "","","","(6 spaces)!!!"
:PAUSE
:S*4->B
:LBL 0
:PRGM_FD
:CLRHOME
:DISP "HP:",A
:DISP "KNIGHT:",B
:DISP "1:FIGHT 2:SPELL"
:INPUT "3:RUN",C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 6
:IF C=3
:GOTO 7
:GOTO 0
:LBL 1
:RANDINT(D*2,S->H
:B-H->B
:LBL 2
:RANDINT(D,D*2->H
:H-(D/2)->H
:A-H->A
:IF B<=0
:GOTO 3
:IF A<=0
:GOTO 4
:IF A>0
:GOTO 0
:IF B>0
:GOTO 0
:LBL 3
:CLRHOME
:DISP "YOU WON!"
:PAUSE
:L*5->H
:U+H->U
:CLRHOME
:DISP "EXP:",H
:PAUSE
:T-H->T
:IF T<=0
:GOTO 5
:PRGM_AREAD
:RETURN
:LBL 4
:CLRHOME
:DISP "YOU ARE DEAD!"
:PAUSE
:PRGM_MWMOF
:LBL 5
:CLRHOME
:DISP "YOU LEVELED UP!"
:PAUSE
:RANDINT(55,120->H
:RANDINT(40,75->C
:RANDINT(17,28->X
:RANDINT(8,15->Y
:CLRHOME
:DISP "HP +",H
:DISP "MP +",C
:PAUSE
:CLRHOME
:DISP "STR +",X
:DISP "DEF +",Y
:PAUSE
:L+1->L
:Z+H->Z
:W+C->W
:S+X->S
:D+Y->D
:V/5->H
:H+V->T
:T->V
:IF L=5:THEN
:DISP "NEW SPELL!"
:1->K
:END
:IF L=8:THEN
:DISP "NEW SPELL!"
:1->N
:END
:IF L=10F:THEN
:Z->A
:W->R
:F+1->F
:END
:PAUSE
:PRGM_AREAD
:RETURN
:LBL 6
:PRGM_SMEN
:IF P=2
:PRGM_S2
:IF P=3
:PRGM_S3
:IF P=4
:PRGM_S4
:IF P=5
:PRGM_S5
:GOTO 2
:LBL 7
:RANDINT(0,2->H
:IF H/=1  (not equal to sign   2nd,math,2)
:GOTO 9
:LBL 8
:CLRHOME
:DISP "YOU OUTRAN THE","ENEMY!"
:PAUSE
:PRGM_AREAD
:RETURN
:LBL 9
:CLRHOME
:DISP "YOU CANT ESCAPE!"
:PAUSE
:GOTO 2





Program:  FD
Size:  129

:CLRDRAW
:HORIZONTAL 6
:LINE(12,10,12,8
:PT-ON(11,7
:PT-ON(13,7
:PT-ON(11,9
:PT-ON(13,9
:PT-ON(11,11
:PT-ON(12,12
:PT-ON(13,11
:LINE(54,10,54,8
:PT-ON(53,7
:PT-ON(55,7
:PT-ON(53,9
:PT-ON(55,9
:PT-ON(53,11
:PT-ON(54,12
:PT-ON(55,11





Program:  MOVE
Size:  562

:IF M=0
:GOTO 0
:IF M=1
:GOTO 1
:IF M=2
:GOTO 2
:IF M=3
:GOTO 3
:IF M=4
:GOTO 4
:IF M=5
:GOTO 5
:IF M=6
:GOTO 6
:IF M=7
:GOTO 7
:IF M=8
:GOTO 8
:LBL 0
:PT-CHANGE(13,12
:PT-CHANGE(13,11
:PT-CHANGE(13,10
:PT-CHANGE(12,9
:PT-CHANGE(14,9
:PT-CHANGE(12,11
:PT-CHANGE(14,11
:RETURN
:LBL 1
:PT-CHANGE(33,12
:PT-CHANGE(33,11
:PT-CHANGE(33,10
:PT-CHANGE(32,9
:PT_CHANGE(34,9
:PT-CHANGE(32,11
:PT-CHANGE(34,11
:RETURN
:LBL 2
:PT-CHANGE(50,12
:PT-CHANGE(50,11
:PT-CHANGE(50,10
:PT-CHANGE(49,9
:PT-CHANGE(51,9
:PT-CHANGE(49,11
:PT-CHANGE(51,11
:RETURN
:LBL 3
:PT-CHANGE(12,26
:PT-CHANGE(12,25
:PT-CHANGE(12,24
:PT-CHANGE(11,23
:PT-CHANGE(13,23
:PT-CHANGE(11,25
:PT-CHANGE(13,25
:RETURN
:LBL 4
:PT-CHANGE(32,22
:PT-CHANGE(32,21
:PT-CHANGE(32,20
:PT-CHANGE(31,19
:PT-CHANGE(33,19
:PT-CHANGE(31,21
:PT-CHANGE(33,21
:RETURN
:LBL 5
:PT-CHANGE(54,26
:PT-CHANGE(54,25
:PT-CHANGE(54,24
:PT-CHANGE(53,23
:PT-CHANGE(55,23
:PT-CHANGE(53,25
:PT-CHANGE(55,25
:RETURN
:LBL 6
:PT-CHANGE(11,41
:PT-CHANGE(11,40
:PT-CHANGE(11,39
:PT-CHANGE(10,38
:PT-CHANGE(12,38
:PT-CHANGE(10,40
:PT-CHANGE(12,40
:RETURN
:LBL 7
:PT-CHANGE(32,38
:PT-CHANGE(32,37
:PT-CHANGE(32,36
:PT-CHANGE(31,35
:PT-CHANGE(33,35
:PT-CHANGE(31,37
:PT-CHANGE(33,37
:RETURN
:LBL 8
:PT-CHANGE(55,38
:PT-CHANGE(55,37
:PT-CHANGE(55,36
:PT-CHANGE(54,35
:PT-CHANGE(56,35
:PT-CHANGE(54,37
:PT-CHANGE(56,37
:RETURN





Program:  MR
Size:  52

:S/3->H
:R+H->R
:IF R>W
:W->R
:S/2->H
:A+H->A
:IF A>Z
:Z->A





Program:  MWMOI
Size:  N/A

:FIX 0   (goto the MODE menu, then pick float 0)
:CLRHOME
:DISP "","","(3 spaces)MAGE WAR:","(2 spaces)MAGE OF FIRE","",""," VERSION 1.00.0"
:PAUSE
:1->XMIN
:63->XMAX
:0->XSCL
:1->YMIN
:47->YMAX
:0->YSCL
:LBL 0
:CLRHOME
:DISP "1:NEW GAME","2:LOAD GAME","3:QUIT"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 2
:IF C=3
:STOP
:GOTO 0
:LBL 1
:1->L
:1000->A
:A->Z
:450->R
:R->W
:80->S
:30->D
:24->T
:T->V
:0->U
:1->I
:1->J
:0->K
:0->N
:0->O
:1->Q
:1->F
:PRGM_AREA
:LBL 2
:CLRHOME
:DISP "LOADING..."
:L6(1)->L
:L6(2)->A
:L6(3)->Z
:L6(4)->R
:L6(5)->W
:L6(6)->S
:L6(7)->D
:L6(8)->T
:L6(9)->U
:L6(10)->V
:L6(11)->I
:L6(12)->J
:L6(13)->K
:L6(14)->N
:L6(15)->O
:L6(16)->F
:L6(17)->Q
:PRGM_AREA





Program:  RN
Size:  30

:RANDINT(0,2->H
:IF H/=1
:RETURN
:PRGM_ENEM





Program:  S2
Size:  N/A

:0->H
:LBL 0
:PT-ON(21+H,10
:PT-ON(21+H,9
:PT-ON(20+H,11
:PT-ON(20+H,8
:PT-ON(18+H,10
:PT-ON(18+H,9
:PT-ON(17+H,10
:PT-OFF(21+H,10
:PT-OFF(21+H,9
:PT-OFF(20+H,11
:PT-OFF(20+H,8
:PT-OFF(18+H,10
:PT-OFF(18+H,9
:PT-OFF(17+H,10
:IF H>=31
:GOTO 1
:H+4->H
:GOTO 0
:LBL 1
:IF E>0
:GOTO 2
:RANDINT(D*2,S+150->H
:B-H->B
:RETURN
:LBL 2
:RANDINT(0,2->H
:IF H/=1
:GOTO 4
:0->H
:PRGM_SH
:LBL 3
:PT-ON(45-H,10
:PT-ON(45-H,9
:PT-ON(46-H,11
:PT-ON(46-H,8
:PT-ON(48-H,10
:PT-ON(48-H,9
:PT-ON(49-H,10
:PT-OFF(45-H,10
:PT-OFF(45-H,9
:PT-OFF(46-H,11
:PT-OFF(46-H,8
:PT-OFF(48-H,10
:PT-OFF(48-H,9
:PT-OFF(49-H,10
:IF H>=31
:GOTO 5
:H+4->H
:GOTO 3
:LBL 4
:PRGM_SH
:RANDINT(D,S+75->H
:E-H->E
:RETURN
:LBL 5
:RANDINT(D*2,S+150->H
:A-H->A





Program:  S3
Size:  N/A

:LINE(48,7,49,16
:LINE(49,16,52,14
:LINE(52,14,56,15
:LINE(56,15,58,7
:LINE(45,7,48,21
:LINE(48,21,52,18
:LINE(52,18,59,24
:LINE(59,24,63,7
:0->H
:LBL 0
:RANDINT(50,58->X
:RANDINT(7,13->Y
:PT-CHANGE(X,Y
:IF H=15
:GOTO 1
:H+1->H
:GOTO 0
:LBL 1
:RANDINT(D*2,S+350->H
:B-H->B





Program:  S4
Size:  N/A

:0->H
:LBL 0
:PT-ON(15+H,9
:PT-OFF(15+H,9
:IF H=36
:GOTO 1
:H+1->H
:GOTO 0
:LBL 1
:IF E>0
:GOTO 2
:LINE(48,7,49,16
:LINE(49,16,52,14
:LINE(52,14,56,15
:LINE(56,15,58,7
:LINE(45,7,48,21
:LINE(48,21,52,18
:LINE(52,18,59,24
:LINE(59,24,63,7
:LINE(38,7,45,36
:LINE(45,36,54,29
:LINE(54,29,63,40
:LINE(31,7,36,24
:LINE(36,24,40,17
:LINE(40,17,45,20
:LINE(45,20,46,7
:RANDINT(D*2,S+550->H
:B-H->H
:RETURN
:LBL 2
:RANDINT(0,2->H
:IF H/=1
:GOTO 4
:0->H
:PRGM_SH
:LBL 3
:PT-ON(51-H,9
:PT-OFF(51-H,9
:IF H=36
:GOTO 5
:H+1->H
:GOTO 3
:LBL 4
:PRGM_SH
:RANDINT(D,S+275->H
:E-H->E
:RETURN
:LBL 5
:LINE(20,7,1,29
:LINE(1,29,6,7
:RANDINT(D*2,S+550->H
:A-H->A





Program:  S5
Size:  N/A

:LINE(15,9,17,11
:LINE(15,9,17,7
:LINE(17,11,51,11
:LINE(17,7,51,7
:LINE(15,9,51,9
:0->H
:LBL 0
:PT-ON(18+H,10
:PT-ON(18+H,8
:PT-OFF(18+H,10
:PT-OFF(18+H,8
:IF H>=34
:GOTO 1
:H+4->H
:GOTO 0
:LBL 1
:LINE(52,12,63,23
:LINE(61,7,63,8
:LINE(52,12,62,37
:LINE(62,37,58,7
:RANDINT(D+900,S+900->H
:B-H->B





Program:  SAV
Size:  N/A

:CLRHOME
:DISP "SAVING..."
:L->L6(1)
:A->L6(2)
:Z->L6(3)
:R->L6(4)
:W->L6(5)
:S->L6(6)
:D->L6(7)
:T->L6(8)
:U->L6(9)
:V->L6(10)
:I->L6(11)
:J->L6(12)
:K->L6(13)
:N->L6(14)
:O->L6(15)
:F->L6(16)
:Q->L6(17)





Program:  SH
Size:  144

:PT-ON(50,11
:PT-ON(50,12
:PT-ON(50,10
:PT-ON(51,13
:PT-OFF(50,11
:PT-OFF(50,12
:PT-ON(50,9
:PT-ON(52,14
:PT-OFF(50,10
:PT-OFF(51,13
:PT-ON(50,8
:PT-ON(53,14
:PT-OFF(50,9
:PT-OFF(52,14
:PT-ON(51,7
:PT-ON(54,14
:PT-OFF(50,8
:PT-OFF(53,14
:PT-OFF(51,7
:PT-OFF(54,14





Program:  SMEN
Size:  N/A

:0->P
:LBL 0
:CLRHOME
:DISP "1:HEAL(8 spaces)30","2:FIRE BALL(3 spaces)60"
:IF K=1
:DISP "3:BLAZE(7 spaces)120"
:IF N=1
:DISP "4:NAPALM(5 spaces)250"
:IF O=1
:DISP "5:FLAME BEAM(3 spaces)310"
:DISP R
:INPUT "0:EXIT ",C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 2
:IF C=3
:GOTO 3
:IF C=4
:GOTO 4
:IF C=5
:GOTO 5
:IF C=0
:RETURN
:GOTO 0
:LBL 1
:IF R<30
:GOTO @
:R-30->R
:RANDINT(D*2,S*2->H
:A+H->A
:IF A>Z
:Z->A
:RETURN
:LBL 2
:IF R<60
:GOTO @
:R-60->R
:2->P
:RETURN
:LBL 3
:IF K/=1
:GOTO Z
:IF R<120
:GOTO @
:R-120->R
:3->P
:RETURN
:LBL 4
:IF N/=1
:GOTO Z
:IF R<250
:GOTO @
:R-250->R
:4->P
:RETURN
:LBL 5
:IF O/=1
:GOTO Z
:IF R<310
:GOTO @
:R-310->R
:5->P
:RETURN
:LBL Z
:CLRHOME
:DISP "YOU DONT HAVE","THAT SPELL!"
:PAUSE
:GOTO 0
:LBL @
:CLRHOME
:DISP "NOT ENOUGH MP!"
:PAUSE
:GOTO 0





Program:  STATS
Size:  143

:CLRHOME
:DISP "LV:",L
:DISP "HP:",A,Z
:PAUSE
:CLRHOME
:DISP "MP:",R,W
:PAUSE
:CLRHOME
:DISP "STR:",S
:DISP "DEF:",D
:PAUSE
:CLRHOME
:DISP "TNL:",T
:DISP "TOTAL EXP:",U
:PAUSE
:CLRHOME
:DISP "SAVE?"
:INPUT "1:YES 2:NO",C
:IF C=1
:PRGM_SAV
:RETURN

