				Mage War: Mage of Energy

		This is the third 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 8,2001
	Size: 5388
	Genre: RPG
	Creator: [DSM]*Wolf*
	Players: 1	
	Graphics: (part text)/2-D graphical
	Other: 3/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:  169

:CLRDRAW
:LINE(53,47,53,41
:LINE(54,40,55,39
:LINE(63,47,63,41
:LINE(62,40,61,39
:LINE(56,38,60,38
:LINE(55,47,55,42
:LINE(61,47,61,42
:PT-ON(56,41
:PT-ON(60,41
:LINE(57,40,59,40
:LINE(58,46,58,43
:LINE(59,45,59,43
:LINE(57,45,57,43





Program:  BENEM
Size:  341

:0->@       (@  is    ALPHA,3)
:CLRHOME
:DISP "","","","(6 spaces)!!!"
:PAUSE
:S*8->B
:LBL 0
:PRGM_FD
:CLRHOME
:DISP "HP:",A
:DISP "ELECTRIC GOLEM:",B
:DISP "1:FIGHT 2:SPELL"
:INPUT C
:IF C=1
:GOTO 1
:IF C=2
:GOTO 6
:GOTO 0
:LBL 1
:RANDINT(D*2,S->H
:B-H->B
:LBL 2
:RANDINT(0,1->H
:IF H=1:THEN
:PRGM_ERS
:GOTO 3
:END
:RANDINT(D*2,S+50->H
:H-(D/2)->H
:A-H->A
:LBL 3
:IF B<=0
:GOTO 4
:IF A<=0
:GOTO 5
:IF A>0
:GOTO 0
:IF B>0
:GOTO 0
:LBL 4
:CLRHOME
:DISP "YOU WON!"
:PAUSE
:PRGM_CREDS
:LBL 5
:CLRHOME
:DISP "YOU ARE DEAD!"
:PAUSE
:PRGM_MWMOE
: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





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_MWMOI
:LBL 0
:CLRHOME
:DISP "NEW SPELL!"
:PAUSE
:1->O
:0->Q
:Z->A
:W->R
:PRGM_SAV
:PRGM_MWMOI





Program:  ENEM
Size:  694

:0->@
:CLRHOME
:DISP "","","","(6 spaces)!!!"
:PAUSE
:S*4->B
:LBL 0
:PRGM_FD
:CLRHOME
:DISP "HP:",A
:DISP "SATYR:",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_MWMOE
: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
:GOTO 8
:LBL 8
:CLRHOME
:DISP "YOU OUTRAN THE","ENEMY!"
:PAUSE
:PRGM_AREAD
:RETURN
:LBL 9
:CLRHOME
:DISP "YOU CANT ESCAPE!"
:PAUSE
:GOTO 2





Program:  ERS
Size:  77

:RANDINT(0,3->H
:IF H=0
:GOTO 0
:IF H=1
:PRGM_ES1
:IF H=2
:PRGM_ES2
:IF H=3
:GOTO 0
:RETURN
:LBL 0
:RANDINT(D*3,S*3->H
:B+H->B





Program:  ES1
Size:  101

:LINE(32,47,27,30
:LINE(27,30,22,41
:LINE(22,41,17,26
:LINE(17,26,13,36
:LINE(13,36,12,7
:RANDINT((D*2)+250,S+600->H
:A-H->A
:RETURN





Program:  ES2
Size:  149

:0->H
:LBL 0
:PT-ON(51-H,11
:PT-ON(50-H,10
:PT-ON(50-H,9
:PT-ON(50-H,8
:PT-ON(51-H,7
:PT-OFF(51-H,11
:PT-OFF(50-H,10
:PT-OFF(50-H,9
:PT-OFF(50-H,8
:PT-OFF(51-H,7
:IF H>=35
:GOTO 1
:H+4->H
:GOTO 0
:LBL 1
:RANDINT((D*2)+200,S+380->H
:A-H->A
:RETURN





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:  MWMOE
Size:  421

:FIX 0   (goto the MODE menu, then pick float 0)
:CLRHOME
:DISP "","","(3 spaces)MAGE WAR:"," MAGE OF ENERGY","",""," 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:  182

:0->H
:LBL 0
:PT-ON(17+H,9
:PT-ON(17+H,10
:PT-ON(17+H,8
:PT-ON(16+H,11
:PT-ON(16+H,7
:PT-OFF(17+H,9
:PT-OFF(17+H,10
:PT-OFF(17+H,8
:PT-OFF(16+H,11
:PT-OFF(16+H,7
:IF H>=35
:GOTO 1
:H+1->H
:GOTO 0
:LBL 1
:IF @>0
:GOTO 2
:RANDINT((D*2)+100,S+190->H
:B-H->B
:RETURN
:LBL 2
:PRGM_SH
:RANDINT(D*2,S+85->H
:@-H->@





Program:  S3
Size:  140

:LINE(15,9,51,9
:0->H
:LBL 0
:RANDINT(52,56->X
:RANDINT(7,13->Y
:PT-ON(X,Y
:IF H=15
:GOTO 1
:H+1->H
:GOTO 0
:LBL 1
:IF @>0
:GOTO 2
:RANDINT((D*2)+150,S+260->H
:B-H->B
:PRGM_FD
:RETURN
:LBL 2
:PRGM_SH
:RANDINT(D*2,S+130->H
:@-H->@
:PRGM_FD





Program:  S4
Size:  186

:0->H
:LBL 0
:CLRDRAW
:RANDINT(1,63->C
:RANDINT(1,47->E
:RANDINT(1,63->X
:RANDINT(1,47->Y
:X->TMIN
:Y->TMAX
:LINE(C,E,X,Y
:RANDINT(1,63->C
:RANDINT(1,47->E
:LINE(TMIN,TMAX,C,E
:IF H=5
:GOTO 1
:H+1->H
:GOTO 0
:LBL 1
:IF @>0
:GOTO 2
:RANDINT((D*2)+200,S+587->H
:B-H->B
:PRGM_FD
:RETURN
:LBL 2
:PRGM_SH
:RANDINT(D*2,S+243->H
:@-H->H
:PRGM_FD






Program:  S5
Size:  208

:LINE(50,47,50,7
:LINE(58,47,58,7
:LINE(63,47,63,7
:LINE(45,47,45,7
:IF @>0
:GOTO 0
:RANDINT(S,S+5000->H
:B-H->B
:PRGM_FD
:RETURN
:LBL 0
:PRGM_SH
:RANDINT(D*2,S+2500->H
:@-H->@
:PRGM_FD





Program:  SAV
Size:  152

: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:  447

:0->P
:LBL 0
:CLRHOME
:DISP "1:HEAL(8 spaces)30","2:ENERGY WAVE 65"
:IF K=1
:DISP "3:BEAM(7spaces)101"
:IF N=1
:DISP "4:FLASH SHOT 200"
:IF O=1
:DISP "5:HYPE BEAM 1250"
: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<65
:GOTO @
:R-65->R
:2->P
:RETURN
:LBL 3
:IF K/=1
:GOTO Z
:IF R<101
:GOTO @
:R-101->R
:3->P
:RETURN
:LBL 4
:IF N/=1
:GOTO Z
:IF R<200
:GOTO @
:R-200->R
:4->P
:RETURN
:LBL 5
:IF O/=1
:GOTO Z
:IF R<1250
:GOTO @
:R-1250->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

