PVP Ladder TXT 1.7.2

Enwteyn · 21 октября, 2012


//===== eAthena Script =======================================
//= eAthena PVP-Ladder
//===== By: ==================================================
//= Terces
//===== Current Version: =====================================
//= 1.7.2
//===== Compatible With: =====================================
//= Any Athena Version that has "for" implemented
//===== Credits: =============================================
//= The whole eAthena Board and the eAthena Chat
//===== Notes: ===============================================
//= Note 1:
//= Experience gain works like this formula:
//= ($@LadderLength-(<new position>-1))*$@LadderExp
//= so if someone gets the first place he'll get
//= $@LadderLength*$@LadderExp experience points.
//============================================================
//= Fixxed by Dante
//= V1.7.2
//= Hosted by Dant3 aka Dante
// HAFE FUN! READ THE TOPIC! IT DONT WORKS MAYBE ON OLDER REV
//
//
//  LAST UPDATE: 12th,February.2008
//
// Main Script - Terces (Main Thanks to Terces )
// V1.7.0 - Dant3
// v1.7.1 - AnnieRuRu
// v1.7.2 - Dant3


// THIS SCRIPT WORKS ONLY ON THE NEW EATHENA REVISIONS! ENJOY!


-	script	PVPLADDEROPTIONS	-1,{
end;
OnInit:
// 0 = Disabled (NO)
// 1 = Enable   (YES)
set $@languageselect, 0;	//Enable/Disable language selection [English/German] (Default: 1)
set $@LadderAnnounce, 0;	//Enable/Disable the announcement when a char reaches a new position in the ladder (Default: 1)


set $@LadderLength, 10;		//Set the length of the Ladder [!Not higher than 128!] (Default: 30)
set $@LadderSteps, 5;		//Set the views per page (Default: 10)


set $@LadderExpGain, 100;		//Enable/Disable experience gain when reaching a new position in the ladder (*Note1)
set $@LadderExp, 150;		//Set Experience gain value (*Note1)


// Update v1.7.0
set $@LadderZenyGain, 1;	//Enable/Disable zeny gain when reaching a new position in the ladder
set $@LadderZeny, 100;		//Set Zeny gain value 
set $@LadderChatRoom, 1;	//Enable/Disable an Chat Room over the NPC with the message "PvP Ladder" (Users can not enter the Chat room) 


// Update v1.7.1 (Thanks to AnnieRuRu)
// Added GM PvP Ladder Reset Function


// Update v1.7.2
// Thanks to for the Feedback
set $@LadderAskLogin, 1;	//Enable/Disable that the NPC asks about the Broadcast when a Player logins / or  with the Npc Chat (0 = Login Ask , 1 = Npc Chat) Related: 0
}


