Yoko

Народ плизз помогите скинте скрипт на мининг на квадрат 5на5 можно без проверок на свс и на атаку и так далее без передвижения просто что бы копалось на 2 клетки от себя и под собой того получается 5 плиззз !!!!!
Зарание БИГ СЕНКС

Передаем функции Максимальный вес, Тип тайла, тип кирки.
Получаем 1 если перевес, 0 - если нет.


sub Kopaem(MaxVes, TileNum, Kirka)
VAR x, y
for y=-2 to 2
for x=-2 to 2
repeat
UO.DeleteJournal()
UO.WaitTargetTile( TileNum, STR( UO.GetX() + x ), STR( UO.GetY() + y ), 0)
UO.UseType( Kirka )
While NOT UO.InJournal("in rock") AND NOT UO.InJournal("You put") AND NOT UO.InJournal("no ore") AND NOT UO.InJournal("You fail") AND NOT UO.InJournal("Get there") AND NOT UO.InJournal("You can't") AND NOT UO.InJournal("in line")
wait( 500 )
Wend
If UO.Weight > MaxVes Then
return 1
Endif
until NOT UO.InJournal("You fail") AND NOT UO.InJournal("You put")
next
next
return 0
end sub

А по проще не как или скажи как сделать что бы просто ждалось до того пока не напишется YOU STOP MINING...
а то чето у меня он не пашет !этот скрипт

а ты указал макс вес и кирку?

да узнал и не работает !!!!! ((

Спасиб я разобрался че к чему !!!!
Если кому нужен напишите я скину !

мне бы на копания в скалах !

Вообще-то в простейшем случае запускаешь его вот так:

sub main()
VAR MaxVes = ...
VAR Kirka = ...
VAR TileNum = ...
repeat
kopaem( MaxVes, TileNum, Kirka )
until True
end_sub

Ну или встраиваешь в ходилку с обходом препятствий и реколлом для разгрузки при перевесе...

Дык на копание в скалах на инжекте делать муторно, сколько видов тайлов... Естественно, если говорим об автоматическом хождении-копании. Гораздо проще такое сделать на ИзиУО. Тем более теперь есть версия ИзиУО для фришардов, с поддержкой большинства наиболее распространенных клиентов. Второй вариант - сделать как был кем-то (кажется Сержиусом) скрипт на ламбер - через инфотайл записываешь в файл кучу точек для копания и скриптом бегаешь и рубишь по этому файлу...

sub mining()
 var kirk=uo.GetSerial(uo.ObjAtLayer('Rhand'));
 var i
 var mx=uo.GetX()-2
 var my=uo.GetY()-2
 var rep=0
 var MW=500 ; max weight
 if uo.GetGraphic(uo.ObjAtLayer('Rhand'))<>"0x0E85" and uo.GetGraphic(uo.ObjAtLayer('Rhand'))<>"0x0E86" then
   uo.findtype(0x0E85)   
   if uo.findcount()==0 then
     uo.print("Нет кирки!!!")
     return 0
   end if
   kirk=uo.GetSerial('finditem')
   uo.equip('Rhand','finditem')
 end if 
 minst:
  rep=rep+1
  if uo.weight>MW or uo.dead() then
    goto minex
  end if
  uo.deletejournal()
  uo.exec("waittargettile tilenum "+str(mx)+" "+str(my)+" 0")
  uo.useobject(kirk);
  i=0
  wait(200)
  uo.exec("resend")
  repeat
   wait(700)
   i=i+1
   if uo.injournal("is attacking you") then
     uo.say("guards")
   end if
  until uo.injournal("loosen")or uo.injournal("You put") or uo.injournal("no ore") or uo.inJournal("You can't") or uo.InJournal("Try mining") or i>50
  if uo.injournal("no ore")or uo.injournal("You can't")or uo.InJournal("Try mining")or (rep>10) then
    wait(1000)
    rep=0
    my=my+1
    if my>uo.GetY()+2 then
      my=uo.GetY()-2
      mx=mx+1
    end if
    if mx>uo.GetX()+2 then
      goto minex
    else
      goto minst
    end if
  end if
 goto minst
 minex:
  uo.print("Скрипт завершился")
end sub

То, что юзаю я. Достаточно большие паузы и воткнутый resend объясняются особенностями шарда (РУО)

Люди кто что посоветует.

как лучше написать хождение.
Получалось ли у когото на инже использовать pathfinding клиента через UO. RDblclick

Не пашет чё то твой скрипт на РУО

скорей всего изза cliloc'ов.

народ плиз памагите бедному нубу я такой нуб что инжектнастраивал 2 дня можете мне на пальцах как срипт минига использовать плиззз
заранее спасибо
пс я ваще не знаю как и м пользоватца плиз памагите ;((

))) Я свой инжект месяц настроить не мог )))))

_________________
Все просто.
BETEPAH ™

у меня вопрос на ламбер када маркировка идет... написано 25 мин макс он и через 40 еконьчаетца+_))00

скинь умя че не запускаетца ! )

Я написал в настройках
После того как вы замарчили нужное количество деревьев просто стойте и тыкайте прицелом в пустое место (сбивать прицел)

_________________
Все просто.

BETEPAH ™

ещё один вапрос вот скрипт на миниг я капаю всё намано как ченить не выкпывает (физл) сразу скрипт сибиваетца и пишет идех инвалид сериал что ето ?

праждал 30 минут сбивая прицел иничего не рубит пометли щитал 40 деревьев...чё такое ??