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

Help
http://forum.yoko.com.ua/viewtopic.php?f=17&t=12745
Page 1 of 1

Author:  D3VnuLL [ 2007-11-10 17:40:49 ]
Post subject:  Help

Люди напишите скрипт в 3 действия плиз
Вообщем чтобы брал лопату и копал в одной точке, потом когда достигнет определёного веса клал в сундук стоящий рядом и потом опять копал :roll:

Author:  Scripts Writer [ 2007-11-10 18:21:52 ]
Post subject: 

Ну так возьми и напиши. Неужели это столь сложно? Тем более сам уже написал алгоритм.

Code:
Бесконечный цикл
 {
1. Поиск лопаты в бекпеке, если найдена то организовать цикл на квадрат вокруг себя,поставить ловушку на очередной тайл со своими координатами прибавляя в каждой итерации к координате по х и у еденицу,и использовать её

2. Поставить проверку в журнале на ожидание сообщений о выкапывании руды, физле, невозможности и прочих возникающих в процессе работы скрипта + условный оператор,-проверка на вес

3. Если набрали достаточно веса, то открываем сундук и скидываем руду
 }

Author:  D3VnuLL [ 2007-11-10 18:26:24 ]
Post subject: 

Дело в том то Я не умею писать скрипты Я тока учусь их писать... и у меня не получаеться...

Author:  -=JoKeR=- [ 2007-11-10 18:33:20 ]
Post subject: 

А ты как все делай. Методом проб и ошибок, научишься, всё время за тебя писать никто не будет.

Author:  Scripts Writer [ 2007-11-10 18:38:29 ]
Post subject: 

D3VnuLL wrote:
Дело в том то Я не умею писать скрипты Я тока учусь их писать... и у меня не получаеться...


Для того и существует форум, чтобы помогать, направлять и исправлять.

Пиши что конкретно не получается

Author:  D3VnuLL [ 2007-11-10 19:23:46 ]
Post subject: 

ну вот терь буду скрипт месяц писать... :cry:

Author:  Destruction [ 2007-11-10 20:02:09 ]
Post subject: 

D3VnuLL wrote:
ну вот терь буду скрипт месяц писать... :cry:

Гмм, у нас тут помогают несколько оперативнее..

Никто не заставляет вас писать скрипт месяц.

Author:  D3VnuLL [ 2007-11-10 20:42:39 ]
Post subject: 

Я имею ввиду на что бы скрипт заработал мне понадобиться месяц т.к. Я не умею их писать... и то наврятли за месяц напишу :)

Author:  Destruction [ 2007-11-10 21:30:01 ]
Post subject: 

D3VnuLL wrote:
Я имею ввиду на что бы скрипт заработал мне понадобиться месяц т.к. Я не умею их писать... и то наврятли за месяц напишу :)

А вы напишите нерабочий и выложите, а мы вам подскажем..

Вот что будет, если форум вдруг перестанет работать? Кто за вас будет писать скрипты? Подумайте о будущем - учитесь сейчас!

Author:  No***Name [ 2007-11-10 23:15:27 ]
Post subject:  Re: Help

D3VnuLL wrote:
Люди напишите скрипт в 3 действия плиз
Вообщем чтобы брал лопату и копал в одной точке, потом когда достигнет определёного веса клал в сундук стоящий рядом и потом опять копал :roll:


Code:
sub mining() 
var mx, my, mz, i, j
var ismining, ixx, isheavy
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")

uo.setcatchbag('0x400E0BD3') Айди сундука

While not UO.Dead()
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
ismining = 1
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ismining

UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype('0x0F39')
ixx = 0
ismining=1
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("far away") and not UO.InJournal("in rock") and ixx <= 100
wait (100)
ixx = ixx + 1
wend
while UO.InJournal("but fail")
Wait (100)
UO.DeleteJournal()
wend



#if uo.injournal("Rusty") then
#ismining = 0
#endif
#if uo.injournal("Old Copper") then
#ismining = 0
#endif
#if uo.injournal("Dull Copper") then
#ismining = 0
#endif
#if uo.injournal("the Copper") then
#ismining = 0
#endif
#if uo.injournal("Iron") then
#ismining = 0
#endif
#if not ismining then
#uo.print("Not mining here")
#endif
wend
UO.DeleteJournal()
next
next
wend
end sub

sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')

repeat
wait(50)
until UO.InJournal('backpack')
end sub


Все так как ты попрасил, только выкапывая ор чар мгновенно ложет его в сундук)

Author:  D3VnuLL [ 2007-11-11 00:56:27 ]
Post subject: 

хм, а мне не руду то надо ну лан щас поправить попробую)

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/