Code:
var DisturbingSound=('C:\WINDOWS\Media\ding.wav')
sub strelka()
VAR NS='0x0F88' ; Тип Nighshade.
VAR BP='0x0F7A' ; Тип Black Pearls.
VAR Sunduk='0x403686A9' ; Сериал(ID) Сундука.
VAR Kolvo=200
while not uo.dead()
If UO.NS == 0 Then
wait(1000)
UO.FindType(NS, '-1', Sunduk)
UO.Grab(str(Kolvo), 'finditem')
repeat
wait(100)
until UO.NS>0
Endif
If UO.BP == 0 Then
wait(1000)
UO.FindType(BP, '-1', Sunduk)
UO.Grab(str(Kolvo), 'finditem')
repeat
wait(100)
until UO.BP>0
Endif
if uo.mana>10 then
;uo.cast('Magic Arrow','laststatus');
;uo.cast('Fireball','laststatus')
uo.waittargetobject('0x000FF2CC') #ID игрока, на которого будем
;wait(100)
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
;UO.UseSkill("Spirit Speak")
;wait(3000)
While UO.Mana<UO.Int
UO.DeleteJournal()
wait(1000)
UO.Useskill('Meditation')
Repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose")
Wend
wait(1000)
endif
wend
end sub
sub resist()
while 1==1
wait(5000)
if UO.Life<145 then
uo.exec('bandageself')
wait(3000) ;; если что, тут задержку на лечение менять
endif
wait(50)
wend
endsub
sub ControlOfDanger()
while 1==1
wait(2000)
if UO.Life<150 then
uo.Exec('exec RecallRune')
wend
wait(50)
endif
wait(50)
wend
endsub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
sub Alarm()
VAR CharHP=150
while 1==1
wait(5000)
if UO.Life<150 then
uo.PlayWav(DisturbingSound)
wait(3000)
endif
wend
end sub
sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
Wait(3000)
;UO.Exec('terminate resist')
UO.Exec('terminate strelka')
Wait(3000)
;UO.Exec('exec resist')
UO.Exec('exec strelka')
Wait(3000)
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub
sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub
sub RecallRune()
var mX,mY
Terminate()
uo.PlayWav(DisturbingSound)
uo.UseType('0x0F0E','0x09BB')
wait(100)
repeat
uo.DeleteJournal()
if uo.Waiting() then
uo.CancelTarget()
end if
mX=uo.getX("self")
mY=uo.getY("self")
uo.DeleteJournal()
uo.warmode(0)
uo.FindType('0x1F14',-1,'mY')
uo.Cast('Recall','finditem')
uo.Print('Атака! Реколимся!')
wait(4000)
until uo.getX("self")<>mX and not uo.getY("self")<>mY
ExitUO()
end if
sub Terminate()
uo.Exec('terminate strelka')
wait(200)
uo.Exec('terminate resist')
wait(200)
uo.Exec('terminate ControlOfDanger')
wait(200)
uo.Exec('terminate Reconnector')
end sub
sub ExitUO()
wait(3000)
uo.CloseUO()
end sub
скрипт хорош не спорю...но им за 2-3 дня резист не прокачаешь))а моим скриптом-способом прокачаешь))