Показать сообщение отдельно
Старый 23.02.2013, 04:37   #10
Местный
 
Аватар для Elecktron
 
Регистрация: 27.10.2011
Адрес: Харьков
Сообщений: 106
Сказал Спасибо: 24
Имеет 11 спасибок в 7 сообщенях
Elecktron пока неопределено
По умолчанию

вот что получилось в результате сбора кусочков мыслей и нескольких часов гугления:

PHP код:
    while (i<Memo1->Lines->Count)
    {
     
TStringList *WCount = new TStringList();
     
TSysCharSet Tws,Tcs;
     
Tcs<<'('<<')'<<','<<' '// разделители
     
AnsiString s Memo1->Lines->Strings[i];
     
ExtractStrings(Tcs,Tws,s.c_str(),WCount);

   if(
WCount->Strings[0] == "MTL")
     {
      
ShowMessage("Moving to x:"WCount->Strings[1]+" y:"+WCount->Strings[2]+" z:"+WCount->Strings[3]);
     }
     else
   if(
WCount->Strings[0] == "UseItem")
     {
      
ShowMessage("Use Item ID:"WCount->Strings[1]);
     }
     else
   if(
WCount->Strings[0] == "#")
     {
      
ShowMessage("ignored line");
     }
     else
     
Label1->Caption "Expression syntax on line "+IntToStr(i); //тут бы еще допилить прерывание выполнения...
 
        
i++;
        
delete WCount;
    } 
в бота еще не интегрировал.
нужно будет переписать на MSVC++ (бот на нем ), добавить функционала и реализовать отправку соответствующих пакетов...
__________________
C++Builder 6, Delphi 7, RAD Studio XE2, MS VC++...
Elecktron вне форума   Ответить с цитированием