illusions.lic

# Vim ruby syntax highlighting, plz
=begin
Illusions script I must have found on the forums at some point...
  References:
  2006: http://forum.gsplayers.com/archive/index.php/t-22052.html
  2012: http://forum.gsplayers.com/archive/index.php/t-72084.html

No idea who the original author is, but it has been ported to lich and significantly debugged by me.

It can do all the illusion tasks (audience, learn, speed, teach) for all the illusions (rose through demon)...when it doesn't fail

However, it's a bit of a three-legged rocking horse.  Please report bugs: DAID@PLAY.NET

USAGE: ;illusions

    author: Kaldonis
    name: illusions
    tags: sorcerer, illusions
    version: 2.19
=end

=begin
	ChangeLog:
	2.14: fixes a bug with shadow speed that tried to drop the shadow rather than item
	2.15: label issue in shadow speed
	2.16: general label issue with initial processing that affect some machines (thanks Hammibal!)
	2.17: more label fixing
	2.18: another odd hack for Hammibal on SAud

=end

echo "Starting #{$lich_char}#{script.name} ..."

show_help = proc {
	output = "\n"
	output.concat "   Usage: #{$lich_char}#{script.name} <task> <illusion> [<person>] [<item>] [<demon>]\n"
	output.concat "  \n"
	output.concat "   options:\n"
	output.concat "  \n"
	output.concat "      task: learn, audience, speed, teach.  Required.\n"
	output.concat "  \n"
	output.concat "      illusion: rose, vortex, maelstrom, void, shadow, demon.  Required.\n"
	output.concat "  \n"
	output.concat "      person: name of a character.  Required for TEACHing.\n"
	output.concat "  \n"
	output.concat "      item: an item noun.  Required for SHADOW work.\n"
	output.concat "  \n"
	output.concat "      demon: the noun of your demon: fog, verlok, aishan, etc.  Required for DEMON work.\n"
	output.concat "  \n"
	output.concat "  \n"
	respond output
}

if script.vars.empty? or script.vars[0].strip =~ /^help$/i
	show_help.call
	exit
elsif script.vars[1] =~ /^speed$/i and script.vars[2] =~ /^demon$/i
	if script.vars[3] == nil
		echo "No demon noun given!"
		show_help.call
		exit
	end
	goto "DSpeed"
elsif script.vars[1] =~ /^speed$/i and script.vars[2] =~ /^shadow$/i
	if script.vars[3] == nil
		echo "No shadow item given!"
		show_help.call
		exit
	end
	goto "SSpeed"
elsif script.vars[1] =~ /^speed$/i and script.vars[2] =~ /^rose$|^vortex$|^maelstrom$|^void$/i
	goto "Speed"
elsif script.vars[1] =~ /^learn$/i and script.vars[2] =~ /^demon$/i
	if script.vars[3] == nil
		echo "No demon noun given!"
		show_help.call
		exit
	end
	goto "DLearn"
elsif script.vars[1] =~ /^learn$/i and script.vars[2] =~ /^shadow$/i
	goto "SLearn"
elsif script.vars[1] =~ /^learn$/i and script.vars[2] =~ /^rose$|^vortex$|^maelstrom$|^void$/i
	goto "Learn"
elsif script.vars[1] =~ /^audience$/i and script.vars[2] =~ /^demon$/i
	if script.vars[3] == nil
		echo "No demon noun given!"
		show_help.call
		exit
	end
	goto "DAud"
elsif script.vars[1] =~ /^audience$/i and script.vars[2] =~ /^shadow$/i
	if script.vars[3] == nil
		echo "No shadow item given!"
		show_help.call
		exit
	end
	goto "SAud"
elsif script.vars[1] =~ /^audience$/i and script.vars[2] =~ /^rose$|^vortex$|^maelstrom$|^void$/i
	goto "Audience"
elsif script.vars[1] =~ /^teach$/i
	goto "Teach"
else
	echo "Syntax error!"
	show_help.call
	exit
end

echo "Unexpected error!"

