Help

[D3VnuLL]

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

[Scripts Writer]

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

Code: Select all

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

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

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

[D3VnuLL]

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

[-=JoKeR=-]

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

[Scripts Writer]

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

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

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

[D3VnuLL]

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

[Destruction]

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

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

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

[D3VnuLL]

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

[Destruction]

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

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

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

[No***Name]

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

Code: Select all

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

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

[D3VnuLL]

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