нужен скриптик на резист (Dragon World) - поиск юзал, того именно, что мне надо, не нашёл!
1) один кастует стрелку (magic arrow) на того, кому качаем резист, проверяет хп его (делает паузу, пока не отхилится чар) , медитирует, кушает + checklag + reconnector
Я знаю, но не будучи автором этих скриптов, раздавать не могу т.к. попросили. А по теме, юзай поиск, таких скриптов тут многа, зайди в мою тему "Scripting Ore->То что ищут многие..."
sub strelka() #просто пуляет стрелками по ИД
while not uo.dead()
if uo.mana>10 then
;uo.cast('Magic Arrow','laststatus');
;uo.cast('Fireball','laststatus')
uo.waittargetobject('0x0039B9A3') #ID игрока, на которого будем
;wait(100)
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
; UO.UseSkill("Spirit Speak")
; wait(3000)
while UO.Mana<UO.Int
UO.UseSkill("Meditation")
wait(3000)
wend
;wait(1000)
endif
wend
end sub
;Впишите тип креста, в пак положите бинты и ванночку
;Question aka GimFlex
;var krest='0005' ;type of krest
sub resist() #Лечится каждые 3сек, если рядом с крестом - ресается в случае смерти
while 1==1
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
uo.exec('bandageself')
wait(3000) ;; если что, тут задержку на лечение менять
die()
else
UO.FindType(0x0E20,"-1","my")
cheklag()
uo.waittargettype(0x1008)
uo.UseType(0x0E20)
die()
endif
wait(50)
die()
wend
endsub
Sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub
Sub die()
;if uo.gethp("self")<=0 then
; uo.findtype(krest,'-1','ground')
while uo.gethp("self")<=0
uo.useobject('0x4002BCE6') ;;сюда ИД креста
wait(2000)
wend
;endif
endsub
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
;UO.Exec('terminate all')
;UO.Exec('exec autoload')
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 strelka()
VAR NS='0x0F88' ; Тип Nighshade.
VAR BP='0x0F7A' ; Тип Black Pearls.
VAR Sunduk='0x4010B004' ; Сериал(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('Magic Arrow','laststatus')
uo.waittargetobject('0x0039B9A3') #ID игрока, на которого будем
;wait(100)
UO.Exec("cast 'Magic Arrow'")
wait(2000)
else
;UO.UseSkill("Spirit Speak")
;wait(3000)
While UO.Mana<5.
UO.DeleteJournal()
wait(1000)
uo.findtype(0x0F0E,0x09DF)
uo.useobject('finditem')
UO.Useskill('Meditation')
Repeat
wait(100)
until UO.InJournal("You are") OR UO.InJournal("You lose")
Wend
wait(1000)
endif
wend
end sub
PS:в любом из этих двух скриптов помогите сделать что бы последовательно на другого чара тоже кидал стрелку т.е одну на 1-го следущую на 2-го и.т.д или как то так...зарание спс
