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

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

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 05.03.2010, 21:10   #31
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

Цитата:
Сообщение от Vilson Посмотреть сообщение
Ага, ты заметил как я тут телепатом поработал когда скрипт на прошлой странице писал?
У меня в условиях проверка на ItemId = 1461 и 2131 при том что я не спрашивал о чем речь.
- да я смотрел на них и думал: мож в личку получил точные названия итемов...я в шоке Требуны ревут от восхищения
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?

Последний раз редактировалось Breadfan, 05.03.2010 в 21:17.
Breadfan вне форума   Ответить с цитированием
Старый 05.03.2010, 21:11   #32
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

наверное что-то не так вставил... но...
Миниатюры
Нажмите на изображение для увеличения
Название: пох2.JPG
Просмотров: 21
Размер:	9.6 Кб
ID:	993  
supernewbie вне форума   Ответить с цитированием
Старый 05.03.2010, 21:19   #33
Пользователь
 
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Vilson пока неопределено
По умолчанию

Еще в таймере после SendMsg2('Karog', 'сработал таймер'); поставь
SendMsg2('Karog', 'в таймере PckIn := ' + VarToStr(PckIn));

и запусти скрипт, можно еще попробовать поменять условие в таймере на if (PckIn=False) then вместо того что там сейчас
Vilson вне форума   Ответить с цитированием
Старый 05.03.2010, 21:26   #34
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

так, это без замены условия, ну как я и говорил, в конце оно независимо становится false...
Миниатюры
Нажмите на изображение для увеличения
Название: пох3.JPG
Просмотров: 15
Размер:	18.5 Кб
ID:	994  
supernewbie вне форума   Ответить с цитированием
Старый 05.03.2010, 21:28   #35
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

в принципе, после замены условия ничего не изменилось
supernewbie вне форума   Ответить с цитированием
Старый 05.03.2010, 21:29   #36
Пользователь
 
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Vilson пока неопределено
По умолчанию

меняй в
Цитата:
Var
PckIn: Boolean;
и добавь в
Цитата:
procedure Init;
begin
PckIn:= False;
Хз что там у тебя, может фастсткрипт глючит с прединициализируемыми переменными, попробуй еще так..

Последний раз редактировалось Vilson, 05.03.2010 в 21:31.
Vilson вне форума   Ответить с цитированием
Старый 05.03.2010, 21:33   #37
Местный
 
Аватар для supernewbie
 
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
supernewbie пока неопределено
По умолчанию

ГОСПАДИ КАК ЖЕ ТЫ КРУТ)))))

Добавлено через 1 минуту
ахренеть)) работает))))) госпади как же это круто))))
не нашел смайла, но *respect*
Спасибо огромное

Последний раз редактировалось supernewbie, 05.03.2010 в 21:33. Причина: Добавлено сообщение
supernewbie вне форума   Ответить с цитированием
Старый 05.03.2010, 23:23   #38
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

Уважуха Vilson ) Вот только у меня остался один вопрос: а к чему этот скрипт нужен то вообще?
Оффтоп
//QaK: а не проще ее прибить нафиг?
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?

Последний раз редактировалось QaK, 09.03.2010 в 19:09.
Breadfan вне форума   Ответить с цитированием
Старый 15.03.2010, 15:14   #39
Местный
 
Аватар для Sherman
 
Регистрация: 24.04.2008
Сообщений: 364
Сказал Спасибо: 15
Имеет 116 спасибок в 83 сообщенях
Sherman пока неопределено
По умолчанию

Цитата:
Сообщение от Vilson Посмотреть сообщение
ЗЫ Не путай FastScript и Паскаль.
А чо их путать то. В итоге после куевой тучи оберток фастскриптовский case упретсо в паскалевский case, которому переданная в Expression строка не подходит, и сравнивая х.з. что (скорее всего указатель на эту самую строку) с х.з. чем (опять же с указателями на строки) в Statement, естественно этот case отработает только в ветке else
Sherman вне форума   Ответить с цитированием
Старый 15.03.2010, 19:57   #40
Пользователь
 
Регистрация: 19.02.2010
Сообщений: 49
Сказал Спасибо: 1
Имеет 35 спасибок в 12 сообщенях
Vilson пока неопределено
По умолчанию

Цитата:
Сообщение от Sherman Посмотреть сообщение
и сравнивая х.з. что (скорее всего указатель на эту самую строку) с х.з. чем (опять же с указателями на строки) в Statement, естественно этот case отработает только в ветке else
Афтор, какой результат тебе выдал этот скрипт?

delphi Код:
procedure Init; Var  s: string; begin  s:='проверка кейса строк работает';  case s of  'автор прав': ShowMessage('Sherman прав - в fs кейс со строками не работает');  'проверка кейса строк работает': ShowMessage('Sherman НЕ прав - в fs кейс со строками работает');  'кто здесь оО': ShowMessage('нет никого');  end; end; begin                       end.
Vilson вне форума   Ответить с цитированием
Ответ

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



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

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


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

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

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