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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

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

Post by MadSpot »

если я вижу в журнале определенную надпись, как мне сделать чтобы после увиденного он начал делать какоето действие!
Last edited by MadSpot on 2009-09-22 13:42:29, edited 1 time in total.
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

Code: Select all

if uo.injournal('text') then
действие
endif
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

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

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
Last edited by MadSpot on 2009-09-22 13:14:58, edited 1 time in total.
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

<code>непонял</code>
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

Как писать код!?
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Post by Kynep »

В настройках своего профиля фключи использование тегов.
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

это должно быть в scripting ore
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

Nmy wrote:это должно быть в scripting ore
Спасибки тут наверно и отвечать быстрее будут :-)
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

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

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
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

1) Открой журнал ,showjournal 99 - там нету You see:
2) Задержку сделай wait(500) - скрипт будет тормозить комп
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

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

Так это у инжи свой журнал есть ? (простите просто незнал) недавно начал пользоваться! Спасибки!
MadSpot
Posts: 10
Joined: 2009-09-18 12:18:13

Post by MadSpot »

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

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

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
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Post by Mirage »

Ойёёй

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
Post Reply