- Сообщения
- 328
- Реакции
- 28
const
itemNumber = 1; //from (1) in craft book
minCraftMP = 50; //mp%
minRegenMP = 25; //mp%
craftDelay = 325; //delay
bufferId = 31613; //bufferId
buffer_x = 82228; //loc near buffer
buffer_y = 148704;
buffer_z = -3455;
buffer_range = 150;
procedure regenMP;
begin
if (User.MP <= minRegenMP)
and User.inRange(buffer_x, buffer_y, buffer_z, buffer_range) then
begin
if not Engine.SetTarget(bufferId) then regenMP();
if not Engine.MoveToTarget(-50) then regenMP();
if not Engine.DlgOpen() then regenMP();
Engine.DlgSel('HP/MP/CP');
delay(50);
end;
end;
procedure craftItems;
begin
while (true) do
begin
if (User.MP <= minCraftMP) then regenMP();
Engine.MakeItem(itemNumber);
delay(craftDelay);
end;
end;
begin
Script.NewThread(@craftItems);
end.
itemNumber = 1; //from (1) in craft book
minCraftMP = 50; //mp%
minRegenMP = 25; //mp%
craftDelay = 325; //delay
bufferId = 31613; //bufferId
buffer_x = 82228; //loc near buffer
buffer_y = 148704;
buffer_z = -3455;
buffer_range = 150;
procedure regenMP;
begin
if (User.MP <= minRegenMP)
and User.inRange(buffer_x, buffer_y, buffer_z, buffer_range) then
begin
if not Engine.SetTarget(bufferId) then regenMP();
if not Engine.MoveToTarget(-50) then regenMP();
if not Engine.DlgOpen() then regenMP();
Engine.DlgSel('HP/MP/CP');
delay(50);
end;
end;
procedure craftItems;
begin
while (true) do
begin
if (User.MP <= minCraftMP) then regenMP();
Engine.MakeItem(itemNumber);
delay(craftDelay);
end;
end;
begin
Script.NewThread(@craftItems);
end.