Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
 
 
Опции темы Опции просмотра
Старый 16.09.2009, 12:22   #11
Рыцарь
 
Аватар для alexteam
 
Регистрация: 07.03.2009
Сообщений: 9,139
Сказал Спасибо: 70
Имеет 2,820 спасибок в 1,735 сообщенях
alexteam на пути к лучшему
По умолчанию

как то так.
result - результат функции.
его так же можно использовать как локальную переменную.

delphi Код:
// СКОЛЬКО предметов с itemID //------------------- function GetsumitemID(itemID:integer) : integer; var   i : integer; begin   Result := 0; //В начале у нас 0 вещей.   for i:=1 to max do     if (BaseItems[i,3]=itemID) then       inc(result, BaseItems[i,5]); end; // СКОЛЬКО предметов с itemID и Maxlvl //--------------------- function GetsumMaxlvl(itemID,Maxlvl:integer) : integer; var   i : integer; begin   result := 0;   for i:=1 to max do   if (BaseItems[i,3]=itemID) and (BaseItems[i,10]=Maxlvl) then   inc(result, BaseItems[i,5]); end;

Добавлено через 2 минуты
кстати... рекомендации - называй переменные своими именами... ибо через неделю ты сам не разберешся в своем же скрипте %)
я про то что у тебя EnchantLevel так же Maxlvl ну и в этом духе..
__________________
L2Ext - project closed.

Последний раз редактировалось alexteam, 16.09.2009 в 12:22. Причина: Добавлено сообщение
alexteam вне форума   Ответить с цитированием
За это сообщение alexteam нажился спасибкой от:
 

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг



Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 14:36.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!