Yoko

All sides of Injection
https://yoko.uokit.com/

Напишите Скрипт

https://yoko.uokit.com/viewtopic.php?t=12392

Page 1 of 2

Напишите Скрипт

Posted: 2007-08-31 18:49:23
by Perun
Парни напишите скрипт с Блэйд Спиритом, я искал тут но они все неработающие или не те которые нужны . На ДрВ сложно прокачивать вар скиллы ,одному надо кастовать другому блэйду и тот чтоб бил.
Вот вобщем мне и нужен скрипт ,чтоб левачёк костовал блэйду по ластатусу и пока главный чел бьёт ,левачёк мидитировал и ждал как отхидиться другой, а главному челу чтоб сразу атакавал блэйду и когда убьёт его отхиливался бинтами,и брал клевер и щит в руки :lol:
Заранее благодарен ! :roll:

Posted: 2007-08-31 19:41:24
by 666||TORCHKI
Проверь токо )
если что пиши !

Code: Select all

####KASTUJUSIJ
sub e1() 
var ter 
UO.Exec("set finddistance 15") 
#UO.DeleteJournal() 
repeat 
#if UO.InJournal("Smog GO") then 
repeat 
wait(500)
UO.WaitTargetTile('0','2038','1261','0')#Koordinati kuda kastuetsya spirit, 2-oe(X) i 3-e(Y) chislo 
wait(500)
UO.Cast("Blade Spirits")  
wait(10000) 
UO.FindType('0x023E','-1',1) 
until UO.FindCount('finditem')>0 
UO.Exec("warmode 0") 
int() 
UO.Exec('terminate int') 
repeat 
wait(3000) 
UO.FindType('0x023E','-1',1) 
until UO.FindCount('finditem')<1 
repeat 
wait(3000) 
#UO.FindType('0x0190','-1',1) 
#ter=UO.GetSerial('finditem') 
uo.getstatus('0x0042F2AA') #ID togo kto ubivaet spirita. 
until uo.GetHP('0x0042F2AA')>254 #ID togo kto ubivaet spirita. 
#else 
#wait(1000) 
#end if 
until UO.Dead() 
end sub 


sub e2()####KTO UBIVAET 
UO.Exec("set finddistance 15") 
repeat 
UO.FindType('0x023E','0000x0',1) 
If UO.FindCount('finditem')>0 then 
UO.Attack('finditem') 
repeat 
wait(5000) 
UO.FindType('0x023E','0000x0',1) 
until UO.FindCount('finditem')<1 
else 
While uo.GetHP('self')<uo.GetMaxHP('self') 

UO.SetArm('CWeapon') 
stirka() 
UO.Exec("bandageself") 
wait (1000) 
UO.Arm('CWeapon')
wait(5000) 
# if UO.Armor < 50 then 
#UO.WaitTargetSelf() 
#UO.Cast("Protection") 
#wait(5000) 
#else 
#wait(100) 
#end if 
wend 
end if 
wait(1000) 
until UO.DEAD() 
end sub 

sub stirka() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub 

sub int() 
repeat 
UO.DeleteJournal() 
repeat 
UO.UseSkill('Meditation') 
wait (2100) 
until UO.InJournal("You must") or UO.InJournal("You are at") 
if UO.InJournal("You must") then 
repeat 
wait (100) 
until UO.InJournal("You are at peace.") 
end if 
end sub



#============================================================== 
#  Gong(counter) - playing wav-file 'counter'-times 
#  http://www.djetta.ru/cow.wav 
#-------------------------------------------------------------- 
sub Gong(times) ; play wav-file 
   VAR i 
   for i=1 to times 
      UO.Exec("playwav C:\UO\inject\SOUND\mp3.wav")
      wait(1200) ; time to play sample at once 
   next 
end sub 


#============================================================== 
#  Alarm() - when char lose some HP, U are informed :) 
#-------------------------------------------------------------- 
sub Alarm() 
   VAR CharHP=10
   while 1==1 
      wait(1000) 
      if UO.Life<CharHP then 
         gong(1) 
      endif       
   wend 
end sub

Posted: 2007-08-31 20:25:02
by Perun
Левачёк кастует спирита это хорошо но дело в том что он его не одного кастуе а ещё троих в придачу ,не потскажешь как изменить ? Но спасибо и на этом, стало по легче :wink:

Posted: 2007-08-31 21:00:48
by Perun
и беда с тем кто убивает ,он хилеться во время боя тем и обламывает себе отхилл и умирает. Хотелось бы чтоб он хиллелся после ,когда спирит исчезнет. :twisted:

Posted: 2007-09-01 21:01:22
by 666||TORCHKI
Я посмотрю, вроде бы где-то нормальный, майсу качал зимой.

Posted: 2007-09-04 15:08:00
by Perun
да,посматри пожалуста а то докачать не могу никак :roll:

