Sell Quests

[phentop]

I've been searching the forums for ways to have spells automatically scribed on level.

I've tried:
__________________________________________________ ____________
sub EVENT_LEVEL_UP {

AutoTrain();

}

sub AutoTrain {

$client->Message( 15, "Your experiences across the realm have infused you with increased power and knowledge..." );

# set all available skills to maximum for race/class at current level
foreach my $skill ( 0 .. 74 ) {
next unless $client->CanHaveSkill($skill);
my $maxSkill = $client->MaxSkill( $skill, $client->GetClass(), $ulevel );
next unless $maxSkill > $client->GetRawSkill($skill);
$client->SetSkill( $skill, $maxSkill );
}

# scribe all spells for current level
quest::scribespells( $ulevel, $ulevel - 1 );

# train all discs for current level
quest::traindiscs( $ulevel, $ulevel - 1 );

}
__________________________________________________ ___________

But it does not add spells or discs. It auto levels skills perfectly. Anyone have a working copy similar to this?

[phentop]

I've tried adding an NPC you can hail with a quest script like this:
__________________________________________________ __________
sub EVENT_SAY {
if($text=~/hail/i) {
quest::say("Hail $class. I can teach you your spells and tomes, up to the 35th level. Do you seek to learn " . quest::saylink("spells", 1) . " or " . quest::saylink("tomes", 1) . "?");
} elsif($text=~/spells/i) {
quest::scribespells(35);
} elsif($text=~/tomes/i) {
quest::traindiscs(35);
}
}
__________________________________________________ __________

It worked until someone reported they received the MAG Epic spell in their spell book. How do you make sure players only get the spells they should be getting?

[Toony]

Try changing the Mag epic spell level to 0 and seeing if the quest NPC still grants it, if so you'll need to look for a way to exclude by name or type.

[demonstar55]

The function you're calling just looks at the level of spells and nothing else, it will even mem stuff that were never obtainable on live!

[Splose]

could use a spell global they're enabled in your rule table and you can assign it at the end of the mage epic so it only gets scribed if you've done the quest.

[Kingly_Krab]

You could simply remove the Orb of Mastery spell.

[Davood]

I don't remember how this works.

i haven't touched perl since i worked on this 3 years ago

but this will do discs and spells. and its clickable and super friendly interface

I have a more advanced version somewhere. but i dont remember what hte npc name was for it. my other script did alot more stuff


