Тема: Пишу скрипты...

Назад

Пишу скрипты...

Автор: XKoriKX: Дата: 02.03.2010

Давно я этим делом не занимался))) Вот вспомнил старые,добрые времена задротства и создания серва. Я предлагаю свою помощьв написании скриптов неписей/эвентов/квестов. Всё это абсолютно бесплатно.
Ну что, высказывайте свои идеи)

Автор: XKoriKX: Дата: 02.03.2010

т.е. ты хочешь чтобы шоп открывался диалогом с неписем??? посмотрю, опишусь.

Автор: 879546: Дата: 02.03.2010

http://www.eathena.ws/board/index.php?showtopic=174107&hl=dynamic+shop

Автор: MaHapX: Дата: 02.03.2010

Цитата 879546;19690][url]http://www.eathena.ws/board/index.php?showtopic=174107&hl=dynamic+shop[/url:


Завтра гляну что там за чудо шоп =) :lol:

Автор: XKoriKX: Дата: 02.03.2010

Ну собственно тебе ссыль дали) Руками написать не получилось(

Автор: Gr1nS1de: Дата: 02.03.2010

Напиши НПЦ который при входе выдаст 1 раз Яблоко(Apple) если ник перса Noob и у него ГМ права = 1 лвлу.

Автор: XKoriKX: Дата: 02.03.2010

На хДД. Поидее эта точка начальна для новых персов.

new_1-1,53,111,1	script	Noob	-1,{

OnTouch:

	if(strcharinfo(0) == Noob) {

	getitem 512,1;

	}

}

Автор: DiS[IP]: Дата: 02.03.2010

[FONT=Lucida Console]Грин просил не только проверку на имя чара,но и на его гм уровень,собственно где он?
if(getgmlevel() => 1){[/FONT]

Автор: Sanasol: Дата: 02.03.2010

Цитата XKoriKX;19696:
На хДД. Поидее эта точка начальна для новых персов.
new_1-1,53,111,1	script	Noob	-1,{

OnTouch:

	if(strcharinfo(0) == Noob) {

	getitem 512,1;

	}

}


ахахахах
new_1-1,53,111,1	script	Noob	-1,{

OnPcloginEvent:

if(Login == 0){

f(getgmlevel() => 1){

	if(strcharinfo(0) == Noob) {

	getitem 512,1;

Set Login,1;

	}}} else { end; }

}

Автор: XKoriKX: Дата: 02.03.2010

про гм лв забыл...

Автор: DiS[IP]: Дата: 02.03.2010

[FONT=Lucida Console]Да и не только про него....:lol:[/FONT]

Автор: XKoriKX: Дата: 02.03.2010

Dis[IP] , вот для чего я думаешь создал тему) Я скрипты оч забыл. Хочу востановить свои знания...

Автор: 879546: Дата: 02.03.2010

Окей! Куче народа жизнь облегчишь, но лично я не справился. Сделай универсального нпц-квестера. Настраивается в игре ГМом выше 60 лвла. При настройке указываются сами вещи и лут, зени на них. Желательно без SQL.

Автор: Gr1nS1de: Дата: 02.04.2010

[COLOR="Green"]Я тебе самый простой скрипт попросил написать xD
Помоему тебе стоит доки щас сидеть и читать... Ну или просматривать старые скрипты! А твоё творение реально улыбнуло :lol:[/COLOR]

Автор: XKoriKX: Дата: 02.04.2010

Гринсайд. ну просто я не всё умею писать... Я же написал, что просто хочу вспомнить, ну и подучить скрипты...
Щас дописывю) Много переменных конечно, но без них никак.

Автор: Sanasol: Дата: 02.04.2010

что ты дописываешь? xD уже все написали давно...

Автор: XKoriKX: Дата: 02.04.2010

Sanasol, нетупи)
Окей! Куче народа жизнь облегчишь, но лично я не справился. Сделай универсального нпц-квестера. Настраивается в игре ГМом выше 60 лвла. При настройке указываются сами вещи и лут, зени на них. Желательно без SQL.

Автор: Gr1nS1de: Дата: 02.04.2010

Как ты можешь вообще помогать кому то, если ты сам не умеешь писать скрипты?

Автор: Sanasol: Дата: 02.04.2010

