Yoko

All sides of Injection
It is currently 2024-03-28 13:10:50

All times are UTC+02:00




Post new topic  Reply to topic  [ 35 posts ]  Go to page Previous 1 2
Author Message
 Post subject:
PostPosted: 2006-10-23 16:51:02 
Offline

Joined: 2005-03-17 02:25:11
Posts: 15
Так тоже не получится... Координаты будут менятся...


Top
   
 Post subject:
PostPosted: 2006-10-23 16:51:47 
Offline

Joined: 2005-03-17 02:25:11
Posts: 15
А есть команда:
uo.counttile ? )


Top
   
 Post subject:
PostPosted: 2006-10-23 17:01:41 
Offline
User avatar

Joined: 2005-07-10 21:53:05
Posts: 457
Code:
sub F_Mining_ORE() 
; ****************************************
   var MaxRange = 2 ; <--
; ****************************************
   var X, Y, mX, mY, mZ, TrW, TrWeight, TrT, TrTime, Tiles
   UO.Resend()
   wait(2000)
   mX = UO.GetX('self')
   mY = UO.GetY('self')
   mZ = UO.GetZ('self')
   for Y = MaxRange - ( MaxRange * 2 ) to MaxRange
      for X = MaxRange - ( MaxRange * 2 ) to MaxRange
         Tiles = F_HarvestTiles(mX+X, mY+Y)
         if Tiles then
            repeat
               UO.DeleteJournal()
; **************** STOP *****************
               if not UO.Count(0x0E86) || UO.Weight >= UO.STR*3.8 || UO.Dead() then ; <-- Pickaxe
                  UO.Print('STOP!!! Max Weight or NO Pickaxe or Dead')
                  return 0
               endif
; ***************************************
               TrTime = UO.Timer()
               TrWeight = UO.Weight
               UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
               UO.UseType(0x0E86) ; <-- Pickaxe
               repeat
                  wait(200)
                  TrW = TrWeight<>UO.Weight
                  TrT = UO.Timer()>TrTime+120
               until UO.InJournal("0xAD00|0xAD02|0xAD01|0xA2DE|0xAD03|0x6B31|0xEE46|0xA866|0xA867") || TrW || TrT
            until UO.InJournal("0xAD00|0xAD02|0xAD01|0xA2DE|0xA866|0xA867") || TrT
         endif
      next
   next
   return 1
end sub 

sub F_HarvestTiles(X,Y)
   if UO.PrivateGetTile(X, Y, -1, 1339, 1370) then
      for var i=1339 to 1370
         if UO.PrivateGetTile(X, Y, -1, i, i) then
            return i
         end if
      next
   end if
   return 0
end sub


Top
   
 Post subject:
PostPosted: 2006-10-23 17:37:16 
Offline

Joined: 2005-03-17 02:25:11
Posts: 15
Спасибо, но вот разбератся в этом трудно )


Top
   
 Post subject:
PostPosted: 2006-10-23 17:45:33 
Offline
User avatar

Joined: 2005-07-10 21:53:05
Posts: 457
это мининг для RunUO
ищи знакомые по этому уроку команды и все поймешь...


Top
   
 Post subject:
PostPosted: 2006-10-23 19:24:55 
Offline

Joined: 2005-03-17 02:25:11
Posts: 15
Да я тк приблизительно понял, но что-то мутно )
Хотя уже есть прояснения в голове )


Top
   
 Post subject:
PostPosted: 2006-10-23 21:28:03 
Offline
User avatar

Joined: 2005-07-10 21:53:05
Posts: 457
а так..
Code:
sub F_Mining_ORE() 
; ****************************************
   var MaxRange = 2 ; <--
; ****************************************
   var X, Y, mX, mY, mZ, TrW, TrWeight, TrT, TrTime, Tiles
;выбрать тайл для копки
   mX = UO.GetX('self')
   mY = UO.GetY('self')
   mZ = UO.GetZ('self')
   for Y = MaxRange - ( MaxRange * 2 ) to MaxRange
      for X = MaxRange - ( MaxRange * 2 ) to MaxRange
;проверим тайл на возможность копки
         Tiles = F_HarvestTiles(mX+X, mY+Y)
;если ноль, то руды там нет... пропускаем
         if Tiles then
            repeat
               UO.DeleteJournal()

               UO.WaitTargetTile(Tiles, mX+X, mY+Y, mZ)
               UO.UseType(0x0E86) ; <-- Pickaxe
               repeat
                  wait(200)
                           ; Cliloc
               until UO.InJournal("0xAD00|0xAD02|0xAD01|0xA2DE|0xAD03|0x6B31|0xEE46|0xA866|0xA867")
            until UO.InJournal("0xAD00|0xAD02|0xAD01|0xA2DE|0xA866|0xA867")
         endif

      next
   next
   return 1
end sub 

