Прошу написать пару простеньких и полезных скриптов

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-03-31 16:59:17

1. Телепортация по стоуну на дуель арену.
2. Продажа всех мешков одного типа на Sell Stone.
Вот, собственно, и все. Думаю, что скрипты не сложные.

P.S. Если у кого есть учебники по написанию скриптов, то дайте линки, пожалуйста.
Заранее спасибо!

Kynep · Post by **Kynep** » 2006-03-31 17:15:12

1a2a3a4a5a6a wrote:1. Телепортация по стоуну на дуель арену.
2. Продажа всех мешков одного типа на Sell Stone.
Вот, собственно, и все. Думаю, что скрипты не сложные.

P.S. Если у кого есть учебники по написанию скриптов, то дайте линки, пожалуйста.
Заранее спасибо!

Телепорт:

Code: Select all

sub teled()
UO.UseObject('ID Телестоуна')
wait(1500)
UO.LClick(0,0) #Тут поставь координаты кнопки на дуель арену
end sub

Продажа:

Code: Select all

sub prodam()
VAR k, i, meshok= тип мешка

UO.FindType(meshok)
k = UO.FindCount(meshok)
if k > 0 then
FOR i = 0 to k
UO.WaitTargetType('meshok')
wait(500)
UO.UseObject('ID Селл Стоуна')
wait(500)
UO.LClick(0,0) #Координаты кнопки подтверждения
wait(500)
next
endif
end sub

САМ НЕ ТЕСТИЛ!!!! ПИСАЛ НА РАБОТЕ!!!

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-03-31 17:54:18

Сейчас протестирую. И не надо писать красными большими буквами с большим кол-вом воскл. знаков.

Kynep · Post by **Kynep** » 2006-03-31 17:55:41

1a2a3a4a5a6a wrote:Сейчас протестирую. И не надо писать красными большими буквами с большим кол-вом воскл. знаков.

Исправил строку:

Code: Select all

UO.WaitTargetType('meshok')

Кавычки забыл

*ушел домой, буду в ~21-00 по Москве*

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-03-31 18:25:45

Телепортация по стоуну работает.
А с продажей я долго мучался и только сейчас увидел, что ты сделал ошибку. Сейчас буду опять дерзать.

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-03-31 18:29:34

По скрипту на продажу:
Пишет, что нет такого предмента у меня в бекпапке.
И ты ввел переменную k для проверки кол-ва предметов. Но после того, как селлстоуном "продаешь" мешок он остается. Мне кажется, что это не верное решение. Но тебе лучше знать.

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-03-31 20:18:35

Cooper, куда пропал?

Kynep · Post by **Kynep** » 2006-03-31 20:46:37

1a2a3a4a5a6a wrote:Cooper, куда пропал?

я тут. У меня инет упал, тока вошел ща потестю

Вот телепорт проверил, вроде работает:

Code: Select all

sub teled() 
UO.UseObject(0x400BC158') #ID Камня телепорта(в Брите)
wait(3000) 
UO.LClick(405,276) #Координаты клика
end sub

Вот продажа, протестил, работает:

Code: Select all

sub prodam() 
VAR ser, k, i, meshok='0x0E76' #тип мешка

UO.FindType(meshok) 
k = UO.FindCount(meshok)
while k > 0
UO.FindType(meshok)
ser = UO.GetSerial('finditem')
UO.WaitTargetObject(ser) 
wait(1000) 
UO.UseObject('0x4023D402') 
wait(2000) 
UO.LClick(190,135) #Координаты клика
wait(3000)
UO.Drop(1,0,0,0,ser)
wait(1000)
UO.FindType(meshok)
wait(500)
k = UO.FindCount(meshok)
wend 
end sub

Пустые мешки бросает

Kynep · Post by **Kynep** » 2006-03-31 21:40:09

Все протестил, работает пользуй

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-03-31 22:56:29

Телепорт у мя и так работал, а на продажу я посмотрю. Только выкидывание мешков мне не надо было, уберу.
А вообще, огромное спасибо!
Кстати, сложно ли реализовать самую простую ходилку до координат x, y?

Kynep · Post by **Kynep** » 2006-03-31 23:03:18

1a2a3a4a5a6a wrote:Телепорт у мя и так работал, а на продажу я посмотрю. Только выкидывание мешков мне не надо было, уберу.
А вообще, огромное спасибо!
Кстати, сложно ли реализовать самую простую ходилку до координат x, y?

Если не уберешь выкидывание, то скрипт заклинит, можно дописать подбор после продажи, вот ходилка:

(С) ВЕТЕРАН

Code: Select all

sub GotoXY(x,y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub

admir · Post by **admir** » 2006-03-31 23:47:39

меню из столба надежнее делать через uo.recall('ID','nomer')

Kynep · Post by **Kynep** » 2006-04-01 00:00:56

admir wrote:меню из столба надежнее делать через uo.recall('ID','nomer')

Ну ка сделай красиво ))

