<%@ Language = VBScript %>
<%
Option Explicit
Dim strFName, strLName, strMInitial, strBDay, strBMonth, strBYear
Dim intFName, intLName, intMInitial, intBDay, intBMonth, intBYear
Dim varCounter
Dim varCause, varSideEffects, varPowersDescription, intMajorPowers, intMinorPowers
dim varTemp, varTemp2
strFName = Request.Form("first")
strLName = Request.Form("last")
strMInitial = Request.Form("middle")
strBDay = Request.Form("day")
strBMonth = Request.Form("month")
strBYear = Request.Form("year")
For varCounter = 1 to Len(strFName)
intFName = intFName + Asc(LCase(Mid(strFName, varCounter, 1)))
Next
For varCounter = 1 to Len(strLName)
intLName = intLName + Asc(LCase(Mid(strLName, varCounter, 1)))
Next
intMInitial = Asc(LCase(strMInitial))
For varCounter = 1 to Len(strBDay)
intBDay = intBDay + Asc(Mid(strBDay, varCounter, 1))
Next
For varCounter = 1 to Len(strBMonth)
intBMonth = intBMonth + Asc(Mid(strBMonth, varCounter, 1))
Next
For varCounter = 1 to Len(strBYear)
intBYear = intBYear + Asc(Mid(strBYear, varcounter, 1))
Next
Function GetColor(varWhichColor)
Dim strReturnColor
Select Case (varWhichColor)
Case 0
strReturnColor = "bright yellow"
Case 1
strReturnColor = "green"
Case 2
strReturnColor = "bright, flaming red"
Case 3
strReturnColor = "grey"
Case 4
strReturnColor = "light blue"
Case 5
strReturnColor = "dark blue"
Case 6
strReturnColor = "stark white"
Case 7
strReturnColor = "coal black"
Case 8
strReturnColor = "purple"
Case 9
strReturnColor = "orange"
Case 10
strReturnColor = "silver"
End Select
GetColor = strReturnColor
End Function
Function GetSideEffect(varWhich)
Dim varInFuncTemp, strReturn
Select Case (varWhich)
Case 0
strReturn = "Your Skin is now colored "
varInFuncTemp = intFName mod 11
strReturn = strReturn + GetColor(varInFuncTemp) + ". "
Case 1
strReturn = "Your whole body glows in the dark. "
Case 2
strReturn = "You are now highly vulnerable to radioactivity. "
Case 3
strReturn = "You must physically transform to use your powers. Your transformation makes you larger and much more brutish than you are normally. "
Case 4
strReturn = "You require energy for nourishment. You no longer eat regular food, only pure energy. "
Case 5
strReturn = "You have an increased mass. It's harder to get hurt, but you are also much heavier. "
Case 6
strReturn = "You are chemically resistant now. Chemicals will not affect you for good or evil. "
Case 7
strReturn = "You no longer breathe air. In fact you no longer breathe at all. "
Case 8
strReturn = "You are in chronic pain. "
Case 9
strReturn = "You no longer have any facial features. You have two small slits for eyes, two even smaller slits for your nostrils and one small horizontal slit for your mouth. "
Case 10
strReturn = "Your ears are pointy. "
Case 11
strReturn = "You are now ambidextrous. "
Case 12
strReturn = "Your hair is now colored "
varInFuncTemp = intLName mod 11
strReturn = strReturn + GetColor(varInFuncTemp) + ". "
Case 13
strReturn = "You are now double jointed. "
Case 14
strReturn = "Your eyes are extremely small. "
Case 15
strReturn = "Your eyes glow. "
Case 16
strReturn = "You now have "
varInFuncTemp = ((intMInitial + 1) * 33) mod 6
Select Case (varInFuncTemp)
Case 0
strReturn = strReturn + "no body hair at all. "
Case 1
strReturn = strReturn + "a very bushy head of hair. "
Case 2
strReturn = strReturn + "three times the normal amount of body hair. "
Case 3
strReturn = strReturn + "six times the normal amount of body hair, which practically resembles fur. "
Case 4
strReturn = strReturn + "short fur covering your whole body. "
Case 5
strReturn = strReturn + "long fur covering your whole body. "
End Select
Case 17
strReturn = "You have prehensile feet and toes. "
Case 18
strReturn = "Your skin is scaly and reptillian. "
Case 19
strReturn = "You have small horns, about two inches long each, on your head. "
Case 20
strReturn = "Your skin is tough and lumpy. "
Case 21
strReturn = "You have a six foot long prehensile tail. "
Case 22
strReturn = "You have retractable claws, like a cats, in your fingers."
End Select
GetSideEffect = strReturn
End Function
Function GetMinorPower(varWhichPower)
Dim strReturn
Select Case (varWhichPower)
Case 0
strReturn = "Super Vision: Advanced Sight"
Case 1
strReturn = "Extraordinary Mental Affinity"
Case 2
strReturn = "Bend Light"
Case 3
strReturn = "Flight: Glide"
Case 4
strReturn = "Heightened Sense of Taste"
Case 5
strReturn = "Energy Expulsion: Fire"
Case 6
strReturn = "Super Vision: Nightvision"
Case 7
strReturn = "Extraordinary Physical Strength"
Case 8
strReturn = "Radar"
Case 9
strReturn = "Flight: Wingless"
Case 10
strReturn = "Heightened Sense of Hearing"
Case 11
strReturn = "Mental Stun"
Case 12
strReturn = "Extraordinary Speed"
Case 13
strReturn = "Energy Expulsion: Electricity"
Case 14
strReturn = "Adhesion"
Case 15
strReturn = "Flight: Winged"
Case 16
strReturn = "Healing Factor"
Case 17
strReturn = "Super Vision: X-Ray"
Case 18
strReturn = "Extraordinary Physical Endurance"
Case 19
strReturn = "Energy Expulsion: Energy"
Case 20
strReturn = "Heightened Sense of Smell"
Case 21
strReturn = "Extraordinary Mental Endurance"
Case 22
strReturn = "Impervious to Fire and Heat"
Case 23
strReturn = "Energy Expulsion: Electrical Field"
Case 24
strReturn = "Underwater"
Case 25
strReturn = "Energy Resistance"
Case 26
strReturn = "Heightened Sense of Touch"
Case 27
strReturn = "Super Vision: Ultraviolet and Infrared"
Case 28
strReturn = "Energy Expulsion: Light"
Case 29
strReturn = "Extraordinary Physical Beauty"
Case 30
strReturn = "Extraordinary Physical Prowess"
End Select
GetMinorPower = strReturn
End Function
Function GetMajorPower(varWhichPower)
Dim strReturn
Select Case (varWhichPower)
Case 1
strReturn = "Animal Metamorphosis"
Case 2
strReturn = "Chameleon"
Case 3
strReturn = "Alter Physical Structure: Stone"
Case 4
strReturn = "Control Elemental Force: Water"
Case 5
strReturn = "Invisibility"
Case 6
strReturn = "Energy Absorption"
Case 7
strReturn = "Control Others"
Case 8
strReturn = "Shape Change"
Case 9
strReturn = "Darkness Control"
Case 10
strReturn = "Gravity Manipulation"
Case 11
strReturn = "Alter Physical Structure: Ice"
Case 12
strReturn = "Intangibility"
Case 13
strReturn = "Growth"
Case 14
strReturn = "Create Force Field"
Case 15
strReturn = "Control Elemental Force: Air"
Case 16
strReturn = "Animal Abilities"
Case 17
strReturn = "Sonic Speed"
Case 18
strReturn = "Alter Physical Structure: Fire"
Case 19
strReturn = "Magnetism"
Case 20
strReturn = "Stretching"
Case 21
strReturn = "Invulnerability"
Case 22
strReturn = "Alter Physical Structure: Electricity"
Case 23
strReturn = "Control Elemental Force: Earth"
Case 24
strReturn = "Sonic Flight"
Case 24
strReturn = "Teleport"
Case 25
strReturn = "Alter Physical Structure: Liquid"
Case 26
strReturn = "Disruptive Touch"
Case 27
strReturn = "Alter Physical Structure: Metal"
Case 28
strReturn = "Mechano-Link"
Case 29
strReturn = "Control Elemental Force: Fire"
Case 30
strReturn = "Mimic"
Case 31
strReturn = "Karmic Power"
Case 32
strReturn = "Sonic Power"
Case 33
strReturn = "Vibration"
Case 34
strReturn = "Shrink"
Case 35
strReturn = "Plant Control"
Case 36
strReturn = "Transferal/Possession"
Case 37
strReturn = "Weight Manipulation"
End Select
GetMajorPower = strReturn
End Function
'''''''''''''''''''Cause of Power'''''''''''''''''''''''''
varTemp = (intFName + intMInitial + intLName + 1) mod 5
varCause = "Your Superpowers are derived from "
Select Case (varTemp)
Case 0
'''An Unknown Random Event
varCause = varCause + "an unknown, random event. It's a total mystery, even to you how you got these powers."
Case 1
'''Accidental encounter with
intMInitial = (intMInitial + 1) mod 6
Select Case (intMInitial)
Case 0
'Industrial Waste
varCause = varCause + "an accidental encounter with industrial waste. The sludge changed you somehow."
Case 1
'Chemicals'
varCause = varCause + "an accidental encounter with strange chemicals. The chemical bath altered your physiology."
Case 2
'Radiation'
varCause = varCause + "an accidental encounter with strange radiation. The radiation poured through your body, changing you at the molecular level."
Case 3
'An Alien substance'
varCause = varCause + "an accidental encounter with an alien substance. You thought it was just a meteorite. You were wrong."
Case 4
'Energy'
varCause = varCause + "an accidental encounter with strange energy. It lit you up like a Christmas Tree, and yet you survived, though changed."
Case 5
'An otherdimensional substance'
varCause = varCause + "an accidental encounter with an otherdimensional substance. Your mind could barely comprehend it's otherness, and it altered you somehow."
End Select
Case 2
'''Genetic Aberation'
varCause = varCause + "a genetic aberation within you. You were born a mutant, you'll die a mutant, the next stage of human evolution."
Case 3
'''Radiation triggers latent genetic event'
varCause = varCause + "a burst of radiation which triggered a latent genetic event within you. The subtle altering of your DNA structure has created massive changes."
Case 4
'''Deliberate Experimentation
varCause = varCause + "the deliberate experimentation on your body with "
varTemp2 = (intFName + intLName) mod 3
Select Case(varTemp2)
Case 0
'Chemical
varCause = varCause + "various chemicals "
Case 1
'Radiation
varCause = varCause + "radiation treatments "
Case 2
'Chemicals and Radiation
varCause = varCause + "various chemicals and radiation treatments "
End Select
varCause = varCause + "by "
intMInitial = (intMInitial + 1) mod 5
Select Case (IntMInitial)
Case 0
'Private Industry
varCause = varCause + "a private corporation. "
Case 1
'Medical Research Facility
varCause = varCause + "a medical research facility. "
Case 2
'Military
varCause = varCause + "the military. "
Case 3
'A Secret Organization
varTemp2 = intFName mod 4
varCause = varCause + "a secret "
Select Case (varTemp2)
Case 0
'Medical
varCause = varCause + "medical organization. "
Case 1
'Criminal
varCause = varCause + "criminal organization. "
Case 2
'Crime Fighting
varCause = varCause + "crime-fighting organization. "
Case 3
'Military
varCause = varCause + "military organization. "
End Select
Case 4
'Aliens
varCause = varCause + "aliens. "
End Select
'''results
varTemp2 = intLName mod 4
Select Case (varTemp2)
Case 0
'success/not duplicated
varCause = varCause + "The experiment was completely successfull, but it has never been duplicated. "
Case 1
'accident, superability completely unintentional
varCause = varCause + "The experiment never intended to produce the results it did. Your superabilities were completely unintentional. "
Case 2
'unexpected side effect of experiment
varCause = varCause + "Your superabilities are the unexpected side effect of the experiments. "
Case 3
'experiment to alter or improve the human body. an unknown factor has produced staggering results, cannot be duplicated at this time.
varCause = varCause + "The experiment was intended to alter and improve your body. An unknown factor has produced staggering results, and cannont be duplicated. "
End Select
'''status
varTemp2 = (intMInitial + intLName) mod 7
Select Case (varTemp2)
Case 0
'allowed to leave, good relationship
varCause = varCause + "You currently have an amicable relationship with those that created you. They allowed you to leave without conflict."
Case 1
'power unknown to org
varCause = varCause + "Your powers are unknown to those that created you."
Case 2
'allowed to leave after great conflict
varCause = varCause + "Those that created you fought to keep you, but after a great conflict, you were eventually allowed to leave."
Case 3
'ran away, hunted for further research
varCause = varCause + "You ran away from your creators, and are currently being hunted by them so they can continue their research."
Case 4
'thrown out
varCause = varCause + "You were thrown out. They just couldn't deal with you for some reason."
Case 5
'ran away, hunted by organization for arrest or death
varCause = varCause + "You ran away from your creators, but they are hunting you. They wish you dead for their own reasons and will stop at nothing to acheive it."
Case 6
'currently employted by org
varCause = varCause + "You are currently employed by your creators. They provide you with all the help you need."
End Select
End Select
'''''''''side effects''''''''''''
varTemp = ((intBYear * intBMonth) / intFName) mod 25
varSideEffects = "Becoming a superhuman has changed you in many ways. You suffer from the following side effects. "
If varTemp = 23 then
''pick two
For varCounter = 1 to 2
varTemp2 = ((intBMonth * varCounter * 1000) / intFName) mod 23
varSideEffects = varSideEffects + getSideEffect(varTemp2)
Next
Elseif varTemp = 24 then
''pick three
For varCounter = 1 to 3
varTemp2 = ((intBMonth * (intMInitial + 1) * varCounter * 1000) / intFName) mod 23
varSideEffects = varSideEffects + getSideEffect(varTemp2)
Next
Else
''pick one
varSideEffects = varSideEffects + getSideEffect(varTemp)
End If
''''''''how many superpowers'''''''''''
varTemp = ((intBDay * intBMonth) / (intMInitial + 1)) mod 7
Select Case (varTemp)
Case 0
'1/3
intMajorPowers = 1
intMinorPowers = 3
Case 1
'0/4
intMajorPowers = 0
intMinorPowers = 4
Case 2
'1/1
intMajorPowers = 1
intMinorPowers = 1
Case 3
'1/2
intMajorPowers = 1
intMinorPowers = 2
Case 4
'0/5
intMajorPowers = 0
intMinorPowers = 5
Case 5
'2/0
intMajorPowers = 2
intMinorPowers = 0
Case 6
'2/4
intMajorPowers = 2
intMinorPowers = 4
End Select
If intMajorPowers = 1 then
varTemp = (intBYear * (intMInitial +1)) mod 38
varPowersDescription = "Your major power is " + getMajorPower(varTemp) + ". "
Elseif intMajorPowers > 1 then
varPowersDescription = "Your major powers are "
For varCounter = 1 to intMajorPowers
varTemp = (intBYear * (intMInitial + 1) * varCounter) mod 38
varPowersDescription = varPowersDescription + getMajorPower(varTemp)
If varCounter = intMajorPowers then
varPowersDescription = varPowersDescription + ". "
else
varPowersDescription = varPowersDescription + ", and "
end if
Next
end if
if intMinorPowers = 1 then
varTemp = (intBYear + intBDay) mod 31
varPowersDescription = "Your minor power is " + getMinorPower(varTemp) = ". "
Elseif intMinorPowers > 1 then
varPowersDescription = "Your minor powers are "
For varCounter = 1 to intMinorPowers
varTemp = (intBYear * intBDay * varCounter) mod 31
varPowersDescription = varPowersDescription + getMinorPower(varTemp)
if varCounter = intMinorPowers then
varPowersDescription = varPowersDescription + ". "
else
varPowersDescription = varPowersDescription + ", and "
end if
next
end if
%>
SuperHero Generator 1.0
