Скрипт на мининг !!!!!!

{Death} · Post by **{Death}** » 2004-04-07 20:10:10

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

Edred · Post by **Edred** » 2004-04-08 12:17:24

Передаем функции Максимальный вес, Тип тайла, тип кирки.
Получаем 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

{Death} · Post by **{Death}** » 2004-04-08 13:09:51

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

Kazoo · Post by **Kazoo** » 2004-04-08 13:20:46

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

{Death} · Post by **{Death}** » 2004-04-08 13:55:09

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

{Death} · Post by **{Death}** » 2004-04-08 14:05:08

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

Kazoo · Post by **Kazoo** » 2004-04-08 14:31:22

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

Edred · Post by **Edred** » 2004-04-10 20:53:49

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

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

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

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

Edred · Post by **Edred** » 2004-04-10 21:00:17

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

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

Biga · Post by **Biga** » 2004-04-11 14:03:42

Code: Select all

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 объясняются особенностями шарда (РУО)

South · Post by **South** » 2004-04-16 17:50:02

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

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

Slider · Post by **Slider** » 2004-08-11 12:27:15

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

ruff · Post by **ruff** » 2004-08-12 19:15:15

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

chip · Post by **chip** » 2004-08-18 14:40:00

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

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

BETEPAH · Post by **BETEPAH** » 2004-08-19 08:06:26

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

chip · Post by **chip** » 2004-08-19 10:31:22

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

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

chip · Post by **chip** » 2004-08-19 19:36:13

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

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

BETEPAH · Post by **BETEPAH** » 2004-08-20 11:47:48

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

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

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

chip · Post by **chip** » 2004-08-20 11:55:25

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

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

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

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

chip · Post by **chip** » 2004-08-20 13:33:08

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

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

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

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

Yoko

Скрипт на мининг !!!!!!

Скрипт на мининг !!!!!!

Хождение в инжекте