Audience:
match "WaitAud", "...wait"
match "WaitAud", "Sorry, you may only"
match "FailAud", "but suddenly the mana seeps away"
match "FailAud", "the illusion begins to break apart and disperses into inky black lines that slither away"
match "FailAud", "the mana seeps away"
match "FailAud", "you notice a flaw begin to form"
match "FailAud", "it wavers on your fingertips,"
match "FailAud", "and when nothing remarkable happens"
match "FailAud", "nothing comes of it"
match "FailAud", "your concentration slips"
match "FailAud", "towards this point. However,"
match "FailAud", "ripping sound echoes out from your palm"
match "MoreReps", "remaining.]"
match "Done", "training task.]"
match "DropAud", "you need a free hand"
fput "Illusion #{script.vars[2]}"
matchwait

WaitAud:
pause
goto "Audience"

FailAud:
goto "Audience"

MoreReps:
pause 30
goto "Audience"

DropAud:
match "AudCheck", "essence rose in your"
match "AudCheck", "colorless vortex in your"
match "TempAudCheck", "blue tempest in your"
match "AudCheck", "black void in your"
match "EmptyAud", "empty hands."
fput "inven"
matchwait

AudCheck:
fput "eat my #{script.vars[2]}"
fput "eat my #{script.vars[2]}"
goto "Audience"

TempAudCheck:
fput "eat my tempest"
fput "eat my tempest"
goto "Audience"

EmptyAud:
goto "Audience"

Done:
exit

######

Learn:
match "Lesson", "subtleties of creating the illusion"
match "Lesson", "nuances of creating the illusion"
match "Lesson", "making sure you are watching"
match "Lesson", "as you watch"
matchwait

Lesson:
match "LearnDone", "task.]"
match "LessonWait", "Sorry, you may only"
match "LessonWait", "...wait"
match "Lesson", "Roundtime: 25"
match "Lesson", "Roundtime: 24"
match "Lesson", "Roundtime: 23"
match "Lesson", "Roundtime: 22"
match "Lesson", "Roundtime: 21"
match "Lesson", "Roundtime: 20"
match "Lesson", "Roundtime: 19"
match "Lesson", "Roundtime: 18"
match "Lesson", "Roundtime: 17"
match "Lesson", "Roundtime: 16"
match "Lesson", "Roundtime: 15"
match "Lesson", "Roundtime: 14"
match "Lesson", "Roundtime: 13"
match "Lesson", "Roundtime: 12"
match "LessonNeedTeach", "you need to have someone"
match "LearnRepTempest", "storm balanced at your"
match "LearnFail", "but suddenly the mana seeps away"
match "LearnFail", "the illusion begins to break apart and disperses into inky black lines that slither away"
match "LearnFail", "the mana seeps away"
match "LearnFail", "you notice a flaw begin"
match "LearnFail", "it wavers on your fingertips"
match "LearnFail", "and when nothing remarkable happens"
match "LearnFail", "ripping sound echoes out from your palm"
match "LearnFail", "towards this point. However,"
match "LearnEmpty", "you need a free hand"
fput "illusion #{script.vars[2]}"
matchwait

LessonWait:
pause 1
goto "Lesson"

LessonNeedTeach:
match "Lesson", "subtleties of creating the illusion"
match "Lesson", "as you watch"
match "Lesson", "making sure you are watching"
matchwait

LearnRepTempest:
fput "eat my tempest"
match "LEatTemp", "its form and dissipates"
match "Lesson", "subtleties of creating the illusion"
match "Lesson", "as you watch"
match "LEatTempWait", "...wait"
matchwait

LEatWait:
pause 0.5
fput "eat my #{script.vars[2]}"
goto "Lesson"

LEatTemp:
goto "Lesson"

LEatTempWait:
pause 0.5
fput "eat my tempest"
goto "Lesson"

LearnFail:
goto "Lesson"

LearnEmpty:
fput "inven"
match "LDrop", "essence rose in"
match "LDrop", "colorless vortex in"
match "LDropTemp", "blue tempest in"
match "LDrop", "black void in your"
match "LEmpty", "empty hands"
matchwait

LDrop:
fput "eat my #{script.vars[2]}"
match "Lesson", "you carefully place the black"
match "Lesson", "its form and dissipates"
match "Lesson", "your black void collapses"
match "Lesson", "subtleties of creating the illusion"
match "Lesson", "making sure you are watching"
match "Lesson", "as you watch"
matchwait


