Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7
Хилинг.
Хилинг.
Я в скриптах на стелс клиент вообще ни шарю каму не трудно пожайлусто напишите скрипт чтобы чар хилился не надо ничего типа он мыл бинты подлнимал мне просто взял 5к бинтов запустил стелс клиент в него стреляю он хилится потом захожу обычным клиентом беру чистые бинты и т.д.
Взаранее спасибо
Взаранее спасибо
Code: Select all
program heal;
procedure Hungry(NeededLevel : Integer);
var HArray : array [0..10] of String;
CurrentLevel : Integer;
HasError : Boolean;
TimeSayHungry : TDateTime;
FoodID : Cardinal;
i,c,difference : Integer;
begin
if (NeededLevel < 0) or (NeededLevel > 10) then Exit;
HArray[0] := 'You are absolutely stuffed!';
HArray[1] := 'You are stuffed';
HArray[2] := 'hungry at all';
HArray[3] := 'You are a little hungry';
HArray[4] := 'You are somewhat hungry';
HArray[5] := 'You are REALLY hungry';
HArray[6] := 'Your stomash hurts';
HArray[7] := 'Your stomash hurts and you feel dizzy';
HArray[8] := 'You are starving';
HArray[9] := 'You are almost dying of hunger';
HArray[10] := 'You are DYING of hunger...';
HasError := true;
TimeSayHungry := Now;
UOSay('.hungry');
wait(100);
i:=0;
while i < 100 do
begin
for c := 0 to 10 do
if InJournalBetweenTimes(HArray[c],TimeSayHungry,Now) >= 0 then
begin
CurrentLevel := c;
HasError := false;
i := 100;
end;
wait(100);
i := i + 1;
end;
if HasError then
begin
AddToSystemJournal('Error with Hungry: Lag? Conection error? Something else?');
Exit;
end;
difference := CurrentLevel - NeededLevel;
if difference > 0 then for i := 1 to difference do
begin
FoodID := FindType($097B,$FFFFFFFF);
if FoodID <> $00 then UseObject(FoodID)
else AddToSystemJournal('No Food');
wait(200);
end;
end;
procedure stack(ObjType, Color : word);
var PackItem, GroundItem : Cardinal;
begin
PackItem := 0;
GroundItem := 0;
Findtype(ObjType,backpack);
IF FindFullQuantity > 0 then PackItem := finditem;
Findtype(ObjType,ground);
IF FindFullQuantity > 0 then IgnoreReset;
repeat
FindtypeEx(ObjType,Color,ground,false);
IF FindCount > 0 then
if FindQuantity > 55000 then Ignore(finditem)
else GroundItem := finditem;
FindtypeEx(ObjType,Color,ground,false);
until (FindCount = 0) or (GroundItem <> 0);
if (PackItem <> 0) and (GroundItem <> 0) then MoveItems(backpack,ObjType,Color,GroundItem,0,0,0,1000)
else DropHere(PackItem);
end;
procedure Dropscrolls(scroll:Word);
begin
findtype(scroll,backpack);
IF FindFullQuantity > 2000 then
begin
Stack(scroll,$FFFF)
Wait(300)
end;
end;
Begin // Main program start!!!
while true do
begin
Hungry(1);
wait(500);
for i:=1 to 50 do
begin
WaitTarget(Self);
UseObject(findtype($E21,backpack);
wait(2000); //2с, задержку под свой шард ставить
end;
end;
End.
вот что это www.ultima.sun-tel.netVizit0r wrote:он посмотрит на процедуру hungry и скажет оооо, как это так...
а ведь самое веселое что я дажене уверен что на его шарде сытость оказывает какое-то значение (это какая-то сфера как я понял)
там все бегают старвинг.. и все ) а ваще если кидаеш итем на пол то он сам состыковывается.. вот так вот )
Code: Select all
Begin
while true do
begin
WaitTarget(Self);
UseObject(findtype($E21,backpack);
wait(3000);
end;
End.
НАверно у меня руки не оттуда растут не работает копирую сохраняю в текстовый документ запускаю в стелс клиенте а он не запускаетьсяMiralex wrote:Code: Select all
Begin while true do begin WaitTarget(Self); UseObject(findtype($E21,backpack); wait(3000); end; End.