Yoko

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

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

Телепорт:

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

Продажа:

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

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

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

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

UO.WaitTargetType('meshok')

Кавычки забыл
*ушел домой, буду в ~21-00 по Москве*

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

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

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

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

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

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

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

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 

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

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

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

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

(С) ВЕТЕРАН

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 

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

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

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

ЗЫ admir прав.

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

ХЗ, про игнор не подумал , а остальное в ЛС

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

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

_________________
А Я че Я не че !

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

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

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