fudd2.85p

\START\
\COMMENT=Program file dated 03/13/96, 12:15
\NAME=FUDD2
\FILE=fudd2.85P
Disp "Fudd 2.6","By P.Gunn"
Pause
0\->\EA
2\->\ATT
1\->\HPOT
1\->\MROT
ClLCD
Disp "Welcome to Fudd's","adventure."

Lbl Scr
int (15rand)+4\->\STR
int (15rand)+4\->\IN
int (15rand)+4\->\WIS
int (15rand)+4\->\CON
int (15rand)+4\->\DEX
50+DEX+int (10rand)\->\GP
int (12-.4DEX)\->\AC
ClLCD
Disp "Strength=","Intellect=","Wisdom=","Health=","Agility="
Outpt(1,10,STR)
Outpt(2,11,IN)
Outpt(3,8,WIS)
Outpt(4,8,CON)
Outpt(5,9,DEX)
Pause
ClLCD

Lbl III
Disp "Select a type","Wizard","Warrior","Priest","Psionicist","Ninja"
Menu(1,"Wiz",WS,2,"Warr",FS,3,"Pri",CS,4,"Psi",PS,5,"Ninj",TS)

Lbl TS
2GP\->\GP
int (7rand+.5CON-3)\->\HP
(STR-9)/4\->\AMOD
IN+4\->\MP
5\->\ATYPE
Goto ABA

Lbl PS
int (6rand+.5CON)\->\HP
(STR-11)/3\->\AMOD
WIS+int (IN/8)\->\MP
4\->\ATYPE
Goto ABA

Lbl CS
int (6rand+.5CON-2)\->\HP
.3STR-4\->\AMOD
4WIS\->\MP
3\->\ATYPE
Goto ABA

Lbl FS
int (11rand+CON+2)\->\HP
(.5STR-3)\->\AMOD
2\->\ATYPE
0\->\MP
Goto ABA

Lbl WS
1\->\ATYPE
int ((4rand+CON-9)/3)\->\HP
0\->\AMOD
3IN+WIS\->\MP

Lbl ABA
HP\->\CHP
MP\->\CMP

Lbl JOIN
ClLCD
Disp "MP=","HP=","$="
Outpt(1,4,CMP)
Outpt(2,4,CHP)
Outpt(3,3,GP)
Pause
ClLCD
Disp "Welcome to town"
Menu(1,"SHOP",SHOP,2,"HEAL",HEAL,3,"WILD",WILD,4,"HOSP",SUR,5,"FINAL",F\#\
IN)

Lbl SHOP
Menu(1,"WEAP",WSH,2,"ARMR",ASH,3,"POTN",PSH,4,"Exit",JOIN)

Lbl HEAL
ClLCD
Disp "Welcome to the inn.","Rooms cost 50G"
Menu(1,"YES",INN,2,"NO",JOIN)

Lbl INN
If GP<50:Goto CHEAP
HP\->\CHP
MP\->\CMP
GP-50\->\GP
Goto JOIN

Lbl PSH
ClLCD
Disp "Heal Potions fer 70 G","Manna Root fer 80 G","You have    HPOT","\#\
You have    MROT"
Outpt(3,10,HPOT)
Outpt(4,10,MROT)
Menu(1,"HPOT",HPOT,2,"MROT",MROT,3,"Exit",JOIN)

Lbl HPOT
If GP<70
Goto CHEAP
GP-70\->\GP
HPOT+1\->\HPOT

Lbl BOTS
Disp "Ching!"
Pause
Goto PSH

Lbl MROT
If GP<80
Goto CHEAP
GP-80\->\GP
MROT+1\->\MROT
Goto BOTS

Lbl CHEAP
Disp "Nice Try"
Pause :Goto JOIN

Lbl ASH
If AC\>=\7
Then
"Skin"\->\DTYPE
Goto ASE:End
If AC==6:Then
"Leather"\->\DTYPE
Goto ASE:End
If AC>4
Then
"Scale"\->\DTYPE
Goto ASE:End
If AC>3:Then
"Chain"\->\DTYPE
Goto ASE:End
If AC>1
Then
"Steel"\->\DTYPE
Goto ASE:End
If AC>0:Then
"Plate"\->\DTYPE
Goto ASE:End
Disp "Shop CLOSED!":Pause :Goto JOIN

