Вообщем начал потихоньку разбираться со скриптами. Прикрутил закупку заточек. Но вот с взятием в таргет так и не разобрался. Автотаргет не работает, так как кот(магазин) меня не атакует.
Вот собственно кусок на закупку:
delphi Код:
//04=Action:h(ObjectID)d(OriginX)d(OriginY)d(OriginZ)b(ShiftFlag)
procedure Roy;//(Attacker: Integer);
begin
buf:=#$04;
WriteD(1209014909);
WriteD(107977);
WriteD(218146);
WriteD(-3672);
WriteC(00);
SendToServerEx(Name);
end;
//......................................
//***************************************************************
//21=RequestBypassToServer:s(Cmd)
procedure RequestByPassToServer(cmd:string);
begin
buf:=#$21;
WriteS(cmd);
SendToServerEx(Name);
end;
//......................................
//***************************************************************
procedure RequestMultiSellItem(ListId,EntryID,Count:integer);
begin
msg.Lines.Add('Покупаем ListID:'+inttostr(ListID)+' EntryID:'+inttostr(EntryID)+' в кол-ве:'+inttostr(count));
buf:=#$A7;
WriteD(ListID);
WriteD(EntryId);
WriteD(Count);
SendToServerEx(Name);
// end;
end;
//***************************************************************
procedure BuyEnchScroll;
begin
RequestByPassToServer('menu_select?ask=-303&reply=559');
delay(500);
RequestMultiSellItem(559,17,1);
delay(500);
end;
//Дальше в скрипте ------------------
//************************************************
msg.Lines.Add('Пробуем улучшить ItemID='+IntToStr(ItemID)+' ItemOID='+IntToStr(ItemOID));
RequestEnchantItem(ItemOID);
ready:=false;
timer.enabled:=true; //пока в тесте отключаем (вкл. после заточки предмета)
//*** Закупка ***
delay(250);
RequestMultiSellItem(559,17,1); //Scroll S Weapon
delay(250);
//***
end;
#$81: if readd(2)=0 then begin
CurEnchLvl:=0; //начнем с начала
// BuyEnchScroll;
//--------------------------------------
Вообщем закупается одна заточка при открытом диалоговом окне с заточками.
Еще хочу прикрутить проверку кол-ва Аден, и подходить к другому коту и менять их. И дальше точить. Но опять все упирается в таргет.
Код надо в теги [ HIGHLIGHT ] обрамлять (правая решетка с параметром delphi)