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

Вопрос по функционалу Эмуля

Gans

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

 Поделиться

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

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

Gans

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

Вечер добрый хотелось бы поинтересоваться если такая функция в афине: Игрок подходит к нпц кликает на него и у него вылетает весь список вещей, которые у него сейчас в Инвентаре.

Так же бы хотелось спросить если данная функция есть: как сделать чтобы она отображалась в списке у нпц

через команду switch:

Примеру

switch(1 вещь по счету,2 вещь по счету, и тд.) {

case 1:

mes "1 вещь по счету";

delitem "1 вещь по счету",1;

close;

case 2:

mes "2 вещь по счету";

delitem "2 вещь по счету",1;

close;

И т.д.

}

Ибо мне в голову пришла тока команда @itemlist

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

Gans

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

switch(getitemname(inventorylist_id[]) ,getitemname(inventorylist_id[]) , и тд.) {

case inventorylist_count:

mes "getitemname(inventorylist_id[])";

delitem "inventorylist_id[]",1;

close;

case inventorylist_count:

mes "getitemname(inventorylist_id[])";

delitem "inventorylist_id[]",1;

close;

И т.д.

}

Так ?

Я хз как сделать чтобы был авто подсчет и автовывод в нпц.

Вроде был примерно похожий скриптик тока там он считал все карты в эвенторе потом выводил в НПЦ и менял их на что то. У кого остался скинте плиз или хотя бы кусок дайте.

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

botka4aet

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

Карты он считал обычным перебором числа вещей от 4001 до 4400, нет?

Примерчики можно найти тут - http://www.eathena.ws/board/index.php?showtopic=255285

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

Gans

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

вроде да. Я сделаю тоже самое для итема тока разнобой сделаю 1к до 20к =)

Буду рад если скинешь.

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

botka4aet

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

Version:3 


