Make a program that is a person if they were coded!

[Pritchard]

Kay I totally own you all...

Here's MY Z!re:

Code:

defint a-z
const false = 0, true = not false
Randomize Timer
Declare Function Get_Name
Declare Function Do_Person_Stats
Declare Function Do_Zire_Stats
dim shared Random_Number
dim shared zire_attack
dim shared person_attack
Type Character_Type
    Hp as short
    Strength as short
    Defense as short
    Speed as short
    atb as short
    Name as String
End Type

Dim shared Zire as Character_Type
With zire
    .hp = 9999
    .strength = 255
    .defense = 255
    .speed = 100
    .atb = 0
    .name = "Z!re"
End With

Dim shared Person as Character_Type
With Person
    .hp = 1 + Rnd * 2000
    .strength = 1 + rnd * 50
    .defense = 1 + rnd * 50
    .speed = 1 + rnd * 9
    .atb = 0
end With

Get_Name
Screen 15, 24
Print "Battle! "; Person.name; " Vs. Z!RE!!"
sleep 3000
cls
Do
    Do_Zire_Stats
    Do_Person_Stats
if Person_Attack = true then
        Person.atb = 0
end if

Locate 1, 1: Print Person.name; ":"
Print "  HP: "; person.hp
print "  ATB: "; person.atb
Locate 1, 20: Print Zire.name; ":"
Locate 2, 20:Print "  HP: "; zire.hp
Locate 3, 20:print "  ATB: "; zire.atb
sleep 1000
Loop until Person.hp < 1 or multikey(&h01)

Function Do_Zire_Stats
    zire.atb += zire.speed
    if zire.atb >= 100 then
        zire_attack = true
        zire.atb = 100
    end if
    if Zire_attack = false then
        locate 10, 10: Print "                     "
    end if
    if Person_Attack = true then
        Zire.hp -= (Person.strength - Zire.defense)
        Person_Attack = false
        Person.atb = 0
        Locate 11, 10: Print UCASE$(Person.name); " ATTACKS!"
    end if

end function

Function Do_Person_Stats
    person.atb += person.speed
    if person.atb >= 100 then
        person_attack = true
        person.atb = 100
    end if
    if person_attack = false then
        locate 11, 10: Print "                     "
    end if
    if Zire_Attack = true then
        Person.hp -= (Zire.strength - person.defense)
        Zire_Attack = false
        Zire.atb = 0
        Locate 10, 10: Print "Z!RE ATTACKS!"
    end if
End Function

Function Get_Name
Random_Number = Rnd * 39
if random_number = 0 then Person.Name = "Cha0s"
if random_number = 1 then Person.Name = "Pritchard"
if random_number = 2 then Person.Name = "Z!re? - Not even Z!re is a match for Z!re?"
if random_number = 3 then Person.Name = "V1ctor"
if random_number = 4 then Person.Name = "Lillo"
if random_number = 5 then Person.Name = "D.J. Peters"
if random_number = 6 then Person.Name = "Axipher"
if random_number = 7 then Person.Name = "Pete"
if random_number = 8 then Person.Name = "Adigun A. Polack"
if random_number = 9 then Person.Name = "Seph"
if random_number = 10 then Person.Name = "100101"
if random_number = 11 then Person.Name = "relsoft"
if random_number = 12 then Person.Name = "mambazo"
if random_number = 13 then Person.Name = "arenth"
if random_number = 14 then Person.Name = "yuri"
if random_number = 15 then Person.Name = "coderjeff"
if random_number = 16 then Person.Name = "Stonemonkey"
if random_number = 17 then Person.Name = "DrV"
if random_number = 18 then Person.Name = "SSC"
if random_number = 19 then Person.Name = "VirusScanner"
if random_number = 20 then Person.Name = "Ophelius"
if random_number = 21 then Person.Name = "Ryan"
if random_number = 22 then Person.Name = "Lurah"
if random_number = 23 then Person.Name = "FragMeister"
if random_number = 24 then Person.Name = "Thrawn"
if random_number = 25 then Person.Name = "Rudiger"
if random_number = 26 then Person.Name = "SpeedBasic"
if random_number = 27 then Person.Name = "Tunginobi"
if random_number = 28 then Person.Name = "Dr. D"
if random_number = 29 then Person.Name = "SotSvart"
if random_number = 30 then Person.Name = "MystikShadows"
if random_number = 31 then Person.Name = "Vance"
if random_number = 32 then Person.Name = "Stormy"
if random_number = 33 then Person.Name = "RedCrab"
if random_number = 34 then Person.Name = "Antoni"
if random_number = 35 then Person.Name = "blahboybang"
if random_number = 36 then Person.Name = "Jofers"
if random_number = 37 then Person.Name = "rdc"
if random_number = 38 then Person.Name = "Imortis"
if random_number = 39 then Person.Name = "Deleter"
End Function