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

Спасибо исправил,заработало на половину...
Обмен коинов
Код:
begin
  if FromClient and (ConnectName='Djekc') 
  and (pck=HStr('34 02 00 00 00 ')) then begin 
    buf:=HStr('B0 39 4A 00 00 03 00 00 00 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  '); 
    SendToServerEx('DJekc');
    pck:='';
  end;
end.
Покупка 100 блесов
Код:
begin
  if FromClient and (ConnectName='Djekc') 
  and (pck=HStr('34 03 00 00 00 ')) then begin 
    buf:=HStr('B0 B1 36 00 00 25 00 00 00 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   '); 
    SendToServerEx('DJekc');
    pck:='';
  end;
end.
Просидел пол ночи так и не дошло как обьеденить всё это в 1 скрипт,еще проблема в том что пакет мультиСеллЧёйс посылаеться,кот выбран в таргет,но ничего не происходит пока сам не зайдёш в ГМ шоп и не поменяеш коины/купиш блесы,потом начинает по соц действию покупать тока что нить одно(то чно было куплено последним).
Пробовал обьеденить скрипт в один что бы просто клацать на 2 соц действия...Не вышло,скрипт запускаеться,но походу не совсем работает
Код:
begin
  if FromClient and (ConnectName='Djekc') 
  and (pck=HStr('34 02 00 00 00 ')) then begin 
    buf:=HStr('B0 39 4A 00 00 03 00 00 00 14 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00  '); 
    SendToServerEx('DJekc');
    pck:='';
  end;
  if FromClient and (ConnectName='Djekc') 
  and (pck=HStr('34 03 00 00 00 ')) then begin 
    buf:=HStr('B0 B1 36 00 00 25 00 00 00 64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   '); 
    SendToServerEx('DJekc');
    pck:='';
  end;
end.
Короче литр кофе,мигрень и практически ни какой результат,делаю вывод что скриптописатель из меня никакй,если у кого есть рабочий скрипт на автозакупку или комуто не сложно написать поделитесь.Чесно,приложил все усилия но ничего не вышло,вообще задумка была такая:
Подходиш к НПЦ меняеш n колов на адену(ловим пакет мультиСелЧёйс),потом покупаеш необходимый предмет или n-кол-во предметов(ловим второй пакет МультиСелЧёйс),указываеш сколько раз повторить и жмёш к примеру соц действие ДА тем самым запуская цикл на указанное количество раз.
P.S:Честно я старался!Но толи мозги у мя не те,то ли поздно и голова в поряде болит,обидно,а ведь это довольно простой скрипт=\
Djekc вне форума   Ответить с цитированием