Stealth Client Forum

Перепишите под стэлс, за ранее блогадарна.
Это анатомия с хилом...
sub Healing()
While UO.WEIGHT < 30000
if UO.Life <60 then
UO.Exec("bandageself")
wait(6000);
else
UO.Exec("useskill Anatomy self");
wait(10000);
endif
wend
end sub

Program Healing;

var
bandages:cardinal;

{$Include 'all.inc'}

Begin
bandages:=FindType($0E21,backpack);

While Weight < 30000 do begin
if HP < 60 THEN
Begin
UseObject(bandages);
WaitTargetSelf;
wait(6000);
else
useskill('Anatomy');
WaitTargetSelf;
wait(10000);
end;
end;
end;

Пробуй.

Пожалусто переделайте мне очень прошу...
он кидает на себя касты блейс и инту, а патом кто сказал hmm, реги берет с пола, хотелось бы чтобы из сумки, если возможно...

sub obkast()
VAR numb
UO.DeleteJournal()
start:
If UO.InJournal("hmm") then
obcast(UO.JournalSerial(UO.InJournal("hmm")-1))
End if
If UO.InJournal("HMM") then
obcast(UO.JournalSerial(UO.InJournal("HMM")-1))
End if
If UO.InJournal("РЬЬ") then
obcast(UO.JournalSerial(UO.InJournal("РЬЬ")-1))
End if
If UO.InJournal("рьь") then
obcast(UO.JournalSerial(UO.InJournal("рьь")-1))
End if
If UO.Mana < UO.Int then
UO.Useskill("Meditation")
Wait(5000)
End if
Wait(1000)
goto start
end sub

sub obcast(char)
zagruz()
VAR INT = 290
VAR Reg
VAR Y
If INT == UO.INT then
UO.Usetype(0x1718,0x0128)
Wait(500)
UO.Cast("Cunning","self")
wait(3000)
UO.Usetype(0x1718,0x09b5)
Wait(500)
UO.Cast("Bless","self")
wait(4000)
End if
a:
UO.Usetype(0x1718,0x0128)
Wait(500)
UO.DeleteJournal()
Reg = UO.Count(0x0F86)
Y = 0
UO.Cast("Cunning",char)
While UO.Count(0x0F86) == Reg and Y < 5 and not UO.InJournal("spell fizzles.")
Y = Y + 1
Wait(1000)
Wend
If UO.InJournal("spell fizzles.") then
Wait(2000)
goto a
End if

b:
UO.Usetype(0x1718,0x09b5)
Wait(500)
UO.DeleteJournal()
Reg = UO.Count(0x0F8C)
Y = 0
UO.Cast("Protection",char)
While UO.Count(0x0F8C) == Reg and Y < 5 and not UO.InJournal("spell fizzles.")
Y = Y + 1
Wait(1000)
Wend
If UO.InJournal("spell fizzles.") then
Wait(2000)
goto b
End if

c:

UO.DeleteJournal()
Reg = UO.Count(0x0F86)
Y = 0
UO.Cast("Strength",char)
While UO.Count(0x0F86) == Reg and Y < 5 and not UO.InJournal("spell fizzles.")
Y = Y + 1
Wait(1000)
Wend
If UO.InJournal("spell fizzles.") then
Wait(2000)
goto c
End if

d:

UO.DeleteJournal()
Reg = UO.Count(0x0F86)
Y = 0
UO.Cast("Agility",char)
While UO.Count(0x0F86) == Reg and Y < 5 and not UO.InJournal("spell fizzles.")
Y = Y + 1
Wait(1000)
Wend
If UO.InJournal("spell fizzles.") then
Wait(2000)
goto d
End if

e:

UO.DeleteJournal()
Reg = UO.Count(0x0F86)
Y = 0
UO.Cast("Bless",char)
While UO.Count(0x0F86) == Reg and Y < 5 and not UO.InJournal("spell fizzles.")
Y = Y + 1
Wait(1000)
Wend
If UO.InJournal("spell fizzles.") then
Wait(2000)
goto e
End if

g:

UO.DeleteJournal()
Reg = UO.Count(0x0F86)
Y = 0
UO.Cast("Magic Reflection",char)
While UO.Count(0x0F86) == Reg and Y < 5 and not UO.InJournal("spell fizzles.")
Y = Y + 1
Wait(1000)
Wend
If UO.InJournal("spell fizzles.") then
Wait(2000)
goto g
End if

UO.ServerPrint("EP")
UO.DeleteJournal()
end sub

sub zagruz()
DIM reg[8]
reg[0] = "0x0F88"
reg[1] = "0x0F8D"
reg[2] = "0x0F8C"
reg[3] = "0x0F7B"
reg[4] = "0x0F86"
reg[5] = "0x0F84"
reg[6] = "0x0F85"
reg[7] = "0x0F7A"
For var x = 0 to 7
While UO.Count(reg[x]) < 15
Uo.Say('regov na pol!!!')
UO.Unsetreceivingcontainer(0x40576AED)
UO.Waittargetground(reg[x])
UO.Grab("100")
Wait(1500)
Wend
NEXT
end sub