sumoning bats

Content and general development discussion, including maps, quests, and server code from the development team.
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

Re: sumoning bats

Post by lien » Sun Feb 28, 2010 6:37 pm

so all code normally

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;
if there is a problem or other thing . or suggestion
comment
Lien ...
Image
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

Re: sumoning bats

Post by lien » Wed Mar 10, 2010 2:23 pm

my host was delete* (*by "free") so I show again these

the first effect is
Image
and its code is
<?xml version="1.0"?>

<!--
440 particles total.
-->


<effect>
<particle
position-x = "0"
position-y = "0"
position-z = "0"
lifetime = "1"
>
<!--the circle-->
<emitter>
<property name="gravity" value="-0.01"/>
<property name="momentum" value="0.9"/>
<property name="image" value="graphics/particles/fog-medium-a.png|W:#000000,505050,636363"/>
<property name="lifetime" value="100"/>
<property name="fade-in" value="10"/>
<property name="fade-out" value="90"/>
<property name="output" min="0" max="1"/>
<property name="randomnes" value="200"/>
</emitter>
<emitter>
<property name="position-y" value="-16"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="60"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="position-y" value="-18"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="30"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#cc0000,ff0000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>

<emitter>
<property name="position-x" value="57" />
<property name="position-y" value="-10" />
<property name="lifetime" value="1" />
<emitter>
<property name="horizontal-angle" value="180"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" min="0" max="114"/>
<property name="output" value="40"/>
<property name="lifetime" value="1"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
</emitter>

<emitter>
<property name="position-y" value="-57" />
<property name="position-x" value="0" />
<property name="lifetime" value="1" />
<emitter>
<property name="horizontal-angle" value="90"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" min="0" max="114"/>
<property name="output" value="40"/>
<property name="lifetime" value="1"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
</emitter>
<emitter>
<property name="position-y" value="28.5" />
<property name="position-x" value="-28.5" />
<property name="lifetime" value="1" />
<emitter>
<property name="horizontal-angle" value="-45"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" min="0" max="114"/>
<property name="output" value="40"/>
<property name="lifetime" value="1"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
</emitter>
<!--second-->
<emitter>
<property name="position-y" value="28.5" />
<property name="position-x" value="28.5" />
<property name="lifetime" value="1" />
<emitter>
<property name="horizontal-angle" value="225"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" min="0" max="114"/>
<property name="output" value="40"/>
<property name="lifetime" value="1"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
</emitter>

</particle>
</effect>

the second is
Image
and its code is
<?xml version="1.0"?>

<!--
??? particles total.
-->


<effect>
<particle
position-x = "0"
position-y = "0"
position-z = "0"
lifetime = "1"
>
<!--blue-->
<emitter>
<property name="position-y" value="-57"/>
<property name="position-x" value="0"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="30"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#ff0000,cc0000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<!--second-->
<emitter>
<property name="position-y" value="57"/>
<property name="position-x" value="0"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="30"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#ff0000,cc0000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="position-y" value="0"/>
<property name="position-x" value="-57"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="30"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#ff0000,cc0000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="position-y" value="0"/>
<property name="position-x" value="57"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="30"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#ff0000,cc0000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="gravity" value="-0.01"/>
<property name="momentum" value="0.9"/>
<property name="image" value="graphics/particles/fog-medium-a.png|W:#000000,505050,636363"/>
<property name="lifetime" value="100"/>
<property name="fade-in" value="10"/>
<property name="fade-out" value="90"/>
<property name="output" min="0" max="1"/>
<property name="randomnes" value="200"/>
</emitter>
<emitter>
<property name="position-y" value="-16"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="60"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="position-y" value="-18"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" value="30"/>
<property name="lifetime" value="1"/>
<property name="output" value="130"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-small.png|W:#cc0000,ff0000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>

<!--yellow -->
<emitter>
<property name="position-x" value="57" />
<property name="position-y" value="-10" />
<property name="lifetime" value="1" />
<emitter>
<property name="horizontal-angle" value="180"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" min="0" max="114"/>
<property name="output" value="40"/>
<property name="lifetime" value="1"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
</emitter>

<!--red-->
<emitter>
<property name="position-y" value="-57" />
<property name="position-x" value="0" />
<property name="lifetime" value="1" />
<emitter>
<property name="horizontal-angle" value="90"/>
<property name="vertical-angle" min="0" max="0"/>
<property name="power" min="0" max="114"/>
<property name="output" value="40"/>
<property name="lifetime" value="1"/>
<emitter>
<property name="gravity" min="-0.005" max="-0.002"/>
<property name="horizontal-angle" min="0" max="360"/>
<property name="vertical-angle" min="80" max="100"/>
<property name="power" min="0.01" max="0.4"/>
<property name="image" value="graphics/particles/orb-medium.png|W:#000000,000000"/>
<property name="lifetime" value="120"/>
<property name="fade-in" value="5"/>
<property name="fade-out" value="80"/>
<property name="output" value="1"/>
</emitter>
</emitter>
</emitter>