-	script	PVPLADDERS	-1,{
OnPCKillEvent:
if (terces_PVP_resets != $terces_PVP_resets) {
	dispbottom "Please relog your character, in order to get the correct kills for you in the PVP ladder.";
	dispbottom "Because a GM just reset the ladder.";
	end;
}
if ( killedrid == getcharid(3) ) {
	set PVPDeaths, PVPDeaths +1;
	set #PVPDeathsAccount, #PVPDeathsAccount +1;
	set @PVPDeathstoday, @PVPDeathstoday +1;
	end;
}
set $@PVPcounter,$@PVPcounter+1;
set getd("$@PVPKill"+$@PVPcounter),getcharid(3);	//getd to avoid errors when more than 1 people kill someone
attachrid(killedrid);
set PVPDeaths,PVPDeaths+1;
set @PVPDeathstoday,@PVPDeathstoday+1;
set #PVPDeathsAccount,#PVPDeathsAccount+1;
set getd("$@PVPkilledplayer"+$@PVPcounter+"$"), strcharinfo(0);	//again, getd to avoid possible glitches
detachrid;


attachrid(getd("$@PVPKill"+$@PVPcounter));
CountKills:
	set PVPKills,PVPKills+1;
	set @PVPKillstoday,@PVPKillstoday+1;
	set #PVPKillsAccount,#PVPKillsAccount+1;
	setarray @playerstats[0],@PVPKillstoday,@PVPDeathstoday,PVPKills,PVPDeaths,#PVPKillsAccount,#PVPDeathsAccount;


l_ladder:
	set @considerdeath,0;
	for (set @PosinLadder, 0; @PosinLadder < $@LadderLength; set @PosinLadder, @PosinLadder + 1){
		if (PVPKills >= $terces_PVP_kills[@PosinLadder]){	//Player deserves to be in the ladder
			//Check if Death plays a role on the position
			if ((PVPKills == $terces_PVP_kills[@PosinLadder]) && (PVPDeaths > $terces_PVP_deaths[@PosinLadder])) set @considerdeath,1; //Consider Deaths
			//Check if the player only topped his own scores
			if ($terces_PVP_names$[@PosinLadder] == strcharinfo(0)){
				set $terces_PVP_kills[@PosinLadder],PVPKills;
				set $terces_PVP_deaths[@PosinLadder],PVPDeaths;
				end;
			}
			//Moves all characters in the Ladder
			for (set @beginmoving, $@LadderLength; @beginmoving >= (@PosinLadder+@considerdeath); set @beginmoving, @beginmoving - 1){
				if ($terces_PVP_names$[@beginmoving] == strcharinfo(0)){
					//If the player already is in the Ladder it only has to move players between characters new position and characters old position
					callsub L_LadderMove,0;
					end;
				}
				else if (@beginmoving == (@PosinLadder+@considerdeath)){
					//Player is not in the Ladder and therefor it has to move all players from characters new position downwards
					callsub L_LadderMove,1;
					end;
				}
			}
			end;
		}
	}




L_LadderMove:
	if (getarg(0) == 0) set @length,@beginmoving;
	if (getarg(0) == 1) set @length,$@LadderLength;
	for (set @movecycle, @length; @movecycle > (@PosinLadder+@considerdeath);
	 set @movecycle, @movecycle - 1){


		set $terces_PVP_names$[@movecycle],$terces_PVP_names$[(@movecycle-1)];
		set $terces_PVP_kills[@movecycle],$terces_PVP_kills[(@movecycle-1)];
		set $terces_PVP_deaths[@movecycle],$terces_PVP_deaths[(@movecycle-1)];
		set $terces_PVP_times[@movecycle],$terces_PVP_times[(@movecycle-1)];
	}
	//sets the character's stats in the new position
	set $terces_PVP_names$[(@PosinLadder+@considerdeath)],strcharinfo(0);
	set $terces_PVP_kills[(@PosinLadder+@considerdeath)],PVPKills;
	set $terces_PVP_deaths[(@PosinLadder+@considerdeath)],PVPDeaths;
	set $terces_PVP_times[(@PosinLadder+@considerdeath)],gettimetick(2);
	//Experience Gain
	if ($@LadderExpGain == 1){
		set BaseExp,BaseExp+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp);
		dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderExp)+" base experience points";
	}
	//Zeny Gain
	if ($@LadderZenyGain == 1){
		set Zeny,Zeny+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny);
		dispbottom "You have just been rewarded with "+(($@LadderLength-((@PosinLadder+@considerdeath)-1))*$@LadderZeny)+" Zeny";
	}
	//Announcement (Setting for Char)
	if (pvpbroadcast == 2){
	announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16;
	}
	//Announcement (Setting for Account)
	if (#pvpbroadcast == 2){
	announce strcharinfo(0)+" just claimed the "+((@PosinLadder+@considerdeath)+1)+". Position in the Top "+$@LadderLength+" after killing "+getd("$@PVPkilledplayer"+$@PVPcounter+"$")+".",16;
	}
	end;


