Scripting by LEO... (archery)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Scripting by LEO... (archery)

Post by ghost_hnt »

в чем дело?
пытается стрелять , но потом сразу же хелит не тронутого чара(((
помогите

Code: Select all

var Doll = '0x0026B61A' ##ID чара в которого стреляем 
var Cont = '0x4009EDAD' ##ID контейнера где лежат стрелы 
var Arrow = '0x0F3F'    ##тип стрел 
var Bow = '0x13B1'      ##тип лука 
sub Archery() 
#¤Leo¤# 
while 1 
   UO.UseType(Bow) 
   UO.Attack(Doll) 
   Repeat 
      wait (500) 
   if UO.InJournal('destroyed') then 
   UO.UseType(Bow) 
   UO.DeleteJournal() 
   endif 
   Until UO.GetHP(Doll)<100 
   repeat 
   wait (500) 
   UO.WarMode(0) 
      if UO.FindCount('0x0E21')<30 then 
         UO.WaitTargetType('0x1008') 
         UO.UseType('0x0E20') 
         CheckLag() 
      endif 
      UO.Usetype('0x0E21') 
      UO.WaitTargetObject(Doll) 
      wait(3500) 
   Until UO.InJournal('you need') 
      If UO.Count(Arrow) < 100 Then 
         UO.Findtype(Arrow, '-1',Cont) 
         If UO.FindCount() > 0 Then 
            UO.Grab('500','finditem') 
            wait(1000) 
            CheckLag() 
         Endif 
      Endif 
      UO.DeleteJournal() 
wend 
end sub 

sub Start() 
   repeat 
   UO.Findtype(Arrow) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif 
   UO.Findtype(Arrow, '-1', '1' ) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif 
      wait(10000) 
   until UO.Dead() 
endsub 

Sub CheckLag() 
   UO.DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
endsub
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
CONDOMchick
Posts: 362
Joined: 2005-04-23 20:18:57

Post by CONDOMchick »

попробуй увеличить задержку
[size=150][i]Dragon World. [since 2004][/i][/size]
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

блин он почему то пробует стрельнуть, а потом сразу хелит и хелит все время чара с полными жизнями_(
ошибка где-то в этой строчке

Code: Select all

Until UO.GetHP(Doll)<100 
   repeat 
   wait (500) 
   UO.WarMode(0) 
      if UO.FindCount('0x0E21')<30 then 
         UO.WaitTargetType('0x1008') 
         UO.UseType('0x0E20') 
         CheckLag() 
      endif 
      UO.Usetype('0x0E21') 
      UO.WaitTargetObject(Doll) 
      wait(3500) 
   Until UO.InJournal('you need')
можете скинуть другой рабочий скрипт)_!
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

как-то надо изменить проверку hp у куклы
что-то вместо until uo.getHP
типо if жизней у куклы меньше половины то бери бинты
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
flake
Expert!
Posts: 746
Joined: 2004-08-11 23:56:17
Location: The Citadel
Contact:
Contact flake

Post by flake »

Code: Select all

Until UO.GetHP(Doll)<100
замени на

Code: Select all

Until UO.GetHP(Doll)< (UO.GeMaxHP(Dol)/2)
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

не не хрена)
там подправил, но он убивает чара_)
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

flake wrote:

Code: Select all

Until UO.GetHP(Doll)<100
замени на

Code: Select all

Until UO.GetHP(Doll)< (UO.GeMaxHP(Dol)/2)
Скока писал так ни разу не получалось, лучше сделать проверку по журналу на фразу, пробуй:

Code: Select all

var Doll = '0x0026B61A' ##ID чара в которого стреляем 
var Cont = '0x4009EDAD' ##ID контейнера где лежат стрелы 
var Arrow = '0x0F3F'    ##тип стрел 
var Bow = '0x13B1'      ##тип лука 
sub Archery() 
#¤Leo¤# 
while 1 
   UO.UseType(Bow) 
   UO.Attack(Doll) 
   Repeat 
      wait (500) 
   if UO.InJournal('destroyed') then 
   UO.UseType(Bow) 
   UO.DeleteJournal() 
   endif 
   until UO.InJournal('Stop')
   UO.DeleteJournal() 
   repeat 
   wait (500) 
   UO.WarMode(0) 
      if UO.FindCount('0x0E21')<30 then 
         UO.WaitTargetType('0x1008') 
         UO.UseType('0x0E20') 
         CheckLag() 
      endif 
      UO.Usetype('0x0E21') 
      UO.WaitTargetObject(Doll) 
      wait(3500) 
   Until UO.InJournal('need healing') 
      If UO.Count(Arrow) < 100 Then 
         UO.Findtype(Arrow, '-1',Cont) 
         If UO.FindCount() > 0 Then 
            UO.Grab('500','finditem') 
            wait(1000) 
            CheckLag() 
         Endif 
      Endif 
      UO.DeleteJournal() 
wend 
end sub 

sub Start() 
   repeat 
   If UO.GetHP() < UO.GetMaxHP() / 2 then
   UO.Say('Stop')
   repeat
   wait(100)
   until UO.GetHP() == UO.GetMaxHP()
   else
   wait(100)
   endif
   UO.Findtype(Arrow) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif 
   UO.Findtype(Arrow, '-1', '1' ) 
   If UO.FindCount() > 0 Then 
      UO.MoveItem('finditem','0',Cont) 
         wait(1000) 
   Endif  
   until UO.Dead() 
endsub 

Sub CheckLag() 
   UO.DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
endsub
Last edited by Kynep on 2006-05-11 21:14:08, edited 3 times in total.
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

блин сначало норм, но потом, как чар-кукла сказал STOP
атакующий его хилит, даже если у него хп полные(
надо что-то в этом роде

Code: Select all

 until UO.InJournal('Stop')
until заменить на if
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

ghost_hnt wrote:блин сначало норм, но потом, как чар-кукла сказал STOP
атакующий его хилит, даже если у него хп полные(
надо что-то в этом роде

Code: Select all

 until UO.InJournal('Stop')
until заменить на if
Немнога поправил, посмотри. Ты как запускаешь его? Кто качает должен запускать Archery, а кукла Start
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

да эт я понял
скоро буду тестить
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

блин не ПАШЕТ((((((((((
стреляет, пока тот не скажет STOP
потом хелит его до бесконечности..............
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

ghost_hnt wrote:блин не ПАШЕТ((((((((((
стреляет, пока тот не скажет STOP
потом хелит его до бесконечности..............
Мля!! телепаты в отпуске!!! В этой строке напиши что пишет клиент, когда у чела жизни полные и пытается лечить:

Code: Select all

Until UO.InJournal('need healing')
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

скрипт работает, но почему то когда у куклы меньше половины хп он все время кричит STOP!!!!!!!!!!!!!!
не останавливаясь, поэтому чар стрельнет, потом сразу хелит :?
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Post by Kynep »

ghost_hnt wrote:скрипт работает, но почему то когда у куклы меньше половины хп он все время кричит STOP!!!!!!!!!!!!!!
не останавливаясь, поэтому чар стрельнет, потом сразу хелит :?
Попробуй так, ссылка на мой пост:
Тут
Только не забудь исправить это:

Code: Select all

Until UO.InJournal('need healing')
Top
ghost_hnt
Posts: 156
Joined: 2006-02-03 19:32:33

Post by ghost_hnt »

спасибо вроде норм!
ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)
Top
Post Reply

Return to “Scripting Ore”