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

Podkorektiruyte!
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12768		 Page 1 of 1
Author:  DIDron [ 2007-11-15 12:24:04 ]
Post subject:  Podkorektiruyte!
Кароче мне надо что б перед тем как выкинуть пропойсонное мясо он на него кидал скилл тест ид а токо потом выкидывал!
Code:
sub poison()
VAR Sunduk = '0x400F89DD'
VAR poison = '0x1837'
VAR mjaso = ('0x09F1, 0x0000')
VAR gotovoe = ('0x09F1,0x0026')
VAR k
UO.Exec('set finddistance 2')
While TRUE
UO.Findtype(0x1837, 0x0000, sunduk)
UO.Grab( '1', 'finditem' )
If UO.FindCount() == 0 Then
UO.Print("resursi zakon4elisj, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 1000 )
UO.Findtype(0x09F1, 0x0000, sunduk)
If UO.FindCount() == 0 Then
UO.Print("resursi zakon4elisj, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 1000 )
UO.DeleteJournal()
UO.FindType('poison' ,-1,'backpack') 

UO.useType( poison )
UO.WaitTargetType( mjaso )
wait(500)

k = 0
while NOT UO.InJournal('soobshenie pri uda4nom crafte') AND NOT UO.InJournal('soobshenie pri neuda4e ') AND ( k < 30 )
k = k + 1

wend
UO.Print( 'gotovogo mjasa ' + str( UO.Count(gotovoe ) ) )
if UO.Count( gotovoe ) > 0 then
UO.FindType( gotovoe, -1, 'backpack' )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'skinuto...' )
end if
Wend
end sub
Author:  DIDron [ 2007-11-15 12:30:07 ]
Post subject: 
да кстати задержка 3 секунды т.е он нанего кинул тест ид через 3 секунды выкидывает мясно цветом оно будет другово! 0x09F1 0x0049 тут типо и колор, Помогите кто может
Author:  Okypok [ 2007-11-15 16:20:46 ]
Post subject: 
Ты бы еще сообщения сделал что ли. Видимо, скрипт не твой.
k = 0
while NOT UO.InJournal('soobshenie pri uda4nom crafte') AND NOT UO.InJournal('soobshenie pri neuda4e ') AND ( k < 30 )
k = k + 1
Вот тут тебе указали, что сообщения надо вставить свои.

А по просьбе:
добавь там

Code:
sub poison()
VAR Sunduk = '0x400F89DD'
VAR poison = '0x1837'
VAR mjaso = ('0x09F1, 0x0000')
VAR gotovoe = ('0x09F1,0x0026')
VAR k
UO.Exec('set finddistance 2')
While TRUE
UO.Findtype(0x1837, 0x0000, sunduk)
UO.Grab( '1', 'finditem' )
If UO.FindCount() == 0 Then
UO.Print("resursi zakon4elisj, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 1000 )
UO.Findtype(0x09F1, 0x0000, sunduk)
If UO.FindCount() == 0 Then
UO.Print("resursi zakon4elisj, script terminated")
return
Endif
UO.Grab( '1', 'finditem' )
wait( 1000 )
UO.DeleteJournal()
UO.FindType('poison' ,-1,'backpack')

UO.useType( poison )
UO.WaitTargetType( mjaso )
wait(500)

k = 0
while NOT UO.InJournal('soobshenie pri uda4nom crafte') AND NOT UO.InJournal('soobshenie pri neuda4e ') AND ( k < 30 )
k = k + 1

wend 
wait(300)
uo.findtype('0x09F1','0x0026','backpack')
if uo.findcount() then
UO.Useskill('Item Identification','finditem')
endif
wait(3000)

UO.Print( 'gotovogo mjasa ' + str( UO.Count(gotovoe ) ) )

UO.FindType( '0x09F1','0x0049','backpack' )
if uo.findcount() then
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'skinuto...' )
end if
Wend
end sub
Author:  DIDron [ 2007-11-22 18:30:38 ]
Post subject: 
Огромное спасибо!!!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/