Сообщения без ответов | Активные темы Текущее время: Пн сен 24, 2018 8:02 pm



Ответить на тему  [ Сообщений: 14 ]  На страницу 1, 2  След.
Скрипт проверки и определения 
Автор Сообщение

Зарегистрирован: Пт янв 26, 2018 5:11 pm
Сообщений: 14
Сообщение Скрипт проверки и определения
Товарищи Гуру в скриптописании, только осваиваю эту интересную и замороченную среду программирования поэтому подскажите пожалуйста как лучше сделать:

Задача в Кратце: определить количество и нажать нужные кнопочки

Задача расписанная(у меня в голове): есть определенное количество адены в инвентаре (Диапазон от 0 до ...) необходимо определить количество символов в числе, определить каждый символ (от 0 до 9), затем записать каждый символ в массив по порядку начиная с (единичных, затем десятые, затем сотые и т.д.), после чего сделать уникальное действие для числа от 0 до 9, а общее количество действий = количеству символов в числе.

начал копать через процедуру проверки, но понимаю что эту будет очень объемная работа, может есть что попроще что бы не изобретать велосипед:
procedure ProverkaAdeni;
var a,b,c,d,e,f,j,h,i:integer;
tempItem: TL2Item;
begin
a:=1; b:=10; c:=100; d:=1000; e:=10000; f:=100000; j:=1000000;
i:= CheckItemCount(57);
if i>a then begin h:=a;
if i>b then begin h:=b;
if i>c then begin h:=c;
if i>d then begin h:=d;
if i>e then begin h:=e;
if i>f then begin h:=f;
if i>j then begin h:=j;
end;
end;
end;
end;
end;
end;
end;
print('Адены больше' + IntToStr(h));
end;


Ср фев 14, 2018 7:33 pm
Профиль

Зарегистрирован: Вс янв 14, 2018 3:55 pm
Сообщений: 12
Сообщение Re: Скрипт проверки и определения
Что то не очень понятная задача, для чего тебе она? опиши что ты хочешь сделать.


Чт фев 15, 2018 12:43 am
Профиль

Зарегистрирован: Пт янв 26, 2018 5:11 pm
Сообщений: 14
Сообщение Re: Скрипт проверки и определения
LU1 писал(а):
Что то не очень понятная задача, для чего тебе она? опиши что ты хочешь сделать.

Представим что в инвентаре "217548" Адены, после чего бот по средством post или send набирает это количество на клавиатуре.


Чт фев 15, 2018 5:06 am
Профиль
Куда я попал

Зарегистрирован: Пт апр 01, 2016 11:23 am
Сообщений: 67
Сообщение Re: Скрипт проверки и определения
чуваку нужно юзать команду ./deposit или подобные, когда у него накапливается адена. Но написать человеческим языком об этом нельзя.

_________________
Скрипты любой сложности: Изображениеmuhebpa
Скрипт фарма на ГВЕ


Чт фев 15, 2018 8:45 am
Профиль
Флудер
Аватар пользователя

Зарегистрирован: Чт авг 27, 2015 2:03 pm
Сообщений: 140
Сообщение Re: Скрипт проверки и определения
Код:
CountString:= IntToStr(CheckItemCount(57));
for i:= 0 to Length(CountString)-1 do print(CountString[i]);

такое?
Если юзать депозит, то можно сразу IntToStr(CheckItemCount(57)); Зачем все передибарть?


Последний раз редактировалось Dr.Pipetka Чт фев 15, 2018 9:01 am, всего редактировалось 1 раз.



Чт фев 15, 2018 8:58 am
Профиль ICQ

Зарегистрирован: Пт янв 26, 2018 5:11 pm
Сообщений: 14
Сообщение Re: Скрипт проверки и определения
Sedward писал(а):
чуваку нужно юзать команду ./deposit или подобные, когда у него накапливается адена. Но написать человеческим языком об этом нельзя.

Чем мой язык отличается от вашего?

crowman2 писал(а):
Задачу не понимаю. Зачем это? Объясни полностью решаемую задачу.

Для передачи адены с бота на другого бота в автоматическом режиме.


Чт фев 15, 2018 9:00 am
Профиль
Куда я попал

Зарегистрирован: Чт июл 30, 2015 9:56 am
Сообщений: 78
Сообщение Re: Скрипт проверки и определения
Не совсем понятно конечная задумка, но если вы хотите что бы 1 условие срабатывало (добижать например до локации), а не все сразу, если адены j:=1000000 то надо бы указать диапазон:-)
Код:
if (i>a) and (i<b) then begin h:=a;end;
if (i>b) and (i<c) then begin h:=b;end;
...


Пт фев 16, 2018 4:32 am
Профиль

Зарегистрирован: Пт янв 26, 2018 5:11 pm
Сообщений: 14
Сообщение Re: Скрипт проверки и определения
fatklass писал(а):
Не совсем понятно конечная задумка, но если вы хотите что бы 1 условие срабатывало (добижать например до локации), а не все сразу, если адены j:=1000000 то надо бы указать диапазон:-)
Код:
if (i>a) and (i<b) then begin h:=a;end;
if (i>b) and (i<c) then begin h:=b;end;
...

С этой задачей справился, математика наше всё)

Подскажите знающие, вопрос такой:
Возможно ли как то создать, сохранить, прочитать историю pickup (подбора дропа)?


Пт фев 16, 2018 6:54 am
Профиль

Зарегистрирован: Пт янв 26, 2018 5:11 pm
Сообщений: 14
Сообщение Re: Скрипт проверки и определения
Товарищи! Всё еще акутально, подскажите:

Как узнать номер ячейки из массива инвентаря (в котором указан ID предмета и количество)
Что то из такого рода:
x[1](57,1000) - адена
x[2](1121,1) - ботинки
x[3](1492,12) - какой нить квестовый итем...


Сб фев 17, 2018 12:30 pm
Профиль
Флудер
Аватар пользователя

Зарегистрирован: Чт авг 27, 2015 2:03 pm
Сообщений: 140
Сообщение Re: Скрипт проверки и определения
Код:
uses sysutils;
var
  i:integer;
begin
  for i:= 0 to inventory.user.count-1 do
    print(inttostr(inventory.user.items(i).id)+', '+inttostr(inventory.user.items(i).count)+', столстулдевять: '+inttostr(i));
end.

Но над формулировкой тебе надо поработать...


Сб фев 17, 2018 9:53 pm
Профиль ICQ
Показать сообщения за:  Сортировать по:  
Ответить на тему   [ Сообщений: 14 ]  На страницу 1, 2  След.

Кто сейчас на форуме

Сейчас этот форум просматривают: Google [Bot] и гости: 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Разработано: g-yar.
Русская поддержка phpBB