new_zone04,66,182,4 script Непоседа 445,{
set @name$,"^999999[Непоседа]^000000";
//===================================|
if(WP_QUEST1 == 1) goto L_WP_QUEST1_DONE;
mes @name$;
mes "Пппрррииивеееттт!!!";
mes "А ты знаешь о красивейшем цветке ^CCCCCCWhite Petal^000000?";
mes "Поиграй со мной немного,и я расскажу как его можно получить.";
next;
menu "Хм,ну давай поиграем",L_play,"У меня нет времени для игр!",L_bye;
L_play:
mes @name$;
mes "Я загадал число от 1 до 33,если ты угадаешь его то,я отправлю тебя к своей сестре.";
mes "А она расскажет как получить ^CCCCCCWhite Petal^000000";
next;
L_input:
set @ranum,rand(1,33);
mes @name$;
mes "Вводи число";
input @num;
if(@num == @ranum) goto L_Win;
next;
mes @name$;
mes "Ха-ха,неправильно,я загал число ^0000FF"+@ranum+"^000000.";
mes "Попробуешь еще раз?";
next;
menu "Да",L_input,"Нет,с меня хватит!",L_bye;

L_Win:
mes @name$;
mes "Поздравляю, введеное число верное!";
next;
mes "Моя сестра находится на Яваях,на острове в виде сердца.";
mes "Я передам ей,что ты прийдешь,она будет ждать тебя.";
set WP_QUEST1,1;
next;
mes @name$;
mes "Мне очень понравилось играть с тобой,вот тебе мой маленький подарок!";
getitem 558,1;
close;

L_bye:
mes @name$;
mes "Приходи попозже!";
emotion e_kis;
close;

L_WP_QUEST1_DONE:
mes @name$;
mes "Моя сестра ждет тебя на Яваях,иди же быстрее к ней!";
emotion 0;
close;
}

jawaii,203,294,4 script Ельфенок 438,{
//============Настройки==============|
set @name$,"^999999[Ельфенок]^000000";
set @lootid1,7227;
set @lootid2,982;
set @lootid3,2269;
set @lootnum1,1;
set @lootnum2,3;
set @lootnum3,1;
set @price,1000000;
set @flowerid,5206;
//==========Конец настроек===========|
if(WP_QUEST1 == 1) goto L_WP_QUEST2;
mes @name$;
mes "Жизнь прекрасна,неправда ли?";
mes "Я приехала на этот остров совсем недавно но,мне кажется,что я жила здесь всю свою жизнь.";
mes "Теперь он станет мне родным домом";
mes "Желаю и тебе найти свой дом.";
close;

L_WP_QUEST2:
mes @name$;
mes "Приветики, ^FF0000"+ strcharinfo(0) + "^000000!";
mes "Отличный сегодня день,правда?";
next;
mes @name$;
mes "Ты наверно хочешь получить ^CCCCCC"+getitemname(@flowerid)+"^000000?";
mes "Далеко не каждому повезло стать обладателем сего прекрасного цветка.";
next;
menu "Да,я мечтаю о нем",-,"Мне ненужно всякое барахло",L_No;
mes @name$;
mes "Принеси мне нужные ингридиенты,и я сделаю для тебя ^CCCCCC"+getitemname(@flowerid)+"^000000.";
mes ""+@lootnum3+"x ^0000FF"+getitemname(@lootid3)+"^000000";
mes ""+@lootnum2+"x ^0000FF"+getitemname(@lootid2)+"^000000";
mes ""+@lootnum1+"x ^0000FF"+getitemname(@lootid1)+"^000000";
mes "И символическое вознаграждение суммой в "+@price+" зеней";
next;
mes @name$;
mes "У тебя есть нужные мне ингридиенты?";
next;
menu "Да,вот держи",L_Checkloot,"Нет,я подойду попозже",L_findloot;
L_Checkloot:
if(countitem(@lootid3) < @lootnum3 || countitem(@lootid2) < @lootnum2 || countitem(@lootid1) < @lootnum1) goto L_Needloot;
if(Zeny < @price) goto L_needzeny;
next;
mes @name$;
mes "Замечательно,у тебя есть все необходимое,держи свой ^CCCCCC"+getitemname(@flowerid)+"^000000";
delitem @lootid3,@lootnum3;
delitem @lootid2,@lootnum2;
delitem @lootid1,@lootnum1;
set Zeny,zeny - @price;
getitem @flowerid,1;
set WP_QUEST1,0;
close;

L_No:
mes @name$;
mes "Зря вы так говорите о моем шикарном акссесуаре.";
close;

L_findloot:
mes @name$;
mes "Приходи,когда будут все ингридиенты.";
close;
L_Needloot:
mes @name$;
mes "У тебя недостаточно ингридиентов.";
close;
L_needzeny:
mes @name$;
mes "У тебя недостаточно зеней.";
close;
}