'C:\Program Files\Liberty BASIC v3.03\bak\untitled.bak - Saved by Liberty BASIC
'before running. You should delete these lines and save
'this file as a *.BAS file before using.
'-----------------------------------------------------

1 thp=50
10035 a=int(rnd(1)*2)+1:if a=1 then a$="woman":goto 10040
10037 a$="man"
10040 a=int(rnd(1)*5)+1:if a=1 then b$="Human":goto 10045
10041 if a=2 then b$="Gwarve":goto 10045
10042 if a=3 then b$="Forest Elf":goto 10045
10043 if a=4 then b$="Ograna":goto 10045
10044 b$="Mind Flayer"
10045 print:print "There is a ";a$;" standing here.  They are of ";b$;" dissent."
10047 mhp=int(rnd(1)*thp)+1+(int(rnd(1)*thp)+1):if mhp<thp/2 then mhp=int(thp/2)
10050 if mhp=int(thp/2) then print "They look very very weak.":goto 10065
10052 if mhp>int(thp/2) and mhp <=thp then print "They look a bit weak.":goto 10065
10054 if mhp>thp and mhp<=thp+200 then print "They look like a formiable opponent.":goto 10065
10056 if mhp>thp+200 and mhp=<thp+500 then print "They look a bit strong.":goto 10065
10058 if mhp>thp+500 and mhp=<thp+1000 then print "They look very strong.":goto 10065
10060 if mhp>thp+1000 and mhp=<thp+2000 then print "They look Extremely powerful.":goto 10065
10062 if mhp>thp+2000 and mhp=<thp+3000 then print "They look like they could rip you to shreds just by thinking about it....":goto 10065
10064 print "You must have stumbled upon some sort of God walking on earth, you really dont want to fight this person...."
10065 thp=thp+5:print "please press return";:input r$
10067 goto 10035