#fput "eat my #{script.vars[2]}"
#match "LEatRoseCheck", "you carefully place the black"
#match "LEatVortCheck", "its form and dissipates"
#match "LEatVoidCheck", "your black void collapses"
#match "Lesson", "subtleties of creating the illusion"
#match "Lesson", "making sure you are watching"
#match "Lesson", "as you watch"
#matchwait


# this is not linked -- see above for how it should look
LEatTempCheck:
goto "Lesson"

LDropTemp:
fput "eat my tempest"
match "Lesson", "its form and dissipates"
match "Lesson", "subtleties of creating the illusion"
match "Lesson", "As you watch"
match "LDropTempWait", "...wait"
matchwait

LDropTempWait:
pause
goto "LDropTemp"

LEmpty:
goto "Lesson"

LearnDone:
exit

#######

HelpLearn:
match "LessonHelp", "Making sure you are watching"
match "LessonHelp", "subtleties of creating the illusion"
match "LessonHelp", "as you watch"
matchwait

LessonHelp:
fput "illusion #{script.vars[2]}"
match "LessonHelp", "Roundtime: 25"
match "LessonHelp", "Roundtime: 24"
match "LessonHelp", "Roundtime: 23"
match "LessonHelp", "Roundtime: 22"
match "LessonHelp", "Roundtime: 21"
match "LessonHelp", "Roundtime: 20"
match "LessonHelp", "Roundtime: 19"
match "LessonHelp", "Roundtime: 18"
match "LessonHelp", "Roundtime: 17"
match "LessonHelp", "Roundtime: 16"
match "LessonHelp", "Roundtime: 15"
match "LessonHelp", "Roundtime: 14"
match "LessonHelp", "Roundtime: 13"
match "LessonHelp", "Roundtime: 12"
match "LessonHelp", "subtleties of creating the illusion"
match "LearnHelpRep", "essence rose lies across your"
match "LearnHelpRep", "you bend the flows of mana and essence"
match "LearnHelpRepTemp", "storm balanced at your"
match "LearnHelpWait", "Sorry, you may only"
match "LearnHelpWait", "...wait"
match "LearnHelpFail", "but suddenly the mana seeps away"
match "LearnHelpFail", "the mana seeps away"
match "LearnHelpFail", "you notice a flaw begin"
match "LearnHelpFail", "it wavers on your fingertips"
match "LearnHelpFail", "and when nothing remarkable happens"
match "LearnHelpFail", "nothing comes of it"
match "LearnHelpFail", "your concentration slips"
match "LearnHelpFail", "ripping sound echoes out from your palm"
match "LearnHelpFail", "towards this point. However,"
match "LearnHelpEmpty", "you need a free hand"
matchwait

LearnHelpRep:
fput "eat my #{script.vars[2]}"
match "HelpLearn", "you carefully place the black"
match "HelpLearn", "its form and dissipates"
match "HelpLearn", "your black void collapses"
match "LessonHelp", "subtleties of creating the illusion"
match "LessonHelp", "making sure you are watching"
match "LessonHelp", "as you watch"
match "LHEatWait", "...wait"
matchwait

LearnHelpRepTemp:
fput "eat my tempest"
match "LHEatTemp", "its form and dissipates"
match "LessonHelp", "subtleties of creating the illusion"
match "LessonHelp", "as you watch"
match "LHEatTempWait", "...wait"
matchwait

LHEatWait:
pause 1
fput "eat my #{script.vars[2]}"
goto "LessonHelp"

LHEatTempWait:
pause 1
fput "eat my tempest"
goto "LessonHelp"

LHeatTemp:
goto "HelpLearn"

LearnHelpWait:
pause 1
goto "LessonHelp"

LearnHelpFail:
goto "LessonHelp"

LearnHelpEmpty:
fput "inven"
match "LHDrop", "essence rose in"
match "LHDrop", "colorless vortex in"
match "LHDropTemp", "blue tempest in"
match "LHDrop", "black void in your"
match "LHEmpty", "empty hands"
matchwait

