medlmen

14 июля, 2012

А ты тольк локацыи рисуиш?

14 июля, 2012

Все поправил.

14 июля, 2012

Круто кастом локи рисуиш?

14 июля, 2012

Я хз как их тут делать.

14 июля, 2012

Спасиб огромное с меня +

14 июля, 2012

Ну мб он до етого момента его не нашол.

14 июля, 2012

спс

14 июля, 2012

Вот CLuck Cluck Boom.

prontera,187,209,4	script	Stop The Clock::Ev_StopClock	485,{

	if (getgmlevel() == 50) goto L_GM;	
	if ($@kc > 0 && @kcid != $@kcid) goto L_eventstarted;
	mes "[Stop The Clock]";
	mes "Здравствуй ^FF0000"+strcharinfo(0)+"^000000, чем могу помочь?";
	menu "^FF0000[Stop The Clock]^000000 информация",L_info,"Выход",-;
	close;

L_info:
	next;
	mes "[Stop The Clock]";
	mes "^FF0000Stop the clock^000000 это игра, где нужно кликать на нпц";
	next;
	mes "[Stop The Clock]";
	mes "Человек, который часы ближе к 1000 остановит, победит!";
	mes "^FF0000[Note] Чтобы иметь шанс к победе нужно оставить часы от 950 до 1000^000000";
	next;
	mes "[Stop The Clock]";
	mes "Приз: ^FF0000["+getitemname($itemid)+"]^000000";
	close;

L_eventstarted:
			set @kcid,$@kcid;
			setd ".timing_" + .number, $@kc;
			setd ".player_" + .number + "$", strcharinfo(0);
			set .number, .number+1;
			if ($@kc == 1000) {
		 announce "ДжекПот! "+strcharinfo(0)+" остановил часы на "+$@kc+".",0,0x00EEFF;
	  } else {
			announce ""+strcharinfo(0)+" остановил часы на "+$@kc+".",0,0x00EEFF;
			}
		 end;

L_GM:
	  mes "[Stop The Clock]";
	  mes "Дарова Администратор, что хотели?";
	  mes "Приз: ^FF0000["+getitemname($itemid)+"]^000000";
	  menu "Изменить приз",L_configure,"Начать эвент",-,"Остановить эвент",L_stop;
	  if (.start == 1) goto L_started;
	  next;
	  mes "[Stop The Clock]";
	  mes "Эвент стартовал";
	  close2;

L_startevent:
	  set .start, 1;
		announce "[Stop The Clock] Старт через 1 минуту!",0,0xE38217;		
sleep2 30000;
		if (.start == 0) goto L_suddenstop;
		announce "[Stop The Clock] Старт через 30 секунд!",0,0xE38217;	  
sleep2 20000;
		if (.start == 0) goto L_suddenstop;
		announce "[Stop The Clock] Старт через 10 секунд!",0,0xE38217;
sleep2 5000;
		if (.start == 0) goto L_suddenstop;
		announce "[Stop The Clock] Старт через 5 секунд!",0,0xE38217;
sleep2 5000;
		if (.start == 0) goto L_suddenstop;
	  announce "[Stop The Clock] Начался! Клик, клик!",0,0xE38217;
		set .number, 1;
		set .count, 1000;
		set .winner, 0;
		set $@kc,0;
		set $@kci,0;
		set $@kcid,rand(100000,999999);
		while ($@kc < 1100) {
			set $@kc,$@kc+1;
			set $@kci,$@kci+1;
			if ($@kci == 100 || ($@kci == 10 && $@kc > 600) || ($@kci == 1 && $@kc >= 950 && $@kc < 1050)) {
			if (.start == 0) goto L_suddenstop;
			announce $@kc,0;
				set $@kci,0;
				specialeffect 18;
			}
		 sleep 10;
		}
		set $@kc,0;
		set .start, 0;
		set .players, .number+1;

onfinish:
	  sleep 1;
	  if (.count == 949) goto onfinish3;
	  if (getd(".timing_" + .number) == .count) goto L_winner1;
	  set .number, .number-1;
	  if (.number != 0) goto onfinish;
	  set .number, 1;
	  if (.winner == 1) goto onfinish3;
	  set .count, .count-1;

onfinish2:
	  sleep 1;
	  if (.count == 949) goto onfinish3;
	  if (getd(".timing_" + .number) == .count) goto L_winner2;
	  set .number, .number+1;
	  if (.number != .players) goto onfinish2;
	  set .number, .number-1;
	  if (.winner == 1) goto onfinish3;
	  set .count, .count-1;
	  goto onfinish;

L_winner1:
	  if (getd(".timing_" + .number) == 1000) {
	  announce ""+getd(".player_" + .number + "$")+" wins! (Prize x2 for stopping exactly on 1000)",0;
	  charcommand "#item " + $itemid + " 2 " + getd(".player_" + .number + "$");
	} else {
	  announce ""+getd(".player_" + .number + "$")+" wins!",0;
	  charcommand "#item " + $itemid + " 1 " + getd(".player_" + .number + "$");
	  }
	  set .number, .number-1;
	  set .winner, 1;
	  goto onfinish;

L_winner2:
	  if (getd(".timing_" + .number) == 1000) {
	  announce ""+getd(".player_" + .number + "$")+" wins! (Prize x2 for stopping exactly on 1000)",0;
	  charcommand "#item " + $itemid + " 2 " + getd(".player_" + .number + "$");
	} else {
	  announce ""+getd(".player_" + .number + "$")+" wins!",0;
	  charcommand "#item " + $itemid + " 1 " + getd(".player_" + .number + "$");
	  }
	  set .number, .number+1;
	  set .winner, 1;
	  goto onfinish2;

onfinish3:
	  sleep 1;
	  set .number, .players-1;
	  while (.number != 0) {
	  set getd(".timing_" + .number), 0;
	  set .number, .number-1;
	  }
	  end;

L_started:
	  next;
	  mes "[Stop The Clock]";
	  mes "Эвент уже стартовал!";
	  close;

L_configure:
	  next;
	  mes "[Stop The Clock]";
	  mes "Пожалуйста введите id приза.";
	  input $itemid;
	  next;
	  mes "[Stop The Clock]";
	  mes "Уверены что хотите ^FF0000"+getitemname($itemid)+"^000000 изменить приз эвента?";
	  menu "Да",-,"Нет",L_no;
	  next;
	  mes "[Stop The Clock]";
	  mes "Приз изменен на ^FF0000["+getitemname($itemid)+"]^000000.";
	  next;
	  goto L_GM;

L_no:
	  goto L_configure;

L_stop:
	  next;
	  if (.start == 1) {
	  mes "[Stop The Clock]";
	  mes "Эвент стартовал, уверены что хотите остановить эвент?";
	  menu "Да",-,"Нет",-;

	  if (@menu == 1) {
			next;
			set .start, 0;
			mes "[Stop The Clock]";
			mes "Эвент остановлен";
			next;
			goto L_GM;
	  } else {
			next;
			goto L_GM;
			}
	  } else {
	  mes "[Stop The Clock]";
	  mes "Эвент уже начался!";
	  close;
	  }

L_suddenstop:
	  announce "[Stop The Clock] Эвент остановлен администрацией",0,0xE38217;
	  end;

OnClock1800:
	  if (gettime(4) == 1 || gettime(4) == 3 || gettime(4) == 5 || gettime(4) == 7) end;
	  goto L_startevent;
}