sub EVENT_SAY {
my $qS0 = quest::saylink ("Spells0",1);
my $qS1 = quest::saylink ("Spells1",1);
my $qS2 = quest::saylink ("Spells2",1);
my $qS3 = quest::saylink ("Spells3",1);
my $qS4 = quest::saylink ("Spells4",1);
my $qS5 = quest::saylink ("Spells5",1);
my $qS6 = quest::saylink ("Spells6",1);
my $qS7 = quest::saylink ("Spells7",1);
my $qS8 = quest::saylink ("Spells8",1);
my $qS9 = quest::saylink ("Spells9",1);
my $qS10 = quest::saylink ("Spells10",1);
my $qS11 = quest::saylink ("Spells11",1);
my $qS12 = quest::saylink ("Spells12",1);
my $qS13 = quest::saylink ("Spells13",1);
my $qS14 = quest::saylink ("Spells14",1);
my $qS15 = quest::saylink ("Spells15",1);
my $qS16 = quest::saylink ("Spells16",1);
my $qS17 = quest::saylink ("Spells17",1);
my $qS18 = quest::saylink ("Spells18",1);
my $qS19 = quest::saylink ("Spells19",1);
my $qS20 = quest::saylink ("Spells20",1);
my $qS21 = quest::saylink ("Spells21",1);
my $qS22 = quest::saylink ("Spells22",1);
my $qS23 = quest::saylink ("Spells23",1);
my $qS24 = quest::saylink ("Spells24",1);
my $qS25 = quest::saylink ("Spells25",1);
my $qS26 = quest::saylink ("Spells26",1);
my $qS27 = quest::saylink ("Spells27",1);
my $qS28 = quest::saylink ("Spells28",1);
my $qS29 = quest::saylink ("Spells29",1);
my $qS30 = quest::saylink ("Spells30",1);
my $qS31 = quest::saylink ("Spells31",1);
my $qS32 = quest::saylink ("Spells32",1);
my $qS33 = quest::saylink ("Spells33",1);
my $qS34 = quest::saylink ("Spells34",1);
my $qS35 = quest::saylink ("Spells35",1);
my $qS36 = quest::saylink ("Spells36",1);
my $qS37 = quest::saylink ("Spells37",1);
my $qS38 = quest::saylink ("Spells38",1);
my $qS39 = quest::saylink ("Spells39",1);
my $qS40 = quest::saylink ("Spells40",1);
my $qS41 = quest::saylink ("Spells41",1);
my $qS42 = quest::saylink ("Spells42",1);
my $qS43 = quest::saylink ("Spells43",1);
my $qS44 = quest::saylink ("Spells44",1);
my $qS45 = quest::saylink ("Spells45",1);
my $qS46 = quest::saylink ("Spells46",1);
my $qS47 = quest::saylink ("Spells47",1);
my $qS48 = quest::saylink ("Spells48",1);
my $qS49 = quest::saylink ("Spells49",1);
my $qS50 = quest::saylink ("Spells50",1);
my $qS51 = quest::saylink ("Spells51",1);
my $qS52 = quest::saylink ("Spells52",1);
my $qS53 = quest::saylink ("Spells53",1);
my $qS54 = quest::saylink ("Spells54",1);
my $qS55 = quest::saylink ("Spells55",1);
my $qS56 = quest::saylink ("Spells56",1);
my $qS57 = quest::saylink ("Spells57",1);
my $qS58 = quest::saylink ("Spells58",1);
my $qS59 = quest::saylink ("Spells59",1);
my $qS60 = quest::saylink ("Spells60",1);
my $qS61 = quest::saylink ("Spells61",1);
my $qS62 = quest::saylink ("Spells62",1);
my $qS63 = quest::saylink ("Spells63",1);
my $qS64 = quest::saylink ("Spells64",1);
my $qS65 = quest::saylink ("Spells65",1);
my $qS66 = quest::saylink ("Spells66",1);
my $qS67 = quest::saylink ("Spells67",1);
my $qS68 = quest::saylink ("Spells68",1);
my $qS69 = quest::saylink ("Spells69",1);
my $qS70 = quest::saylink ("Spells70",1);
my $qS71 = quest::saylink ("Spells71",1);
my $qS72 = quest::saylink ("Spells72",1);
my $qS73 = quest::saylink ("Spells73",1);
my $qS74 = quest::saylink ("Spells74",1);
my $qS75 = quest::saylink ("Spells75",1);
my $qS76 = quest::saylink ("Spells76",1);
my $qS77 = quest::saylink ("Spells77",1);
my $qS78 = quest::saylink ("Spells78",1);
my $qS79 = quest::saylink ("Spells79",1);
my $qS80 = quest::saylink ("Spells80",1);
my $qS81 = quest::saylink ("Spells81",1);
my $qS82 = quest::saylink ("Spells82",1);
my $qS83 = quest::saylink ("Spells83",1);
my $qS84 = quest::saylink ("Spells84",1);
my $qS85 = quest::saylink ("Spells85",1);
my $qS86 = quest::saylink ("Spells86",1);
my $qS87 = quest::saylink ("Spells87",1);
my $qS88 = quest::saylink ("Spells88",1);
my $qS89 = quest::saylink ("Spells89",1);
my $qS90 = quest::saylink ("Spells90",1);
my $qS91 = quest::saylink ("Spells91",1);
my $qS92 = quest::saylink ("Spells92",1);
my $qS93 = quest::saylink ("Spells93",1);
my $qS94 = quest::saylink ("Spells94",1);
my $qS95 = quest::saylink ("Spells95",1);
my $qS96 = quest::saylink ("Spells96",1);
my $qS97 = quest::saylink ("Spells97",1);
my $qS98 = quest::saylink ("Spells98",1);
my $qS99 = quest::saylink ("Spells99",1);
my $qS100 = quest::saylink ("Spells100",1);

my $dqS0 = quest::saylink ("Discs0",1);
my $dqS1 = quest::saylink ("Discs1",1);
my $dqS2 = quest::saylink ("Discs2",1);
my $dqS3 = quest::saylink ("Discs3",1);
my $dqS4 = quest::saylink ("Discs4",1);
my $dqS5 = quest::saylink ("Discs5",1);
my $dqS6 = quest::saylink ("Discs6",1);
my $dqS7 = quest::saylink ("Discs7",1);
my $dqS8 = quest::saylink ("Discs8",1);
my $dqS9 = quest::saylink ("Discs9",1);
my $dqS10 = quest::saylink ("Discs10",1);
my $dqS11 = quest::saylink ("Discs11",1);
my $dqS12 = quest::saylink ("Discs12",1);
my $dqS13 = quest::saylink ("Discs13",1);
my $dqS14 = quest::saylink ("Discs14",1);
my $dqS15 = quest::saylink ("Discs15",1);
my $dqS16 = quest::saylink ("Discs16",1);
my $dqS17 = quest::saylink ("Discs17",1);
my $dqS18 = quest::saylink ("Discs18",1);
my $dqS19 = quest::saylink ("Discs19",1);
my $dqS20 = quest::saylink ("Discs20",1);
my $dqS21 = quest::saylink ("Discs21",1);
my $dqS22 = quest::saylink ("Discs22",1);
my $dqS23 = quest::saylink ("Discs23",1);
my $dqS24 = quest::saylink ("Discs24",1);
my $dqS25 = quest::saylink ("Discs25",1);
my $dqS26 = quest::saylink ("Discs26",1);
my $dqS27 = quest::saylink ("Discs27",1);
my $dqS28 = quest::saylink ("Discs28",1);
my $dqS29 = quest::saylink ("Discs29",1);
my $dqS30 = quest::saylink ("Discs30",1);
my $dqS31 = quest::saylink ("Discs31",1);
my $dqS32 = quest::saylink ("Discs32",1);
my $dqS33 = quest::saylink ("Discs33",1);
my $dqS34 = quest::saylink ("Discs34",1);
my $dqS35 = quest::saylink ("Discs35",1);
my $dqS36 = quest::saylink ("Discs36",1);
my $dqS37 = quest::saylink ("Discs37",1);
my $dqS38 = quest::saylink ("Discs38",1);
my $dqS39 = quest::saylink ("Discs39",1);
my $dqS40 = quest::saylink ("Discs40",1);
my $dqS41 = quest::saylink ("Discs41",1);
my $dqS42 = quest::saylink ("Discs42",1);
my $dqS43 = quest::saylink ("Discs43",1);
my $dqS44 = quest::saylink ("Discs44",1);
my $dqS45 = quest::saylink ("Discs45",1);
my $dqS46 = quest::saylink ("Discs46",1);
my $dqS47 = quest::saylink ("Discs47",1);
my $dqS48 = quest::saylink ("Discs48",1);
my $dqS49 = quest::saylink ("Discs49",1);
my $dqS50 = quest::saylink ("Discs50",1);
my $dqS51 = quest::saylink ("Discs51",1);
my $dqS52 = quest::saylink ("Discs52",1);
my $dqS53 = quest::saylink ("Discs53",1);
my $dqS54 = quest::saylink ("Discs54",1);
my $dqS55 = quest::saylink ("Discs55",1);
my $dqS56 = quest::saylink ("Discs56",1);
my $dqS57 = quest::saylink ("Discs57",1);
my $dqS58 = quest::saylink ("Discs58",1);
my $dqS59 = quest::saylink ("Discs59",1);
my $dqS60 = quest::saylink ("Discs60",1);
my $dqS61 = quest::saylink ("Discs61",1);
my $dqS62 = quest::saylink ("Discs62",1);
my $dqS63 = quest::saylink ("Discs63",1);
my $dqS64 = quest::saylink ("Discs64",1);
my $dqS65 = quest::saylink ("Discs65",1);
my $dqS66 = quest::saylink ("Discs66",1);
my $dqS67 = quest::saylink ("Discs67",1);
my $dqS68 = quest::saylink ("Discs68",1);
my $dqS69 = quest::saylink ("Discs69",1);
my $dqS70 = quest::saylink ("Discs70",1);
my $dqS71 = quest::saylink ("Discs71",1);
my $dqS72 = quest::saylink ("Discs72",1);
my $dqS73 = quest::saylink ("Discs73",1);
my $dqS74 = quest::saylink ("Discs74",1);
my $dqS75 = quest::saylink ("Discs75",1);
my $dqS76 = quest::saylink ("Discs76",1);
my $dqS77 = quest::saylink ("Discs77",1);
my $dqS78 = quest::saylink ("Discs78",1);
my $dqS79 = quest::saylink ("Discs79",1);
my $dqS80 = quest::saylink ("Discs80",1);
my $dqS81 = quest::saylink ("Discs81",1);
my $dqS82 = quest::saylink ("Discs82",1);
my $dqS83 = quest::saylink ("Discs83",1);
my $dqS84 = quest::saylink ("Discs84",1);
my $dqS85 = quest::saylink ("Discs85",1);
my $dqS86 = quest::saylink ("Discs86",1);
my $dqS87 = quest::saylink ("Discs87",1);
my $dqS88 = quest::saylink ("Discs88",1);
my $dqS89 = quest::saylink ("Discs89",1);
my $dqS90 = quest::saylink ("Discs90",1);
my $dqS91 = quest::saylink ("Discs91",1);
my $dqS92 = quest::saylink ("Discs92",1);
my $dqS93 = quest::saylink ("Discs93",1);
my $dqS94 = quest::saylink ("Discs94",1);
my $dqS95 = quest::saylink ("Discs95",1);
my $dqS96 = quest::saylink ("Discs96",1);
my $dqS97 = quest::saylink ("Discs97",1);
my $dqS98 = quest::saylink ("Discs98",1);
my $dqS99 = quest::saylink ("Discs99",1);
my $dqS100 = quest::saylink ("Discs100",1);

my $qSPELLS = quest::saylink ("Book of Spells",1);
my $qDISCS = quest::saylink ("Knowledge of Disciplines",1);

if ($text=~/hail/i){quest::say("Hi, would you like to learn or unlearn [$qSPELLS] or [$qDISCS]?");}
if ($text=~/Book of Spells/i){quest::say("Choose this to unlearn all of your spells : [$qS0]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to unlearn all of your disciplines : [$dqS0]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS1]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS2]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS3]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS4]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS5]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS6]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS7]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS8]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS9]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS10]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS11]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS12]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS13]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS14]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS15]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS16]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS17]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS18]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS19]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS20]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS21]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS22]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS23]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS24]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS25]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS26]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS27]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS28]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS29]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS30]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS31]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS32]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS33]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS34]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS35]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS36]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS37]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS38]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS39]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS40]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS41]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS42]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS43]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS44]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS45]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS46]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS47]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS48]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS49]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS50]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS51]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS52]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS53]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS54]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS55]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS56]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS57]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS58]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS59]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS60]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS61]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS62]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS63]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS64]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS65]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS66]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS67]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS68]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS69]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS70]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS71]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS72]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS73]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS74]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS75]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS76]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS77]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS78]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS79]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS80]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS81]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS82]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS83]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS84]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS85]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS86]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS87]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS88]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS89]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS90]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS91]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS92]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS93]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS94]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS95]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS96]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS97]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS98]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS99]");}
if ($text=~/Book of Spells/i){quest::say("Choose this to learn the Spells for this level [$qS100]");}

if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS1]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS2]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS3]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS4]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS5]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS6]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS7]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS8]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS9]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS10]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS11]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS12]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS13]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS14]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS15]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS16]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS17]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS18]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS19]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS20]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS21]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS22]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS23]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS24]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS25]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS26]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS27]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS28]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS29]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS30]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS31]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS32]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS33]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS34]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS35]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS36]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS37]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS38]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS39]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS40]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS41]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS42]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS43]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS44]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS45]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS46]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS47]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS48]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS49]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS50]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS51]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS52]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS53]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS54]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS55]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS56]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS57]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS58]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS59]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS60]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS61]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS62]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS63]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS64]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS65]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS66]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS67]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS68]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS69]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS70]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS71]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS72]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS73]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS74]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS75]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS76]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS77]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS78]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS79]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS80]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS81]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS82]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS83]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS84]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS85]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS86]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS87]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS88]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS89]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS90]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS91]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS92]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS93]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS94]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS95]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS96]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS97]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS98]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS99]");}
if ($text=~/Knowledge of Disciplines/i){quest::say("Choose this to learn the Spells for this level [$dqS100]");}


