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

Скрипт мининг, ТП по рунам и домой!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16654		 Page 1 of 1
Author:  Orkish [ 2011-06-04 18:50:56 ]
Post subject:  Скрипт мининг, ТП по рунам и домой!
Во общем дело такое.
Телепортиться по руне, копает, проверяет клилок (типо всё выкопал), тп домой, плавит и тут возникает проблемма:
Не хочет ложить в сундук...


sub main()
uo.print("Script version 1.1. Created by ™•Orcish•")
repeat
start()
until UO.Dead()
end sub

Sub start()
check()
uo.cast('Recall',0x400B685C) #1
wait(2000)
mine(1339,2558,496,0) #0,0,0,0 узнаем точку рыться ,infotile
wait(500)
check()
dom()
check()
uo.cast('Recall',0x400B6879) #2
wait(2000)
mine(1339,2561,490,0) #0,0,0,0 узнаем точку рыться ,infotile
wait(500)
check()
dom()
end sub

end sub

Sub mine(t,x,y,z)
uo.deletejournal()
repeat
wait(1000)
uo.waittargettile(str(t),str(x),str(y),str(z))
uo.usetype('0x0F39')
until uo.injournal("cliloc# 0xAD00")
uo.Canceltarget()
end sub

sub dom()
uo.cast('Recall',0x400B6ABF) #0x000000 руна на порог дома
wait(2000)
repeat
UO.findtype('0x19B9','-1','my')
wait(600)
UO.waittargetobject('0x40070E45') #0x0000000 id плавилки
wait(500)
UO.useobject('finditem')
wait(500)
if uo.injournal("cliloc# 0xA2DE") then
uo.deletejournal()
uo.cast('Recall',0x400B6ABF) #0x000000 руна на порог дома
wait(2000)
goto a
else
a:
UO.useobject('finditem')
until uo.findcount() == 0
wait(500)
end if
repeat
UO.findtype('0x0E43','-1','2')
uo.moveitem('finditem','0','0x40069DF6') #0x000000 id ящика
wait(700)
until uo.findcount() == 0
while UO.Count(0x0F43)< 3
uo.findtype(0x0E43,-1,0x40069E5B) #0x000000 id ящика с лопатами
UO.moveitem('finditem','0','0x4000C98F') #0x000000 id бэк пака
wait (700)
wend
end sub

sub check()
while Uo.Mana <10
if UO.Mana <10 then
uo.Canceltarget()
UO.UseSkill("Meditation")
wait(7000)
end if
wend
end sub
Author:  ZeroDX [ 2011-06-04 19:38:55 ]
Post subject:  Re: Скрипт мининг, ТП по рунам и домой!
в одном месте перепутаны until и endif.
для разгрузки рекомендую следующую конструкцию
Code:
While UO.Count('тип руды')
  UO.FindType('тип руды', -1, 'backpack')
  If UO.FindCount() then
    UO.MoveItem('finditem', -1, 'айди контейнера')
    Wait(700)
   else
    Return 666
  Endif
Wend
Author:  Orkish [ 2011-06-04 20:20:15 ]
Post subject:  Re: Скрипт мининг, ТП по рунам и домой!
Как выполнить проверку на вес? и если превышает то выкинуть любой кусок руды на пол и тп. домой.... а лучше копать до определённого веса ?


и еще чтоб была цикличность... и почемуто не берёт лопаты с сундука=(
Author:  Mirage [ 2011-06-05 09:41:54 ]
Post subject:  Re: Скрипт мининг, ТП по рунам и домой!
Не правильно работает потому что в скрипте ошибки. Моя подпись 2 строка - приведи в порядок 1 скрипт (редактировать свое сообщение по правилам постинга тем) и устрани 2 (как минимум) опечатки. Если после этого останутся проблемы - поможем.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/