</particle>
</effect>

Image
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

Re: sumoning bats

Post by lien » Tue Mar 16, 2010 7:42 pm

Code: Select all

0?.gat,?,?,0   script   evil_teacher#_M   ???,{
   if(Dark == 1) goto L_Evil;
    if(Dark == 2) goto L_Astral;
if (dead = 2 ) goto L_finish;
if (dead = 3 ) goto L_again;

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:
  L_SumonBat:
  mes "[the man]";
mes "\"hum . I can teach you a spell but before that I've a little jobs for you .\"";
next;
menu
"What are this work ?" L_What,
"well , I will think about it " -,
"goodbye for now . " -,
close;
L_what
 mes "[the man]";
mes "\" well ... you need to talk with my father about where is my book of Dark magic ? .\"";
next;
menu
"where are he ?" L_where,
"cough cough ... i'm not a Messenger !" -,
close;
L_where:
 mes "[the man]";
mes "\" ahh ! he live on the graveyard and YES he's dead . His grave is surrouned by flowers and it's on the beginning of the Graveyard .\"";
next;
menu
"talk with a corpse ... cough ... NEVER !" -,
"so normally a corpse don't wake up for talk " L_word,
"bye bye " -,
close;
L_word:
  mes "[the man]";
mes "\" of course , for wake up he you need to Prononce The word DEAD.\"";
next;
"let's go !" L_go,
" no for the monment ."-,
close;
L_go:
  mes "[the man]";
mes "\"so see you later.\"";
set dead , 1 ;
close;
close;
L_NoSumon:
mes "[the man]";
mes "\"hum hum . you've already a spell   .\"";
close;
L_finish:
 mes "[the man]";
	mes "\"so this book is on the Library easier ... I will go in  . see you\"";
set dead , 3 ;
close;
L_again
 mes "[the man]";
	mes "\"so I'm a great spell for you it's for summoning a lot of bat . Call them isn't easier but I can give you the spell and it need some objects , for summon them you need two bat wing or if you want two of their Jaws but for these spells you need a root , drop by the log head , this root is very important for each astral's spell . oh it's " + getspellinvocation("summon-bat") + "and you will go again to me for else spell . \"";
set summon , 1 ;
close;
and the orther NPC for the quest a grave ..... hum a dead

Code: Select all

