Помогите простым скриптом...

[Twice]

Вот искал и не смог найти скрипт. В общем скрипт такой - в паке руда в кучках, всякая, он берёт и в угол всю руду складывает по одной, потом плавит, но плавит дабл кликом по форжу и на руду, и так чтоб все сплавил и остановился.

П.С. Сам очень плохо разбираюсь, поэтому прошу помощь мастерам в этом деле.

[Mirage]

Сомневаюсь что искал...

Code: Select all

sub smelt()
# В паке должен быть мешочек !!!!!!!!!
# ---- ID плавилки ---------------------------
var forg=0x40D81F1F
# ---- ID плавилки ---------------------------
var LastTimer, mechok

UO.FindType(0x0E76, -1, 'backpack')
mechok=UO.GetSerial('finditem')
UO.UseObject(mechok)
UO.FindType(0x19B9, -1, 'backpack')
UO.MoveItem('finditem', 0, mechok)

repeat
 F_DeleteJournal( "You put " )
 F_DeleteJournal( "You smelt the " )
 LastTimer=UO.Timer()
 UO.FindType(0x19B9, -1, mechok)
 UO.MoveItem('finditem', 2, 'backpack', 100, 50, 0)
 wait(500)
 UO.WaitTargetType(0x19BA)
 UO.UseObject(forg)
 repeat
  wait(50)
 until UO.InJournal("You put |You smelt the ") or UO.Timer()>LastTimer+5
 wait(300)
 if UO.Count(0x19B7) then
  UO.FindType(0x19B7, -1, 'backpack')
  UO.MoveItem('finditem', 1, mechok)
 endif
until not UO.Count(0x19B9)
if UO.Count(0x19B8) then
 UO.FindType(0x19B8, -1, 'backpack')
 UO.MoveItem('finditem', 1, mechok)
endif
if UO.Count(0x19BA) then
 UO.FindType(0x19BA, -1, 'backpack')
 UO.MoveItem('finditem', 1, mechok)
endif
end sub

Sub F_DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
 UO.SetJournalLine( Nom - 1, 'string replaced' )
 F_DeleteJournal( string1 )
Endif
endsub

Редактируй сообщения под свой шард.

[Twice]

Сомневаюсь что искал...

Code: Select all

sub smelt()
# В паке должен быть мешочек !!!!!!!!!
# ---- ID плавилки ---------------------------
var forg=0x40D81F1F
# ---- ID плавилки ---------------------------
var LastTimer, mechok

UO.FindType(0x0E76, -1, 'backpack')
mechok=UO.GetSerial('finditem')
UO.UseObject(mechok)
UO.FindType(0x19B9, -1, 'backpack')
UO.MoveItem('finditem', 0, mechok)

repeat
 F_DeleteJournal( "You put " )
 F_DeleteJournal( "You smelt the " )
 LastTimer=UO.Timer()
 UO.FindType(0x19B9, -1, mechok)
 UO.MoveItem('finditem', 2, 'backpack', 100, 50, 0)
 wait(500)
 UO.WaitTargetType(0x19BA)
 UO.UseObject(forg)
 repeat
  wait(50)
 until UO.InJournal("You put |You smelt the ") or UO.Timer()>LastTimer+5
 wait(300)
 if UO.Count(0x19B7) then
  UO.FindType(0x19B7, -1, 'backpack')
  UO.MoveItem('finditem', 1, mechok)
 endif
until not UO.Count(0x19B9)
if UO.Count(0x19B8) then
 UO.FindType(0x19B8, -1, 'backpack')
 UO.MoveItem('finditem', 1, mechok)
endif
if UO.Count(0x19BA) then
 UO.FindType(0x19BA, -1, 'backpack')
 UO.MoveItem('finditem', 1, mechok)
endif
end sub

Sub F_DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
 UO.SetJournalLine( Nom - 1, 'string replaced' )
 F_DeleteJournal( string1 )
Endif
endsub

Редактируй сообщения под свой шард.

Большое спасибо тебе! Не знаю даже как отблагодарить! )

[mpihapa]

Привет!
Я тоже осмелился воспользоваться твоим скриптом!
Может подскажешь почему он кидает всю кучку руди в мешок а патом всю кучку обратно! не плавит! а пшет "no items found. next target request will be canceled"

[Mirage]

Телепатические способности подсказывают мне что у тебя старая версия инжекта которая не может перемещать объект в определенную область рюкзака. Или клиент 3D который не имеет координат XY в паке

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

[mpihapa]

Привет еще раз!
скачал "1423 2909 YOKO INJECT" и не получилось! Можешь кинуть ссылку где скачать новый инжект?

[Mirage]

вот и в главной ветке форума посмотреть.