if ($text eq "Spells0"){quest::unscribespells();}
if ($text eq "Spells1"){quest::scribespells(1,1);}
if ($text eq "Spells2"){quest::scribespells(2,2);}
if ($text eq "Spells3"){quest::scribespells(3,3);}
if ($text eq "Spells4"){quest::scribespells(4,4);}
if ($text eq "Spells5"){quest::scribespells(5,5);}
if ($text eq "Spells6"){quest::scribespells(6,6);}
if ($text eq "Spells7"){quest::scribespells(7,7);}
if ($text eq "Spells8"){quest::scribespells(8,8);}
if ($text eq "Spells9"){quest::scribespells(9,9);}
if ($text eq "Spells10"){quest::scribespells(10,10);}
if ($text eq "Spells11"){quest::scribespells(11,11);}
if ($text eq "Spells12"){quest::scribespells(12,12);}
if ($text eq "Spells13"){quest::scribespells(13,13);}
if ($text eq "Spells14"){quest::scribespells(14,14);}
if ($text eq "Spells15"){quest::scribespells(15,15);}
if ($text eq "Spells16"){quest::scribespells(16,16);}
if ($text eq "Spells17"){quest::scribespells(17,17);}
if ($text eq "Spells18"){quest::scribespells(18,18);}
if ($text eq "Spells19"){quest::scribespells(19,19);}
if ($text eq "Spells20"){quest::scribespells(20,20);}
if ($text eq "Spells21"){quest::scribespells(21,21);}
if ($text eq "Spells22"){quest::scribespells(22,22);}
if ($text eq "Spells23"){quest::scribespells(23,23);}
if ($text eq "Spells24"){quest::scribespells(24,24);}
if ($text eq "Spells25"){quest::scribespells(25,25);}
if ($text eq "Spells26"){quest::scribespells(26,26);}
if ($text eq "Spells27"){quest::scribespells(27,27);}
if ($text eq "Spells28"){quest::scribespells(28,28);}
if ($text eq "Spells29"){quest::scribespells(29,29);}
if ($text eq "Spells30"){quest::scribespells(30,30);}
if ($text eq "Spells31"){quest::scribespells(31,31);}
if ($text eq "Spells32"){quest::scribespells(32,32);}
if ($text eq "Spells33"){quest::scribespells(33,33);}
if ($text eq "Spells34"){quest::scribespells(34,34);}
if ($text eq "Spells35"){quest::scribespells(35,35);}
if ($text eq "Spells36"){quest::scribespells(36,36);}
if ($text eq "Spells37"){quest::scribespells(37,37);}
if ($text eq "Spells38"){quest::scribespells(38,38);}
if ($text eq "Spells39"){quest::scribespells(39,39);}
if ($text eq "Spells40"){quest::scribespells(40,40);}
if ($text eq "Spells41"){quest::scribespells(41,41);}
if ($text eq "Spells42"){quest::scribespells(42,42);}
if ($text eq "Spells43"){quest::scribespells(43,43);}
if ($text eq "Spells44"){quest::scribespells(44,44);}
if ($text eq "Spells45"){quest::scribespells(45,45);}
if ($text eq "Spells46"){quest::scribespells(46,46);}
if ($text eq "Spells47"){quest::scribespells(47,47);}
if ($text eq "Spells48"){quest::scribespells(48,48);}
if ($text eq "Spells49"){quest::scribespells(49,49);}
if ($text eq "Spells50"){quest::scribespells(50,50);}
if ($text eq "Spells51"){quest::scribespells(51,51);}
if ($text eq "Spells52"){quest::scribespells(52,52);}
if ($text eq "Spells53"){quest::scribespells(53,53);}
if ($text eq "Spells54"){quest::scribespells(54,54);}
if ($text eq "Spells55"){quest::scribespells(55,55);}
if ($text eq "Spells56"){quest::scribespells(56,56);}
if ($text eq "Spells57"){quest::scribespells(57,57);}
if ($text eq "Spells58"){quest::scribespells(58,58);}
if ($text eq "Spells59"){quest::scribespells(59,59);}
if ($text eq "Spells60"){quest::scribespells(60,60);}
if ($text eq "Spells61"){quest::scribespells(61,61);}
if ($text eq "Spells62"){quest::scribespells(62,62);}
if ($text eq "Spells63"){quest::scribespells(63,63);}
if ($text eq "Spells64"){quest::scribespells(64,64);}
if ($text eq "Spells65"){quest::scribespells(65,65);}
if ($text eq "Spells66"){quest::scribespells(66,66);}
if ($text eq "Spells67"){quest::scribespells(67,67);}
if ($text eq "Spells68"){quest::scribespells(68,68);}
if ($text eq "Spells69"){quest::scribespells(69,69);}
if ($text eq "Spells70"){quest::scribespells(70,70);}
if ($text eq "Spells71"){quest::scribespells(71,71);}
if ($text eq "Spells72"){quest::scribespells(72,72);}
if ($text eq "Spells73"){quest::scribespells(73,73);}
if ($text eq "Spells74"){quest::scribespells(74,74);}
if ($text eq "Spells75"){quest::scribespells(75,75);}
if ($text eq "Spells76"){quest::scribespells(76,76);}
if ($text eq "Spells77"){quest::scribespells(77,77);}
if ($text eq "Spells78"){quest::scribespells(78,78);}
if ($text eq "Spells79"){quest::scribespells(79,79);}
if ($text eq "Spells80"){quest::scribespells(80,80);}
if ($text eq "Spells81"){quest::scribespells(81,81);}
if ($text eq "Spells82"){quest::scribespells(82,82);}
if ($text eq "Spells83"){quest::scribespells(83,83);}
if ($text eq "Spells84"){quest::scribespells(84,84);}
if ($text eq "Spells85"){quest::scribespells(85,85);}
if ($text eq "Spells86"){quest::scribespells(86,86);}
if ($text eq "Spells87"){quest::scribespells(87,87);}
if ($text eq "Spells88"){quest::scribespells(88,88);}
if ($text eq "Spells89"){quest::scribespells(89,89);}
if ($text eq "Spells90"){quest::scribespells(90,90);}
if ($text eq "Spells91"){quest::scribespells(91,91);}
if ($text eq "Spells92"){quest::scribespells(92,92);}
if ($text eq "Spells93"){quest::scribespells(93,93);}
if ($text eq "Spells94"){quest::scribespells(94,94);}
if ($text eq "Spells95"){quest::scribespells(95,95);}
if ($text eq "Spells96"){quest::scribespells(96,96);}
if ($text eq "Spells97"){quest::scribespells(97,97);}
if ($text eq "Spells98"){quest::scribespells(98,98);}
if ($text eq "Spells99"){quest::scribespells(99,99);}
if ($text eq "Spells100"){quest::scribespells(100,100);}