LHDrop:
fput "eat my #{script.vars[2]}"
match "LessonHelp", "you carefully place the black"
match "LessonHelp", "its form and dissipates"
match "LessonHelp", "your black void collapses"
match "LessonHelp", "subtleties of creating the illusion"
match "LessonHelp", "as you watch"
match "LHDropWait", "...wait"
matchwait

LHDropWait:
pause 1
goto "LearnHelpEmpty"

LHDropTemp:
fput "hands my tempest"
match "LessonHelp", "its form and dissipates"
match "LessonHelp", "subtleties of creating the illusion"
match "LessonHelp", "as you watch"
match "LHDropWait", "...wait"
matchwait

LHEmpty:
goto "LessonHelp"

#####

Teach:
match "TeachDone", "task.]"
match "TeachDone", "completed your training"
match "TeachAgain", "repetitions remaining.]"
match "TeachLast", "repetition remaining.]"
match "TeachWait", "you are already teaching"
match "TeachWait", "...wait"
match "TeachWait", "Sorry, you may only"
match "Teach", "and appears to be concentrating."
match "HTeachCheckShad", "begins to split into two pieces, one returning"
match "HTeachCheck", "essence rose lies across"
match "HTeachCheck", "dust takes the form of a swirling"
match "HTeachCheck", "as it hovers balanced above"
match "HTeachCheck", "echoes out from his palm"
match "HTeachCheck", "echoes out from her palm"
match "HTeachAlready", "you are already teaching"
fput "Illusion teach #{script.vars[3]} #{script.vars[2]}"
matchwait

TeachAgain:
goto "Teach"

TeachLast:
ECHO Teach Last (1)
fput "Illusion teach #{script.vars[3]} #{script.vars[2]}"
waitfor you slowly begin to
exit

TeachWait:
pause 2
goto "Teach"

TeachDone:
exit

TeachWait:
pause 0.25
goto "Teach"

HTeachCheck:
match "TeachDone", "completed your training"
match "Teach", "black essence rose in"
match "Teach", "colorless vortex in"
match "Teach", "blue tempest in"
match "Teach", "black void in"
match "TeachEmpty", "is wearing"
fput "look at #{script.vars[3]}"
matchwait

HTeachCheckShad:
goto "Teach"

TeachEmpty:
pause 2
goto "Teach"

HTeachAlready:
pause 3
goto "Teach"

#####

Speed:
fput "Illusion #{script.vars[2]}"
match "Donespeed", "completed your training"
match "FailSpeed", "you notice a flaw begin to form"
match "FailSpeed", "and the illusion fails"
match "FailSpeed", "but suddenly the mana seeps away"
match "FailSpeed", "the mana seeps away"
match "FailSpeed", "the illusion begins to break apart and disperses into inky black lines that slither away"
match "FailSpeed", "it wavers on your fingertips,"
match "FailSpeed", "and when nothing remarkable happens"
match "FailSpeed", "nothing comes of it"
match "FailSpeed", "your concentration slips"
match "FailSpeed", "ripping sound echoes out from your palm"
match "FailSpeed", "towards this point. However,"
match "WaitSpeed", "wait"
match "WaitSpeed", "you may only type"
match "DoneRep", "remaining.]"
match "DoneRep", "seconds.]"
match "DoneRep", "You need a free hand"
matchwait

DoneRep:
fput "inven"
match "SpCheck", "essence rose in"
match "SpCheck", "colorless vortex in"
match "TempSpCheck", "blue tempest in"
match "SpCheck", "black void in your"
match "EmptySpeed", "empty hands."
matchwait

SpCheck:
fput "eat my #{script.vars[2]}"
goto "Speed"

TempSpCheck:
fput "eat my tempest"
goto "Speed"

EmptySpeed:
goto "Speed"

DoneSpeed:
exit

FailSpeed:
goto "Speed"

WaitSpeed:
pause 1
goto "Speed"


###### Shadows ######


SAud:
fput "drop my #{script.vars[3]}"
goto "AudShadowStart" # this looks idiotic but some architectures quit here without it

AudShadowStart:
match "AudShadWait", "...wait"
match "AudShadWait", "Sorry, you may only"
match "AudShadDone", "training task.]"
match "AudShadFail", "once again visible."
match "AudShadFail", "but instead begins to waver and fades from view"
match "MoreAudShad", "something goes wrong and your magic dissipates."
match "MoreAudShad", "remaining.]"
fput "Illusion shadow #{script.vars[3]}"
matchwait

