Автор: Mel9: Дата: 02.19.2011

Ребят на какую перемееную изменить что б оно брало только МВП Карты)

//Сделано Тарасиком
prontera,144,178,6 script Мистер Х 995,{
mes "Здраствуйте "+strcharinfo(0)+"!";
mes "Я могу дать вам ОКА за вашы ^FF0000карты^000000";
next;
mes "^0012FFвыбирайте, что ты хочтите сделать^000000";
menu "Обменять карты",i,"Нехочу нечего",N;
i:
next;
mes "^0012FF10 карт = 1 ОКА^000000";
mes "^0012FFЕсли вы принесете мне больше я заокруглю к 10...^000000";
next;
set @j,0;
for( set @i,4001; @i<4442; set @i,@i+1){
if (countitem(@i)>0){
set @index[@j],@i;
set @count[@j],countitem(@i);
set .@amount,.@amount+countitem(@i);
set @j,@j+1;
}
}
mes "Я могу поменять вашы ^0000FF"+.@amount+"^000000 карт на ^0000FF"+.@amount/10+"^000000 ОКА?";
if(select("Yes:No")==2) close;
if( .@amount < 10){
mes "Достань карты, а потом приходи!";
close;
}
for( set @i,0; @i<@j; set @i,@i+1){
delitem @index[@i],@count[@i];
}
getitem 616,.@amount/10;
close;
N:
mes "Удачи";
close;
}

[spoiler]
set @j,0;
for( set @i,4001; @i<4442; set @i,@i+1){
if (countitem(@i)>0){
set @index[@j],@i;
set @count[@j],countitem(@i);
set .@amount,.@amount+countitem(@i);
set @j,@j+1;

Автор: Cole McCormick: Дата: 02.19.2011

да не просто придеться указать идишники всех мвп карт на проверке типо 4001-4442 если они в ряд.

Автор: Mel9: Дата: 02.19.2011

Цитата Naota;34225:
да не просто придеться указать идишники всех мвп карт на проверке типо 4001-4442 если они в ряд.

Я а то тумал:D
Неполучается:huh:

Автор: Asuma: Дата: 02.19.2011

В афине же есть массивы?

Если есть то:
1.Создаешь массив с картами для обмена
2.Проверяешь какие карты есть у человека ( лучше сохранить это в массив id=count )
3.Отдать ОКА и удалить все с персонажа с помощью прохода по массиву.

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

щас будет вопрос "а что такое массив".

Автор: Mel9: Дата: 02.20.2011

Цитата Renegade;34239:
щас будет вопрос "а что такое массив".

Я знал что ты петросян:)