Требуется помощь.

[Breadfan]

Сообщение от Vilson

Ага, ты заметил как я тут телепатом поработал когда скрипт на прошлой странице писал?
У меня в условиях проверка на ItemId = 1461 и 2131 при том что я не спрашивал о чем речь.

- да я смотрел на них и думал: мож в личку получил точные названия итемов...я в шоке Требуны ревут от восхищения

[supernewbie]

наверное что-то не так вставил... но...

[Vilson]

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

и запусти скрипт, можно еще попробовать поменять условие в таймере на if (PckIn=False) then вместо того что там сейчас

[supernewbie]

так, это без замены условия, ну как я и говорил, в конце оно независимо становится false...

[supernewbie]

в принципе, после замены условия ничего не изменилось

[Vilson]

меняй в

Var
PckIn: Boolean;

и добавь в

procedure Init;
begin
PckIn:= False;

Хз что там у тебя, может фастсткрипт глючит с прединициализируемыми переменными, попробуй еще так..

[supernewbie]

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

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

[Breadfan]

Уважуха Vilson ) Вот только у меня остался один вопрос: а к чему этот скрипт нужен то вообще?
Оффтоп

Модераторам: можно тему почистить? а то 4 страницы нафлудили....

//QaK: а не проще ее прибить нафиг?

[Sherman]

Сообщение от Vilson

ЗЫ Не путай FastScript и Паскаль.

А чо их путать то. В итоге после куевой тучи оберток фастскриптовский case упретсо в паскалевский case, которому переданная в Expression строка не подходит, и сравнивая х.з. что (скорее всего указатель на эту самую строку) с х.з. чем (опять же с указателями на строки) в Statement, естественно этот case отработает только в ветке else

[Vilson]

Сообщение от Sherman

и сравнивая х.з. что (скорее всего указатель на эту самую строку) с х.з. чем (опять же с указателями на строки) в Statement, естественно этот case отработает только в ветке else

Афтор, какой результат тебе выдал этот скрипт?

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

begin
                     
end.