Lbl ASE
ClLCD
Disp "You want","Next ARMOR      $"
Outpt(1,10,DTYPE)
Outpt(2,14,int (400/AC))
Menu(1,"BUY",BY,2,"DON'T",JOIN)

Lbl BY
If GP<int (400/AC)
Goto CHEAP
GP-int (400/AC)\->\GP
AC-1\->\AC
Disp "CHING!"
Goto JOIN

Lbl WSH
ClLCD
Disp "Welcome to the","weapon shop"
If ATT<3
Then:"Hands"\->\ATY:Goto Asl:End
If ATT<5
Then:"Club"\->\ATY:Goto Asl:End
If ATT<7
Then:"Stave"\->\ATY:Goto Asl:End
If ATT<9
Then:"Sword"\->\ATY:Goto Asl:End
If ATT<12
Then:"M.Swd"\->\ATY:Goto Asl:End
If ATT<15
Then:"Laser"\->\ATY:Goto Asl:End
If ATT<18
Then:"Maser"\->\ATY:Goto Asl:End
Disp "CLOSED":Pause :Goto JOIN

Lbl Asl
ClLCD
Disp "You have","The next costs   $","Buy?"
Outpt(1,10,ATY)
Outpt(2,15,10ATT)
Menu(1,"Yes",WBI,2,"No",JOIN)

Lbl WBI
If GP<10ATT
Goto CHEAP
GP-10ATT\->\GP
ATT+1\->\ATT
Disp "Done"
Pause
Goto JOIN

Lbl WILD
ClLCD

Lbl MSEL
int (16rand)-1\->\MTV
If MTV<1
Then
"Wasp"\->\MTY
5\->\EP
8\->\ED
5\->\EA
Goto COM
End
If MTV==2
Then
"Mroom"\->\MTY
5\->\EP
7\->\ED
2\->\EA
Goto COM
End
If MTV==3
Then
"Virus"\->\MTY
1\->\EP
75\->\ED
21\->\EA
Goto COM
End
If MTV==4
Then
"Ogre"\->\MTY
12\->\EP
9\->\ED
16\->\EA
Goto COM
End
If MTV<7
Then
"Snake"\->\MTY
11\->\EP
4\->\ED
4\->\EA
Goto COM
End
If MTV<10
Then
"Nagus"\->\MTY
6\->\EP
3\->\ED
6\->\EA
Goto COM
End
If MTV<13
Then
"Borg"\->\MTY
35\->\EP
\(-)\2\->\ED
12\->\EA
Goto COM
End
"Healer"\->\MTY
1\->\EP
10\->\ED
\(-)\16\->\EA

Lbl COM
ClLCD
Disp "A         leaps at ye","Yer HP="
Outpt(1,3,MTY)
Outpt(2,9,CHP)
Pause
If ATYPE==2
Menu(1,"Att",ATT,5,"Run",RUN,2,"Parry",BLOK,3,"Item",USE)
If ATYPE==5
Menu(1,"Att",ATT,5,"Run",RUN,2,"Slash",NAT,3,"Njsu",NJU,4,"Item",USE)
If ATYPE==4
Menu(1,"Att",ATT,5,"Run",RUN,2,"Mind",PSI,3,"Item",USE)
If ATYPE==3
Menu(1,"Att",ATT,5,"Run",RUN,2,"HealS",PRY,3,"Item",USE)
If ATYPE==1
Menu(1,"Att",ATT,5,"Run",RUN,2,"Bmag",WIZ,3,"Item",USE)

Lbl NAN:Disp "None":Pause :Goto NROUND

Lbl RUN
If DEX\>=\25rand
Goto JOIN

Lbl NROUND
If (20rand+.5(abs EA))<20-AC
Then
Disp "Miss":Pause :Goto COM
End
Pause :ClLCD
Disp "He hit you for"
int (4rand+.5EA)\->\DO
Outpt(1,16,DO)
Pause
CHP-DO\->\CHP
If CHP<1
Then
Pause
Disp "You DIED!"
Pause
1\->\CHP
0\->\CMP
GP-int (80rand)\->\GP
Goto JOIN
End
Pause
Goto COM

