Code: Select all
0?.gat,?,?,0 script evil_teacher#_M ???,{
if(Dark == 1) goto L_Evil;
if(Dark == 2) goto L_Astral;
if (@evil)
goto L_Evil ;
if (@unhappy > 10 )
goto L_so-so ;
L_Evil:
mes "the man turn his eyes at you with smile disturbing and he begin to open his mouth.";
next;
mes "[the man]";
mes "\"wel..welCOMe " + strcharinfo(0) + " he know you want learn the dark patch of magic .\"";
next;
L_Menu_First :
menu
"he ? what do you mean ?" L_Soul ,
" He'd wrong I don't want learn that ." L_Wrong ,
"yes he's got true ." L_Learn,
L_Soul:
mes "[the man]";
mes "\"he was a..N... AND is my soul\"";
next;
goto L_Menu_First;
L_wrong :
mes "[the man]";
mes "\"M.. MY soul has ALWAYS tr..U... true \"";
next;
mes "he take a knife and cut your hand .";
heal -50, 0;
mes "but your blood flows freely . You haven't a drop of blood in your body .";
next;
gmcommand strcharinfo(0)+":@die ";
close;
L_Learn:
mes "[the man]";
mes "\"so , w... wH.... WHAT your question about this magic \"";
next;
L_Magic
"can you explain magic to me ?" L_Explain_darkMagic,
"Can you teach me this magic ? " L_Teach,
"goodbye " -,
close;
L_soso :
mes "the man turn his eyes at you but his look is unpleasant .";
next;
mes "[the man]";
mes "\"if you W.A...n.WANT to be my student , bring me back a L..O..LOT of "dark items" .\"";
menu
"like what ? " L_Example ,
" I have them " L_Have ,
"goodbye for now" -,
close;
L_Example
mes "[the man]";
mes "\"10 [dark crystal]s are good for t..H THAT " .\"";
next;
menu
"I've them ! " L_Have,
"no way !" -,
"I'll have them "-,
close;
L_Have :
mes "[the man]";
mes "\" so shows me them " .\"";
next;
if(countitem("DarkCrystal") < 10) goto L_No;
delitem "DarkCrystal", 10;
set Dark, 1;
L_no :
mes "[the man]";
mes "\"you've wr..O.. WRONG" .\"";
close;
L_Explain_darkMagic:
mes "[the man]";
mes "\"normally you know that" .\"";
goto L_Magic;
L_Teach:
mes "[the man]";
mes "\"i can tt.Te.. teach that " .\"";
next;
if (getskilllv(SKILL_MAGIC_astral) < 2)
goto L_WasUp
if (getskilllv(SKILL_MAGIC_astral) > 2)
goto L_WantLearn
L_WasUp :
mes "[the man]";
mes "\" You are already "strong" in the M...A... MAGIC of invocation" .\"";
next;
if (getskilllv(SKILL_MAGIC_astral) < 2)
set Dark, 2;
L_WantLearn :
mes "[the man]";
mes "\"hum hum . so close y..O... YOUR eyes" .\"";
mes "he sounds to take a weapon";
next;
mes"you are scared and you open your eyes";
mes"you see your body but you're not in it";
next;
mes "[the man]";
mes "\"it was the only thing to do for that . sorry" .\"";
callsub S_update_var;
set @SUP_xp, 5000;
set @SUP_lvl, 2;
callsub S_up_astral;
set Dark, 2;
next;
gmcommand strcharinfo(0)+":@die ";
close;
L_Astral:
mes "[the man]";
mes "\"hi " + strcharinfo(0) + ", what do you want" .\"";
next;
L_MenuAstral:
"can you teach me a spell ?" L_Sumon,
" can you teach me more magic " L_More,
"goodbye " -,
close;
L_more:
mes "[the man]";
mes "\"no for the moment" .\"";
goto L_MenuAstral;
L_Sumon:
if(Sumon > 1) goto L_SumonBat;
if(Sumon < 1) goto L_NoSumon;
L_SumonBat:
mes "[the man]";
mes "\"hum hum . with this spell , you can call a lot of bat . so it's " + getspellinvocation("summon-bat") + " and for call them you need two bat wing O..o. OR two of their jaw and don't forget the root very important for each magic astral's spell .\"";
set Sumon , 1 ;
close;
L_NoSumon:
mes "[the man]";
mes "\"hum hum . you've already a spell .\"";
close;
comment
Lien ...