; функция проверки, копать можно только от 1339 до 1370
sub F_HarvestTiles(X,Y)
   if UO.PrivateGetTile(X, Y, -1, 1339, 1370) then
      for var i=1339 to 1370
         if UO.PrivateGetTile(X, Y, -1, i, i) then
            return i
         end if
      next
   end if
   return 0
end sub


Top
   
 Post subject:
PostPosted: 2006-10-24 16:38:21 
Offline

Joined: 2005-03-17 02:25:11
Posts: 15
Code:
UO.InJournal("0xAD00|0xAD02|0xAD01|0xA2DE|0xAD03|0x6B31|0xEE46|0xA866|0xA867")
            until UO.InJournal("0xAD00|0xAD02|0xAD01|0xA2DE|0xA866|0xA867")
         endif

      next
   next
   return 1
end sub 


Меня больше это смущало )


Top
   
 Post subject:
PostPosted: 2006-10-24 16:43:40 
Offline

Joined: 2005-03-17 02:25:11
Posts: 15
Уже не смущает ) Сенкс. 4 банки и 2 плюшки способны заставить мозг работать )


Top
   
 Post subject:
PostPosted: 2006-11-22 12:46:54 
Offline

Joined: 2006-02-25 17:01:49
Posts: 8
Люди подскажите с таргетом... У менявообщем проблема мне нада чтоб я запустил команду он юзанул прицел на лошадь после этого появляеться воторой прицел и он тоже должен идти на лошадь но я незнаю как это сделать...
Плиз хелп :)
Заранее спасибо..!


Top
   
 Post subject:
PostPosted: 2006-11-22 14:12:29 
Offline
User avatar

Joined: 2006-08-05 14:09:06
Posts: 270
Задаем прицел
Code:
uo.exec('addobject Animal')


Ждем ответа
Code:
while uo.targeting() 


Ловушку на животное
Code:
UO.WaitTargetObject('Animal')



Пример:


Code:
var mod=1
##
sub main()
uo.exec('addobject Animal')
while uo.targeting()
wait(100)
wend
wait(1000)
while NOT UO.Dead()
UO.DeleteJournal()
UO.WaitTargetObject('Animal')
UO.Useskill('Animal Taming')
repeat
wait(1000)
until UO.InJournal('You fail') OR UO.InJournal('The') OR UO.InJournal('It seems ')
If Uo.InJournal('The') OR UO.InJournal('It seems ') Then
If mod==0 Then
UO.Say('all release')
Endif
If mod==1 Then
UO.useobject('Animal')
Endif
Endif
wend
end sub

_________________
ДРВ
Spoiler
_________________
Антарес
Spoiler|Gostrabaiter|Umhra|Slog


Top
   
 Post subject:
PostPosted: 2009-12-04 20:53:31 
Offline
User avatar

Joined: 2006-10-23 14:18:19
Posts: 14
А как быть например когда качаеш хердинг, там же два таргета, как это всё обустроить, во туже пол часа мучуюсь, никак не магу сделать, помагите пожалуйсто, дайте хотябы какиенить наброски с двумя таргеатми от использования одного итема..


Top
   
 Post subject:
PostPosted: 2009-12-04 21:10:12 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
есть замечательный раздел сайта:
http://yoko.com.ua/help/
там написано что
Quote:
Описание: waittargetobject •

Синтакс: ,waittargetobject object [object2]
none uo.waittargetobject(object,[object2])
Тема: Прицелы Ключевые слова: command, uoscript, objhandling, waitsystem

Устанавливает на обьект object ловушку прицела.
Следующий прицел, который будет запрошен сервером, будет направлен на этот обьект.
Если задан второй обьект, object2, то после срабатывания ловушки будет установлена ловушка на обьект object2.
См. так же waittargettype, waittargetground, poison, waittargettile, findtype.


А пример скрипта

Code:
sub Herding() 
var posoh = "0x0E81"
uo.print('Укажите животное - ')
uo.addobject('Animal')
while uo.targeting()
wait(100)
wend
repeat
uo.waittargetobject('Animal','self')
uo.usetype(posoh)
Uo.DeleteJournal()
repeat
wait(500)
until uo.injournal('You can|You don|не получилось|animal')
until uo.dead()
endsub


хотя имхо такие вопросы не здесь лучше задавать

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
 Post subject:
PostPosted: 2009-12-04 21:10:31 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Miha* wrote:
А как быть например когда качаеш хердинг, там же два таргета, как это всё обустроить, во туже пол часа мучуюсь, никак не магу сделать, помагите пожалуйсто, дайте хотябы какиенить наброски с двумя таргеатми от использования одного итема..

Code:
Синтакс: ,waittargetobject object [object2]
none uo.waittargetobject(object,[object2])

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2009-12-04 21:13:17 
Offline
User avatar

Joined: 2006-10-23 14:18:19
Posts: 14
даже не ожидал на такой скорый ответ, спасибо всем за инфо и за скрипт


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 35 posts ]  Go to page Previous 1 2

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 8 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited