EQEmulator Forums

EQEmulator Forums (https://www.eqemulator.org/forums/index.php)
-   Quests::Q&A (https://www.eqemulator.org/forums/forumdisplay.php?f=599)
-   -   Sell Quests (https://www.eqemulator.org/forums/showthread.php?t=41522)

phentop 09-22-2017 10:42 AM

Sell Quests
 
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 09-22-2017 10:45 AM

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 09-22-2017 03:36 PM

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 09-22-2017 03:43 PM

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 09-22-2017 08:24 PM

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 09-23-2017 12:03 AM

You could simply remove the Orb of Mastery spell.

Davood 09-23-2017 01:59 PM

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

Code:

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);}

}



All times are GMT -4. The time now is 02:27 AM.

Powered by vBulletin®, Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.