Yoko

Posted: **2005-05-08 14:15:00**

sub Train_Poisoning()
var sucmessage, nsucmessage, LastTimer, dagger, poison
dagger=UO.GetSerial("_0x0F51")
poison=UO.GetSerial("_0x0F0E")
sucmessage="You apply the poison"
nsucmessage="You fail to apply"
while True
uo.deletejournal()
LastTimer=UO.Timer()
UO.waittargetobject (dagger, poison)
uo.useskill ("Poisoning")
repeat
wait(250)
until uo.injournal(sucmessage) or uo.injournal(nsucmessage) or LastTimer+90<UO.Timer()
wait(250)
if not uo.Count(0x0F0E) then
uo.sound(61)
return
endif
wend
end sub

вот собственно сам скрипт на дрв. добавьте кусочек плз. чтобы он брал пойзон и дальше юзал его

Posted: **2005-05-09 08:35:59**

[not tested]

Code: Select all

sub Poisoning()	
var idContainer = 
var idDagger=UO.GetSerial("_0x0F51")
	while GrabContainer(idContainer, '0x0F0E','0x0998',100)==0 and uo.skillval("Poisoning",1) < 10000
		UO.FindType('0x0F0E','0x0998','backpack')
		While UO.FindCount() > 0 
			UO.DeleteJournal()
			UO.WaitTargetObject(idDagger,'finditem')
			UO.UseSkill("Poisoning")
			while NOT UO.InJournal("You fail to apply") AND NOT UO.InJournal("You apply")
				wait(300)
			wend	
		wend
	wend
end sub

sub GrabContainer(idContainer, tType, cType, Quanty)
	if UO.Count(tType,cType)<=10 then 
		UO.FindType(tType,cType,idContainer)
		If UO.GetQuantity('finditem')>0 then				
			UO.Grab(Quanty,'finditem') 
			wait(100)
			CheckLag() 
		else 
			return 1
		Endif				
	End If
	return 0
end sub

sub CheckLag() 
	UO.DeleteJournal() 
	UO.Click('backpack') 
	repeat 
		wait(50) 
	until UO.InJournal('backpack') 
end sub

Yoko

можете добавить кусочек скрипта? плз

можете добавить кусочек скрипта? плз