Сообщений в теме: 4

[Antey]

Доброго всем Дня. Хочу создать темку для обмена рабочими, провереными скриптами для этого сервера на адреналин. 

Так же огромная просьба выкладывать скрипты не Зашифрованными!!! чтобы можно было самому изменить не или иные конфигурации а так же небыло сюрпризом для человека который скачает скрипт что его персонаж сделает 2-3 круга а потом удалит весь инвентарь)

Сообщение отредактировал Antey: 23 Сентябрь 2023 - 07:25

[Antey]

Кому не жалко выложите скрипт на фарм нон стоп халиши. Заранее благодарен.

[Antey]

возвращение на фарм после смерти - гиран - фарм зона мобы из ит

Begin

while 1<>2 do begin 

if User.Dead then begin

         Delay(1000);

         Engine.GoHome;

                  Delay(1000);

         engine.FaceControl(0, false);

         Delay(1000);

       end;

if user.inrange(81376, -148095, -3456, 1000) then 

  Engine.MoveTo(81376, 148095, -3456);

  Engine.MoveTo(82739, 148066, -3479);

  Engine.MoveTo(83425, 147933, -3415);

  

if user.inrange(83425, -147933, -3415, 500)  then  

delay(1000);

Engine.SetTarget('Clarissa');

delay(1000);

Engine.SetTarget('Clarissa');

delay(1000);

Engine.SetTarget('Clarissa');    

Engine.DlgOpen();

delay(1000);

Engine.DlgSel(1);

delay(1000);

Engine.DlgSel(15);

delay(3000);

 Engine.MoveTo(-82227, -49215, -10368);

Engine.MoveTo(-81848, -48688, -10365);

Engine.MoveTo(-79918, -46443, -10717);

 

delay(1000);

engine.FaceControl(0, true);

   end;

 

end.

[Meteor]

Скрипт для обмена Christmas Tree

uses SysUtils;

function ItemCount(id: integer): integer;
var i: integer;
begin
  result:= 0;                                          
  for i:= 0 to Inventory.User.Count-1 do begin
    if (Inventory.User.Items(i).ID = id) then
      Inc(result, Inventory.User.Items(i).Count);
  end;
end;


begin
  Print('Start - Christmas Tree (' + IntToStr(ItemCount(5560)) + ')');
  while (ItemCount(5556) > 3) and (ItemCount(5557) > 3) and (ItemCount(5558) > 9) and (ItemCount(5559) > 0) do begin
    if User.Target.ID <> 31863 then Engine.SetTarget(31863);
    if (User.DistTo(User.Target) > 75) then Engine.MoveToTarget(-50);
    Engine.DlgOpen();
    Delay(250);
    Engine.BypassToServer('00');
  end;
  Print('End - Christmas Tree (' + IntToStr(ItemCount(5560)) + ')');
  PlaySound(ExePath + '/Sounds/msg.wav');
end.

[Meteor]

Скрипт для обмена Special Christmas Tree

uses SysUtils;

function ItemCount(id: integer): integer;
var i: integer;
begin
  result:= 0;                                          
  for i:= 0 to Inventory.User.Count-1 do begin
    if (Inventory.User.Items(i).ID = id) then
      Inc(result, Inventory.User.Items(i).Count);
  end;
end;


begin
  Print('Start - Special Christmas Tree (' + IntToStr(ItemCount(5561)) + ')');
  while (ItemCount(5560) > 9) do begin
    if User.Target.ID <> 31863 then Engine.SetTarget(31863);
    if (User.DistTo(User.Target) > 75) then Engine.MoveToTarget(-50);
    Engine.DlgOpen();
    Delay(250);
    Engine.BypassToServer('01');
  end;
  Print('End - Special Christmas Tree (' + IntToStr(ItemCount(5561)) + ')');
  PlaySound(ExePath + '/Sounds/msg.wav');
end.