Some Afflication Scripts

Achaea MUD ZMUD script for curing or detecting various afflictions.

#CLASS {Triggers|tAfflictions}
#ALIAS _AfflictionAdd {
;_AfflictionAdd  AfflicationName (From dB)
;_AddAction Punch "Pram|Pram|Pram"  "Priority" "Repeat" "%iskey( @RoomObjects, gnoll1234)"  "EQ/Balance/Exlir"
#PRIORITY {
#VAR AfflictionAdd %dbget(  %find( %1, All|af)) _nodef tAfflictions
#IF (not %null(  @AfflictionAdd)) {#IF (%db( @AfflictionAdd.Num, Suffering)=0) {
#VAR Cure %dbget( @AfflictionAdd.Cure1) _nodef tAfflictions
#EXEC _Debug {_AfflictionAdd: Adding %1}
#DBPUT  @AfflictionAdd.Num Suffering=1
#DBLOAD Actions
#VIEW ToDo
#EXEC _ActionAdd @Cure.Action @Cure.Object  @AfflictionAdd.Priority Once "" @Cure.Type
} {#EXEC _Debug  {_AfflictionAdd: You Already Have %1}}} {#EXEC _Debug {_AfflictionAdd:  Affliction %1 not found}}
}
}
#ALIAS _AfflictionCure {
;_AfflicationCure  AfflicationName (From dB)
#PRIORITY {
#VAR AfflictionCure  %find( %1, All|af) _nodef tAfflictions
#IF (not %null(  @AfflictionCure)) {
#DBPUT @AfflictionCure Suffering=0
#DBLOAD Actions
#DBFIRST
#VIEW ToDo
#DBFIRST
} {#EXEC _Debug {_AddAffliction: Afflication %1 not found}}
}
}
#ALIAS _AfflictionCureAll {
#DBLOAD Afflications
#DBFIRST
#VIEW Current
#DBFIRST
#WHILE (not %null( %rec))  {#DBPUT %Num Suffering=0}
#DBLOAD Actions
#DBFIRST
#VIEW  ToDo
#DBFIRST
}
#VAR AfflictionAdd  {Num12afNameTangledCure13cuCure2Cure3Priority6Suffering1}
#VAR  Cure {Num3cuNameWritheActionWritheObjectTypeBalanceCost0}
#VAR  AfflictionCure {12af}
#VAR sDiagnose {blind.Blindafflicted by thin  blood.HaemophiliaYou are in perfect health.CureAll}
#TRIGGER  {^You are confused as to the effects of the venom.$} {_AddCommand  {_ActionAdd Diagnose}}
#ONINPUT "TrigDiagnose" {^diagnose$} {
#ADDKEY Mud ResetTrigger TrigDiagnose
#T+ TrigNewPrompt
}
#COND  {^You are:$} {}
#COND {(*.)} {
#IF (%iskey( @sDiagnose, %1)) {
#IF (%db( @sDiagnose, %1) = CureAll) {#EXEC _AfflictionCureAll} {
_Debug %db( @sDiagnose, %1)
#EXEC _AfflictionAdd %db(  @sDiagnose, %1)
}
}
} {looplines|param=20}
#CLASS  0
#CLASS {Triggers|tAfflictions|Fallen}
#TRIGGER {^You must be  standing first.$} {
#NODIR
#EXEC _SendCommandOnPrompt stand
}
#TRIGGER {^You must not be prone or restricted if you wish to  meditate.$} {#EXEC _SendCommandOnPrompt stand}
#CLASS 0
#CLASS  {Triggers|tAfflictions|BrokenLimb}
#TRIGGER {^A spearhead shark opens  its deadly mouth and clamps onto your leg, breaking the bone and  gushing blood into the surrounding water.$} {
#COLOR bright,red
#EXEC _SendCommandOnPrompt clot
#EXEC _AfflictionAdd BrokenLeftLeg
}
#TRIGGER {^Both of your legs are shriveled and thus you cannot  carry out that action.$} {
#EXEC _AfflictionAdd BrokenLeftLeg
#EXEC _AfflictionAdd BrokenRightLeg
}
#TRIGGER {^You slowly  hobble %w.$} {#EXEC _AfflictionAdd BrokenLeftLeg}
#TRIGGER {^The  bones in your right leg mend.$} {#EXEC _AfflictionCure BrokenLeftLeg}
#TRIGGER  {^The bones in your left leg mend.$} {#EXEC _AfflictionCure  BrokenLeftLeg}
#TRIGGER {^A sudden pain shoots through both your arms  and you feel their bones crumble.$} {
#EXEC _AfflictionAdd  BrokenRightArm
#EXEC _AfflictionAdd BrokenLeftArm
}
#TRIGGER  {^As all four of your limbs break, pain overwhelms you and you wonder  what you've} {
#EXEC _AfflictionAdd BrokenLeftLeg
#EXEC  _AfflictionAdd BrokenRightLeg
#EXEC _AfflictionAdd BrokenRightArm
#EXEC _AfflictionAdd BrokenLeftArm
}
#TRIGGER {^Hrorknar, the  Gnoll smith turns to you quickly and crushes your arm with his forging  hammer.$} {#EXEC _AfflictionAdd BrokenRightArm}
#TRIGGER {^Your left  arm is too severely damaged to permit that.$} {#EXEC _AfflictionAdd  BrokenLeftArm}
#TRIGGER {^The bones in your left arm mend.$} {#EXEC  _AfflictionCure BrokenLeftArm}
#TRIGGER {^The bones in your right arm  mend.$} {#EXEC _AfflictionCure BrokenRightArm}
#TRIGGER {^You smash  hard into the sharp rocks at the base of the cliff with a sickening  crunch.$} {#EXEC _AfflictionAdd BrokenLeftLeg}
#CLASS 0
#CLASS  {Triggers|tAfflictions|WitheredLimb}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Blind}
#TRIGGER {^You are blind and can see  nothing but darkness.$} {#STEP}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Tangeled}
#TRIGGER {^Sticky strands of webbing  cling to you, making that impossible.$} {
#COLOR bright,red
#EXEC _AfflictionAdd Tangled
}
#TRIGGER {^A mass of sticky  tendrils streak out from a marsh ooze, wrapping you in a cocoon of  slime.$} {
#COLOR bright,red
#EXEC _AfflictionAdd Tangled
}
#TRIGGER {^Sticky strands of webbing spray out from %w to cover  you.$} {
#COLOR bright,red
#EXEC _AfflictionAdd Tangled
}
#TRIGGER  {^You have writhed free of your entanglement by webs.$} {#EXEC  _AfflictionCure Tangled}
#TRIGGER {^You begin to writhe helplessly,  throwing your body off balance.$} {#EXEC _AfflictionCure Tangled}
#TRIGGER  {^A %w pulsating spider sprays you with a sticky webbing, which quickly  entangles your limbs.} {
#COLOR bright,red
#EXEC  _AfflictionAdd Tangled
}
#TRIGGER {spider sprays you with a  sticky webbing, which quickly entangles your limbs.$} {
#COLOR  bright,red
#EXEC _AfflictionAdd Tangled
}
#TRIGGER {^A %w  vampire spider circles you as she sprays sticky strands of spider silk  to entangle you.$} {
#COLOR bright,red
#EXEC _AfflictionAdd  Tangled
}
#CLASS 0
#CLASS {Triggers|tAfflictions|Fear}
#TRIGGER  {^You rush about in a state of utter panic.$} {#EXEC _AfflictionAdd  Fear}
#TRIGGER {^There is nothing to fear but fear itself.$} {#EXEC  _AfflictionCure Fear}
#TRIGGER {^You have not lost your composure.$}  {#EXEC _AfflictionCure Fear}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Paralysis}
#TRIGGER {^The basilisk turns its  infamous gaze to you and suddenly your body refuses to respond to your  commands.$} {#EXEC _AfflictionAdd Paralysis}
#TRIGGER {^You are  paralysed and cannot do that.$} {#EXEC _AfflictionAdd Paralysis}
#TRIGGER  {^Your muscles unlock; you are no longer paralysed.$} {#EXEC  _AfflictionCure Paralysis}
#TRIGGER {^Frustratingly, your body won't  respond to your call to action.$} {#EXEC _AfflictionAdd Paralysis}
#CLASS  0
#CLASS {Triggers|tAfflictions|Bleeding}
#TRIGGER {Twisting to  the side as it approaches, the shark sinks its teeth into your torso,  piercing double rows of puncture wounds in your flesh.$} {#EXEC  _ActionAdd Clot}
#TRIGGER {^As fast as a lightning strike, a  man-eating shark tears into your side with razor teeth.$} {#EXEC  _ActionAdd Clot}
#TRIGGER {^With a rush of water and a sudden flash  of teeth, a man-eating shark bites you viciously.$} {#EXEC _ActionAdd  Clot}
#TRIGGER {^Grumbling, a grizzly bear bares its teeth and  slashes you with a broad-clawed paw.$} {#EXEC _ActionAdd Clot}
#TRIGGER  {^A goblin miner slashes you viciously.$} {#EXEC _ActionAdd Clot}
#TRIGGER  {^A man-eating shark batters you with an overhead blow$} {#EXEC  _ActionAdd Clot}
#TRIGGER {^A goblin guard stabs you in the abdomen,  gouging and ripping at your intestines.$} {#EXEC _ActionAdd Clot}
#CLASS  0
#CLASS {Triggers|tAfflictions|Drowning}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Stupidity}
#TRIGGER {^Hmmmm. Why must  everything be so difficult to figure out?$} {#EXEC _AfflictionAdd  Stupidity}
#TRIGGER {^You aren't such a complete idiot anymore.$}  {#EXEC _AfflictionCure Stupidity}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Reckless}
#TRIGGER {^Prudence rules your  psyche once again.$} {#EXEC _AfflictionCure Recklessness}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Weariness}
#TRIGGER {^Your limbs strengthen  and you feel stronger.$} {_AffictionCure asa}
#CLASS 0
#CLASS  {Triggers|tAfflictions|Drunk}
#TRIGGER {^You fumble about  drunkenly.$} {
#COLOR bright,red
#SEND @Mud.CommandLast
}
#CLASS  0
#CLASS {Triggers|tAfflictions|Confusion}
#TRIGGER {^You are  confused as to the effects of the poison.$} {#EXEC _AfflictionAdd  Confusion}
#CLASS 0