Just BASIC Files Archive

Code: Select all

'
' Apeman
'
'
'Current Notes: Need to implement the skills.
' Skills Implemented: Improved Fighting Technique, Stamina, Heal
'
' By Ntech. Please post your improvements.

global life,energy,animal$ 'your life, your energy, and the animal your fighting if present
global com$ 'command
global animalLife, animalAttack, yourAttack, battlePoints 'for fighting the animals

dim inventory$(5) 'the inventory, can be gotten by getting the skill 'gather'
inventory$(1) = ""
inventory$(2) = ""
inventory$(3) = ""
inventory$(4) = ""
inventory$(5) = ""

dim knownSkills$(5,5) 'known skills, and wether or not they are learnt
knownSkills$(1,1) = "Make" 'make stuff; makes you fight better
knownSkills$(2,1) = "Gather" 'gather food;unlocks inventory
knownSkills$(3,1) = "Heal" 'heal yourself on the field of battle
knownSkills$(4,1) = "Stamina" 'moving now costs you 5 energy instead of 10
knownSkills$(5,1) = "Improved Fighting Techniques" 'you now attack better

knownSkills$(1,2) = "0"
knownSkills$(2,2) = "0"
knownSkills$(3,2) = "0"
knownSkills$(4,2) = "0"
knownSkills$(5,2) = "0"

FoodCondition$(1) = "juicy"
FoodCondition$(2) = "crunchy"

print
print "Apeman: An Epic Quest For Survival"
print
input ">";e$
cls

print
print "What is your name?"
input ">";name$
cls

life = 100
energy = 100

[startSquare]
if knownSkills$(3,2) = "1" then life = life + 5
if life > 100 then life = 100
print
print "Name: ";name$
print "Energy: ";energy
print "Health: ";life;"/100"
print "*********************"
if battlePoints < 1 then print "Commands: look, eat"
if battlePoints then print "Commands: look, eat, learn"
print
print "Exits: N(orth)"
print
input ">";com$
cls

if upper$(com$) = "N" then

    if knownSkills$(4,2) <> "1" then
        if energy > 9 then
        energy = energy - 10
        goto [homeSquare]
        end if

        if energy > 9 then
        print "You are too tired."
        input ">";e$
        cls
        goto [startSquare]
        end if
    end if

    if knownSkills$(4,2) = "1" then
        if energy > 6 then
        energy = energy - 5
        goto [homeSquare]
        end if

        if energy > 5 then
        print "You are too tired."
        input ">";e$
        cls
        goto [startSquare]
        end if
    end if
end if

if upper$(com$) = "LOOK" then
    print "You see a big plain."
    print "It is intersparsed with brown clumps,"
    print "which you have learned to eat."
    input ">";e$
    cls
    goto [startSquare]
end if

if upper$(com$) = "EAT" then
condition = int(rnd(1)*2)+1
    print "You eat the brown clumps."
    print "They are rather ";FoodCondition$(condition);" today."
    print
    input ">";e$ 
    if energy < 100 then energy = energy + 5
    if energy > 100 then energy = 100
    if life < 100 then life = life + 5
    if life > 100 then life = 100
    cls
    goto [startSquare]
end if
if upper$(com$) = "LEARN" then
    if battlePoints then
    gosub [learn]
    cls
    end if
end if

cls
goto [startSquare]


[homeSquare]
if knownSkills$(3,2) = "1" then life = life + 5
if life > 100 then life = 100
gosub [setAnimal]
print
print "Name: ";name$
print "Energy: ";energy
print "Health: ";life;"/100"
print "*********************"
if battlePoints < 1 then print "Commands: look, fight"
if battlePoints then print "Commands: look, fight, learn"
print
print "There is a ";animal$;" here."
print
print "Exits: S(outh)"
print
input ">";com$
cls

if upper$(com$) = "S" then

    if knownSkills$(4,2) <> "1" then
        if energy > 9 then
        energy = energy - 10
        goto [startSquare]
        end if

        if energy > 9 then
        print "You are too tired."
        input ">";e$
        cls
        goto [homeSquare]
        end if
    end if

    if knownSkills$(4,2) = "1" then
        if energy > 6 then
        energy = energy - 5
        goto [startSquare]
        end if

        if energy > 5 then
        print "You are too tired."
        input ">";e$
        cls
        goto [homeSquare]
        end if
    end if