Posted: 2007-09-19 23:13:24
by Perun
var vrag = '0x001DDB81' # айди того кто качает
var BladeSpirit = '0x023E'

var msgReady = 'I am Ready'
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'


sub main()

while NOT uo.dead()

if Uo.Mana < 40 then
FullMeditation()
endif
uo.Say(MsgReady)
wait(1000)
Uo.DeleteJournal()

while NOT Uo.InJournal(msgReady)
wait(500)
wend
uo.waittargettile("1400",str(uo.getx(vrag)),str(uo.gety(vrag)),str(uo.getz(vrag)))
uo.cast("Blade Spirits")
wait(6000)
BladeContr()

wend

end sub

Sub FullMeditation()
while UO.Mana<UO.Int
UO.UseSkill('Meditation')
repeat
wait(2000)
uo.Say(msgNoMana)
until UO.InJournal("You are") OR UO.InJournal("You lose")
UO.DeleteJournal()
wait(4000)
wend
uo.useskill("Spirit Speak")
wait(10000)
end sub

sub BladeContr()
var BladeFound = 1
uo.set( 'finddistance', '20' )
while BladeFound == 1
Uo.FindType( BladeSpirit ,-1,'ground')
if Uo.FindCount() then
BladeFound = 1
Else
BladeFound = 0
endif

If Uo.Injournal(msgHelp) then
uo.cast('Greater Heal',vrag)
wait(4000)
uo.DeleteJOurnal()
endif

wait(1000)
wend

Uo.Say(msgBladeDied)
wait(1000)
end sub

sub automedit()
wait(10000)
while not uo.dead()
if uo.warmode() <> 1 then
if uo.mana < 70 then
uo.useskill("Meditation")
wait(5000)
endif
endif
wait(1000)
wend
end sub

Posted: 2007-09-19 23:15:17
by Perun
var msgReady = 'I am Ready'
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'
var key = 0

sub main()
VAR Banka='0x401C4D33' ; айди умывальницы
UO.waittargetobject(banka)
UO.usetype(0x0E21) # бенты
Wait(1000)
while NOT uo.Dead()
uo.DeleteJournal()
if Uo.GetHP('self') < Uo.Str then
uo.SetArm('MyArm')
wait(100)
uo.DisArm()
while Uo.GetHP('self') < Uo.Str
uo.bandageself()
uo.DeleteJournal()
while NOT uo.Injournal('You')
wait(1000)
wend
wend
endif
uo.Arm('MyArm')
Uo.DeleteJournal()
CheckLag()
while Uo.GetHP('self') == Uo.Str
uo.say(msgReady)
wait(3000)
wend
uo.deletejournal()
while NOT Uo.Injournal(msgBladeDied)
If Uo.GetHP('self') < 40 then
uo.say(msgHelp)
endif
wait(2000)
wend

Uo.DeleteJournal()
wend

end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(150)
until uo.InJournal('backpack')
end sub

Posted: 2007-09-19 23:16:20
by Perun
Отличный скрипт! У кого не Гм боевые качайте.

Re: Напишите Скрипт

Posted: 2010-09-10 18:38:42
by Maksimka
скрипт работает на 100% 8) автору СПАСИБО !!!! :wink:

Re:

Posted: 2018-02-01 12:18:04
by brrr
Perun wrote:var msgReady = 'I am Ready'
var msgBladeDied = 'Blade Died'
var msgHelp = 'Help me'
var msgNoMana = 'No mana... Meditation...'
var key = 0

sub main()
VAR Banka='0x401C4D33' ; айди умывальницы
UO.waittargetobject(banka)
UO.usetype(0x0E21) # бенты
Wait(1000)
while NOT uo.Dead()
uo.DeleteJournal()
if Uo.GetHP('self') < Uo.Str then
uo.SetArm('MyArm')
wait(100)
uo.DisArm()
while Uo.GetHP('self') < Uo.Str
uo.bandageself()
uo.DeleteJournal()
while NOT uo.Injournal('You')
wait(1000)
wend
wend
endif
uo.Arm('MyArm')
Uo.DeleteJournal()
CheckLag()
while Uo.GetHP('self') == Uo.Str
uo.say(msgReady)
wait(3000)
wend
uo.deletejournal()
while NOT Uo.Injournal(msgBladeDied)
If Uo.GetHP('self') < 40 then
uo.say(msgHelp)
endif
wait(2000)
wend

Uo.DeleteJournal()
wend

end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(150)
until uo.InJournal('backpack')
end sub


Фигу там стирка бинтов не пашет :?

Re: Напишите Скрипт

Posted: 2018-02-01 12:55:45
by Mirage
в куске

Code: Select all

   VAR Banka='0x401C4D33' ; айди умывальницы 
   UO.waittargetobject(banka) 
   UO.usetype('0x0E21') # бенты


бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте TWI что бы искалось на земле. Кстати иногда можно стирать прямо из пака.