Цитата XKoriKX;19751:
Sanasol, нетупи)
Окей! Куче народа жизнь облегчишь, но лично я не справился. Сделай универсального нпц-квестера. Настраивается в игре ГМом выше 60 лвла. При настройке указываются сами вещи и лут, зени на них. Желательно без SQL.


Мм. Взять за основу скрипт .

1. Перевести на человеческий(русский:cool:)
2. Заучить что и как там.
3. Модифицировать под квесты.

Автор: XKoriKX: Дата: 02.04.2010

чить позже выложу скрипт... отдохну немного и доделаю

Автор: Sanasol: Дата: 02.04.2010

Скрипт не работает вообще. Все что там правильно работает это

if (getgmlevel() <= 60) goto L_Jump;
первая проверка из двух

Автор: XKoriKX: Дата: 02.05.2010

prontera,150,150,6	script	Квестер	78,{

	mes "Квестер";

	mes "Ку ,"+strcharinfo(0)+".";

	mes "Хочишьли ты пройти кастом квестик на ";

	mes ""+getitemname(#fedol)+"";

	next;

	menu "Да",L_Jump,"Нет",L_figu;

	L_Jump:

		if (getgmlevel() < 60) { goto L_NEGM; }

		mes "Ты можешь поменять требуемый лут на квест,и вещь которая будет за него даваться.";

		next;

		mes "Будешь менять вещь?";

		next;

		switch(select("Да","В магазин")) {

			case 1:

				mes "Выбери сколько вещей нужно на квест.";

				next;

				menu "1",L_1,"2",L_2,"3",L_3,"4",L_4,"5",L_5,"6",L_6;

				L_1:

					mes "Вводим Id вещи, а потом кол-во требуемое на квест.";

					input #kupar1;

					input #lololol1;

					mes "Вы выбрали "+getitemname(#kupar1)+","+#lololol1+".";

					next;

					mes "Введите Id вещи, которую вы получите по прохождению квеста.";

					input #fedol; mes "Это будет "+getitemname(#fedol)+".";

					next;

					mes "Введи кол-во денег, требуемую за вещь.";

					input #zene4ki;

					set #google,1;

					close;

				L_2:

					mes "Вводим Id вещи, а потом кол-во требуемое на квест.";

					input #kupar1;

					input #lololol1;

					input #kupar2;

					input #lololol2;

					mes "Вы выбрали "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+".";

					next;

					mes "Введите Id вещи, которую вы получите по прохождению квеста.";

					input #fedol; mes "Это будет "+getitemname(#fedol)+".";

					next;

					mes "Введи кол-во денег, требуемую за вещь.";

					input #zene4ki;

					set #google,2;

					close;

				L_3:

					mes "Вводим Id вещи, а потом кол-во требуемое на квест.";

					input #kupar1;

					input #lololol1;

					input #kupar2;

					input #lololol2;

					input #kupar3;

					input #lololol3;

					mes "Вы выбрали "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+".";

					next;

					mes "Введите Id вещи, которую вы получите по прохождению квеста.";

					input #fedol; mes "Это будет "+getitemname(#fedol)+".";

					next;

					mes "Введи кол-во денег, требуемую за вещь.";

					input #zene4ki;

					set #google,3;

					close;

				L_4:

					mes "Вводим Id вещи, а потом кол-во требуемое на квест.";

					input #kupar1;

					input #lololol1;

					input #kupar2;

					input #lololol2;

					input #kupar3;

					input #lololol3;

					input #kupar4;

					input #lololol4;

					mes "Вы выбрали "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+".";

					next;

					mes "Введите Id вещи, которую вы получите по прохождению квеста.";

					input #fedol; mes "Это будет "+getitemname(#fedol)+".";

					next;

					mes "Введи кол-во денег, требуемую за вещь.";

					input #zene4ki;

					set #google,4;

					close;

				L_5:

					mes "Вводим Id вещи, а потом кол-во требуемое на квест.";

					input #kupar1;

					input #lololol1;

					input #kupar2;

					input #lololol2;

					input #kupar3;

					input #lololol3;

					input #kupar4;

					input #lololol4;

					input #kupar5;

					input #lololol5;

					mes "Вы выбрали "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+":"+getitemname(#kupar5)+","+#lololol5+".";

					next;

					mes "Введите Id вещи, которую вы получите по прохождению квеста.";

					input #fedol; mes "Это будет "+getitemname(#fedol)+".";

					next;

					mes "Введи кол-во денег, требуемую за вещь.";

					input #zene4ki;

					set #google,5;

					close;

				L_6:

					mes "Вводим Id вещи, а потом кол-во требуемое на квест.";

					input #kupar1;

					input #lololol1;

					input #kupar2;

					input #lololol2;

					input #kupar3;

					input #lololol3;

					input #kupar4;

					input #lololol4;

					input #kupar5;

					input #lololol5;

					input #kupar6;

					input #lololol6;

					mes "Вы выбрали "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+":"+getitemname(#kupar5)+","+#lololol5+":"+getitemname(#kupar6)+","+#lololol6+".";

					next;

					mes "Введите Id вещи, которую вы получите по прохождению квеста.";

					input #fedol; mes "Это будет "+getitemname(#fedol)+".";

					next;

					mes "Введи кол-во денег, требуемую за вещь.";

					input #zene4ki;

					set #google,6;

					close;

			case 2:

		if (#google == 1) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+".";}

		if (#google == 2) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+".";}

		if (#google == 3) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+".";}

		if (#google == 4) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+".";}

		if (#google == 5) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+":"+getitemname(#kupar5)+","+#lololol5+".";}

		if (#google == 6) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+":"+getitemname(#kupar5)+","+#lololol5+":"+getitemname(#kupar6)+","+#lololol6+".";}

			next;

				mes "А также "+#zene4ki+" зенек";

				next;

					mes "Вы готовы сделать "+getitemname(#fedol)+"?";

					next;

					menu "Да",L_Davai,"Нет",L_figu;

			L_NEGM:

		if (#google == 1) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+".";}

		if (#google == 2) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+".";}

		if (#google == 3) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+".";}

		if (#google == 4) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+".";}

		if (#google == 5) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+":"+getitemname(#kupar5)+","+#lololol5+".";}

		if (#google == 6) {

			mes "Вам потребуются "+getitemname(#kupar1)+","+#lololol1+":"+getitemname(#kupar2)+","+#lololol2+":"+getitemname(#kupar3)+","+#lololol3+":"+getitemname(#kupar4)+","+#lololol4+":"+getitemname(#kupar5)+","+#lololol5+":"+getitemname(#kupar6)+","+#lololol6+".";}

			next;

				mes "А также "+#zene4ki+" зенек";

				next;

					mes "Вы готовы сделать "+getitemname(#fedol)+"?";

					next;

					menu "Да",L_Davai,"Нет",L_figu;

	L_Davai:

		if (#google == 6) { if (countitem(#kupara1)>=#lololol1 || countitem(#kupara2)>=#lololol2 || countitem(#kupara3)>=#lololol3 || countitem(#kupara4)>=#lololol4 || countitem(#kupara5)>=#lololol5 || countitem(#kupara6)>=#lololol6 || zeny>=#zene4ki) { goto L_OK; }}

		if (#google == 1) { if (countitem(#kupara1)>=#lololol1 || zeny>=#zene4ki) { goto L_OK; }}

		if (#google == 2) { if (countitem(#kupara1)>=#lololol1 || countitem(#kupara2)>=#lololol2 || zeny>=#zene4ki) { goto L_OK; }}

		if (#google == 3) { if (countitem(#kupara1)>=#lololol1 || countitem(#kupara2)>=#lololol2 || countitem(#kupara3)>=#lololol3 || zeny>=#zene4ki) { goto L_OK; }}

		if (#google == 4) { if (countitem(#kupara1)>=#lololol1 || countitem(#kupara2)>=#lololol2 || countitem(#kupara3)>=#lololol3 || countitem(#kupara4)>=#lololol4 || zeny>=#zene4ki) { goto L_OK; }}

		if (#google == 5) { if (countitem(#kupara1)>=#lololol1 || countitem(#kupara2)>=#lololol2 || countitem(#kupara3)>=#lololol3 || countitem(#kupara4)>=#lololol4 || countitem(#kupara5)>=#lololol5 || zeny>=#zene4ki) { goto L_OK; }}

		mes "У вас нет ингридеентов. Как всё принесёте, так и отдам))";

		close;

	L_OK:

		if (#google == 1) {

		delitem #kupar1,#lololol1;

		getitem #fedol,1;

		set Zeny,Zeny-#zene4ki;

		mes "Вот ваш предмет)";

		close;

		}

		if (#google == 2) {

		delitem #kupar1,#lololol1;

		delitem #kupar2,#lololol2;

		getitem #fedol,1;

		set Zeny,Zeny-#zene4ki;

		mes "Вот ваш предмет)";

		close;

		}

		if (#google == 3) {

		delitem #kupar1,#lololol1;

		delitem #kupar2,#lololol2;

		delitem #kupar3,#lololol3;

		getitem #fedol,1;

		set Zeny,Zeny-#zene4ki;

		mes "Вот ваш предмет)";

		close;

		}

		if (#google == 4) {

		delitem #kupar1,#lololol1;

		delitem #kupar2,#lololol2;

		delitem #kupar3,#lololol3;

		delitem #kupar4,#lololol4;

		getitem #fedol,1;

		set Zeny,Zeny-#zene4ki;

		mes "Вот ваш предмет)";

		close;

		}

		if (#google == 5) {

		delitem #kupar1,#lololol1;

		delitem #kupar2,#lololol2;

		delitem #kupar3,#lololol3;

		delitem #kupar4,#lololol4;

		delitem #kupar5,#lololol5;

		getitem #fedol,1;

		set Zeny,Zeny-#zene4ki;

		mes "Вот ваш предмет)";

		close;

		}

		if (#google == 6) {

		delitem #kupar1,#lololol1;

		delitem #kupar2,#lololol2;

		delitem #kupar3,#lololol3;

		delitem #kupar4,#lololol4;

		delitem #kupar5,#lololol5;

		delitem #kupar6,#lololol6;

		getitem #fedol,1;

		set Zeny,Zeny-#zene4ki;

		mes "Вот ваш предмет)";

		close;

	L_figu:

		mes "Приходи ещё, может ты успеешь на супер распрадажу!)";

		close;

		}

	}

}


P.S. Спасибо за помощь с проверкой Sanasol'y

Автор: Bazerg: Дата: 03.29.2010

Можеш написать такой скрипт к примеру: у нпц будут кахи 2-х цветов там синие и сверху белые, но вот чтобы обменивать на такие кахи любые уже покрашенные или обынчые, если сможеш буду благодарен, я немогу представить в башке как это сделать

Автор: Rectedo: Дата: 03.29.2010

дава я напишу, ID говори кахов.

Автор: Bazerg: Дата: 03.29.2010

Цитата Rectedo;21556:
дава я напишу, ID говори кахов.

айди неважен просто примерный вид скрипта, чтобы потом ориентироваться, заранее спс

Автор: Rectedo: Дата: 03.29.2010



if (countitem(KAHOID_1) > 0) {

delitem KAHOID_1,1;

getitem KAHO_ID,1;

}

if (countitem(KAHOID_2) > 0) {

delitem KAHOID_2,1;

getitem KAHO_ID,1;

примерно так...

Автор: Nazar: Дата: 05.02.2010

можеш пожалусто мне помоч из нпц варпера,джоб мастера,стилиста)) и арену) пожалусто!

Автор: nomn: Дата: 05.02.2010

Цитата Nazar;22829:
можеш пожалусто мне помоч из нпц варпера,джоб мастера,стилиста)) и арену) пожалусто!


много букв, мало смысла.

Автор: Renegade: Дата: 05.02.2010

Уж начал думать что я один не понимаю стилистику речи современной молодёжи. Плюсанул Рафу :)

Автор: XKoriKX: Дата: 05.02.2010

Я вообще не понял что он написал ГГГ)))

Автор: DarkWolf: Дата: 05.18.2010

XKoriKX брр нуб?

Автор: XKoriKX: Дата: 05.18.2010

А ты чем лучше??)))

Автор: Renegade: Дата: 05.18.2010

а вот и не подерётесь, а вот и не до крови

Автор: DarkWolf: Дата: 05.18.2010

Цитата Renegade;23495:
а вот и не подерётесь, а вот и не до крови


ыыы))))

Автор: XKoriKX: Дата: 05.18.2010

Цитата Renegade;23495:
а вот и не подерётесь, а вот и не до крови


Под столом))) Всё, хватит флудить)))