Скрипт на авто лут после убиства!

MadSpot · Post by **MadSpot** » 2009-09-22 10:47:12

если я вижу в журнале определенную надпись, как мне сделать чтобы после увиденного он начал делать какоето действие!

Nmy · Post by **Nmy** » 2009-09-22 12:12:30

if uo.injournal('text') then
действие
endif

MadSpot · Post by **MadSpot** » 2009-09-22 12:42:53

чтот у мя не выходит чтото не так делаю! поправьте!
надо чтобы после убийства он сам лутал труп на те предметы которые стоят!

Code: Select all

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

MadSpot · Post by **MadSpot** » 2009-09-22 12:43:54

<code>непонял</code>

MadSpot · Post by **MadSpot** » 2009-09-22 12:44:11

Как писать код!?

Kynep · Post by **Kynep** » 2009-09-22 13:07:30

В настройках своего профиля фключи использование тегов.

Nmy · Post by **Nmy** » 2009-09-22 13:34:04

это должно быть в scripting ore

MadSpot · Post by **MadSpot** » 2009-09-22 13:41:09

Nmy wrote:это должно быть в scripting ore

Спасибки тут наверно и отвечать быстрее будут :-)

MadSpot · Post by **MadSpot** » 2009-09-25 13:24:55

Ну так что со скриптом никто не поможет уже третий день немогу понять как описать команду после убийства сразу лутать...

Code: Select all

var Text1="You see: Body"

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

неработает... незнаю почему.

Nmy · Post by **Nmy** » 2009-09-25 16:54:23

1) Открой журнал ,showjournal 99 - там нету You see:
2) Задержку сделай wait(500) - скрипт будет тормозить комп

MadSpot · Post by **MadSpot** » 2009-09-28 08:37:26

Nmy wrote:1) Открой журнал ,showjournal 99 - там нету You see:
2) Задержку сделай wait(500) - скрипт будет тормозить комп

Так это у инжи свой журнал есть ? (простите просто незнал) недавно начал пользоваться! Спасибки!

MadSpot · Post by **MadSpot** » 2009-09-28 11:14:07

Грамотные люди поправьте плиз,
надо написать так чтобы он ждал не выполнял никаких действыий, а как только начал появлятся текст соответственно проверял его и выполнял скрипт после удалял журнал или удалял сообщение из журнала и опять ждал!

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

Code: Select all

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

Mirage · Post by **Mirage** » 2009-09-28 16:18:44

Ойёёй

Code: Select all

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