MY PROGRAMS
Wizard Fighter
PROGRAM
Street Fighter sim for the Wizard
BIN_PROG_1
PFILE:BBL8UBDU.BAS
=
E
=
E
=
Q55,2
`"Welcome to Wizard Fighter"
Q60,4
`"mat-brown@lineone.net"
*
`" "
*0
FIGHTS=0
HP=30
MONEY=100
WEAPON=0
AMMO=0
MEDI=0
SP=3
EP=3
MHP=30
*MM
P
#*0
(`"-={Main Menu}=-"
2`"1. Fight!"
7`"2. Weapons Store"
<`"3. View Player Status"
=`"4. Hospital"
>*`"5. Help (READ THIS FIRST) q = QUIT"
F a":";A$
KVA$="1"T+ [*FIGHT
PVA$="2"T+n*SHOP
UVA$="3"T+X*STATUS
Z
VA$="q"TZ
[VA$="5"T+ *HLP
\VA$="4"T+. *HOSPITAL
]VA$="end"T+/*FIN
^!VA$="iamacheater"T+1 *CHEATS
_ + *MM
d*STATUS
i*0
nP
s`"-={Player Status}=-"
x `"You have ";HP;" hit points"
}`"You have $";MONEY
~(VWEAPON=0T`"You don't have a weapon"
"VWEAPON=1T`"You have a Pistol"
#VWEAPON=2T`"You have a Shotgun"
'VWEAPON=3T`"You have a Machine Gun"
#VWEAPON=4T`"You have a Bazooka"
;VWEAPON=5T`"You are a cheater!!! You have the Mega Gun"
C`"You have ";SP;" Super Punches You have ";EP;" Electric Punches"
`"You have ";MEDI;" MediPacks"
*
'`"You have fought ";FIGHTS;" matches"
+ *MM
*SHOP
*0
P
`"-={Weapons Store}=-"
1`"You have $";MONEY;" What do you want to buy?"
#`"1. Pistol ($80 HP = 5 AMMO 10)"
%`"2. Shotgun ($110 HP = 10 AMMO 7)"
)`"3. Machine Gun ($155 HP = 15 AMMO 5)"
>`"4. Bazooka ($180 HP 18 AMMO 3) 5. MediKit ($30 +10 HP)"
#a"What do you want to buy?";SHOP$
VSHOP$="1"T+*PTOL
VSHOP$="2"T+Z*SHOTGUN
VSHOP$="3"T+*MGUN
VSHOP$="4"T+|*BAZOOKA
VSHOP$="5"T+N*KIT
+n*SHOP
*KIT
P
VMONEY<30T+ *BROKE
*
`"You bought a MediKit"
MEDI=MEDI+1
MONEY=MONEY-30
+ *MM
`" "
*PTOL
P
VMONEY<80T+ *BROKE
"`"You bought the pistol"
'*
( WEAPON=1
)MONEY=MONEY-80
*AMMO=10
,`" "
6 + *MM
; *SHOTGUN
@VMONEY<110T+ *BROKE
E*
J `"You bought the Shot Gun"
K*
L WEAPON=2
MMONEY=MONEY-110
NAMMO=7
O`" "
P + *MM
T*MGUN
YVMONEY<155T+ *BROKE
^*
c `"You bought the Machine Gun"
d*
h WEAPON=3
mMONEY=MONEY-155
nAMMO=5
o`" "
r + *MM
w *BAZOOKA
|VMONEY<180T+ *BROKE
`"You bought the Bazooka"
*
WEAPON=4
MONEY=MONEY-180
AMMO=3
`" "
+ *MM
*BROKE
P
*0
`"You don't have enough money"
*
`" "
+ *MM
*FIGHT
P
*0
VFIGHTS=0T+ *FIRST
VFIGHTS=1T+
h*SECOND
VFIGHTS=2T+
*THIRD
VFIGHTS=3T+ J*FTH
VFIGHTS=4T+ *FIFTH
*FIRST
EHP=20
EP=3
MEHP=20
MHP=30
*
`"This is your first fight!"
SP=3
+ (*STARTF
*SECOND
EHP=25
EP=3
MEHP=25
MHP=30
*
`"This is your second fight!"
SP=3
+ (*STARTF
*THIRD
EHP=30
EP=3
MEHP=30
MHP=30
*
`"This is your third fight!"
SP=3
+ (*STARTF
*FTH
EHP=30
EP=3
MEHP=30
MHP=30
*
`"This is your forth fight!"
SP=3
+ (*STARTF
*FIFTH
EHP=35
EP=3
MEHP=30
MHP=25
*
`"This is your final fight!"
!SP=3
"
+ (*STARTF
L*STARTF
Q*0
VP
Wi(158,17)-(162,17)
Xi(197,17)-(201,17)
Yi(157,18)-(163,18)
Zi(196,18)-(202,18)
[i(156,19)-(164,19)
\i(195,19)-(203,19)
]i(156,20)-(164,20)
^i(195,20)-(203,20)
_i(156,21)-(164,21)
`i(195,21)-(203,21)
ai(156,22)-(164,22)
bi(195,22)-(203,22)
ci(157,23)-(163,23)
di(174,23)-(176,23)
ei(183,23)-(185,23)
fi(196,23)-(202,23)
gi(159,24)-(161,24)
hi(173,24)-(176,24)
ii(183,24)-(186,24)
ji(198,24)-(200,24)
ki(159,25)-(161,25)
li(172,25)-(175,25)
mi(184,25)-(187,25)
ni(198,25)-(200,25)
oi(156,26)-(164,26)
pi(171,26)-(174,26)
qi(185,26)-(188,26)
ri(195,26)-(203,26)
si(155,27)-(173,27)
ti(174,27)-(176,27)
ui(183,27)-(185,27)
vi(186,27)-(204,27)
wi(155,28)-(172,28)
xi(173,28)-(176,28)
yi(183,28)-(186,28)
zi(187,28)-(204,28)
{i(155,29)-(165,29)
|i(172,29)-(175,29)
}i(184,29)-(187,29)
~i(194,29)-(204,29)
i(155,30)-(165,30)
i(171,30)-(174,30)
i(185,30)-(188,30)
i(194,30)-(204,30)
i(155,31)-(173,31)
i(186,31)-(204,31)
i(155,32)-(172,32)
i(187,32)-(204,32)
i(155,33)-(165,33)
i(194,33)-(204,33)
i(155,34)-(165,34)
i(194,34)-(204,34)
i(155,35)-(165,35)
i(194,35)-(204,35)
i(155,36)-(165,36)
i(194,36)-(204,36)
i(155,37)-(165,37)
i(194,37)-(204,37)
i(155,38)-(165,38)
i(194,38)-(204,38)
i(155,39)-(165,39)
i(194,39)-(204,39)
i(155,40)-(165,40)
i(194,40)-(204,40)
i(155,41)-(165,41)
i(194,41)-(204,41)
i(155,42)-(165,42)
i(194,42)-(204,42)
i(155,43)-(165,43)
i(194,43)-(204,43)
i(155,44)-(157,44)
i(163,44)-(165,44)
i(194,44)-(196,44)
i(202,44)-(204,44)
i(155,45)-(157,45)
i(163,45)-(165,45)
i(194,45)-(196,45)
i(202,45)-(204,45)
i(155,46)-(157,46)
i(163,46)-(165,46)
i(194,46)-(196,46)
i(202,46)-(204,46)
i(155,47)-(157,47)
i(163,47)-(165,47)
i(194,47)-(196,47)
i(202,47)-(204,47)
i(155,48)-(157,48)
i(163,48)-(165,48)
i(194,48)-(196,48)
i(202,48)-(204,48)
i(155,49)-(157,49)
i(163,49)-(165,49)
i(194,49)-(196,49)
i(202,49)-(204,49)
i(155,50)-(157,50)
i(163,50)-(165,50)
i(194,50)-(196,50)
i(202,50)-(204,50)
i(155,51)-(157,51)
i(163,51)-(165,51)
i(194,51)-(196,51)
i(202,51)-(204,51)
i(155,52)-(157,52)
i(163,52)-(165,52)
i(194,52)-(196,52)
i(202,52)-(204,52)
i(155,53)-(157,53)
i(163,53)-(165,53)
i(194,53)-(196,53)
i(202,53)-(204,53)
i(155,54)-(157,54)
i(163,54)-(165,54)
i(194,54)-(196,54)
i(202,54)-(204,54)
i(155,55)-(157,55)
i(163,55)-(165,55)
i(194,55)-(196,55)
i(202,55)-(204,55)
9`"Enemy's HP = ";EHP;"/";MEHP;" Your HP = ";HP;"/";MHP;
)`"You have ";AMMO;" ammo"
- `"What do you want to do?"
2.`"1. Use Weapon 2. Super Punch = ";SP;" "
7/`"3. Electric Punch = ";EP;" 4. Struggle"
8`"5. Medipac (b)ack"
9`" "
<aAIOP$
AVAIOP$="1"T+*WEAPONU
FVAIOP$="2"T+$*SPUNCHU
KVAIOP$="3"T+'*EPUNCHU
Q VAIOP$="4"T+-*STRUGGLEU
RVAIOP$="b"T+ *MM
SVAIOP$="5"T+ P*MEDU
Z *WEAPONU
[VAMMO<1T+ (*STARTF
_i(174,19)-(179,19)
`i(181,19)-(183,19)
ai(184,19)-(186,19)
bi(187,19)-(189,19)
ci(174,20)-(179,20)
di(181,20)-(183,20)
ei(184,20)-(186,20)
fi(187,20)-(189,20)
gi(174,21)-(176,21)
ii(174,22)-(176,22)
j*
kQ0,5
l`" "
nP
o%:COMPNUM=3
s*0
x;VWEAPON=0T`"You dont have a weapon. You did no dammage"
}EVWEAPON=1T`"You used your Pistol. It did ";COMPNUM;"HP of damage"
IVWEAPON=2T`"You used your Shotgun. It did ";COMPNUM*2;" HP of damage"
MVWEAPON=3T`"You used your Machine Gun. It did ";COMPNUM*3;" HP of damage"
IVWEAPON=4T`"You used your Bazooka. It did ";COMPNUM*4;" HP of damage"
?VWEAPON=5T`"You used the Mega Gun. It did 100 PH of damage"
VWEAPON=1TEHP=EHP-COMPNUM
VWEAPON=2TEHP=EHP-COMPNUM*2
VWEAPON=3TEHP=EHP-COMPNUM*3
VWEAPON=4TEHP=EHP-COMPNUM*4
VWEAPON=5TEHP=EHP-100
VEHP<1T+ w*WON
AMMO=AMMO-1
*
`" "
*CDAM
P
%:COMPNUM=3
;VFIGHTS=0T`"The enemy did ";COMPNUM;" HP damage to you"
;VFIGHTS=1T`"The enemy did ";COMPNUM;" HP damage to you"
=VFIGHTS=2T`"The enemy did ";COMPNUM*2;" HP damage to you"
=VFIGHTS=3T`"The enemy did ";COMPNUM*2;" HP damage to you"
=VFIGHTS=4T`"The enemy did ";COMPNUM*3;" HP damage to you"
VFIGHTS=0THP=HP-COMPNUM
VFIGHTS=1THP=HP-COMPNUM
VFIGHTS=2THP=HP-COMPNUM*2
VFIGHTS=3THP=HP-COMPNUM*2
VFIGHTS=4THP=HP-COMPNUM*3
VHP<1T+ *LOS
*
+ (*STARTF
*WON
P
*0
FIGHTS=FIGHTS+1
VFIGHTS>4T+/*FIN
`"You have won the match"
`"You won $70"
*
`" "
MONEY=MONEY+70
+ *MM
*LOS
`"You have died"
*
`"GAME OVER"
Z
*MEDU
VMEDI<1T+ (*STARTF
VMEDI>0T+ 1806
+ (*STARTF
`"You have +10 HP"
*
`" "
HP=HP+10
!VHP>MHPTHP=MHP
& MEDI=MEDI-1
+ + X*CDAM*HLP
P
*0
`"-={Help Menu}=-"
`"What do you kneed to know?"
`"1. General Story"
`"2. Fights"
`"3. Weapons Store Help"
X`"4. Main Menu"
\ a":";HLP$
aVHLP$="1"T+! *GENH
fVHLP$="2"T+"l*FIGHTH
kVHLP$="3"T+#*WSH
lVHLP$="4"T+ *MM
p*GENH
vP
z*0
`"-={General Story}=-"
:`"Wizard fighter is a street fighter sim for the wizard"
T`"There are 5 levels, with increasing difficulty for you to fight your way trough"
H`"First, you have your attack, then the computer will have its attack"
*
)`"This continues until one of you dies"
+ *HLP
*FIGHTH
P
*0
`"-={Fight Help}=-"
Q`"When in the fight screen, you can use different attacks to defeat your enemy"
E`"Each time you use an attack, your ammo for that attack goes down"
4`"If you have no ammo left, you can only struggle"
*
&`"This only takes of 1 HP each time"
+ *HLP
*WSH
P
*0
`"-={Weapons Store Help}=-"
3`"The weapons store is where you can buy weapons"
c`"You can only have one weapona at a time. If you buy more than one, only the latest one is used"
L`"You must revisit the weapons store to reload your ammo after each fight"
*
`" "
+ *HLP
*SPUNCHU
VSP<1T+ (*STARTF
i(176,23)-(199,23)
i(176,24)-(199,24)
i(176,25)-(199,25)
i(176,26)-(199,26)
i(176,27)-(199,27)
*
i(176,28)-(199,28)
Q0,5
`" "
P
*0
`"You used a Super Punch"
%:COMPNUM=5
5VFIGHTS=0T`"You did ";COMPNUM;" HP damage to you"
5VFIGHTS=1T`"You did ";COMPNUM;" HP damage to you"
7VFIGHTS=2T`"You did ";COMPNUM*2;" HP damage to you"
7VFIGHTS=3T`"You did ";COMPNUM*2;" HP damage to you"
7VFIGHTS=4T`"You did ";COMPNUM*3;" HP damage to you"
VFIGHTS=0TEHP=EHP-COMPNUM
VFIGHTS=1TEHP=EHP-COMPNUM
VFIGHTS=2TEHP=EHP-COMPNUM*2
! VFIGHTS=3TEHP=EHP-COMPNUM*2
& VFIGHTS=4TEHP=EHP-COMPNUM*3
+VHP<1T+ *LOS
,SP=SP-1
0*
5`" "
: + X*CDAM
*EPUNCHU
VEP<1T+ (*STARTF
i(176,21)-(178,21)
i(179,21)-(181,21)
i(182,21)-(184,21)
i(185,21)-(187,21)
i(188,21)-(190,21)
i(191,21)-(193,21)
i(194,21)-(196,21)
i(197,21)-(199,21)
i(176,22)-(178,22)
i(179,22)-(181,22)
i(182,22)-(184,22)
i(185,22)-(187,22)
i(188,22)-(190,22)
i(191,22)-(193,22)
i(194,22)-(196,22)
i(197,22)-(199,22)
i(176,23)-(199,23)
i(176,24)-(199,24)
i(176,25)-(199,25)
i(176,26)-(199,26)
i(176,27)-(199,27)
i(176,28)-(199,28)
i(176,29)-(178,29)
i(179,29)-(181,29)
i(182,29)-(184,29)
i(185,29)-(187,29)
i(188,29)-(190,29)
i(191,29)-(193,29)
i(194,29)-(196,29)
i(197,29)-(199,29)
i(176,30)-(178,30)
i(179,30)-(181,30)
i(182,30)-(184,30)
i(185,30)-(187,30)
i(188,30)-(190,30)
i(191,30)-(193,30)
i(194,30)-(196,30)
i(197,30)-(199,30)
*
Q0,5
`" "
P
*0
`"You used an Electric Punch"
%:COMPNUM=7
.VFIGHTS=0T`"You did ";COMPNUM;" HP damage"
.VFIGHTS=1T`"You did ";COMPNUM;" HP damage"
0VFIGHTS=2T`"You did ";COMPNUM*2;" HP damage"
0VFIGHTS=3T`"You did ";COMPNUM*2;" HP damage"
0VFIGHTS=4T`"You did ";COMPNUM*3;" HP damage"
VFIGHTS=0TEHP=EHP-COMPNUM
VFIGHTS=1TEHP=EHP-COMPNUM
VFIGHTS=2TEHP=EHP-COMPNUM*2
VFIGHTS=3TEHP=EHP-COMPNUM*2
" VFIGHTS=4TEHP=EHP-COMPNUM*3
'VHP<1T+ *LOS
,EP=EP-1
1*
6`" "
; + X*CDAM
*STRUGGLEU
*0
P
`"You used Struggle"
`"The enemy lost 1 HP"
EHP=EHP-1
*
`" "
+ X*CDAM
*HOSPITAL
P
*0
`"-={Hospital}=-"
`"What do you want to do:"
9`"1. Restore HP ($20) (Your HP is: ";HP;"/";MHP;")"
a":";HOSP$
VHOSP$="1"T+.*RHP
+. *HOSPITAL
*RHP
P
*0
VMONEY<20T+/r*YOURBROKE
`"Your HP is fully restored!"
HP=MHP
MONEY=MONEY<20
*
`" "
+ *MM
*YOURBROKE
P
"`"You can not afford to do this"
*
`" "
+ *MM
P*FIN
UP
Z*0
[`"CONGRATULATIONS"
_'`"You have compleated Wizard Fighter"
d*
i`" "
nP
s `"Prorammer - Matthew Brown"
xP
} `"Code Design - Matthew Brown"
P
Q90,3
`"The End!"
P
`"Cheats:"
R`"At the Main Menu, type 'iamacheater' and you will be taken to the cheat menu!"
Z
*CHEATS
P
*0
`"-={Cheat Menu}=-"
`"Choose a cheat:"
`"1. $9999999999"
`"2. Mega gun"
a":";CHE$
VCHE$="1"TMONEY=9999999999
VCHE$="2"T+1*MEGAGUN
+ *MM
*MEGAGUN
WEAPON=5
AMMO=99
+ *MM
u1Z