|
|||||||
| Жесткий скриптинг Раздел для обсуждения готовых и тестируемых скриптов
Внимание! В разделе введена жесткая модерация, темы и сообщения публикуются только после проверки модераторами |
|
|
Опции темы | Опции просмотра |
18.08.2009, 07:58
|
#15 |
|
Новичок
Регистрация: 07.08.2009
Сообщений: 24
Сказал Спасибо: 17
Имеет 2 спасибок в 2 сообщенях
 |
Совет: Добавьте строчку в скрипте, чтобы во время обмена у фишермена очищался контрол msg. Иначе через несколько часов происходит его переполнение и скрипт падает с ошибкой "List index out of bounds (4999)"
Код:
//***************************************************************
// Вся торговля здесь!!!
//***************************************************************
procedure OnTrade(Sender: TObject);
begin
msg.Lines.Clear();
case trade of
//-------------------------------------------------
//продаем фишерману из массива TradeSellItem
//-------------------------------------------------
200: begin
Последний раз редактировалось LiS, 23.08.2009 в 04:18. |
|
|
| За это сообщение LiS нажился спасибкой от: |
|
Древовидный вид
|
|
Часовой пояс GMT +4, время: 03:15.