Yoko
http://forum.yoko.com.ua/

Скрипт на авто лут после убиства!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15117		 Page 1 of 1
Author:  MadSpot [ 2009-09-22 10:47:12 ]
Post subject:  Скрипт на авто лут после убиства!
если я вижу в журнале определенную надпись, как мне сделать чтобы после увиденного он начал делать какоето действие!
Author:  Nmy [ 2009-09-22 12:12:30 ]
Post subject: 
Code:
if uo.injournal('text') then
действие
endif
Author:  MadSpot [ 2009-09-22 12:42:53 ]
Post subject: 
чтот у мя не выходит чтото не так делаю! поправьте!
надо чтобы после убийства он сам лутал труп на те предметы которые стоят!


Code:
var i
var Trup = 'lastcorpse'
var Text1="You see: Body"

sub main()
while 1==1
if uo.injournal(text1) then
rezat()
end if
wend
next
end sub

sub Rezat()
UO.UseObject(trup) 
      if UO.GetQuantity(trup) then 
   UO.SetArm('temp') 
   UO.WaitTargetObject(trup) 
   UO.UseType('0x0F51') ; Òèï Äàãåðà (Íþáè)
      wait(500) 
   UO.Arm('temp') 
      wait(1000) 
      endif 
      
lootall()
   uo.print('Zakonchili...') 
wait(500)
info()
wait(100)
end sub


sub Lootall()
DIM Loot[5]
   Loot[0] = '0x0EED'
   Loot[1] = '0x1BFB'
   Loot[2] = '0x1BDD'
   Loot[3] = '0x1BDD'
   Loot[4] = '0x0F90'
   
   
For i = 0 to 4
   Uo.FindType(Loot[i], '-1', trup)
         wait(100)
      while UO.FindCount() > 0
         wait(100)
   UO.MoveItem('finditem')
         wait(1000)
   Uo.FindType(Loot[i], '-1', trup)
   wend
   next
   uo.print('Netu nix...')
end sub
Author:  MadSpot [ 2009-09-22 12:43:54 ]
Post subject: 
<code>непонял</code>
Author:  MadSpot [ 2009-09-22 12:44:11 ]
Post subject: 
Как писать код!?
Author:  Kynep [ 2009-09-22 13:07:30 ]
Post subject: 
В настройках своего профиля фключи использование тегов.
Author:  Nmy [ 2009-09-22 13:34:04 ]
Post subject: 
это должно быть в scripting ore
Author:  MadSpot [ 2009-09-22 13:41:09 ]
Post subject: 
Nmy wrote:
это должно быть в scripting ore

Спасибки тут наверно и отвечать быстрее будут :-)
Author:  MadSpot [ 2009-09-25 13:24:55 ]
Post subject: 
Ну так что со скриптом никто не поможет уже третий день немогу понять как описать команду после убийства сразу лутать...

Code:
var Text1="You see: Body"

sub main() 
while 1==1 
if uo.injournal(text1) then 
rezat() 
end if 
wend 
next 
end sub


неработает... незнаю почему.
Author:  Nmy [ 2009-09-25 16:54:23 ]
Post subject: 
1) Открой журнал ,showjournal 99 - там нету You see:
2) Задержку сделай wait(500) - скрипт будет тормозить комп
Author:  MadSpot [ 2009-09-28 08:37:26 ]
Post subject: 
Nmy wrote:
1) Открой журнал ,showjournal 99 - там нету You see:
2) Задержку сделай wait(500) - скрипт будет тормозить комп



Так это у инжи свой журнал есть ? (простите просто незнал) недавно начал пользоваться! Спасибки!
Author:  MadSpot [ 2009-09-28 11:14:07 ]
Post subject: 
Грамотные люди поправьте плиз,
надо написать так чтобы он ждал не выполнял никаких действыий, а как только начал появлятся текст соответственно проверял его и выполнял скрипт после удалял журнал или удалял сообщение из журнала и опять ждал!

чтобы избавится от задержек есть возможноюсть ?


Code:
var Text1 = "Body of" 

sub main()
while 1=1
if uo.injournal(text1) then
rezat()
Wait(100)
uo.deletejournal()
wait(5000)
else
up.print("vse...")
end if
wend
wait(10000)
end sub
Author:  Mirage [ 2009-09-28 16:18:44 ]
Post subject: 
Ойёёй

Code:
var Text1 = "Body of" 

sub main()
while 1=1
if UO.InJournal(text1) then
rezat()
end if
wait(100)
wend
end sub

Sub rezat() 
uo.deletejournal() 
;и че там дальше у тебя
...
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/