Lbl ATT
If 3(6rand+DEX)>17-ED
Then:EP-(rand(ATT)+AMOD)\->\EP
Disp "HIT!":Pause :Goto IDED
End
Disp "MISS!"
Goto NROUND

Lbl IDED
If EP<1
Then:Pause :ClLCD:Disp "VICTORY!"
GP+int (25rand)+ED\->\GP
Pause

Goto JOIN
End
Goto NROUND

Lbl BLOK
If CHP<HP
HP+1\->\HP
If DEX+20rand<30
Goto NROUND
Goto COM

Lbl NAT
If MP<1
Then:Disp "Slipped!"
Goto NROUND
End
MP-1\->\MP
If (20rand+.3DEX)>13-ED
Then:EP-.5(3rand(ATT)+4AMOD)\->\EP:Disp "SLASH":Pause :Goto IDED
End
Disp "#$~'?! Weapon GONE!"
0\->\ATT
Goto NROUND

Lbl USE
ClLCD
Disp "You have","   Manna","   Heal Potion"
Outpt(2,1,MROT)
Outpt(3,1,HPOT)
Menu(3,"Exit",NROUND,1,"Manna",MUSE,2,"Hpot",HUSE)

Lbl MUSE
If MROT<1
Goto NAN
MROT-1\->\MROT
MP\->\CMP
Disp "YAY!"
Pause
Goto NROUND

Lbl HUSE
If HPOT<1
Goto NAN
HPOT-1\->\HPOT
HP\->\CHP
Disp "Yay!"
Pause
Goto NROUND

Lbl NOMAG
Disp "Not Enough Power"
Goto IDED

Lbl NJU
ClLCD
Disp "NINJA MAGIC","MP=","Flame=5MP","Flood=8MP","Blitz=12MP","Smoke=2M\#\
P"
Outpt(2,3,CMP)
Menu(1,"Flame",NFIR,2,"Flood",NWAT,3,"Blitz",NLIT,4,"Smoke",NRUN,5,"Non\#\
e",COM)

Lbl NRUN
If CMP<2
Goto NOMAG
CMP-2\->\CMP
Disp "Smoke!"
Pause
Goto JOIN

Lbl NLIT
Disp "Zap!"
If CMP<12
Goto NOMAG
CMP-12\->\CMP
EP-(95rand+2AMOD)\->\EP
Pause :ClLCD:Goto IDED

Lbl NWAT
If CMP<8
Goto NOMAG
CMP-8\->\CMP
Disp "A flood sweeps them!"
EP-(50rand+2AMOD)\->\EP
Pause :ClLCD:Goto IDED

Lbl NFIR
If CMP<5
Goto NOMAG
Disp "Inferno!"
CMP-5\->\CMP
EP-(20rand+2AMOD)\->\EP
Pause :ClLCD:Goto IDED

Lbl PSI
ClLCD
Disp "PSIONICS","MP=","Medit=+5 MP","DeathField=3","Tele=1","Psleak=4"
Outpt(2,4,CMP)
Menu(5,"Exit",NROUND,1,"DFld",FIE,2,"Medit",REST,3,"Tele",PRUN,4,"Pslea\#\
k",PFIR)

Lbl REST
ClLCD
If CMP<MP
MP+5\->\MP
Disp "Hmmmmmmmm"
Pause
Goto NROUND

Lbl PRUN
If CMP<1
Goto NOMAG
CMP-1\->\CMP
ClLCD
Disp "Mystic"
Pause
Outpt(1,8,"Teleport")
Pause
Goto JOIN

Lbl FIE
ClLCD
If CMP<3
Goto NOMAG
CMP-3\->\CMP
Disp "Death Field","HP=","Sacrifice ? HP?"
Outpt(2,4,CHP)
Input GA
CHP-GA\->\CHP
If CHP<0
Then:Disp "You Nit!"
Pause
Goto NROUND
End
Disp "Field of Pain!"
EP-8GA\->\EP
Goto IDED

Lbl PFIR
If CMP<4
Goto NOMAG
End
CMP-4\->\CMP
ClLCD
Disp "Mind Flame"
If CMP<4
Goto NOMAG
CMP-4\->\CMP
EP-40rand\->\EP
Goto IDED