027-1.gat,72,74,0	script	????,{
if (dead = 1) goto L_code;
        mes "just a Grave/ ";
        close;
L_code:
	mes "\"it must have a died in this Grave\"";
menu
"prononce a word" L_word,
"good bye the died"-,
close;
L_word:
	mes "\"so what do you prononce\"";
next;
input @dead

if (@dead = "DEAD") goto L_good;
if (@dead = "dead") goto L_good;
if (@dead = "Dead") goto L_good;

	mes "\"it doesn't happend anything\"";
close;
L_good:
	mes "\"suddenly , you sound a strange noise \"";
next;
        mes "[the noise under the floor]";
	mes "\"why you wake me ?\"";
menu
"I woke you for some question" L_question
"sorry , good ninght " -,
close;
L_question:
        mes "[the noise under the floor]";
	mes "\"ok so what are them ?\"";
next;
L_menu:
menu
"your son don't know where is his book of Magic" L_first,
"it's cool to live under the floor" L_second,
"question I've not that "-,
"did you are a wizzard ?" L_wissard,
"do you like your grave" L_second,
"what are your age ?" L_age,
"how are you" L_how,
L_how:
 mes "[the noise under the floor]";
	mes "\"I live under the floor so I'm not fine !\"";
next;
goto L_menu;
L_age:
 mes "[the noise under the floor]";
	mes "\"mine ! cought I forgot my age ...\"";
next;
goto L_menu;
L_second
 mes "[the noise under the floor]";
	mes "\"please ask me a REAL question !\"";
next;
goto L_menu;
L_wissard:
 mes "[the noise under the floor]";
	mes "\"was ... just was I was wissard of the Dark magic\"";
next;
goto L_menu;
L_first:
        mes "[the noise under the floor]";
	mes "\"oh his book is in the Lybrary of hurnscald , you know the home between  the blacksmith and the dyer\"";
set dead , 2 ;
close;
Image
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

Re: sumoning bats

Post by lien » Wed May 05, 2010 6:46 pm

that it's better ?
maybe have some problem

Code: Select all

LOCAL SPELL summon-bat : "#kaltab" =
      LET level = 1
          school = ASTRAL
      IN (MANA 33, CASTTIME 20000,
          REQUIRE skill(caster, MAGIC) > level,
          REQUIRE skill(caster, school) > level,
          COMPONENTS [2 *"BatWing", "Root"]OR COMPONENTS [ "BatTeeth" , "Root"])
          => EFFECT CALL adjust_spellpower(school);
                    CALL default_effect();
                    CALL summon_spell(1017, 1 + spellpower / 120, 5000 - (spellpower * 9), spellpower * 400, 2);
                          message (caster, "your bat'll be evil .");
                    #the player lost 50 hp
                    CALL melee_damage(caster, 50, 0);
                    #the player make the emote "5" (evil)
                    FOR i = 0 TO (5) DO (emote(caster, 5); WAIT 500;);
                    CALL gain_xp(1);
                    # in the end of the spell the server say "bats left"
                    ATEND message (caster, "Bats left.");
Lien...
Image
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

Re: sumoning bats

Post by lien » Mon May 10, 2010 7:25 pm

maybe the npc can be him
Image
maybe this .....

Code: Select all

//script
00?-1.gat,?,?,0	script	 no_name	?,{
if ( name == 1 ) @name$ = "Richard";
set @name$, "The Mad Farmer";
    if (Sex)
        set @honorific$, "man";
    if (!Sex)
        set @honorific$, "lady";

if( statudark ==1) goto L_statudark1;
if( detest == 1 ) goto L_again
if (@evil) goto L_evil;
mes "[" + @name$ + "];
mes "\"hello\"";
menu
   "what's your name " L_name,
   "hello"-;
close;
L_evil:
mes "[" + @name$ + "];
mes "\"Hello "+ @honorific$ +" ... I know . your mind is evil like mine "\"";
menu
   "what's your name " L_name,
   "Yes ... and ?" L_next,
   "Hi , you wrong ."-;
mes "[" + @name$ + "];
mes "\" Wrong ? ME ? no way ! but you had no choice . Mwahaha"\"";
next;
mes "[" + @name$ + "];
mes "\"I know . your mind is evil like mine "\"";
   "Yes ... and ?" L_next,
   "[ back away ]"-;
mes "[" + @name$ + "];
mes "\"ok . so good bye . bwahaha !"\"";
    set detest, 1;
    misceffect sfx_magic_war;
    misceffect sfx_magic_war, strcharinfo(0);
    itemheal -Hp, 0;
close;
L_again:
mes "[" + @name$ + "];
mes "\"so this pain make you more obedient ?"\"";
menu "... uh ... yes ...and ?" L_next,
     "no really"-;
close;
L_next:
mes "[" + @name$ + "];
mes "\"oh ! and .... you want some spell ? no ? "\"";
menu "Yes !" L_spellyes,
     "no !"-;
close;
L_spellyes:
if (getskilllv(SKILL_MAGIC_astral) < 2) goto L_noastral
mes "[" + @name$ + "];
mes "\"oh ! you are the greatest of my student ! So I can teatch you the first spell ..*Bwahaha*... I think you'll like it ."\"";
menu
"What is it ?" L_batspell,
"Nevermind"-,
close;
L_noastral:
mes "[" + @name$ + "];
mes "\"MMmm.... maybe you need to be better yourself . MMmm you need to have magic ASTRAL  . I can help you if you are really good"\"";
menu
"Who can help me for that ?" L_questionwho,
"Ok ... nevermind"-;
close;
L_questionwho:
mes "[" + @name$ + "];
mes "\"For myself I don't know who can help you . sorry"\"";
close;
L_batspell:
mes "[" + @name$ + "];
mes "\"it is that one"\"";
    //maybe misceffect sfx_magic_darkastral;
    misceffect sfx_magic_astral;
    areamonster "this", 88, 25, 92, 29, "", 1017, 50;
        message strcharinfo(0), "this spell looks cool !";
next;
mes "[" + @name$ + "];
mes "\"the spell calls some bats . so it's " + getspellinvocation("summon-bat") + " and for call them you need two bat wing or two of their jaw and don't forget the root very important for each magic astral's spell . the bats can attack all monsters of the world !  "\"";
next;
mes "[" + @name$ + "];
mes "\"Now, I want to make a funny thing "\"";
	gmcommand strcharinfo(0)+":@killable ";
	gmcommand strcharinfo(0)+":@heal 1 1 ";
	//Can't know
    mapannounce "???", "you can kill one of my student !", 0;
    npctalk "Bwahahaha !"
set statudark , 1;
close;
L_statudark1:
mes "[" + @name$ + "];
mes "\"Did you like my funny thing ?\"";
menu "No !"-,
     "Mmm .. NO !"-,
     "no really"-,
     "YES [joke]"-;
   mes "[" + @name$ + "];
mes "\"Good for you . Bwahaha !"\"";
close;
L_name:
mes "[" + @name$ + "];
mes "\"My name is richard .\"";
set name , 1;
close;
Image
Post Reply