Page 1 of 2
Скрипт на мининг !!!!!!
Posted: 2004-04-07 20:10:10
by {Death}
Народ плизз помогите скинте скрипт на мининг на квадрат 5на5 можно без проверок на свс и на атаку и так далее без передвижения просто что бы копалось на 2 клетки от себя и под собой того получается 5 плиззз !!!!!
Зарание БИГ СЕНКС
Posted: 2004-04-08 12:17:24
by Edred
Передаем функции Максимальный вес, Тип тайла, тип кирки.
Получаем 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
Posted: 2004-04-08 13:09:51
by {Death}
А по проще не как или скажи как сделать что бы просто ждалось до того пока не напишется YOU STOP MINING...
а то чето у меня он не пашет !этот скрипт
Posted: 2004-04-08 13:20:46
by Kazoo
а ты указал макс вес и кирку?
Posted: 2004-04-08 13:55:09
by {Death}
да узнал и не работает !!!!! ((
Posted: 2004-04-08 14:05:08
by {Death}
Спасиб я разобрался че к чему !!!!
Если кому нужен напишите я скину !
Posted: 2004-04-08 14:31:22
by Kazoo
мне бы на копания в скалах !
Posted: 2004-04-10 20:53:49
by Edred
{Death} wrote:Спасиб я разобрался че к чему !!!!
Если кому нужен напишите я скину !
Вообще-то в простейшем случае запускаешь его вот так:
sub main()
VAR MaxVes = ...
VAR Kirka = ...
VAR TileNum = ...
repeat
kopaem( MaxVes, TileNum, Kirka )
until True
end_sub
Ну или встраиваешь в ходилку с обходом препятствий и реколлом для разгрузки при перевесе...
Posted: 2004-04-10 21:00:17
by Edred
Kazoo wrote:мне бы на копания в скалах !
Дык на копание в скалах на инжекте делать муторно, сколько видов тайлов... Естественно, если говорим об автоматическом хождении-копании. Гораздо проще такое сделать на ИзиУО. Тем более теперь есть версия ИзиУО для фришардов, с поддержкой большинства наиболее распространенных клиентов. Второй вариант - сделать как был кем-то (кажется Сержиусом) скрипт на ламбер - через инфотайл записываешь в файл кучу точек для копания и скриптом бегаешь и рубишь по этому файлу...
Posted: 2004-04-11 14:03:42
by Biga
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 объясняются особенностями шарда (РУО)
Хождение в инжекте
Posted: 2004-04-16 17:50:02
by South
Люди кто что посоветует.
как лучше написать хождение.
Получалось ли у когото на инже использовать pathfinding клиента через UO. RDblclick
Posted: 2004-08-11 12:27:15
by Slider
Не пашет чё то твой скрипт на РУО
Posted: 2004-08-12 19:15:15
by ruff
скорей всего изза cliloc'ов.
Posted: 2004-08-18 14:40:00
by chip
ruff wrote:скорей всего изза cliloc'ов.
народ плиз памагите бедному нубу я такой нуб что инжектнастраивал 2 дня можете мне на пальцах как срипт минига использовать плиззз
заранее спасибо
пс я ваще не знаю как и м пользоватца плиз памагите ;((
Posted: 2004-08-19 08:06:26
by BETEPAH
))) Я свой инжект месяц настроить не мог )))))
Posted: 2004-08-19 10:31:22
by chip
BETEPAH wrote:))) Я свой инжект месяц настроить не мог )))))
у меня вопрос на ламбер када маркировка идет... написано 25 мин макс он и через 40 еконьчаетца+_))00
Posted: 2004-08-19 19:36:13
by chip
{Death} wrote:Спасиб я разобрался че к чему !!!!
Если кому нужен напишите я скину !
скинь умя че не запускаетца ! )
Posted: 2004-08-20 11:47:48
by BETEPAH
chip wrote:BETEPAH wrote:))) Я свой инжект месяц настроить не мог )))))
у меня вопрос на ламбер када маркировка идет... написано 25 мин макс он и через 40 еконьчаетца+_))00
Я написал в настройках
После того как вы замарчили нужное количество деревьев просто стойте и тыкайте прицелом в пустое место (сбивать прицел)
Posted: 2004-08-20 11:55:25
by chip
BETEPAH wrote:chip wrote:BETEPAH wrote:))) Я свой инжект месяц настроить не мог )))))
у меня вопрос на ламбер када маркировка идет... написано 25 мин макс он и через 40 еконьчаетца+_))00
Я написал в настройках
После того как вы замарчили нужное количество деревьев просто стойте и тыкайте прицелом в пустое место (сбивать прицел)
ещё один вапрос вот скрипт на миниг я капаю всё намано как ченить не выкпывает (физл) сразу скрипт сибиваетца и пишет идех инвалид сериал что ето ?
Posted: 2004-08-20 13:33:08
by chip
BETEPAH wrote:chip wrote:BETEPAH wrote:))) Я свой инжект месяц настроить не мог )))))
у меня вопрос на ламбер када маркировка идет... написано 25 мин макс он и через 40 еконьчаетца+_))00
Я написал в настройках
После того как вы замарчили нужное количество деревьев просто стойте и тыкайте прицелом в пустое место (сбивать прицел)
праждал 30 минут сбивая прицел иничего не рубит пометли щитал 40 деревьев...чё такое ??