14 июля, 2012

Дело в том што на локацыи не ламаитца бб што нужно зделать штобы Ламалось вот скрипт.

// Branch Rooms warper with password for private rooms.
// Scripted by: [Leon]

prontera,140,182,1	script	Branch Arena	107,{

	//NPC SETTINGS ~
	//Сколька нужно zeny чтобы попасть на приватную комнату?
	set @privatezeny, 10000000;
	//Сколька нужно zeny чтобы попасть на публичную комнату?
	set @publiczeny, 5000000;
	//Какого npc имя ты хотел написать сообщение?
	set @npcname$, "Branch Room";

L_start:
	set @header$,"[^0000ff" + @npcname$ + "^000000]";
	mes @header$;
	mes "Привет. Чтобы вы хотели сделать?";
	next;
	switch (select("Зарезервируйте частную комнату",
					"Использовать публичную комнату [^ff0000" + getmapusers("pvp_y_1-5") + "^000000]",
					"Выйти")){
	case 1:
		mes @header$;
		mes "Чтобы  зарезервировать частную арену вам требуется иметь ^ff0000" + @privatezeny + " zeny^000000.";
		mes "Пожалуйста выберите частную комнату.";
		next;
		set @room, select("Частная комната 1 [^ff0000" + getmapusers("pvp_n_1-1") + "^000000]",
							"Частная комната 2 [^ff0000" + getmapusers("pvp_n_1-2") + "^000000]",
							"Частная комната 3 [^ff0000" + getmapusers("pvp_n_1-3") + "^000000]",
							"Частная комната 4 [^ff0000" + getmapusers("pvp_n_1-4") + "^000000]",
							"Частная комната 5 [^ff0000" + getmapusers("pvp_n_5-1") + "^000000]",
							"Частная комната 6 [^ff0000" + getmapusers("pvp_n_6-1") + "^000000]",
							"Частная комната 7 [^ff0000" + getmapusers("pvp_n_7-1") + "^000000]",
							"Частная комната 8 [^ff0000" + getmapusers("pvp_n_8-1") + "^000000]");
		set @mapname$, "pvp_n_" + @room + "-1";
		if (zeny < @privatezeny){
			mes @header$;
			mes "Жаль, но вы не имеете достаточного количества zeny. Хотели бы вы использовать общественную комнату? [^ff0000" + getmapusers("pvp_y_1-5") + "^000000]";
			next;
			if (select("Да","Нет") == 1) goto L_publicroom;
			goto L_start;
		}
		if (getmapusers(@mapname$) < 1){
			mes @header$;
			mes "Пожалуйста введите пороль. Люди которые не знают пороля, не смогут зайти в эту частную комнату.";
			next;
			input @pass$;
			if (getmapusers(@mapname$) > 0){
				mes @header$;
				mes "Жаль, но комната была взята, в то время как мы болтали.";
				goto L_start;
			}
			set .pass$[@room],@pass$;
			warp @mapname$,0,0;
			set zeny, zeny - @privatezeny;
			end;
		} else {
			mes @header$;
			mes "В этой комнате есть уже кто - то. Пожалуйста введите его пароль, чтобы попасть туда.";
			next;
			input @pass$;
			if (@pass$ != .pass$[@room]) {
				mes @header$;
				mes "Извените, но пороль не правильныйt.";
				next;
				goto L_start;
			}
			warp @mapname$,0,0;
			end;
		}
	case 2:
	L_publicroom:
		mes @header$;
		mes "Вход в общественную комнату будит стоить ^ff0000" + @publiczeny + " zeny^000000.";
		next;
		if (zeny < @publiczeny){
			mes @header$;
			mes "Извените, но вы не имеете достаточно количества zeny.";
			next;
			goto L_start;
		}
		menu "Войти в общественную комнату",-;
		mes @header$;
		mes "Пожалуйста имейте в виду.Администрация не несет отвественности на случай, если у вас украли монстра, используя общественную комнату.";
		close2;
		set zeny, zeny - @publiczeny;
		warp "pvp_y_1-5",0,0;
		end;


	case 3:
		mes @header$;
		mes "Приходите ещё.";
		close;
	}

}

//Nowarpto mapflags, so you won't be able to @warp to those maps.
pvp_n_1-1	mapflag	nowarpto
pvp_n_1-2	mapflag	nowarpto
pvp_n_1-3	mapflag	nowarpto
pvp_n_1-4	mapflag	nowarpto
pvp_n_5-1	mapflag	nowarpto
pvp_n_6-1	mapflag	nowarpto
pvp_n_7-1	mapflag	nowarpto
pvp_n_8-1	mapflag	nowarpto
pvp_y_1-5	mapflag	nowarpto

14 июля, 2012

Спс огромное.

Войти

medlmen

Постов

Зарегистрирован

Посещение

Победитель дней

Тип контента

Профили

Форумы

Загрузки

Сообщения, опубликованные medlmen

Вторая работа.

Branch Arena

Вторая работа.

Branch Arena

Branch Arena

Эвенты.[Помощь]

Карты FeelRO

Эвенты.[Помощь]

Branch Arena

MvP обменник

Сайт

Активность