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

Хелр ми!!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=399		 Page 1 of 1
Author:  BornToReign [ 2004-05-20 21:21:19 ]
Post subject:  Хелр ми!!
Помогите плиз. Может кто нибудь написать скрипт на карпенти чтоб чар брал например 500 логов с пола делал удочки когда логи заканчивались перекладывал удачки с рядом стоящей бочкой и опять брал логи:?? Заранее благодарен!!
Author:  Shahe [ 2004-05-22 16:47:03 ]
Post subject: 
VAR Log='0x1BDD'
VAR Item='0x0DBF'
VAR Nitka='0x0FA0'

Sub Main()
While NOT UO.Dead()
UO.Print('Find Log')
CheckLag()
UO.Findtype(Log,'-1','my')
If UO.GetQuantity('finditem') < 15 Then
Load()
EndIf
UO.Print('Find Nitka')
CheckLag()
UO.Findtype(Nitka,'-1','my')
If UO.GetQuantity('finditem') < 10 Then
Loadn()
EndIf
Wait(1000)
Eat()
CheckLag()
carp()
UO.Exec('exec Unload')
UO.UnSetReceivingContainer()
Wend
End Sub

Sub Load()
CheckLag()
UO.UnSetReceivingContainer()
UO.FindType (Log,'-1','0x4147AEE0')----------контейнер с логами
UO.Grab('200','finditem')
Wait (1000)
end sub

Sub Loadn()
CheckLag()
UO.UnSetReceivingContainer()
UO.FindType (Nitka,'-1','0x4147AEE0')----------контейнер с нитками
UO.Grab('50','finditem')
Wait (1000)
end sub

sub Unload()
CheckLag()
UO.FindType('-1','-1','0x411EC346')-------сумка куда разгружать №1
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EC346')-------сумка куда разгружать №1
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
UO.Print("Bag #1")
UO.Exec('terminate Unload')
endif
CheckLag()
UO.FindType ('-1','-1','0x411EBC80')-------сумка куда разгружать №2
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EBC80')-------сумка куда разгружать №2
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
UO.Print("Bag #2")
UO.Exec('terminate Unload')
endif
CheckLag()
UO.FindType ('-1','-1','0x411EBA1D')-------сумка куда разгружать №3
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EBA1D')-------сумка куда разгружать №3
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
UO.Print("Bag #3")
UO.Exec('terminate Unload')
endif
CheckLag()
UO.FindType ('-1','-1','0x411EC161')-------сумка куда разгружать №4
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EC161')-------сумка куда разгружать №4
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
UO.Print("Bag #4")
UO.Exec('terminate Unload')
endif
CheckLag()
UO.FindType ('-1','-1','0x411EB8A7')-------сумка куда разгружать №5
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EB8A7')-------сумка куда разгружать №5
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
UO.Print("Bag #5")
UO.Exec('terminate Unload')
endif
CheckLag()
UO.FindType ('-1','-1','0x411EC028')-------сумка куда разгружать №6
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EC028')-------сумка куда разгружать №6
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
UO.Print("Bag #6")
UO.Exec('terminate Unload')
endif
UO.FindType ('-1','-1','0x411EBA1D')-------сумка куда разгружать №7
If UO.FindCount('finditem') < 220 then
UO.SetReceivingContainer('0x411EBA1D')-------сумка куда разгружать №7
UO.FindType(Item,'-1','my')
UO.Grab('0','finditem')
uo.print("Bag #7")
UO.Exec('terminate Unload')
else
Uo.unsetcatchbag()
UO.Exec('terminate Main')
UO.Exec('terminate Unload')
endif
end sub

sub eat()
UO.UseType('0x097B')--------тип еды
end sub

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

sub carp()
CheckLag()
UO.Exec("waitmenu 'Carpentry' 'Weapons & Tools' 'Weapons & Tools' 'fishing pole'")
UO.UseType('0x1034') ; инструмент
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
wait(300)
wend

end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/