Тема: Swan(Лебедь)
Swan(Лебедь)
Автор: ZzAQ: Дата: 06.11.2008
prontera,139,179,5 script Великий Химик 749,{
if(SG_QUEST1 == 1) goto L_SG_Q2_Done;
mes "[Великий Химик]";
mes "Привет,ты ищешь того кто делает Лебедя";
next;
menu "Да",-,"Нет",L_SG_No;
mes "Я знаю одного человека который видел того кто тебе нужен";
next;
mes "Но эта информация дорого стоит";
next;
mes "Мне нужны ингредеенты для моих опытов принеси мне их и я тебе скажу где он";
next;
menu "Какие ингредеенты",L_SG_1,"Выход",-;
mes "[Великий Химик]";
mes "Человек знающий изготовителя не будет с тобой разговарить, если я де дам ему свое одобрение";
mes "Только я могу сказать ему, что ты придешь.";
next;
mes "[Великий Химик]";
mes "Возвращайся ко мне, когда надумаешь.";
close;
L_SG_1:
mes "[Великий Химик]";
mes "Принеси мне вот эти ингредеенты";
mes "500 Aloe";
mes "500 Amethyst";
mes "500 Animal Skin";
mes "500 Anolian Skin";
mes "500 Antelope Skin";
mes "10 Bapho Jr. Egg";
next;
menu "Отдать",L_SG_1_Check,"Отказаться",-;
mes "[Великий Химик]";
mes "Удачи";
close;
L_SG_1_Check:
if (countitem(704) < 500) goto NoItems;
if (countitem(719) < 500) goto NoItems;
if (countitem(919) < 500) goto NoItems;
if (countitem(7003) < 500) goto NoItems;
if (countitem(7107) < 500) goto NoItems;
if (countitem(9024) < 10) goto NoItems;
delitem 704,500;
delitem 719,500;
delitem 919,500;
delitem 7003,500;
delitem 7107,500;
delitem 9024,10;
getitem 7078,1;
set SG_QUEST1,1;
mes "[Великий Химик]";
mes "Спасибо а теперь слушай внемательно.";
next;
mes "[Великий Химик]";
mes "Ищи Агента у замков Пайона";
mes "Я пошлю ему сообщение что ты пришел от меня.";
next;
mes "Эта вещь понадобить тебе в дальнейшем.";
close;
L_SG_Q2_Done:
mes "[Великий Химик]";
mes "Я больше не чего не могу сказать тебе.";
next;
mes "[Великий Химик]";
mes "Ищи Агента у замков Пайона.";
close;
L_SG_No:
mes "[Великий Химик]";
mes "Удачи";
close;
NoItems:
mes "[Великий Химик]";
mes "У тебя нехватает лута";
close;
}
// 2-я часть квеста
pay_gld,133,227,5 script Мертвый Агент 849,{
if(SG_QUEST1 == 1) goto L_SG_2;
if(SG_QUEST1 == 2) goto L_SG_Q2_Done;
mes "[Мертвый Агент]";
mes "Мой дух еще где то тут. Помоги мне.";
close;
L_SG_2:
mes "[Мертвый Агент]";
mes "Привет,ты ищешь того кто делает Лебедя";
next;
menu "Да",-,"Нет",L_SG_No2;
mes "Я помогу тебе. Но вночале помоги мне.";
next;
mes "Если ты воскресишь меня, то я скажу жде находить этот человек";
next;
menu "Что нужно?",L_SG_2_Start,"Выход",-;
mes "[Мертвый Агент]";
mes "Если ты не поможешь мне. то я не помогу тебе таков закон жизни.";
mes "Удачи";
close;
L_SG_2_Start:
mes "[Мертвый Агент]";
mes "Ты можешь восквесить меня этими ингредеентами";
mes "500 Yggdrasil Leaf";
mes "200 Yggdrasil Seed ";
mes "100 Treasure Box";
mes "1 Wrath of Valkyrie";
next;
menu "Воскресить",L_SG_Q2_Check,"Уйти",-;
mes "[Мертвый Агент]";
mes "Удачи";
close;
L_SG_Q2_Check:
if (countitem(610) < 500) goto NoItems;
if (countitem(608) < 200) goto NoItems;
if (countitem(7444) < 100) goto NoItems;
if (countitem(7078) < 1) goto NoItems;
delitem 610,500;
delitem 608,200;
delitem 7444,100;
delitem 7078,1;
getitem 7141,1;
set SG_QUEST1,2;
mes "[Мертвый Агент]";
mes "У нас не получилось воскресить меня.";
next;
mes "[Мертвый Агент]";
mes "Найди мой дух в Нифлееме и он тебе все раскажет";
next;
mes "Эта вещь понадобить тебе в дальнейшем.";
close;
L_SG_Q2_Done:
mes "[Мертвый Агент]";
mes "Я больше не чего не могу сказать тебе.";
next;
mes "[Мертвый Агент]";
mes "Ищи мой дух в Нифлееме и он тебе все раскажет";
close;
L_SG_No2:
mes "[Мертвый Агент]";
mes "Удачи";
close;
NoItems:
mes "[Мертвый Агент]";
mes "У тебя нехватает лута";
close;
}
// 3-я часть квеста
niflheim,297,218,5 script Дух Агента 795,{
if(SG_QUEST1 == 2) goto L_SG_3;
if(SG_QUEST1 == 3) goto L_SG_Q3_Done;
mes "[Maseph]";
mes "Дух Мертвого Агента";
close;
L_SG_3:
mes "[Дух Агента]";
mes "Ты нашел меня.";
next;
mes "Я помню что ты ищешь.";
next;
menu "Да",-,"Нет",L_SG_No3;
mes "Помоги мне очиститься от моих злодеяний.";
next;
mes "Если ты мне поможешь, я обещаю сказать его именя и место нахождение";
next;
menu "Что нужно?",L_SG_3_Start,"Выход",-;
mes "[Дух Агента]";
mes "Я очень хочу очиститься. а если ты мне не поможешь то я тоже не стану тебе помогать.";
next;
mes "Удачи";
close;
L_SG_3_Start:
mes "[Дух Агента]";
mes "Что бы мне очиститься мне понадобиться";
mes "3 Holy Avenger";
mes "2000 Holy Water";
mes "200 Level 5 Heal";
mes "200 Level 1 Teleport";
mes "1 Morning Dew of Yggdrasi";
next;
menu "Провести очищение Агента",L_SG_Q3_Check,"Уйти",-;
mes "[Дух Агента]";
mes "Удачи";
close;
L_SG_Q3_Check:
if (countitem(1145) < 3) goto NoItems;
if (countitem(523) < 2000) goto NoItems;
if (countitem(12002) < 200) goto NoItems;
if (countitem(12003) < 200) goto NoItems;
if (countitem(7141) < 1) goto NoItems;
delitem 1145,3;
delitem 523,2000;
delitem 12002,200;
delitem 12003,200;
delitem 7141,1;
getitem 670,1;
set SG_QUEST1,3;
mes "[Дух Агента]";
mes "Спасибо ты очистил мой дух.";
next;
mes "[Дух Агента]";
mes "Нужный тебе человек находиться в Лизехтейне эго зовут QK";
next;
mes "Он делелает действительно уникального лебедя";
next;
mes "Эта вещь понадобить тебе в дальнейшем.";
close;
L_SG_Q3_Done:
mes "[Дух Агента]";
mes "Я больше не чего не могу сказать тебе.";
next;
mes "[Дух Агента]";
mes "Ищи QK в Лизехтейне";
close;
L_SG_No3:
mes "[Дух Агента]";
mes "Удачи";
close;
NoItems:
mes "[Дух Агента]";
mes "У тебя нехватает лута";
close;
}
// 4-я часть квеста
lighthalzen,180,200,5 script QK 813,{
if(SG_QUEST1 == 3) goto L_SG_4;
mes "[QK]";
mes "Хорошая погода сегодня. Не так ли?";
close;
L_SG_4:
mes "[QK]";
mes "Привет";
next;
mes "[QK]";
mes "Я смотрю долгий путь ты прошел, чтоб меня найти";
next;
menu "Да",L_SG_4_Start,"Надоел",-;
mes "[QK]";
mes "Удачи";
close;
L_SG_4_Start:
mes "[QK]";
mes "Я могу сделать тебе унекального Лебедя но мне понадобяться ингредеенты.";
next;
mes "3 Amon Ra Card";
mes "3 Baphomet Card";
mes "3 Berzebub Card";
mes "1 Sky Google";
mes "1 Angel Wing";
mes "40 Platinum Billion";
mes "10 Blue A Card";
mes "100 White Dyestuff";
mes "1 Bag of Gold Coins";
next;
menu "Сделать.",L_SG_Q4_Check,"Нет спасибо",-;
mes "[QK]";
mes "Как хочешь. Удачи.";
close;
L_SG_Q4_Check:
if (countitem(4236) < 3) goto NoItems;
if (countitem(4147) < 3) goto NoItems;
if (countitem(4145) < 3) goto NoItems;
if (countitem(22158) < 1) goto NoItems;
if (countitem(22146) < 1) goto NoItems;
if (countitem(7230) < 40) goto NoItems;
if (countitem(7461) < 10) goto NoItems;
if (countitem(982) < 100) goto NoItems;
if(countitem(670) < 1) goto NoItems;
delitem 4236,3;
delitem 4147,3;
delitem 4145,3;
delitem 22158,1;
delitem 22146,1;
delitem 7230,40;
delitem 7461,10;
delitem 982,100;
delitem 670,1;
mes "[QK]";
mes "Твой лебедь почти готов.";
next;
mes "[QK]";
mes "Вот держи, он прекрасен";
getitem 22257,1;
// quest reset
set SG_QUEST1,0;
next;
mes "[QK]";
mes "Наслождайся свои Лебедем.";
close;
NoItems:
mes "[QK]";
mes "У тебя не достаточно лута";
close;
}By Svyatoi
Автор: ZzAQ: Дата: 06.12.2008
1.Квест писал не я!
2.Тут помимо бегатни есть и собирательсто некоторое)
Автор: Dwarf: Дата: 06.12.2008
Да ладно вам ругаться! И беготня и собирательство гуд! Главное что бы квестик был интересный!
Автор: ZzAQ: Дата: 06.12.2008
Да ладно вам ругаться! И беготня и собирательство гуд! Главное что бы квестик был интересный!
Так то да етот скрипт может являтся шабломном для начинающих скриптеров просто меняете буковки имена номера вещей лута и так далее и получаете хороший скрипт придуманый самим сабой!
Автор: Cole McCormick: Дата: 07.14.2008
вот моя версия)
Автор: Cole McCormick: Дата: 08.05.2008
утебя там нарушена табуляция в каждом начале каждого нпц)
Автор: ZzAQ: Дата: 08.05.2008
Чорт вижу :(
Автор: Anton: Дата: 09.21.2008
а что за лебедь? и ето кастом или он есть на всех серверах?
Автор: Anton: Дата: 09.21.2008
слушай а ты немог бы закинуть готовые файлы для сервера и для клиента и спрайты пожалуйста если не тяжело
Автор: Cole McCormick: Дата: 09.22.2008
уже закидывал, ищи гдето на форуме.
Автор: San: Дата: 12.23.2008
киньте плз что нужно кидать в дб
Автор: Cole McCormick: Дата: 12.23.2008
item_db2 естестно) я выкладывал ищи дето тута)
Автор: Cole McCormick: Дата: 12.23.2008
в общем вот, в архиве итем дб каторый в базу импортить надо и грфка сама со спрайтами, но этот итем дб хз я непроверял насколько помню уменя их 2 было 1 полностьюрабочий второй полу рабочий, остался тока этот , какой он хз) но в полурабочем пахало тока 70% всех итемов.
Автор: Cole McCormick: Дата: 12.31.2008
кстате щас эти спрайты почемуто отказываюца работать.
Автор: Squall650: Дата: 01.06.2010
Цитата Naota;2882:
кстате щас эти спрайты почемуто отказываюца работать.
Все спрайты как работали, так и по сей день работают.
Удивительно что это говорит админ форума. ))
Давно занимаюсь спрайтами, виз эфектами на вепон и нечего без ошибок все. ))
Админиы молодцы, все грамотно рассписано тут у вас. Только и вижу постоянные левые вопрос на темы которые давно уже были.
Новичкам быть по внимательнее нужно.