Re: Напишите Скрипт

Posted: 2018-02-01 16:30:38
by brrr
Mirage wrote:в куске

Code: Select all

   VAR Banka='0x401C4D33' ; айди умывальницы 
   UO.waittargetobject(banka) 
   UO.usetype('0x0E21') # бенты


бенты должны быть кровавыми (проверь тип и поменяй при необходимости), и галка должна стоять в инжекте TWI что бы искалось на земле. Кстати иногда можно стирать прямо из пака.


У нас на ДеРеВе кровавые бинты в пак падают, сейчас попробую запустить с 3-мя кровавыми бинтами.

Пишет no bandages found

Re: Напишите Скрипт

Posted: 2018-02-01 16:57:27
by brrr
Во что я наворотил, НО если при лечении заканчиваются бинты он стоит и тупит. Куда засунуть проверку на No bandages found? я замучался.

Code: Select all

var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 
sub main() 

   clean_bandage()
   while NOT uo.Dead() 
      uo.DeleteJournal()  
   Wait(2000)
      if Uo.GetHP('self') < Uo.Str then 
         uo.SetArm('MyArm') 
         wait(100) 
         uo.DisArm() 
         while Uo.GetHP('self') < Uo.Str 
            uo.bandageself()  
                  if uo.injournal('no bandages found') then
                     clean_bandage()
                  endif
            uo.DeleteJournal() 
            while NOT uo.Injournal('You') 
               wait(1000) 
            wend 
         wend  
      endif
      uo.Arm('MyArm') 
      Uo.DeleteJournal() 
      CheckLag() 
      while Uo.GetHP('self') == Uo.Str 
         uo.say(msgReady) 
         wait(3000) 
      wend 
      uo.deletejournal() 
      while NOT Uo.Injournal(msgBladeDied) 
         If Uo.GetHP('self') < 20 then 
            uo.say(msgHelp) 
         endif 
         checkhp()
         wait(2000) 
      wend 
      Uo.DeleteJournal() 
   wend 
end sub 
sub CheckLag() 
   uo.DeleteJournal() 
   uo.Click('backpack') 
   repeat 
      wait(150) 
   until uo.InJournal('backpack') 
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub 
sub clean_bandage() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub

Re: Напишите Скрипт

Posted: 2018-02-01 18:14:05
by brrr
вроде работает - всюду мойку напихал ))) мож где и зря но работает )) Гора родила мышь ))

Code: Select all

var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 
sub main() 

   clean_bandage()        <----------- РАЗ
   while NOT uo.Dead() 
      uo.DeleteJournal()  
   Wait(2000)
      if Uo.GetHP('self') < Uo.Str then 
         uo.SetArm('MyArm') 
         wait(100) 
         uo.DisArm() 
         while Uo.GetHP('self') < Uo.Str 
            uo.bandageself()  
            uo.DeleteJournal() 
            while NOT uo.Injournal('You') 
               wait(1000) 
               clean_bandage()     <-------- ДВАЗ
            wend 
            clean_bandage()      <------- ТРИЗ
         wend  
      endif
      uo.Arm('MyArm') 
      Uo.DeleteJournal() 
      CheckLag() 
      while Uo.GetHP('self') == Uo.Str 
         uo.say(msgReady) 
         wait(3000) 
      wend 
      uo.deletejournal() 
      while NOT Uo.Injournal(msgBladeDied) 
         If Uo.GetHP('self') < 20 then 
            uo.say(msgHelp) 
         endif 
         checkhp()
         wait(2000) 
      wend 
      Uo.DeleteJournal() 
   wend 
end sub 
sub CheckLag() 
   uo.DeleteJournal() 
   uo.Click('backpack') 
   repeat 
      wait(150) 
   until uo.InJournal('backpack') 
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub 
sub clean_bandage() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub

Re: Напишите Скрипт

Posted: 2018-02-01 20:24:19
by Mirage
так оно и в начале работало. Просто ты чистые бинты стирал - я же написал. 0x0E21 - чистые бинты

Re: Напишите Скрипт

Posted: 2018-02-02 11:06:23
by brrr
Mirage wrote:так оно и в начале работало. Просто ты чистые бинты стирал - я же написал. 0x0E21 - чистые бинты

Я это понял что там не тот код 0x0E20, но это не работает. Видяху заснять если не веришь?

Re: Напишите Скрипт

Posted: 2018-02-02 15:30:14
by Incorrect User
0x1008 это что?

Re: Напишите Скрипт

Posted: 2018-02-02 15:43:14
by brrr
Incorrect User wrote:0x1008 это что?

ванночка, тазик, раковина "a wash basin"

Re: Напишите Скрипт

Posted: 2018-02-02 15:44:09
by Incorrect User
Она на земле?
All times are UTC+02:00
Page 1 of 2

Powered by phpBB® Forum Software © phpBB Limited