La2 - ICQ - Страница 7

destructor · 29.09.2009, 17:13

Цитата:

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

а про скрипт -
всунуть в скрипты и тож отметить галочкой -)

List index out of bounds (-1).
и чо ему нетак?

alexteam · 29.09.2009, 17:44

это где именно ? %)

destructor · 29.09.2009, 19:32

initok := ChatLoadAndInit('c:\test\ChatServer.dll'); без этой строки скрипт запускается, но естественно нифига не работает.

ругается он не на определенную строчку, а ваще непоймикак, тоесть:
стоит курсор в середине скрипта
жму запстить
он не запускается и курсор передвигается на строчку выше.
еще раз запустить, еще на строчку вверх

и так до самой верхней,
а потом выдает: List index out of bounds (-1).

alexteam · 29.09.2009, 19:42

а в статусбаре пх чиго пишет ? при попытке компиляции/запуска...

зы.. чувствую себя как будто пытаю партизана.

destructor · 29.09.2009, 19:54

гля и правда, чтота пишет в статус баре

Добавлено через 2 минуты
loader> EvariantTypeCastError: не могу конвертировать variant тип (Null) в тип (Boolean)

Добавлено через 1 минуту
жмеш копилировать, говорит все путем.

alexteam · 29.09.2009, 20:13

а, ну типа.. а дллку ты уже с правлеными импортами юзаешь ? да ?.. а плагин с неправлеными ?..

destructor · 29.09.2009, 20:32

оО и правда включилась

alexteam · 29.09.2009, 21:04

под правленние експорты. с калбэком. аттачед.
айди пакетов в скрипте сам поправиш -)

delphi Код:

var
  initok : boolean; 
  maskval : array[0..10] of variant;
  

Function SayCallBack(MsgType:integer; Target, Msg : string):integer; 
begin
  pck := '';
  //49=Say2:s(Text)d(Type)s(Target)
  WriteMask('csds',[$49, Msg, MsgType, Target]);                              
  SendToServer;
  result := 1; //Успешно отправили.

  //результат миррорим в лог пх.
  sendmsg(format('(%d) [me > %s] %s',[msgtype, target, msg])); //можно убрать.

  //result = 0. зарезервирован. калбэк вернет его если нельзя вызвать функцию с скрипта.
end;            
  
procedure Init; //will be called on script initialization
begin
    UseForConnectName := 'YourCharacterName'; //Обязательно. иначе не будем знать от какого коннекта слать.
    initok := ChatLoadAndInit('c:\test\ChatServer.dll');
    if not initok then
        ShowMessage('Dll Load Fail!!');         
end;

procedure Free; 
begin
end;

begin
if fromserver and initok then
  if pck[1] = #$4a then
    begin 
      readmask('dss',6,maskval); 
      chatsay(maskval[0],maskval[1],maskval[2]);
    end;
end.