Показать сообщение отдельно
Старый 28.11.2009, 10:46   #6
Новичок
 
Аватар для Djekc
 
Регистрация: 15.11.2009
Сообщений: 17
Сказал Спасибо: 6
Имеет 1 спасибку в 1 сообщении
Djekc пока неопределено
По умолчанию

Цитата:
Сообщение от nneett Посмотреть сообщение
Ловлю пакет колы-адена, ловлю пакет адена-точки, ставлю в посылку и то время которое нужно.
И как?Всё чётко срабатывает?Просто у меня чз отправку вроде тож всё работает но иногда при посылки МультиСелЧёйс тупо нет реакции пока не купиш то что посылаеш руками...Та же беда со скриптом

Добавлено через 31 минуту
Проснулся с утра ис новыми силами поштудировал не много инет на предмет оператора if then else и смог таки более мение ровно слепить 2 скрипта в 1
Код:
//автоматизация закупки
const
//==========================================================================================
   myname='xxx'; //<<== пишем свой НИК
//==========================================================================================   
begin
//начало условия                                              
  if FromClient and (ConnectName='myname') 
  and (pck=HStr('34 02 00 00 00 ')) //Соц.действие hello
  then 
   begin 
//=================================Обмен коинов==============================================   
    buf:=HStr(''); //пакет RequestBypassToServer обмена колов
    SendToServerEx('myname');
    pck:='';
//между этими 2мя пакетами хотел бы поставитбь задержку в 100 мс,но не знаю как...    
    buf:=HStr('');//пакет MultiSellChoose обмена колов
    SendToServerEx('myname');
    pck:='';
   end
//===========================================================================================   
  else 
//=============================Покупка необходимого============================================  
  if FromClient and (ConnectName='myname') 
  and (pck=HStr('34 03 00 00 00 '))//Соц.действие victory 
  then 
   begin 
    buf:=HStr(''); //пакет RequestBypassToServer покупаемой вещи
    SendToServerEx('myname');
    pck:='';
//между этими 2мя пакетами хотел бы поставитбь задержку в 100 мс,но не знаю как...    
    buf:=HStr('');////пакет MultiSellChoose покупаемой вещи
    SendToServerEx('myname');
    pck:='';
   end;
//============================================================================================   
//конец условия                                              
end.
Сей час нет возможности зайти в игру,но надеюсь будет работать.
P.S:Просьба к TAMBIK если не тяжело подскажи чз какие функции(или где можно об этом доступно почитать)можно сделать так что бы не приходилось ловит каждый раз по новой пакеты мультиселчёйс если захочиться сменить покупку блесов на чё нить еще или поменять колво обмениваемых коинов/покупаемых точек.

Последний раз редактировалось Djekc, 28.11.2009 в 11:14. Причина: Добавлено сообщение
Djekc вне форума   Ответить с цитированием