end if

if upper$(com$) = "LOOK" then
    print "You see a big plain."
    print "There is a ";animal$;" here."
    print
    input ">";e$
    cls
    goto [homeSquare]
end if

if upper$(com$) = "FIGHT" then
    gosub [fight]
    cls
    goto [homeSquare]
end if

if upper$(com$) = "LEARN" then
    if battlePoints then
    gosub [learn]
    cls
    end if
end if

cls
goto [homeSquare]

[setAnimal]
randomAnimal = int(rnd(1)*2)+1

if randomAnimal = 1 then animal$ = "wild bird"
if randomAnimal = 2 then animal$ = "ferocious chipmunk"

RETURN

[fight]
cls
animalLife = 100

[fightLoop]
cls
animalAttack = int(rnd(1)*3) + 1
if knownSkills$(5,2) <> "1" then yourAttack = int(rnd(1)*10) + 1
if knownSkills$(5,2) =  "1" then yourAttack = int(rnd(1)*20) + 1

life = life - animalAttack
print "The ";animal$;" attacks you for ";animalAttack;" damage."
print "(";life;"/100 HP) Enemy ";animalLife;"% >"
input ">";e$
cls

if life < 1 then
print "You were killed by a ";animal$
print
input ">";e$
cls
end
end if

animalLife = animalLife - yourAttack
print "You attack the ";animal$;" for ";yourAttack;" damage."
print "(";life;"/100 HP) Enemy ";animalLife;"% >"
input ">";e$
cls

if animalLife < 1 then
battlePoints = battlePoints + 1
print "You have killed a ";animal$;"!"
input ">";e$
cls

RETURN
end if

goto [fightLoop]

wait

[learn]

'dim knownSkills$(5,5) 'known skills, and wether or not they are learnt
'knownSkills$(1,1) = "Make" 'make stuff; makes you fight better
'knownSkills$(2,1) = "Gather" 'gather food;unlocks inventory
'knownSkills$(3,1) = "Heal" 'heal yourself on the field of battle
'knownSkills$(4,1) = "Stamina" 'moving now costs you 2 energy instead of 5
'knownSkills$(5,1) = "Improved Fighting Techniques" 'you now attack better

print "==CORE SKILLS=="
if knownSkills$(1,2) = "1" then print "(X) Make (not operational)"
if knownSkills$(1,2) <> "1" then print "( ) Make (not operational)"

if knownSkills$(2,2) = "1" then print "(X) Gather (not operational)"
if knownSkills$(2,2) <> "1" then print "( ) Gather (not operational)"

if knownSkills$(3,2) = "1" then print "(X) Heal"
if knownSkills$(3,2) <> "1" then print "( ) Heal"

if knownSkills$(4,2) = "1" then print "(X) Stamina"
if knownSkills$(4,2) <> "1" then print "( ) Stamina"

if knownSkills$(5,2) = "1" then print "(X) Improved Fighting Technique"
if knownSkills$(5,2) <> "1" then print "( ) Improved Fighting Technique"

print
print "You have ";battlePoints;" skill upgrades to spend."
print
print "Commands: skill buy <skill>"
print
input ">";com$
cls

if upper$(com$) = "SKILL BUY MAKE" then
battlePoints = battlePoints - 1
knownSkills$(1,2) = "1"
end if

if upper$(com$) = "SKILL BUY GATHER" then
battlePoints = battlePoints - 1
knownSkills$(2,2) = "1"
end if

if upper$(com$) = "SKILL BUY HEAL" then
battlePoints = battlePoints - 1
knownSkills$(3,2) = "1"
end if

if upper$(com$) = "SKILL BUY STAMINA" then
battlePoints = battlePoints - 1
knownSkills$(4,2) = "1"
end if

if upper$(com$) = "SKILL BUY IMPROVED FIGHTING TECHNIQUE" then
battlePoints = battlePoints - 1
knownSkills$(5,2) = "1"
end if

RETURN