Hello, I'm having a problem adding more subroutines to my script file, I've named the file healing.vbs, and I'm just adding to the already supplied examscript.vbs. Here's what I've added -
sub OnWorldOpen
world.note "---------- World Open ------------"
dim anorexia, kalmia, paralysis, stupidity
dim vernalius, clumsiness, sensitivity, pacifism
anorexia = world.GetVariable("VAnorexia")
kalmia = world.GetVariable("VKalmia")
paralysis = world.GetVariable("VParalysis")
stupidity = world.GetVariable("VStupidity")
vernalius = world.GetVariable("VVernalius")
clumsiness = world.GetVariable("VClumsiness")
sensitivity = world.GetVariable("VSensitivity")
pacifism = world.GetVariable("VPacifism")
end sub
' ---------------------------------------------------------
' Heal all sub routine
' ---------------------------------------------------------
sub healing (a,b,c)
if anorexia="0" then
if asthma = "1" then
world.execute "ek"
elseif paralysis = "1" then
world.execute "eb"
elseif stupidity = "1" then
world.execute "eg"
world.execute "eg"
elseif pacifism = "1" then
world.execute "ebe"
elseif clumsiness = "1" then
world.execute "ek"
elseif sensitivity = "1" then
world.execute "ek"
elseif vernalius = "1" then
world.execute "ek"
end if
else
world.execute "aeb"
end if
end sub
' ---------------------------------------------------------
' Sub routines for logging Afflictions
' ---------------------------------------------------------
Sub Asthma (a, b, c)
' You feel a tightening sensation grow in your lungs.
' afflicted by horrible asthma.
' You eat a piece of kelp.
' Your bronchial tubes open up and your asthma is cured.
Asthma = "1"
World.Execute "Healme"
End Sub
Sub Asthma_cure ()
Asthma = "0"
World.Execute "Healme"
End Sub
Sub Clumsiness (a, b, c)
' You gasp as your fine-tuned reflexes disappear into a haze of confusion.
' afflicted with clumsiness.
' You eat a piece of kelp.
' Thank Sarapis, the Logos! Your clumsiness has been cured.
Clumsiness = "1"
World.Execute "Healme"
End Sub
Sub Clumsiness_cure (a, b, c)
Clumsiness = "0"
World.Execute "Healme"
End Sub
Sub Pacifism (a, b, c)
' Your will to harm anything leaves you.
' pacified.
' You eat a bellwort flower.
' The unnatural feeling of peace leaves you.
Pacifism = "1"
World.Execute "Healme"
End Sub
Sub Paralysis (a, b, c)
' A prickly st*nging overcome* your body, fading away*into numbness.
' paralysed.
' You eat a bloodroot leaf.
' Your muscles unlock; you are no longer paralysed.
Paralysis = "1"
World.Execute "Healme"
End Sub
Sub Paralysis_cure (a, b, c)
Paralysis = "0"
World.Execute "Healme"
End Sub
Sub Sensititivy_cure (a, b, c)
Sensitivity = "0"
World.Execute "Healme"
End Sub
Sub Sensitivity (a, b, c)
' A prickly, stinging sensation spreads through your body.
' sensitive to pain.
' You eat a piece of kelp.
' The stinging feeling fades.
Sensitivity = "1"
World.Execute "Healme"
End Sub
Sub Stupidity (a, b, c)
' Hmmmm. Why must everything be so difficult to figure out?
' You eat a goldenseal root.
' You aren't such a complete idiot anymore.
' unnaturally stupid.
Stupidity = "1"
World.Execute "Healme"
End Sub
Sub Stupidity_cure (a, b, c)
Stupidity = "0"
World.Execute "Healme"
End Sub
Sub Vernalius (a, b, c)
' Your limbs grow heavy and you groan feebly.
' wearied in body.
' You eat a piece of kelp.
' Your limbs strengthen and you feel stronger.
Vernalius = "1"
World.Execute "Healme"
End Sub
Sub Vernalius_cure (a, b, c)
Vernalius = "0"
World.Execute "Healme"
End Sub
It.. just simply won't let me add anymore, heh. Is this a memory problem? |