Первый вопрос
как реалтзовать условие
если у меня набивается 500 item ID
я отключаюсь тп в город скидываю почту и лечу назад
в моём понимании это так
_bbshome
_cbbsteleportlist
_bbspage:teleport/village/teleport_villages_huntersvillage
_cbbsteleport_15_1
к каждому можно приписать Engine.ByPassToServer но впадлу ибо ночь уже (тут суть ясна)
поидее это выглядит так
вот тело цикла
var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while 1<>2 do begin
Begin
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.gohome;
delay(15000);
Engine.SendMail('Yda4iQQ', 'тема', 'комент',[4357,500,6622,50]);
end;
begin
if user.inrange(117304,76318,-2670,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(118229,74677,-2450,250,150)
then
begin
Engine.MoveTo(118069,75907,-2680);
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115683,77610,-2650,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115685,75072,-2550,250,150)
then
begin
Engine.MoveTo(116949,76808,-2712);
end;
if user.inrange(115861,75200,-2550,250,150)
then
begin
Engine.MoveTo(116949,76808,-2712);
end;
if user.inrange(117671,78998,-2210,250,150)
then
begin
Engine.MoveTo(116984,78968,-2240);
Engine.MoveTo(116718,78406,-2560);
Engine.MoveTo(116232,77389,-2704);
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(116158,77443,-2660,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(116127,76015,-2729,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115193,77594,-2670,250,150)
then
begin
Engine.MoveTo(115193,77594,-2704);
Engine.MoveTo(117053,76874,-2712);
end;
if user.inrange(119862,76603,-2272,250,150)
then
begin
Engine.MoveTo(119711,76592,-2272);
Engine.MoveTo(118444,76180,-2664);
Engine.MoveTo(117674,76110,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
if user.inrange(117189,78952,-2264,250,150)
then
begin
Engine.MoveTo(117029,78912,-2264);
Engine.MoveTo(116221,77560,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
Engine.SetTarget(32864); // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
Engine.DlgOpen(); // открываем диалоговое окно
Engine.DlgSel(4); // выбираем строку под номером 1 (можно ставить любой) // еще раз выбираем нужную строку
delay(6000);
if user.InRange(113261, 121037, -3712,300,300) then begin // здесь все аналог предыдущему с радиусом от точки,но тут мы уже двигаемся по маршруту к нашей фарм локе
Engine.MoveTo(114824, 120904, -3536);
Engine.MoveTo(117480, 120168, -3648);
Engine.MoveTo(118136, 118744, -3664);
end;
end;
end;
end;
end.
сейчас у меня стоит отправка почту сразу как появляюсь в городе
но нужно чтобы он тп сразу как набивает 500+
это по условиям выглядит так примерно я думаю
if Inventory ByID(7198, Item) then begin (или begin нне надо?)
delay(5000);
Engine.Facecontrol(0,False); -
delay(2000);
сюда условия через EngineByPassToServer
_bbshome
_cbbsteleportlist
_bbspage:teleport/village/teleport_villages_huntersvillage
_cbbsteleport_15_1
delay(5000);
Engine.SendMail('Yda4iQQ', 'тема', 'комент',[4357,500,6622,50]);
ну и дальше стандартные места возврата типо
if user.inrange(117189,78952,-2264,250,150)
then
begin
Engine.MoveTo(117029,78912,-2264);
Engine.MoveTo(116221,77560,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
Engine.SetTarget(32864);
Engine.DlgOpen();
Engine.DlgSel(4);
delay(6000);
if user.InRange(113261, 121037, -3712,300,300) then begin
Engine.MoveTo(117480, 120168, -3648);
Engine.MoveTo(118136, 118744, -3664);
end;
как реалтзовать условие
если у меня набивается 500 item ID
я отключаюсь тп в город скидываю почту и лечу назад
в моём понимании это так
_bbshome
_cbbsteleportlist
_bbspage:teleport/village/teleport_villages_huntersvillage
_cbbsteleport_15_1
к каждому можно приписать Engine.ByPassToServer но впадлу ибо ночь уже (тут суть ясна)
поидее это выглядит так
вот тело цикла
var obj: TL2NPC;
obj2: TL2Effect;
Enemy: TL2Live;
Begin
while 1<>2 do begin
Begin
if User.Dead then // умер- вырубаем интерфейс, возврат в город и пауза 15 секунд
begin
Engine.gohome;
delay(15000);
Engine.SendMail('Yda4iQQ', 'тема', 'комент',[4357,500,6622,50]);
end;
begin
if user.inrange(117304,76318,-2670,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(118229,74677,-2450,250,150)
then
begin
Engine.MoveTo(118069,75907,-2680);
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115683,77610,-2650,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115685,75072,-2550,250,150)
then
begin
Engine.MoveTo(116949,76808,-2712);
end;
if user.inrange(115861,75200,-2550,250,150)
then
begin
Engine.MoveTo(116949,76808,-2712);
end;
if user.inrange(117671,78998,-2210,250,150)
then
begin
Engine.MoveTo(116984,78968,-2240);
Engine.MoveTo(116718,78406,-2560);
Engine.MoveTo(116232,77389,-2704);
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(116158,77443,-2660,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(116127,76015,-2729,250,150)
then
begin
Engine.MoveTo(117104,76838,-2688);
end;
if user.inrange(115193,77594,-2670,250,150)
then
begin
Engine.MoveTo(115193,77594,-2704);
Engine.MoveTo(117053,76874,-2712);
end;
if user.inrange(119862,76603,-2272,250,150)
then
begin
Engine.MoveTo(119711,76592,-2272);
Engine.MoveTo(118444,76180,-2664);
Engine.MoveTo(117674,76110,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
if user.inrange(117189,78952,-2264,250,150)
then
begin
Engine.MoveTo(117029,78912,-2264);
Engine.MoveTo(116221,77560,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
Engine.SetTarget(32864); // берем в таргет НПЦ с ИД( можно имя в скобках 'имя'
Engine.DlgOpen(); // открываем диалоговое окно
Engine.DlgSel(4); // выбираем строку под номером 1 (можно ставить любой) // еще раз выбираем нужную строку
delay(6000);
if user.InRange(113261, 121037, -3712,300,300) then begin // здесь все аналог предыдущему с радиусом от точки,но тут мы уже двигаемся по маршруту к нашей фарм локе
Engine.MoveTo(114824, 120904, -3536);
Engine.MoveTo(117480, 120168, -3648);
Engine.MoveTo(118136, 118744, -3664);
end;
end;
end;
end;
end.
сейчас у меня стоит отправка почту сразу как появляюсь в городе
но нужно чтобы он тп сразу как набивает 500+
это по условиям выглядит так примерно я думаю
if Inventory ByID(7198, Item) then begin (или begin нне надо?)
delay(5000);
Engine.Facecontrol(0,False); -
delay(2000);
сюда условия через EngineByPassToServer
_bbshome
_cbbsteleportlist
_bbspage:teleport/village/teleport_villages_huntersvillage
_cbbsteleport_15_1
delay(5000);
Engine.SendMail('Yda4iQQ', 'тема', 'комент',[4357,500,6622,50]);
ну и дальше стандартные места возврата типо
if user.inrange(117189,78952,-2264,250,150)
then
begin
Engine.MoveTo(117029,78912,-2264);
Engine.MoveTo(116221,77560,-2712);
Engine.MoveTo(117056,76868,-2712);
Engine.MoveTo(117056,76868,-2712);
end;
Engine.SetTarget(32864);
Engine.DlgOpen();
Engine.DlgSel(4);
delay(6000);
if user.InRange(113261, 121037, -3712,300,300) then begin
Engine.MoveTo(117480, 120168, -3648);
Engine.MoveTo(118136, 118744, -3664);
end;