Page 1 of 1
Carpentry (DrW)
Posted: 2006-06-12 04:59:35
by Doktor_Kor
Code: Select all
sub carpentry()
VAR MyTrash = '0x400228D0' ; Сериал мусорки (ID of trash)
VAR Logi = '0x1BDD' ; Тип логов (logs type)
VAR Rubanok = '0x1033' ; Тип инструмента (carpentry tools type)
VAR Udochka = '0x0E89' ; Тип удочки (fishing pole type)
VAR Kolvo = 460 ; Брать логов (Count of logs for a one grab)
VAR j, k
While TRUE
UO.FindType( Logi, -1, 1 ) ; Ищем логи на полу
UO.Grab( Str( Kolvo ), 'finditem' ) ; Кладем логи в пак
wait( 1000 )
If UO.FindCount() == 0 Then
UO.Print("Logs not found, script terminated")
return
Endif
While UO.Count( Logi ) > 0
; Пока в паке есть логи
UO.Print('I have ' + Str( UO.Count( Logi ) ) + ' logs' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','guarter staff')
UO.UseType( Rubanok )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
; Wait( 14000 )
; Скрафтили удочку
; Сразу переложим ее в трэш
if UO.Count( Udochka ) > 0 then
UO.FindType( Udochka )
UO.MoveItem( 'finditem', 0, MyTrash )
wait( 100 )
UO.Print( 'Fishing Pole trashed' )
end if
Wend
Wend
end sub
ввот скрипт, вообще не хочет работать. пишет ноу итемс фонс(или чтот вроде ) плиз сделайте
Posted: 2006-06-12 08:53:03
by Edred
Помощь там же где и копирайты
Posted: 2006-06-12 12:51:24
by Doktor_Kor
Edred wrote:Помощь там же где и копирайты
это где ссыла на уолуп?
Posted: 2006-06-14 17:39:32
by Edred
Doktor_Kor wrote:Edred wrote:Помощь там же где и копирайты
это где ссыла на уолуп?
Нет. В этом скрипте были копирайты автора. Ты (или кто тебе его дал) - удалил их. Вот того, кто удалил - о помощи и проси. А если восстановишь копирайты - узнаешь имя автора - можешь его попросить помочь. Все просто.
Posted: 2006-06-15 02:29:18
by ZWERb
Не я однако дурею с етих скриптеров!!! Удочки по 80гп! а он ее в треш!
Был еще 1 умник на картографию делал! дык он тоже карты в треш скидывал!! Глупо!!! карты по 50гп продать мона!
а по поводу скрипта - Поищи другой!
их на етом форуме как грязи!
P. S. или попробуй взять другой рубанок =-)
Posted: 2006-06-15 06:53:52
by Askaneli
ZWERb wrote:Был еще 1 умник на картографию делал! дык он тоже карты в треш скидывал!! Глупо!!! карты по 50гп продать мона!
Карты на ДРВ по 5ГП принимают, а не по 50 )))
90*255*5 =114к ))) Удавится мона какая огромная сумма для человека который эти 90 мешков купит за 9кк.
Posted: 2006-06-15 22:06:39
by Edred
ZWERb wrote:Не я однако дурею с етих скриптеров!!! Удочки по 80гп! а он ее в треш!
Был еще 1 умник на картографию делал! дык он тоже карты в треш скидывал!! Глупо!!! карты по 50гп продать мона!
Не надо думать, что на всех шардах устроено так же, как на том, где ты играешь. Как тебе такой вариант: удочки вообще не скупаются вендорами, карты скупает один-единственный вендор по 1 гп за штуку? И деньги у него кончаются после 100 карт, а респауна не дождешься? Что тогда будешь делать с удочками и картами? Солить на память?
ЗЫ: Кстати, в моих скриптах на картографию и карпентри - есть оба варианта скриптов. И с раскладыванием их по мешкам и с скидыванием в треш.
Posted: 2006-06-17 13:22:17
by Doktor_Kor
Code: Select all
sub Carpentry()
var Exit=0, LastTimer
uo.Print('Âûáåðè Ñóíäóê: ')
uo.Exec('addobject Chest')
while uo.Targeting()
wait(100)
wend
uo.Print('Âûáåðè Ïîìîéêó: ')
uo.Exec('addobject TrashCan')
while uo.Targeting()
wait(100)
wend
uo.Print('Âûáåðè Èíñòðóìåíò: ')
uo.Exec('addobject Ins')
while uo.Targeting()
wait(100)
wend
while Exit<>1
uo.DeleteJournal()
uo.FindType('0x13F8','0x0000','backpack')
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('TrashCan')
wait(1000)
uo.Grab('all','finditem')
wait(1000)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BDD',-1,'backpack')
if uo.GetQuantity('finditem')<10 then
uo.FindType('0x1BDD','0x0000','Chest')
wait(1000)
uo.Grab('300','finditem')
wait(1000)
end if
LastTimer=uo.Timer()
uo.DeleteJournal()
uo.UseObject('Ins')
uo.WaitMenu ('Carpentry','Weapons & Tools','Weapons & Tools','quarter staff')
wait(12000)
wend
end sub
вот опробованый скирпт на карпентри на дрв, вместо треш моно указать сумку или ящик. скриптеры впишите ещё в скрипт блок за спририт спик перед изготовлением изделия,