AudShadWait:
pause 0.35
goto "AudShadowStart"

AudShadFail:
goto "AudShadowStart"

MoreAudShad:
pause 30
match "DisShadWait", "...wait"
match "DisShad", "your hand, the errant shadow"
match "DisShad", "I could not find"
match "MissShad", "which sizzles for a few"
fput "illusion shadow shadow"
matchwait

DisShadWait:
pause 0.5
goto "MoreAudShad"

DisShad:
goto "AudShadowStart"

MissShad:
pause 0.5
match "MissWait", "...wait"
match "MoreAudShad", "I could not find"
match "DisShad2", "your hand, the errant shadow"
match "MisShad2", "which sizzles for a few"
fput "illusion shadow second shadow"
matchwait

MissWait:
pause 0.5
goto "MissShad"

DisShad2:
goto "AudShadowStart"

MisShad2:
pause 0.5
match "MissWait2", "...wait"
match "MissShad", "I could not find"
match "DisShad3", "your hand, the errant shadow"
match "MisShad3", "which sizzles for a few"
fput "illusion shadow third shadow"
matchwait

MissWait2:
pause 0.5
goto "MisShad2"

DisShad3:
goto "AudShadowStart"

MisShad3:
fput "illusion shadow shadow"
goto "AudShadowStart"

AudShadDone:
match "FinishWait", "...wait"
match "DisAudFinal", "your hand, the errant shadow"
fput "get #{script.vars[3]}"
fput "illusion shadow shadow"
matchwait

FinishWait:
pause 0.35
goto "AudShadDone"

DisAudFinal:
exit

########

SSpeed:
fput "drop my #{script.vars[3]}"
goto "SpeedShadow"

SpeedShadow:
fput "Illusion shadow #{script.vars[3]}"
match "DoneShadSpeed", "completed your training"
match "SpeedShadFail", "once again visible"
match "SpeedShadFail", "but instead begins to waver and fades from view"
match "SpeedShadow", "something goes wrong and your magic dissipates."
match "DoneShadRep", "seconds.]"
match "WaitShadSpeed", "...wait"
match "WaitShadSpeed", "you may only type"
match "DoneShadRep", "remaining.]"
matchwait

DoneShadSpeed:
fput "get #{script.vars[3]} from #{script.vars[2]}"
fput "illusion shadow shadow"
exit

SpeedShadFail:
goto "SpeedShadow"

WaitShadSpeed:
pause 0.5
goto "SpeedShadow"

DoneShadRep:
fput "illusion shadow shadow"
match "DisShadSpWait", "...wait"
match "DisShadSp", "I could not find"
match "DisShadSp", "your hand, the errant shadow"
match "MissShadSp", "which sizzles for a few"
matchwait

DisShadSpWait:
pause 0.5
goto "DoneShadRep"

DisShadSp:
goto "SpeedShadow"

MissShadSp:
pause 0.5
fput "illusion shadow second shadow"
match "MissWaitSp", "...wait"
match "MoreShadSpeed", "I could not find"
match "DisShad2Sp", "your hand, the errant shadow"
match "MisShad2Sp", "which sizzles for a few"
matchwait

MissWaitSp:
pause 0.5
goto "MissShadSp"

DisShad2Sp:
goto "SpeedShadow"

MisShad2Sp:
pause 0.5
fput "illusion shadow third shadow"
match "MissWait2Sp", "...wait"
match "MissShadSp", "I could not find"
match "DisShad3Sp", "your hand, the errn subtleties of creating"
match "Lesson", "making sure you are watching"
matchwait

SLearn:
fput "drop my #{script.vars[3]}"
goto "LearnShadowStart"