//===================================
//Made	:	Goddameit              //
//===================================
function	script	Backpack	{
getitem getarg(0),1;
set @ck,getcharid(0);
set @ve,getarg(1);
set @select$,"";
set @select2$,"";
set @nu,0;
set @i,0;
set @j,0;
set @w,0;
set @maxnu,getarg(2);
set @maxwi,getarg(3);
mes "Backpack:Lv."+@ve;
for(set @i,1;@i<=@maxnu;set @i,@i+1){
	set @select$,@select$+"["+getitemname(getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve))+"]^000000x["+getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)+"]:";
	if(getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)){set .@yy,.@yy+1;}
}
set @select$,@select$+"[Close]";
mes "[ItemSpace][^000088"+.@yy+"/^FF0000"+(@maxnu-.@yy)+"^000000]";
mes "[ItemWeigt][^000088"+getd("$bpdat_"+@ck+"aww_"+@ve)+"/^FF0000"+(@maxwi-getd("$bpdat_"+@ck+"aww_"+@ve))+"^000000]";
set @i,select(@select$);
if(@i>@maxnu){close;}
switch(select("[Load]","[Save]","[Clean]")){
	case 1:
		next;
		if(getd("$bpdat_"+@ck+"are"+@i+"_"+@ve)){
			mes "[+"+getd("$bpdat_"+@ck+"are"+@i+"_"+@ve)+"]";
		}
		if(getd("$bpdat_"+@ck+"ac1"+@i+"_"+@ve)){
			mes "["+getitemname(getd("$bpdat_"+@ck+"ac1"+@i+"_"+@ve))+"]";
		}
		if(getd("$bpdat_"+@ck+"ac2"+@i+"_"+@ve)){
			mes "["+getitemname(getd("$bpdat_"+@ck+"ac2"+@i+"_"+@ve))+"]";
		}
		if(getd("$bpdat_"+@ck+"ac3"+@i+"_"+@ve)){
			mes "["+getitemname(getd("$bpdat_"+@ck+"ac3"+@i+"_"+@ve))+"]";
		}
		if(getd("$bpdat_"+@ck+"ac4"+@i+"_"+@ve)){
			mes "["+getitemname(getd("$bpdat_"+@ck+"ac4"+@i+"_"+@ve))+"]";
		}
		mes "["+getitemname(getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve))+"]x["+getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)+"]";
		if(!getd("$bpdat_"+@ck+"awa"+@i+"_"+@ve)){
			if(!getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve)||input(@nu,1,getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve))){
				mes "Error.";
				close;
			}
		}
			if(getd("$bpdat_"+@ck+"awa"+@i+"_"+@ve)){set @nu,1;}
			if(!checkweight(getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve),@nu)){
				mes "Too heavy.";
				close;
			}
			if(!getd("$bpdat_"+@ck+"awa"+@i+"_"+@ve)){
				getitem getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve),@nu;
			}else{
				getitem2 getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve),@nu,getd("$bpdat_"+@ck+"aiy"+@i+"_"+@ve),getd("$bpdat_"+@ck+"are"+@i+"_"+@ve),getd("$bpdat_"+@ck+"aat"+@i+"_"+@ve),getd("$bpdat_"+@ck+"ac1"+@i+"_"+@ve),getd("$bpdat_"+@ck+"ac2"+@i+"_"+@ve),getd("$bpdat_"+@ck+"ac3"+@i+"_"+@ve),getd("$bpdat_"+@ck+"ac4"+@i+"_"+@ve);
			}
			setd "$bpdat_"+@ck+"anu"+@i+"_"+@ve,getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)-@nu;
			setd "$bpdat_"+@ck+"aww_"+@ve,getd("$bpdat_"+@ck+"aww_"+@ve)-getiteminfo(getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve),6)*@nu;
			if(!getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)){
				for(;@i<=@maxnu;set @i,@i+1){
					setd "$bpdat_"+@ck+"anu"+@i+"_"+@ve,getd("$bpdat_"+@ck+"anu"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"aid"+@i+"_"+@ve,getd("$bpdat_"+@ck+"aid"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"are"+@i+"_"+@ve,getd("$bpdat_"+@ck+"are"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"ac1"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac1"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"ac2"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac2"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"ac3"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac3"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"ac4"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac4"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"aiy"+@i+"_"+@ve,getd("$bpdat_"+@ck+"aiy"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"aat"+@i+"_"+@ve,getd("$bpdat_"+@ck+"aat"+(@i+1)+"_"+@ve);
					setd "$bpdat_"+@ck+"awa"+@i+"_"+@ve,getd("$bpdat_"+@ck+"awa"+(@i+1)+"_"+@ve);
				}
			}
		next;mes "[Complete]";
		close;
	case 2:
		next;
		getinventorylist;
		for(set @j,0;@j<@inventorylist_count;set @j,@j+1){
			set @select2$,@select2$+"["+getitemname(@inventorylist_id[@j])+"]x["+@inventorylist_amount[@j]+"]:";
		}
		set @select2$,@select2$+"[Close]";
		set @j,select(@select2$)-1;
		if(@j>@inventorylist_count){close;}
		if(@inventorylist_refine[@j]){
			mes "[+"+@inventorylist_refine[@j]+"]";
		}
		if(@inventorylist_card1[@j]){
			mes "["+getitemname(@inventorylist_card1[@j])+"]";
		}
		if(@inventorylist_card2[@j]){
			mes "["+getitemname(@inventorylist_card2[@j])+"]";
		}
		if(@inventorylist_card3[@j]){
			mes "["+getitemname(@inventorylist_card3[@j])+"]";
		}
		if(@inventorylist_card4[@j]){
			mes "["+getitemname(@inventorylist_card4[@j])+"]";
		}
		mes "["+getitemname(@inventorylist_id[@j])+"]x["+@inventorylist_amount[@j]+"]";
		if(getiteminfo(@inventorylist_id[@j],2)==4||getiteminfo(@inventorylist_id[@j],2)==5){set @nu,1;setd "$bpdat_"+@ck+"awa"+@i+"_"+@ve,1;}
		if(!getd("$bpdat_"+@ck+"awa"+@i+"_"+@ve)){
			if(input(@nu,1,@inventorylist_amount[@j])){
				mes "Error.";
				close;
			}
		}
			if(getd("$bpdat_"+@ck+"awa"+@i+"_"+@ve)&&getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)){
				mes "Weapom/Armor/Garment/Boots/Headgear";
				mes "all just can 1 in same space.";
				close;
			}
			if(getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)!=@inventorylist_id[@j]&&getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)){
				mes "You have to choose the free room";
				mes " or same item.";
				close;
			}
			set @w,getiteminfo(@inventorylist_id[@j],6)*@nu;
			if(getd("$bpdat_"+@ck+"aww_"+@ve)+@w>@maxwi){
				mes "Too heavy.";
				close;
			}
			if(!getd("$bpdat_"+@ck+"awa"+@i+"_"+@ve)){
				delitem @inventorylist_id[@j],@nu;
			}else{
				delitem2 @inventorylist_id[@j],@nu,@inventorylist_identify[@j],@inventorylist_refine[@j],@inventorylist_attribute[@j],@inventorylist_card1[@j],@inventorylist_card2[@j],@inventorylist_card3[@j],@inventorylist_card4[@j];
			}
			setd "$bpdat_"+@ck+"aid"+@i+"_"+@ve,@inventorylist_id[@j];
			setd "$bpdat_"+@ck+"anu"+@i+"_"+@ve,getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve)+@nu;
			setd "$bpdat_"+@ck+"are"+@i+"_"+@ve,@inventorylist_refine[@j];
			setd "$bpdat_"+@ck+"ac1"+@i+"_"+@ve,@inventorylist_card1[@j];
			setd "$bpdat_"+@ck+"ac2"+@i+"_"+@ve,@inventorylist_card2[@j];
			setd "$bpdat_"+@ck+"ac3"+@i+"_"+@ve,@inventorylist_card3[@j];
			setd "$bpdat_"+@ck+"ac4"+@i+"_"+@ve,@inventorylist_card4[@j];
			setd "$bpdat_"+@ck+"aiy"+@i+"_"+@ve,@inventorylist_identify[@j];
			setd "$bpdat_"+@ck+"aat"+@i+"_"+@ve,@inventorylist_attribute[@j];
			setd "$bpdat_"+@ck+"aww_"+@ve,getd("$bpdat_"+@ck+"aww_"+@ve)+@w;
		next;mes "[Complete]";
		close;
	case 3:
		next;
		if(select("No","Yes")==1){close;}
		setd "$bpdat_"+@ck+"aww_"+@ve,getd("$bpdat_"+@ck+"aww_"+@ve)-getiteminfo(getd("$bpdat_"+@ck+"aid"+@i+"_"+@ve),6)*getd("$bpdat_"+@ck+"anu"+@i+"_"+@ve);
		for(;@i<=@maxnu;set @i,@i+1){
			setd "$bpdat_"+@ck+"anu"+@i+"_"+@ve,getd("$bpdat_"+@ck+"anu"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"aid"+@i+"_"+@ve,getd("$bpdat_"+@ck+"aid"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"are"+@i+"_"+@ve,getd("$bpdat_"+@ck+"are"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"ac1"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac1"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"ac2"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac2"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"ac3"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac3"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"ac4"+@i+"_"+@ve,getd("$bpdat_"+@ck+"ac4"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"aiy"+@i+"_"+@ve,getd("$bpdat_"+@ck+"aiy"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"aat"+@i+"_"+@ve,getd("$bpdat_"+@ck+"aat"+(@i+1)+"_"+@ve);
			setd "$bpdat_"+@ck+"awa"+@i+"_"+@ve,getd("$bpdat_"+@ck+"awa"+(@i+1)+"_"+@ve);
		}
		next;mes "[Complete]";
		close;
}
}

Version:2


//===================================
//Made	:	Goddameit              //
//===================================
function	script	Backpack	{
getitem getarg(0),1;
set @ve,getarg(1);
set @select$,"";
set @select2$,"";
set @nu,0;
set @i,0;
set @j,0;
set @w,0;
set @maxnu,getarg(2);
set @maxwi,getarg(3);
mes "Backpack:Lv."+@ve;
for(set @i,1;@i<=@maxnu;set @i,@i+1){
	set @select$,@select$+"["+getitemname(getd("bpdataid"+@i+"_"+@ve))+"]^000000x["+getd("bpdatanu"+@i+"_"+@ve)+"]:";
	if(getd("bpdatanu"+@i+"_"+@ve)){set .@yy,.@yy+1;}
}
set @select$,@select$+"[Close]";
mes "[ItemSpace][^000088"+.@yy+"/^FF0000"+(@maxnu-.@yy)+"^000000]";
mes "[ItemWeigt][^000088"+getd("bpdataww_"+@ve)+"/^FF0000"+(@maxwi-getd("bpdataww_"+@ve))+"^000000]";
set @i,select(@select$);
if(@i>@maxnu){close;}
switch(select("[Load]","[Save]","[Clean]")){
	case 1:
		next;
		if(getd("bpdatare"+@i+"_"+@ve)){
			mes "[+"+getd("bpdatare"+@i+"_"+@ve)+"]";
		}
		if(getd("bpdatac1"+@i+"_"+@ve)){
			mes "["+getitemname(getd("bpdatac1"+@i+"_"+@ve))+"]";
		}
		if(getd("bpdatac2"+@i+"_"+@ve)){
			mes "["+getitemname(getd("bpdatac2"+@i+"_"+@ve))+"]";
		}
		if(getd("bpdatac3"+@i+"_"+@ve)){
			mes "["+getitemname(getd("bpdatac3"+@i+"_"+@ve))+"]";
		}
		if(getd("bpdatac4"+@i+"_"+@ve)){
			mes "["+getitemname(getd("bpdatac4"+@i+"_"+@ve))+"]";
		}
		mes "["+getitemname(getd("bpdataid"+@i+"_"+@ve))+"]x["+getd("bpdatanu"+@i+"_"+@ve)+"]";
		if(!getd("bpdatawa"+@i+"_"+@ve)){
			if(!getd("bpdataid"+@i+"_"+@ve)||input(@nu,1,getd("bpdatanu"+@i+"_"+@ve))){
				mes "Error.";
				close;
			}
		}
			if(getd("bpdatawa"+@i+"_"+@ve)){set @nu,1;}
			if(!checkweight(getd("bpdataid"+@i+"_"+@ve),@nu)){
				mes "Too heavy.";
				close;
			}
			if(!getd("bpdatawa"+@i+"_"+@ve)){
				getitem getd("bpdataid"+@i+"_"+@ve),@nu;
			}else{
				getitem2 getd("bpdataid"+@i+"_"+@ve),@nu,getd("bpdataiy"+@i+"_"+@ve),getd("bpdatare"+@i+"_"+@ve),getd("bpdataat"+@i+"_"+@ve),getd("bpdatac1"+@i+"_"+@ve),getd("bpdatac2"+@i+"_"+@ve),getd("bpdatac3"+@i+"_"+@ve),getd("bpdatac4"+@i+"_"+@ve);
			}
			setd "bpdatanu"+@i+"_"+@ve,getd("bpdatanu"+@i+"_"+@ve)-@nu;
			setd "bpdataww_"+@ve,getd("bpdataww_"+@ve)-getiteminfo(getd("bpdataid"+@i+"_"+@ve),6)*@nu;
			if(!getd("bpdatanu"+@i+"_"+@ve)){
				for(;@i<=@maxnu;set @i,@i+1){
					setd "bpdatanu"+@i+"_"+@ve,getd("bpdatanu"+(@i+1)+"_"+@ve);
					setd "bpdataid"+@i+"_"+@ve,getd("bpdataid"+(@i+1)+"_"+@ve);
					setd "bpdatare"+@i+"_"+@ve,getd("bpdatare"+(@i+1)+"_"+@ve);
					setd "bpdatac1"+@i+"_"+@ve,getd("bpdatac1"+(@i+1)+"_"+@ve);
					setd "bpdatac2"+@i+"_"+@ve,getd("bpdatac2"+(@i+1)+"_"+@ve);
					setd "bpdatac3"+@i+"_"+@ve,getd("bpdatac3"+(@i+1)+"_"+@ve);
					setd "bpdatac4"+@i+"_"+@ve,getd("bpdatac4"+(@i+1)+"_"+@ve);
					setd "bpdataiy"+@i+"_"+@ve,getd("bpdataiy"+(@i+1)+"_"+@ve);
					setd "bpdataat"+@i+"_"+@ve,getd("bpdataat"+(@i+1)+"_"+@ve);
					setd "bpdatawa"+@i+"_"+@ve,getd("bpdatawa"+(@i+1)+"_"+@ve);
				}
			}
		next;mes "[Complete]";
		close;
	case 2:
		next;
		getinventorylist;
		for(set @j,0;@j<@inventorylist_count;set @j,@j+1){
			set @select2$,@select2$+"["+getitemname(@inventorylist_id[@j])+"]x["+@inventorylist_amount[@j]+"]:";
		}
		set @select2$,@select2$+"[Close]";
		set @j,select(@select2$)-1;
		if(@j>@inventorylist_count){close;}
		if(@inventorylist_refine[@j]){
			mes "[+"+@inventorylist_refine[@j]+"]";
		}
		if(@inventorylist_card1[@j]){
			mes "["+getitemname(@inventorylist_card1[@j])+"]";
		}
		if(@inventorylist_card2[@j]){
			mes "["+getitemname(@inventorylist_card2[@j])+"]";
		}
		if(@inventorylist_card3[@j]){
			mes "["+getitemname(@inventorylist_card3[@j])+"]";
		}
		if(@inventorylist_card4[@j]){
			mes "["+getitemname(@inventorylist_card4[@j])+"]";
		}
		mes "["+getitemname(@inventorylist_id[@j])+"]x["+@inventorylist_amount[@j]+"]";
		if(getiteminfo(@inventorylist_id[@j],2)==4||getiteminfo(@inventorylist_id[@j],2)==5){set @nu,1;setd "bpdatawa"+@i+"_"+@ve,1;}
		if(!getd("bpdatawa"+@i+"_"+@ve)){
			if(input(@nu,1,@inventorylist_amount[@j])){
				mes "Error.";
				close;
			}
		}
			if(getd("bpdatawa"+@i+"_"+@ve)&&getd("bpdatanu"+@i+"_"+@ve)){
				mes "Weapom/Armor/Garment/Boots/Headgear";
				mes "all just can 1 in same space.";
				close;
			}
			if(getd("bpdatanu"+@i+"_"+@ve)!=@inventorylist_id[@j]&&getd("bpdatanu"+@i+"_"+@ve)){
				mes "You have to choose the free room";
				mes " or same item.";
				close;
			}
			set @w,getiteminfo(@inventorylist_id[@j],6)*@nu;
			if(getd("bpdataww_"+@ve)+@w>@maxwi){
				mes "Too heavy.";
				close;
			}
			if(!getd("bpdatawa"+@i+"_"+@ve)){
				delitem @inventorylist_id[@j],@nu;
			}else{
				delitem2 @inventorylist_id[@j],@nu,@inventorylist_identify[@j],@inventorylist_refine[@j],@inventorylist_attribute[@j],@inventorylist_card1[@j],@inventorylist_card2[@j],@inventorylist_card3[@j],@inventorylist_card4[@j];
			}
			setd "bpdataid"+@i+"_"+@ve,@inventorylist_id[@j];
			setd "bpdatanu"+@i+"_"+@ve,getd("bpdatanu"+@i+"_"+@ve)+@nu;
			setd "bpdatare"+@i+"_"+@ve,@inventorylist_refine[@j];
			setd "bpdatac1"+@i+"_"+@ve,@inventorylist_card1[@j];
			setd "bpdatac2"+@i+"_"+@ve,@inventorylist_card2[@j];
			setd "bpdatac3"+@i+"_"+@ve,@inventorylist_card3[@j];
			setd "bpdatac4"+@i+"_"+@ve,@inventorylist_card4[@j];
			setd "bpdataiy"+@i+"_"+@ve,@inventorylist_identify[@j];
			setd "bpdataat"+@i+"_"+@ve,@inventorylist_attribute[@j];
			setd "bpdataww_"+@ve,getd("bpdataww_"+@ve)+@w;
		next;mes "[Complete]";
		close;
	case 3:
		next;
		if(select("No","Yes")==1){close;}
		setd "bpdataww_"+@ve,getd("bpdataww_"+@ve)-getiteminfo(getd("bpdataid"+@i+"_"+@ve),6)*getd("bpdatanu"+@i+"_"+@ve);
		for(;@i<=@maxnu;set @i,@i+1){
			setd "bpdatanu"+@i+"_"+@ve,getd("bpdatanu"+(@i+1)+"_"+@ve);
			setd "bpdataid"+@i+"_"+@ve,getd("bpdataid"+(@i+1)+"_"+@ve);
			setd "bpdatare"+@i+"_"+@ve,getd("bpdatare"+(@i+1)+"_"+@ve);
			setd "bpdatac1"+@i+"_"+@ve,getd("bpdatac1"+(@i+1)+"_"+@ve);
			setd "bpdatac2"+@i+"_"+@ve,getd("bpdatac2"+(@i+1)+"_"+@ve);
			setd "bpdatac3"+@i+"_"+@ve,getd("bpdatac3"+(@i+1)+"_"+@ve);
			setd "bpdatac4"+@i+"_"+@ve,getd("bpdatac4"+(@i+1)+"_"+@ve);
			setd "bpdataiy"+@i+"_"+@ve,getd("bpdataiy"+(@i+1)+"_"+@ve);
			setd "bpdataat"+@i+"_"+@ve,getd("bpdataat"+(@i+1)+"_"+@ve);
			setd "bpdatawa"+@i+"_"+@ve,getd("bpdatawa"+(@i+1)+"_"+@ve);
		}
		next;mes "[Complete]";
		close;
}
}

Version:1



function	script	Backpack	{
getitem getarg(0),1;
set @select$,"";
set @select2$,"";
set @nu,0;
set @i,0;
set @j,0;
set @w,0;
set @i,1;
for(set @i,1;@i<=100;set @i,@i+1){
	set @select$,@select$+"["+getitemname(getd("bpdataid"+@i))+"]^000000x["+getd("bpdatanu"+@i)+"]:";
	if(getd("bpdatanu"+@i)){set .@yy,.@yy+1;}
}
set @select$,@select$+"[Close]";
mes "[ItemSpace][^000088"+.@yy+"/^FF0000"+(100-.@yy)+"^000000]";
mes "[ItemWeigt][^000088"+bpdataww+"/^FF0000"+(100000-bpdataww)+"^000000]";
set @i,select(@select$);
if(@i>100){close;}
switch(select("[Load]","[Save]","[Clean]")){
	case 1:
		next;
		if(getd("bpdatare"+@i)){
			mes "[+"+getd("bpdatare"+@i)+"]";
		}
		if(getd("bpdatac1"+@i)){
			mes "["+getitemname(getd("bpdatac1"+@i))+"]";
		}
		if(getd("bpdatac2"+@i)){
			mes "["+getitemname(getd("bpdatac2"+@i))+"]";
		}
		if(getd("bpdatac3"+@i)){
			mes "["+getitemname(getd("bpdatac3"+@i))+"]";
		}
		if(getd("bpdatac4"+@i)){
			mes "["+getitemname(getd("bpdatac4"+@i))+"]";
		}
		mes "["+getitemname(getd("bpdataid"+@i))+"]x["+getd("bpdatanu"+@i)+"]";
		if(!getd("bpdatawa"+@i)){
			if(!getd("bpdataid"+@i)||input(@nu,1,getd("bpdatanu"+@i))){
				mes "Error.";
			}
		}
			if(getd("bpdatawa"+@i)){set @nu,1;}
			if(!checkweight(getd("bpdataid"+@i),@nu)){
				mes "Too heavy.";
				close;
			}
			if(!getd("bpdatawa"+@i)){
				getitem getd("bpdataid"+@i),@nu;
			}else{
				getitem2 getd("bpdataid"+@i),@nu,getd("bpdataiy"+@i),getd("bpdatare"+@i),getd("bpdataat"),getd("bpdatac1"+@i),getd("bpdatac2"+@i),getd("bpdatac3"+@i),getd("bpdatac4"+@i);
			}
			setd "bpdatanu"+@i,getd("bpdatanu"+@i)-@nu;
			set bpdataww,bpdataww-getiteminfo(getd("bpdataid"+@i),6)*@nu;
			if(!getd("bpdatanu"+@i)){
				for(;@i<=100;set @i,@i+1){
					setd "bpdatanu"+@i,getd("bpdatanu"+(@i+1));
					setd "bpdataid"+@i,getd("bpdataid"+(@i+1));
					setd "bpdatare"+@i,getd("bpdatare"+(@i+1));
					setd "bpdatac1"+@i,getd("bpdatac1"+(@i+1));
					setd "bpdatac2"+@i,getd("bpdatac2"+(@i+1));
					setd "bpdatac3"+@i,getd("bpdatac3"+(@i+1));
					setd "bpdatac4"+@i,getd("bpdatac4"+(@i+1));
					setd "bpdataiy"+@i,getd("bpdataiy"+(@i+1));
					setd "bpdataat"+@i,getd("bpdataat"+(@i+1));
					setd "bpdatawa"+@i,getd("bpdatawa"+(@i+1));
				}
			}
		next;mes "[Complete]";
		close;
	case 2:
		next;
		getinventorylist;
		for(set @j,0;@j<@inventorylist_count;set @j,@j+1){
			set @select2$,@select2$+"["+getitemname(@inventorylist_id[@j])+"]x["+@inventorylist_amount[@j]+"]:";
		}
		set @select2$,@select2$+"[Close]";
		set @j,select(@select2$)-1;
		if(@j>@inventorylist_count){close;}
		if(@inventorylist_refine[@j]){
			mes "[+"+@inventorylist_refine[@j]+"]";
		}
		if(@inventorylist_card1[@j]){
			mes "["+getitemname(@inventorylist_card1[@j])+"]";
		}
		if(@inventorylist_card2[@j]){
			mes "["+getitemname(@inventorylist_card2[@j])+"]";
		}
		if(@inventorylist_card3[@j]){
			mes "["+getitemname(@inventorylist_card3[@j])+"]";
		}
		if(@inventorylist_card4[@j]){
			mes "["+getitemname(@inventorylist_card4[@j])+"]";
		}
		mes "["+getitemname(@inventorylist_id[@j])+"]x["+@inventorylist_amount[@j]+"]";
		if(getiteminfo(@inventorylist_id[@j],2)==4||getiteminfo(@inventorylist_id[@j],2)==5){set @nu,1;setd "bpdatawa"+@i,1;}
		if(!getd("bpdatawa"+@i)){
			if(input(@nu,1,@inventorylist_amount[@j])){
				mes "Error.";
			}
		}
			if(getd("bpdatawa"+@i)&&getd("bpdatanu"+@i)){
				mes "Weapom/Armor/Garment/Boots/Headgear";
				mes "all just can 1 in same space.";
				close;
			}
			if(getd("bpdatanu"+@i)!=@inventorylist_id[@j]&&getd("bpdatanu"+@i)){
				mes "You have to choose the free room";
				mes " or same item.";
				close;
			}
			set @w,getiteminfo(@inventorylist_id[@j],6)*@nu;
			if(bpdataww+@w>100000){
				mes "Too heavy.";
				close;
			}
			if(!getd("bpdatawa"+@i)){
				delitem @inventorylist_id[@j],@nu;
			}else{
				delitem2 @inventorylist_id[@j],@nu,@inventorylist_identify[@j],@inventorylist_refine[@j],@inventorylist_attribute[@j],@inventorylist_card1[@j],@inventorylist_card2[@j],@inventorylist_card3[@j],@inventorylist_card4[@j];
			}
			setd "bpdataid"+@i,@inventorylist_id[@j];
			setd "bpdatanu"+@i,getd("bpdatanu"+@i)+@nu;
			setd "bpdatare"+@i,@inventorylist_refine[@j];
			setd "bpdatac1"+@i,@inventorylist_card1[@j];
			setd "bpdatac2"+@i,@inventorylist_card2[@j];
			setd "bpdatac3"+@i,@inventorylist_card3[@j];
			setd "bpdatac4"+@i,@inventorylist_card4[@j];
			setd "bpdataiy"+@i,@inventorylist_identify[@j];
			setd "bpdataat"+@i,@inventorylist_attribute[@j];
			set bpdataww,bpdataww+@w;
		next;mes "[Complete]";
		close;
	case 3:
		next;
		if(select("No","Yes")==1){close;}
		set bpdataww,bpdataww-getiteminfo(getd("bpdataid"+@i),6)*getd("bpdatanu"+@i);
		for(;@i<=100;set @i,@i+1){
			setd "bpdatanu"+@i,getd("bpdatanu"+(@i+1));
			setd "bpdataid"+@i,getd("bpdataid"+(@i+1));
			setd "bpdatare"+@i,getd("bpdatare"+(@i+1));
			setd "bpdatac1"+@i,getd("bpdatac1"+(@i+1));
			setd "bpdatac2"+@i,getd("bpdatac2"+(@i+1));
			setd "bpdatac3"+@i,getd("bpdatac3"+(@i+1));
			setd "bpdatac4"+@i,getd("bpdatac4"+(@i+1));
			setd "bpdataiy"+@i,getd("bpdataiy"+(@i+1));
			setd "bpdataat"+@i,getd("bpdataat"+(@i+1));
			setd "bpdatawa"+@i,getd("bpdatawa"+(@i+1));
		}
		next;mes "[Complete]";
		close;
}
}

Он потом делал нормальную sql версию, но сейчас не найти

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