я искал и не нашел
играю на дрв, нужен скрипт на мининг чтоб он ходил по указаным координатам обкапывал все вокруг себя в пещере, при макс весе реколился домой, все складывал и реколился в пещеру и начинал с того места где он остановился...с хидингом
и так по кругу
или подскажите плиз как копать по указанным координатам, типа переделать скрипт Ветерана на ламбер, чтоб он брал координаты тайлов из файла подходил к ним и там копал, с такой же цикличностью и реколом
и опять мининг
Moderators: Murderator+, Murderator
посмотрел бы чуток ниже, вот тебе скрипт- 100% рабочий
Code: Select all
sub mining()
VAR x,y,z='0',TileNum='1339'
VAR Last=0,LastTimer
For x=-4 to 4
For y=-4 to 4
Repeat
CheckLag()
ToHide()
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType('0x0e86')
LastTimer=UO.Timer()
repeat
wait(2000)
until UO.InJournal("Try mining") OR UO.InJournal("You put") OR UO.InJournal("You loosen") OR UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("OOPS") OR UO.InJournal("attacking you") OR LastTimer+150<UO.Timer()
if UO.InJournal('You loosen') then
repeat
wait (500)
until UO.InJournal("You put") OR LastTimer+105<UO.Timer()
endif
until UO.InJournal("There is no") OR UO.InJournal("That is too") OR UO.InJournal("Try mining")
Next
Next
mining()
end sub
sub tohide()
while NOT UO.Hidden()
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0631','my')
if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then
UO.UseType('0x0F0E','0x0631')
UO.Exec('warmode 0')
wait(2000)
else
UO.Exec('warmode 0')
UO.UseSkill('Hiding')
repeat
wait(50)
until UO.InJournal('You have hidden') OR UO.InJournal('вам не удалось') OR UO.InJournal('preoccupied')
endif
wend
end sub
sub CheckLag()
UO.DeleteJournal()ЦСКА- чЕмПиОн, кто не верит, тот ...... (нехороший человек)