LearnShadowStart:
fput "Illusion shadow #{script.vars[3]}"
match "LearnShadDone", "task.]"
match "LearnShadWait", "...wait"
match "LearnShadWait", "Sorry, you may only"
match "LearnShadNeedTeach", "you need to have someone"
match "LearnShadNext", "Roundtime: 25"
match "LearnShadNext", "Roundtime: 24"
match "LearnShadNext", "Roundtime: 23"
match "LearnShadNext", "Roundtime: 22"
match "LearnShadNext", "Roundtime: 21"
match "LearnShadNext", "Roundtime: 20"
match "LearnShadNext", "Roundtime: 19"
match "LearnShadNext", "Roundtime: 18"
match "LearnShadNext", "Roundtime: 17"
match "LearnShadNext", "Roundtime: 16"
match "LearnShadNext", "Roundtime: 15"
match "LearnShadNext", "Roundtime: 14"
match "LearnShadNext", "Roundtime: 13"
match "LearnShadNext", "Roundtime: 12"
match "LearnShadFail", "is once again visible"
match "LearnShadFail", "but instead begins to waver and fades from view"
match "LearnShadNext", "something goes wrong and your magic dissipates."
matchwait

LearnShadDone:
fput "illusion shadow shadow"
fput "get #{script.vars[3]}"
exit

LearnShadWait:
pause 0.35
goto "LearnShadowStart"

LearnShadNeedTeach:
waitfor lecture you on the fine art of shadow
goto "LearnShadowStart"

LearnShadFail:
goto "LearnShadowStart"

LearnShadNext:
fput "Illusion shadow shadow"
match "LDisShadWait", "...wait"
match "LDisShadYes", "your hand, the errant shadow"
match "LDisShadNo", "which sizzles for a few"
match "LDisNotThere", "I could not find"
matchwait

LDisShadWait:
pause 0.35
goto "LearnShadNext"

LDisShadYes:
goto "LearnShadowStart"

LDisShadNo:
goto "LDisShad2"

LDisNotThere:
goto "LearnShadowStart"

LDisShad2:
fput "Illusion shadow second shadow"
match "LDisShad2Wait", "...wait"
match "LDisShad2Yes", "your hand, the errant shadow"
match "LDisShad2No", "which sizzles for a few"
match "LDisShad2NotThere", "I could not find"
matchwait

LDisShad2Wait:
pause 0.35
goto "LDisShad2"

LDisShad2Yes:
goto "LearnShadowStart"

LDisShad2No:
goto "LDisShad3"

LDisShad2NotThere:
goto "LearnShadNext"

LDisShad3:
fput "Illusion shadow third shadow"
match "LDisShad3Wait", "...wait"
match "LDisShad3Yes", "your hand, the errant shadow"
match "LDisShad3No", "which sizzles for a few"
match "LDisShad3NotThere", "I could not find"
matchwait

LDisShad3Wait:
pause 0.35
goto "LDisShad3"

LDisShad3Yes:
goto "LearnShadowStart"

LDisShad3No:
goto "LearnShadNext"

LDisShad3NotThere:
goto "LearnShadNext"

DAud:
DemonAud:
match "DAudDone", "task.]"
match "DAudMore", "remaining.]"
match "DAudWait", "...wait"
match "DAudWait", "Sorry, you may only"
fput "Illusion demon #{script.vars[3]}"
matchwait

DAudDone:
match "DAudFinalDispel", "stops interfering with"
match "DAudFinalDispel", "cause the illusion surrounding it to be revealed"
match "DAudFinalWait", "...wait"
fput "tell mdem inter"
fput "tell mdem inter"
matchwait

DAudFinalDispel:
exit

DAudFinalWait:
pause 0.35
goto "DAudDone"

DAudMore:
pause 30
match "DAudDispel", "stops interfering with"
match "DAudDispel", "cause the illusion surrounding it to be revealed"
match "DAudDispelWait", "...wait"
fput "tell mdem inter"
fput "tell mdem inter"
matchwait

DAudDispel:
goto "DAud"

DAudDispelWait:
pause 0.35
#fput "tell mdem inter"
fput "tell mdem inter"
goto "DAud"

DAudWait:
pause 0.35
goto "DAud"


###Demon Speed Reps###

DSpeed:
fput "Illusion Demon #{script.vars[3]}"
match "DSpeedWait", "...wait"
match "DSpeedWait", "Sorry, you may only"
match "DSpeedMore", "remaining.]"
match "DSpeedMore", "seconds.]"
match "DSpeedDone", "task.]"
match "DSpeedNotThere", "I could not find"
matchwait

