Перейти к содержанию

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

Карласон

Автор Карласон
в Помощь в скриптинге

 Поделиться

Рекомендуемые сообщения

Карласон Продвинутый пользователь

Карласон

Опубликовано
Опубликовано

Нигде не найду эвенты:

Карты таро.

CLuck Cluck Boom.

Помогите отыскать.На афине даже не нашел.Кто может дайте ссылку где найти их моно.Заранее спс.

Ссылка на комментарий
Поделиться на другие сайты
Kubix! Продвинутый пользователь

Kubix!

Опубликовано
Опубликовано

Нигде не найду эвенты:

Карты таро.

CLuck Cluck Boom.

Помогите отыскать.На афине даже не нашел.Кто может дайте ссылку где найти их моно.Заранее спс.

Клик клик бум, легко сделать самому.А Таро:

Диалоги изменишь сам

by goddameit (eathena.ws)

prontera,150,180,4	script	RR	100,{
if($@RR_RR_RR==2){
	mes "Game Starting";
	close;
}
if($@RR_RR_Nu>=120){
	mes "Full";
	close;
}
select("[Join]");
set $@RR_RR_Na$[set($@RR_RR_Nu,$@RR_RR_Nu+1)],strcharinfo(0);
mes "Ok~";
if($@RR_RR_Nu>=2&&!$@RR_RR_RR){
	set $@RR_RR_RR,1;
	doevent "RR::OnRRRRRR";
}
close;
OnRRRRRR:
	announce "[System]:RR will start in 1min",bc_all;
	sleep 60000;
	for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){ 
		if(!isloggedin(getcharid(3,$@RR_RR_Na$[.rr]))){
			for(set .rr2,.rr;.rr2<=$@RR_RR_Nu;set .rr2,.rr2+1){
				set $@RR_RR_Na$[.rr2],$@RR_RR_Na$[.rr2+1];
			}
			set .rr,.rr-1;
		}else{
			warpchar "guild_vs4",50,50,getcharid(0,$@RR_RR_Na$[.rr]);
			set .rr4,.rr4+1;
		}
	}
	set $@RR_RR_Nu,.rr4;
	sleep 5000;
	mapannounce "guild_vs4","[System]:RR will start in 20sec",bc_map;
	sleep 20000;
	set $@RR_RR_RR,2;
	mapannounce "guild_vs4","[System]:GO!",bc_map;
	sleep 100;
	while(getmapusers("guild_vs4")!=1){
		sleep 1000;
		for(set .rr,1;.rr<=$@RR_RR_Nu;set .rr,.rr+1){
			sleep 1000;
			if(attachrid(getcharid(3,$@RR_RR_Na$[.rr]))){
				if(strcharinfo(3)=="guild_vs4"){
					set .@ui,522+rand(1,14);
					atcommand "@effect "+.@ui;
					if(.@ui==531){
						sleep2 1000;
						warp "SavePoint",0,0;
					}

				}
				detachrid;
			}
		}
	}
	sleep 10000;
	mapwarp "guild_vs4","guild_vs3",50,50;
	deletearray $@RR_RR_Na$[0],128;
	set $@RR_RR_RR,0;
	set $@RR_RR_Nu,0;
	end;
}

Ссылка на комментарий
Поделиться на другие сайты
  • 5 месяцев спустя...
medlmen Продвинутый пользователь

medlmen

Опубликовано
Опубликовано (изменено)

Вот 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;
}

Изменено пользователем medlmen
Ссылка на комментарий
Поделиться на другие сайты
 Поделиться
Перейти к списку тем
×
×
  • Создать...
Яндекс.Метрика