OnPCLoginEvent:
if (terces_PVP_resets != $terces_PVP_resets){
		set PVPDeaths,0;
		set @PVPDeathstoday,0;
		set #PVPDeathsAccount,0;
		set PVPKills,0;
		set @PVPKillstoday,0;
		set #PVPKillsAccount,0;
		set terces_PVP_resets,$terces_PVP_resets;
	}
if ($@LadderAskLogin == 0){
	if (#pvpbroadcast == 2) goto L_ignore;
	if (pvpbroadcast == 2) goto L_ignore;
	if (#pvpbroadcast == 1) goto L_ignore;
	if (pvpbroadcast == 1) goto L_ignore;


	if (pvpbroadcast == 0)
	mes "Hi, "+strcharinfo(0)+"";
	mes "Me is the PvP Top Management!";
	mes "Let me ask you one Question and i will let you play!";
	menu "Later please",L_close,"Okay, fine",L_fine;


	L_fine:
	next;
	mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?";
	menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast;


	L_accept:
	next;
	mes "Yay, thank you! ";
	mes "Will this Setting work on all your Chars on this account or only this char?";
	menu "Account",L_account,"Only this char",L_char;


	L_account:
	set #pvpbroadcast,2;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	close;


	L_char:
	set pvpbroadcast,2;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	goto access_eng;
	close;

	L_accept_2:
	next;
	mes "Yay, thank you! ";
	mes "Will this Setting work on all your Chars on this account or only this char?";
	menu "Account",L_account_2,"Only this char",L_char_2;


	L_close:
	close;


	L_account_2:
	set #pvpbroadcast,1;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	close;


	L_char_2:
	set pvpbroadcast,1;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	goto access_eng;
	close;




	L_broadcast:
	mes "Broadcasts are this yellow messages from  the GMs";
	goto L_fine;
	}
}


prontera.gat,163,163,4	script	PvP TOP	57,{
if ($@LadderChatRoom == 1) {
		waitingroom "PvP Top "+$@LadderLength+"",0;   // Look on the configuration!
}
	set @name$,"[PvP-Ladder]";
	//Colour of:			Position	Name		Kills		Deaths		Time
	setarray @colour$[0],	"^996600",	"^006699",	"^00AA00",	"^FF0000",	"^EE8800";
if ($@LadderAskLogin == 1){
	if (#pvpbroadcast == 2) goto 	access_eng;
	if (pvpbroadcast == 2) goto 	access_eng;
	if (#pvpbroadcast == 1) goto 	access_eng;
	if (pvpbroadcast == 1) goto 	access_eng;
	if (pvpbroadcast == 0)
	mes "Hi, "+strcharinfo(0)+"";
	mes "Me is the PvP Top Management!";
	mes "Let me ask you one Question and i will let you play!";
	menu "Later please",L_close,"Okay, fine",L_fine;


	L_fine:
	next;
	mes "Well, do you want read Broadcast Messages when a Player reach a new position on the PvP Ranglist?";
	menu "Yeah, why not",L_accept,"No, thanks",L_accept_2,"Wtf is Broadcast?",L_broadcast;


	L_accept:
	next;
	mes "Yay, thank you! ";
	mes "Will this Setting work on all your Chars on this account or only this char?";
	menu "Account",L_account,"Only this char",L_char;


	L_account:
	set #pvpbroadcast,2;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	close;


	L_char:
	set pvpbroadcast,2;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	goto access_eng;
	close;

	L_accept_2:
	next;
	mes "Yay, thank you! ";
	mes "Will this Setting work on all your Chars on this account or only this char?";
	menu "Account",L_account_2,"Only this char",L_char_2;


	L_close:
	close;


	L_account_2:
	set #pvpbroadcast,1;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	close;


	L_char_2:
	set pvpbroadcast,1;
	next;
	mes "Okay, "+strcharinfo(0)+"";
	mes "Thank you for your time and have fun!";
	goto access_eng;
	close;




	L_broadcast:
	mes "Broadcasts are this yellow messages from  the GMs";
	goto L_fine;
}
	access_eng:
	mes @name$;
	mes "Hello "+strcharinfo(0)+"...";
	mes "If you want to I can show you your PVP stats.";
	next;
	M_selection_eng:
	if ( getgmlevel () < 99 )
		menu "Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Cancel",M_abbrechen_eng;
	else
		menu "Show me the PVP Ladder",M_Ladder_eng,"PvP stats since my login",M_seitLogin_eng,"PvP stats of this Char",M_dieserChar_eng,"Stats of the whole account",M_vomAccount_eng,"Reset Ladder",L_reset,"Cancel",M_abbrechen_eng;


	M_Ladder_eng:
	mes "Alright...I'll show you the Top "+ $@LadderLength +" with "+$@LadderSteps+" entries per page.";
	mes "It'll be viewed like this:";
	mes @colour$[0]+"Place^000000: "+@colour$[1]+"<name>^000000 :"+@colour$[2]+"<kills>^000000:"+@colour$[3]+"<deaths>^000000 "+@colour$[4]+"<time>";
	next;
	callsub L_Ladder;
	goto M_selection_eng;


	M_seitLogin_eng:
	mes @name$;
	mes "Your stats since your login:";
	mes @PVPKillstoday+"/"+@PVPDeathstoday+"(Kills/Deaths)";
	next;
	goto M_selection_eng;


	M_dieserChar_eng:
	mes @name$;
	mes "Your stats of this Char:";
	mes PVPKills+"/"+PVPDeaths+"(Kills/Deaths)";
	next;
	goto M_selection_eng;


	M_vomAccount_eng:
	mes @name$;
	mes "Your stats of the whole account:";
	mes #PVPKillsAccount+"/"+#PVPDeathsAccount+"(Kills/Deaths)";
	next;
	goto M_selection_eng;


	M_abbrechen_eng:
	mes @name$;
	mes "OK. You can come back to me and see your stats whenever you want.";
	close;


L_reset:
	if (getgmlevel() < 99) end;
	mes "Do you want to reset the ladder?";
	if (select ("Yes","No") == 2) goto L_end;
	mes "Are you really really sure you want to reset it?";
	menu "Yes, ffs!!",-,"No",L_end;
	deletearray $terces_PVP_kills,128;
	deletearray $terces_PVP_deaths,128;
	deletearray $terces_PVP_names$,128;
	deletearray $terces_PVP_times,128;
	set $terces_PVP_resets,$terces_PVP_resets +1;


	L_end:
	mes "Okay...cya";
	close;

	L_Ladder:
	for (set @y,0; @y < $@LadderLength; set @y,@y+$@LadderSteps){
		for (set @x,@y; (@x < (@y+$@LadderSteps)) && (@x < ($@LadderLength)); set @x,@x+1){
			if ($terces_PVP_names$[@x] != ""){
				mes @colour$[0]+(@x+1)+"^000000: "+@colour$[1]+$terces_PVP_names$[@x]+"^000000 "+@colour$[2]+$terces_PVP_kills[@x]+"^000000:"+@colour$[3]+$terces_PVP_deaths[@x]+"^000000 ~ "+@colour$[4]+callfunc ("Gettime",$terces_PVP_times[@x])+"^000000";
			} else {
				mes "^DD0000"+(@x+1)+": ^006699None^000000 ";
			}
		}
		next;
	}
	return;
}


function	script	Gettime	{
if (getarg(0)==0) return;


set @difftimedays,(gettimetick(2) - getarg(0));
set @difftimehours,@difftimedays%86400;
set @difftimeminutes,@difftimehours%3600;
set @difftimeseconds,@difftimeminutes%60;


set @days,@difftimedays/86400;
set @hours,@difftimehours/3600;
set @minutes,@difftimeminutes/60;
set @seconds,@difftimeseconds;
set @result$,"";
if(@days != 0) set @result$,@result$+@days+"d ";
if(@hours != 0) set @result$,@result$+@hours+"h ";
if(@minutes != 0) set @result$,@result$+@minutes+"m ";
if(@seconds != 0) set @result$,@result$+@seconds+"s";


return (@result$);
}


prontera,167,178,2	script	Kill Changer	891,{
	mes "[PKp Exchanger]";
	mes "Привет "+strcharinfo(0)+"! Я могу поменять ваши Kill points на разные полезнее предметы!";
next;
	mes "You have ^FF0000"+PVPKills+"^000000 Kill points.";
	mes "30 Kill points = 1 LM";
	mes "30 Kill points = 50 TCG";
	mes "2000 Kill points = 1 Gold Coins";
switch(select("LM:TCG:Gold Coins:Отмена")) {
case 1:
if((PVPKills)<30) break;
set PVPKills, PVPKills - 30;
	getitem 674,1;
close;
case 2:
if((PVPKills)<30) break;
set PVPKills, PVPKills - 30;
	getitem 7227,50;
close;
case 3:
if((PVPKills)<2000) break;
set PVPKills, PVPKills - 2000;
	getitem 671,1;
close;
case 4:
exit;
}
next;
	mes "[^FF0000Извини, но тебе не хватает Kill points^000000]"; close;
OnInit:
waitingroom "Kill Changer",0;
end;
}

Изменено 22 октября, 2012 пользователем Enwteyn

botka4aet · 21 октября, 2012

LAST UPDATE: 12th,February.2008

номном

Enwteyn · 21 октября, 2012

LAST UPDATE: 12th,February.2008

номном

Можешь помочь?

botka4aet · 21 октября, 2012

тебе с аккаунта или с чара?

Enwteyn · 21 октября, 2012

тебе с аккаунта или с чара?

Чара

EuphRO · 21 октября, 2012

Если не ошибаюсь...

//аттачим убийцу
attachrid(killedrid);
//Мы даем вещь после того, как сделали attachrid
getitem itemid, itemcount;  
set PVPDeaths,PVPDeaths+1;  
set @PVPDeathstoday,@PVPDeathstoday+1;  
set #PVPDeathsAccount,#PVPDeathsAccount+1;  
set getd("$@PVPkilledplayer"+$@PVPcounter+"$"), strcharinfo(0); //again, getd to avoid possible glitches  detachrid;

Изменено 21 октября, 2012 пользователем EuphRO

Kubix! · 21 октября, 2012

if(PvPKills > 30){
getitem 7227,1;
set PvPKills, PvPKills - 30;
close;
}else{
mes "не хватает пвппоинтов";
close;
}

Jarek · 21 октября, 2012

if(PvPKills > 30){
getitem 7227,1;
set PvPKills, PvPKills - 30;
close;
}else{
mes "не хватает пвппоинтов";
close;
}

>29 :р

Ведь человек с 30 фрагами не сможет получить подарок!)

botka4aet · 21 октября, 2012

prontera,161,178,5 script pvp 806,{

mes "[pvp]";

mes "Привет, "+strcharinfo(0)+"!";

mes "Я могу обменять 30 ПвП поинтов на что-то.";

mes "У тебя их "+(число убийств);

next;

switch(select("Обменять на 1:Обменять на 2:Уйти")) {

case 1:

if((число убийств)<30) close;

mes "Вот ваши 1";

item 1,1;

set (число убийств),(число убийств)-30;

close;

case 2:

if((число убийств)<30) close;

mes "Вот ваши 2";

item 2,1;

set (число убийств),(число убийств)-30;

close;

case 3:

mes "Пока.";

close;

}

end;

}

я слоу

Изменено 21 октября, 2012 пользователем botka4aet

Enwteyn · 21 октября, 2012

prontera,161,178,5 script pvp 806,{

mes "[pvp]";

mes "Привет, "+strcharinfo(0)+"!";

mes "Я могу обменять 30 ПвП поинтов на что-то.";

mes "У тебя их "+(число убийств);

next;

switch(select("Обменять на 1:Обменять на 2:Уйти")) {

case 1:

if((число убийств)<30) close;

mes "Вот ваши 1";

item 1,1;

set (число убийств),(число убийств)-30;

close;

case 2:

if((число убийств)<30) close;

mes "Вот ваши 2";

item 2,1;

set (число убийств),(число убийств)-30;

close;

case 3:

mes "Пока.";

close;

}

end;

}

я слоу

СПС Все працює

botka4aet · 21 октября, 2012

не 29 29 1999, а 30 30 2000

или меньшеИравно сделать

Кеник · 22 октября, 2012

не 29 29 1999, а 30 30 2000

или меньшеИравно сделать

меньшеИЛИравно тогда уж

Kubix! · 22 октября, 2012

prontera,167,178,2 script Kill Changer 891,{
mes "[PKp Exchanger]";
mes "Привет "+strcharinfo(0)+"! Я могу поменять ваши Kill points на разные полезнее предметы!";
next;
mes "You have ^FF0000"+PVPKills+"^000000 Kill points.";
mes "30 Kill points = 1 LM";
mes "30 Kill points = 50 TCG";
mes "2000 Kill points = 1 Gold Coins";
switch(select("LM:TCG:Gold Coins:Отмена")) {
case 1:
if((PVPKills)<30) break;
set PVPKills, PVPKills - 30;
getitem 674,1;
close;
case 2:
if((PVPKills)<30)break;
set PVPKills, PVPKills - 30;
getitem 7227,50;
close;
case 3:
if((PVPKills)<2000) break;
set PVPKills, PVPKills - 2000;
getitem 671,1;
close;
case 4:
exit;????? close;
}
next;
mes "[^FF0000Извини, но тебе не хватает Kill points^000000]";
close;
OnInit:
waitingroom "Kill Changer",0;
end;
}

Зачем еще одни кавычки ?

Что такое exit; ? новая скрипт команда? не видел...могу ошибаться.

А так этот скрипт можно оптимизировать еще на меньше строчек, если требуется.

unknown · 22 октября, 2012

Спасибо за отличный скрипт. Если вам не тяжело, выложите его на файлообменник в тхт файле, огромное спасибо.

Enwteyn · 23 октября, 2012

Спасибо за отличный скрипт. Если вам не тяжело, выложите его на файлообменник в тхт файле, огромное спасибо.

Скачать

unknown · 23 октября, 2012

Спасибо за отличный скрипт. Если вам не тяжело, выложите его на файлообменник в тхт файле, огромное спасибо.
Скачать

Спасибо.

Enwteyn · 23 октября, 2012

prontera,167,178,2 script Kill Changer 891,{
mes "[PKp Exchanger]";
mes "Привет "+strcharinfo(0)+"! Я могу поменять ваши Kill points на разные полезнее предметы!";
next;
mes "You have ^FF0000"+PVPKills+"^000000 Kill points.";
mes "30 Kill points = 1 LM";
mes "30 Kill points = 50 TCG";
mes "2000 Kill points = 1 Gold Coins";
switch(select("LM:TCG:Gold Coins:Отмена")) {
case 1:
if((PVPKills)<30) break;
set PVPKills, PVPKills - 30;
getitem 674,1;
close;
case 2:
if((PVPKills)<30)break;
set PVPKills, PVPKills - 30;
getitem 7227,50;
close;
case 3:
if((PVPKills)<2000) break;
set PVPKills, PVPKills - 2000;
getitem 671,1;
close;
case 4:
exit;????? close;
}
next;
mes "[^FF0000Извини, но тебе не хватает Kill points^000000]";
close;
OnInit:
waitingroom "Kill Changer",0;
end;
}
Зачем еще одни кавычки ?
Что такое exit; ? новая скрипт команда? не видел...могу ошибаться.
А так этот скрипт можно оптимизировать еще на меньше строчек, если требуется.

спс

PVP Ladder TXT 1.7.2

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

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты

Ссылка на комментарий

Поделиться на другие сайты