DSpeedWait:
pause 0.35
goto "DSpeed"

DSpeedMore:
waitrt?
fput "tell mdem inter"
fput "tell mdem inter"
match "DSpeedDispelYes", "actions cause the illusion surrounding it to be revealed"
match "DSpeedDispelYes", "stops interfering with"
match "DSpeedDispelNo", "I could not find"
match "DSpeedDispelWait", "...wait"
matchwait

DSpeedDispelYes:
goto "DSpeed"

DSpeedDispelNo:
goto "DSpeed"

DSpeedDispelWait:
pause 0.25
goto "DSpeedMore"

DSpeedDone:
fput "tell mdem inter"
fput "tell mdem inter"
match "DSpeedFinalDispel", "stops interfering with"
match "DSpeedFinalWait", "...wait"
matchwait

DSpeedFinalDispel:
exit

DSpeedFinalWait:
pause 0.25
goto "DSpeedDone"

DSpeedNotThere:
goto "DSpeedMore"


###Demon Learn Reps###

DLearn:
match "DLearnStart", "lecture you on the various intricacies of cloaking"
match "DLearnStart", "Roundtime: 25"
match "DLearnStart", "Roundtime: 24"
match "DLearnStart", "Roundtime: 23"
match "DLearnStart", "Roundtime: 22"
match "DLearnStart", "Roundtime: 21"
match "DLearnStart", "Roundtime: 20"
match "DLearnStart", "Roundtime: 19"
match "DLearnStart", "Roundtime: 18"
match "DLearnStart", "Roundtime: 17"
match "DLearnStart", "Roundtime: 16"
match "DLearnStart", "Roundtime: 15"
match "DLearnStart", "Roundtime: 14"
match "DLearnStart", "Roundtime: 13"
match "DLearnStart", "Roundtime: 12"
matchwait

DLearnStart:
fput "Illusion Demon #{script.vars[3]}"
match "DLearnWait", "...wait"
match "DLearnWait", "Sorry, you may only"
match "DLearnDispel", "Roundtime: 25"
match "DLearnDispel", "Roundtime: 24"
match "DLearnDispel", "Roundtime: 23"
match "DLearnDispel", "Roundtime: 22"
match "DLearnDispel", "Roundtime: 21"
match "DLearnDispel", "Roundtime: 20"
match "DLearnDispel", "Roundtime: 19"
match "DLearnDispel", "Roundtime: 18"
match "DLearnDispel", "Roundtime: 17"
match "DLearnDispel", "Roundtime: 16"
match "DLearnDispel", "Roundtime: 15"
match "DLearnDispel", "Roundtime: 14"
match "DLearnDispel", "Roundtime: 13"
match "DLearnDispel", "Roundtime: 12"
match "DLearnDone", "training task.]"
match "DlearnNeedTeach", "you need to have someone teaching you"
match "DlearnDispel2", "I could not find"
matchwait

DLearnDispel:
fput "tell mdem inter"
fput "tell mdem inter"
match "DLearnDispelWait", "...wait"
match "DLearnDispelYes", "stops interfering with"
match "DLearnDispelNo", "I could not find"
matchwait

DLearnDispelYes:
goto "DLearnStart"

DLearnDispelNo:
goto "DLearnStart"

DLearnDispelWait:
pause 0.35
goto "DLearnDispel"

DLearnDispel2:
fput "tell mdem inter"
fput "tell mdem inter"
match "DDispel2Wait", "...wait"
match "DDispel2OtherD", "Illusioning a demon that is not your own"
match "DDispel2Good", "stops interfering with"
matchwait

DDispel2Wait:
pause 0.25
goto "DLearnDispel2"

DDispel2OtherD:
echo This should not happen anymore!
exit

DDispel2Good:
goto "DLearnStart"


DLearnWait:
pause 0.35
goto "DLearnStart"

DLearnDone:
fput "tell mdem inter"
fput "tell mdem inter"
match "DLearnFinalDispel", "stops interfering with"
match "DLearnFinalWait", "...wait"
matchwait

DLearnFinalDispel:
exit

DLearnFinalWait:
pause 0.35
goto "DLearnDone"