Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

SC For Abyss

Only working scripts
Post Reply
Akad3m1k
Neophyte
Neophyte
Posts: 16
Joined: 12.12.2016 14:45

SC For Abyss

Post by Akad3m1k »

Доброго времени суток, вчера почитал гайд по скриптингу))
Встал вопрос о прокачке хилинга на абисе, вот что из этого вышло:

Смысл такой - одеваем орку, это дает нам +5 хп, юзаем бинт на себя и одеваем любую другую шапку.
Healing

Code: Select all

Program healingsb;
var helm,hat : Cardinal; //орка и шапка, для переодевания  cardinal = id
bint : word; //бинт              word = type
begin
helm:= $4177905C;
hat:= $41904D66;
bint:= $0E21;
repeat
//если какой то нехороший человек 
//подойдет и будет пытаться тебя убить
if (HP < 100) then 
begin
uosay('Guards');
wait (500)
uosay('Guards');
wait (500)
uosay('Guards');
end;
useobject(helm);
wait(200)
Useobject(FindType(bint,backpack));
WaitForTarget(100);
if targetpresent then
   begin
   TargetToObject(self);
   end;
wait(2900)
useobject(hat);
Until Dead;
end.
Прикрутить бы ему еще мытье бинтов, вообще изи хилинг))
GeeZeR
Apprentice
Apprentice
Posts: 226
Joined: 28.01.2012 19:48

Re: SC For Abyss

Post by GeeZeR »

Так прикрути, кровавые бинты будут вроде с тем же типом, но цвет другой. Цвет и тип узнай у чара в бэкпаке во вкладке World или командой .info или ,info в клиенте из под стелса.

Code: Select all

If FindTypeEx(bint, $<цвет>, backpack, true) > 0 then begin
	UseType(bint, $<цвет>);
	WaitForTarget(5000);
	WaitTargetType($<тут тип ведра для мытья>); // или WaitTargetGround если ведро не в бэкпаке, а рядом на земле.
end;
как-то так.
Stealth 8.10.2 | Клиент: 7.0.13.4
Akad3m1k
Neophyte
Neophyte
Posts: 16
Joined: 12.12.2016 14:45

Re: SC For Abyss

Post by Akad3m1k »

GeeZeR wrote:Так прикрути, кровавые бинты будут вроде с тем же типом, но цвет другой. Цвет и тип узнай у чара в бэкпаке во вкладке World или командой .info или ,info в клиенте из под стелса.

Code: Select all

If FindTypeEx(bint, $<цвет>, backpack, true) > 0 then begin
	UseType(bint, $<цвет>);
	WaitForTarget(5000);
	WaitTargetType($<тут тип ведра для мытья>); // или WaitTargetGround если ведро не в бэкпаке, а рядом на земле.
end;
как-то так.
А как можно сделать что бы он мыл не в ведре, а в море ?
GeeZeR
Apprentice
Apprentice
Posts: 226
Joined: 28.01.2012 19:48

Re: SC For Abyss

Post by GeeZeR »

Короче сначала выясни тип и цвет норм бинтов и с кровью, если тип один задай только цвет (BloodyBintColor, NormalBintColor). Подойдёшь к морю запусти, он тебе выдаст таргет - кликни на тайл моря. Должно работать.

Code: Select all

Program healingsb;
var helm,hat : Cardinal; //орка и шапка, для переодевания  cardinal = id
X, Y, Z, Tile, bint, BloodyBintColor, NormalBintColor : word; //бинт              word = type
begin
helm:= $4177905C;
hat:= $41904D66;
bint:= $0E21;

// Цвета нормального и кровавого винтов
BloodyBintColor := 
NormalBintColor := 

// задаёт координаты и тип тайла моря
	ClientPrintEx(0, 70, 0, 'Кликни на тайл моря');
	ClientRequestObjectTarget;
	repeat
		if ClientTargetResponsePresent then begin
			Tile := ClientTargetResponse.Tile;
			X:=ClientTargetResponse.X;
			Y:=ClientTargetResponse.Y;
			Z:=ClientTargetResponse.Z;
		end;
		wait(500);
	until Tile > 0;

repeat
//если какой то нехороший человек
//подойдет и будет пытаться тебя убить
if (HP < 100) then begin
uosay('Guards');
wait (500);
uosay('Guards');
wait (500);
uosay('Guards');
end;
useobject(helm);
wait(200);
// Useobject(FindType(bint,backpack)); // это может не срабатывать, если будут бинты с разными цветами одного типа. Лучше просто юзать бинты по типу с указанием цвета.
UseType(bint, NormalBintColor);
WaitForTarget(100);
if targetpresent then begin
   TargetToObject(self);
end;
wait(2900);
useobject(hat);

//Моет бинты
If FindTypeEx(bint, BloodyBintColor, backpack, true) > 0 then begin
   UseType(bint, BloodyBintColor);
   WaitForTarget(5000);
   WaitTargetTile(Tile, X, Y, Z);
end;
Until Dead;
end.
Stealth 8.10.2 | Клиент: 7.0.13.4
Akad3m1k
Neophyte
Neophyte
Posts: 16
Joined: 12.12.2016 14:45

Re: SC For Abyss

Post by Akad3m1k »

Спасибо, проблема просто в том, что я не могу зайти в игру через стелс.
Шард абис. там чет клиент новый какой то, и пишет проблем коммуникейшн )
Post Reply