Lbl WIZ
ClLCD
Disp "Black Magic","MP=","Lbolt=2","Meteor=20","Weak=8","Beast=5","Sing\#\
=0"
Outpt(2,4,CMP)
Menu(1,"Lblt",WLIT,2,"Meteo",FATAL,3,"Weak",NERD,4,"Beast",TURT,5,"Sing\#\
",SING)

Lbl WLIT
ClLCD
If CMP<2
Goto IDED
CMP-2\->\CMP
Disp "Lightning strikes!"
EP-4\->\EP
Pause
CMP-2\->\CMP
Goto IDED

Lbl FATAL
If CMP<20
Goto NOMAG
CMP-20\->\CMP
Disp "His head is blown","to shreds!"
\(-)\1\->\EP
Goto IDED

Lbl NERD
If CMP<8
Goto NOMAG
CMP-8\->\CMP
1\->\EP
Disp "A grey wind blows"
Pause
Goto NROUND

Lbl TURT
If CMP<5
Goto NOMAG
Disp "A Bull attacks them"
EP-5+int (15rand)\->\EP
Pause
Goto IDED

Lbl SING
ClLCD
Disp "Aaaargh!","Moan!","They grab their ears!"
EP-1\->\EP
Pause
Goto IDED

Lbl PRY
ClLCD
Disp "Priest Spells","MP=","Small Heal=2","Heal=5","Hurt=5"
Outpt(2,3,CMP)
Menu(5,"None",COM,4,"Exit",JOIN,1,"SHel",KLEIN,2,"Heal",GROSS,3,"Hurt",\#\
OW)

Lbl KLEIN
If CMP<2
Goto NOMAG
CMP-2\->\CMP
.5HP\->\CHP
Disp "Healed"
Pause :Goto NROUND

Lbl GROSS
If CMP<5
Goto NOMAG
CMP-5\->\CMP
HP\->\CHP
Disp "You are restored!"
Goto NROUND

Lbl OW
If CHP<5
Goto NOMAG
CMP-5\->\CMP
Disp "The soul is torn from","their body"
EP-int (16rand)\->\EP
Goto IDED

Lbl SUR
ClLCD
Disp "Welcome to the","Hospital.","You have   GP"
Outpt(3,10,GP)
Pause
Disp "You want?","MPinc=2/","HPinc=1/","CCChange=100"
Menu(1,"MP+",MI,2,"HP+",HI,3,"ClC",CI,4,"YAY!",SI,5,"Exit",JOIN)

Lbl MI
Input "How much you want?",IC
If GP-2IC<1
Goto CHEAP
IC+MP\->\MP
GP-abs 2IC\->\GP
Disp "Hallelujah!"
Pause
Goto JOIN

Lbl HI
Input "How much?",IC
If GP-IC<1
Goto CHEAP
GP-IC\->\GP
HP+IC\->\HP
Disp "You feel great!"
Goto JOIN

Lbl CI
If GP-100<1
Goto CHEAP
GP-100\->\GP
Disp "*The world fades away*"
Goto III

Lbl SI
If rand<.45
Then
Disp "YAY!"
Pause
\(-)\2\->\EP
0\->\EA:0\->\ED
Goto IDED
End
55\->\EP
Disp "False One!"
Goto IDED

Lbl FIN
Pause
Disp "Really?"
Menu(1,"No",JOIN,2,"Yes",RFIN)

Lbl RFIN
Disp "You dare to challenge","me? HA HA HA!":Pause :Disp "I am the Lord\#\
 of Time","& Space.","I am demon Zull!!","You, Die now!"
If HP<20
Then
Disp "You are ERASED"
Stop
End
Disp "What the h%?'#'#'?"
Menu(1,"Att",BAT,2,"Mleak",BMP)

Lbl BMP
If CMP<50rand
Goto DEI
Goto WINN

Lbl BAT
If EA+(DEX/3)+20rand>42-ED
Goto WINN
Lbl DEI
Disp "You DIE!"
Pause
ClLCD
Stop

Lbl WINN
Disp "VICTORY!","Good Job!"
\STOP\