вот что получилось в результате сбора кусочков мыслей и нескольких часов гугления:
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++ (бот на нем
), добавить функционала и реализовать отправку соответствующих пакетов...