Sfagnum · Post by **Sfagnum** » 2006-04-01 00:28:56

Cooper wrote:Если не уберешь выкидывание, то скрипт заклинит, можно дописать подбор после продажи,

а просто игнорить мешки?

Cooper wrote:вот ходилка:

(С) ВЕТЕРАН

а он ходилки писал

ЗЫ admir прав.

да и прыжок по стоуну лучше через поиск по типу + uo.recall('finditem','nomer').

Kynep · Post by **Kynep** » 2006-04-01 00:34:18

Sfagnum wrote:
Cooper wrote:Если не уберешь выкидывание, то скрипт заклинит, можно дописать подбор после продажи,
а просто игнорить мешки?
Cooper wrote:вот ходилка:

(С) ВЕТЕРАН
а он ходилки писал

ЗЫ admir прав.

да и прыжок по стоуну лучше через поиск по типу + uo.recall('finditem','nomer').

ХЗ, про игнор не подумал

, а остальное в ЛС

Sfagnum · Post by **Sfagnum** » 2006-04-01 00:38:01

Cooper wrote:ХЗ, про игнор не подумал

Cooper wrote:а остальное в ЛС

кому? мне? неее мне не надо

SESTRA · Post by **SESTRA** » 2006-04-01 05:56:55

А как узнавать ккардинаты клика ?)по сталбу )
например 421 321 как их узнать вот написаны ани в скрипте а откуда их взяли?)

Edred · Post by **Edred** » 2006-04-01 09:37:48

SESTRA wrote:А как узнавать ккардинаты клика ?)по сталбу )
например 421 321 как их узнать вот написаны ани в скрипте а откуда их взяли?)

Открой встроенный редактор скриптов и посмотри на верхнюю строку...

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-01 10:20:58

SESTRA wrote:А как узнавать ккардинаты клика ?)по сталбу )
например 421 321 как их узнать вот написаны ани в скрипте а откуда их взяли?)

Uopilot, прога такая есть еще.

1a2a3a4a5a6a · Post by **1a2a3a4a5a6a** » 2006-04-01 10:25:06

Cooper wrote: (С) ВЕТЕРАН

Code: Select all

sub GotoXY(x,y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0 
for i=1 to 60 
myX=uo.getX(); 
myY=uo.getY(); 
if LastX==myX and LastY==myY then 
halt=halt+1 
else 
halt=0 
end if 
if halt>=10 then 
if uo.GetDir()==1 then 
for z=0 to 8 
uo.Press(40) 
next 
end if 
if uo.GetDir()==3 then 
for z=0 to 8 
uo.Press(37) 
next 
end if 
if uo.GetDir()==5 then 
for z=0 to 8 
uo.Press(38) 
next 
end if 
if uo.GetDir()==7 then 
for z=0 to 8 
uo.Press(39) 
next 
end if 
halt=15 
end if 
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then 
return 1 
end if 
if x<=myX then 
if y<=myY then 
for z=0 to 3 
uo.Press(38) 
next 
else 
for z=0 to 3 
uo.Press(37) 
next 
end if 
else 
if y<=myY then 
for z=0 to 3 
uo.Press(39) 
next 
else 
for z=0 to 3 
uo.Press(40) 
next 
end if 
end if 
lastX=myX 
lastY=myY 
wait(200) 
next 
return 0 
end sub 

sub Numb(num) 
if num>=0 then 
return num 
else 
return num*(-1) 
end if 
end sub

Не очень я понял, как работает эта ходилка. А в какую координату она пойдет? И у мя выдавалась ошибка. Что-то дополнительно нужно ставить к ней?

Yoko

Прошу написать пару простеньких и полезных скриптов

Прошу написать пару простеньких и полезных скриптов

Re: Прошу написать пару простеньких и полезных скриптов