if ($text eq "Discs0"){$client->UntrainDiscAll();}
if ($text eq "Discs1"){quest::traindiscs(1,1);}
if ($text eq "Discs2"){quest::traindiscs(2,2);}
if ($text eq "Discs3"){quest::traindiscs(3,3);}
if ($text eq "Discs4"){quest::traindiscs(4,4);}
if ($text eq "Discs5"){quest::traindiscs(5,5);}
if ($text eq "Discs6"){quest::traindiscs(6,6);}
if ($text eq "Discs7"){quest::traindiscs(7,7);}
if ($text eq "Discs8"){quest::traindiscs(8,8);}
if ($text eq "Discs9"){quest::traindiscs(9,9);}
if ($text eq "Discs10"){quest::traindiscs(10,10);}
if ($text eq "Discs11"){quest::traindiscs(11,11);}
if ($text eq "Discs12"){quest::traindiscs(12,12);}
if ($text eq "Discs13"){quest::traindiscs(13,13);}
if ($text eq "Discs14"){quest::traindiscs(14,14);}
if ($text eq "Discs15"){quest::traindiscs(15,15);}
if ($text eq "Discs16"){quest::traindiscs(16,16);}
if ($text eq "Discs17"){quest::traindiscs(17,17);}
if ($text eq "Discs18"){quest::traindiscs(18,18);}
if ($text eq "Discs19"){quest::traindiscs(19,19);}
if ($text eq "Discs20"){quest::traindiscs(20,20);}
if ($text eq "Discs21"){quest::traindiscs(21,21);}
if ($text eq "Discs22"){quest::traindiscs(22,22);}
if ($text eq "Discs23"){quest::traindiscs(23,23);}
if ($text eq "Discs24"){quest::traindiscs(24,24);}
if ($text eq "Discs25"){quest::traindiscs(25,25);}
if ($text eq "Discs26"){quest::traindiscs(26,26);}
if ($text eq "Discs27"){quest::traindiscs(27,27);}
if ($text eq "Discs28"){quest::traindiscs(28,28);}
if ($text eq "Discs29"){quest::traindiscs(29,29);}
if ($text eq "Discs30"){quest::traindiscs(30,30);}
if ($text eq "Discs31"){quest::traindiscs(31,31);}
if ($text eq "Discs32"){quest::traindiscs(32,32);}
if ($text eq "Discs33"){quest::traindiscs(33,33);}
if ($text eq "Discs34"){quest::traindiscs(34,34);}
if ($text eq "Discs35"){quest::traindiscs(35,35);}
if ($text eq "Discs36"){quest::traindiscs(36,36);}
if ($text eq "Discs37"){quest::traindiscs(37,37);}
if ($text eq "Discs38"){quest::traindiscs(38,38);}
if ($text eq "Discs39"){quest::traindiscs(39,39);}
if ($text eq "Discs40"){quest::traindiscs(40,40);}
if ($text eq "Discs41"){quest::traindiscs(41,41);}
if ($text eq "Discs42"){quest::traindiscs(42,42);}
if ($text eq "Discs43"){quest::traindiscs(43,43);}
if ($text eq "Discs44"){quest::traindiscs(44,44);}
if ($text eq "Discs45"){quest::traindiscs(45,45);}
if ($text eq "Discs46"){quest::traindiscs(46,46);}
if ($text eq "Discs47"){quest::traindiscs(47,47);}
if ($text eq "Discs48"){quest::traindiscs(48,48);}
if ($text eq "Discs49"){quest::traindiscs(49,49);}
if ($text eq "Discs50"){quest::traindiscs(50,50);}
if ($text eq "Discs51"){quest::traindiscs(51,51);}
if ($text eq "Discs52"){quest::traindiscs(52,52);}
if ($text eq "Discs53"){quest::traindiscs(53,53);}
if ($text eq "Discs54"){quest::traindiscs(54,54);}
if ($text eq "Discs55"){quest::traindiscs(55,55);}
if ($text eq "Discs56"){quest::traindiscs(56,56);}
if ($text eq "Discs57"){quest::traindiscs(57,57);}
if ($text eq "Discs58"){quest::traindiscs(58,58);}
if ($text eq "Discs59"){quest::traindiscs(59,59);}
if ($text eq "Discs60"){quest::traindiscs(60,60);}
if ($text eq "Discs61"){quest::traindiscs(61,61);}
if ($text eq "Discs62"){quest::traindiscs(62,62);}
if ($text eq "Discs63"){quest::traindiscs(63,63);}
if ($text eq "Discs64"){quest::traindiscs(64,64);}
if ($text eq "Discs65"){quest::traindiscs(65,65);}
if ($text eq "Discs66"){quest::traindiscs(66,66);}
if ($text eq "Discs67"){quest::traindiscs(67,67);}
if ($text eq "Discs68"){quest::traindiscs(68,68);}
if ($text eq "Discs69"){quest::traindiscs(69,69);}
if ($text eq "Discs70"){quest::traindiscs(70,70);}
if ($text eq "Discs71"){quest::traindiscs(71,71);}
if ($text eq "Discs72"){quest::traindiscs(72,72);}
if ($text eq "Discs73"){quest::traindiscs(73,73);}
if ($text eq "Discs74"){quest::traindiscs(74,74);}
if ($text eq "Discs75"){quest::traindiscs(75,75);}
if ($text eq "Discs76"){quest::traindiscs(76,76);}
if ($text eq "Discs77"){quest::traindiscs(77,77);}
if ($text eq "Discs78"){quest::traindiscs(78,78);}
if ($text eq "Discs79"){quest::traindiscs(79,79);}
if ($text eq "Discs80"){quest::traindiscs(80,80);}
if ($text eq "Discs81"){quest::traindiscs(81,81);}
if ($text eq "Discs82"){quest::traindiscs(82,82);}
if ($text eq "Discs83"){quest::traindiscs(83,83);}
if ($text eq "Discs84"){quest::traindiscs(84,84);}
if ($text eq "Discs85"){quest::traindiscs(85,85);}
if ($text eq "Discs86"){quest::traindiscs(86,86);}
if ($text eq "Discs87"){quest::traindiscs(87,87);}
if ($text eq "Discs88"){quest::traindiscs(88,88);}
if ($text eq "Discs89"){quest::traindiscs(89,89);}
if ($text eq "Discs90"){quest::traindiscs(90,90);}
if ($text eq "Discs91"){quest::traindiscs(91,91);}
if ($text eq "Discs92"){quest::traindiscs(92,92);}
if ($text eq "Discs93"){quest::traindiscs(93,93);}
if ($text eq "Discs94"){quest::traindiscs(94,94);}
if ($text eq "Discs95"){quest::traindiscs(95,95);}
if ($text eq "Discs96"){quest::traindiscs(96,96);}
if ($text eq "Discs97"){quest::traindiscs(97,97);}
if ($text eq "Discs98"){quest::traindiscs(98,98);}
if ($text eq "Discs99"){quest::traindiscs(99,99);}
if ($text eq "Discs100"){quest::traindiscs(100,100);}

}