Напишите скрипт на перетаскивание рун по координатам?
Moderators: Murderator+, Murderator
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact:
Напишите скрипт на перетаскивание рун по координатам?
Сабж, пожалуйста. И еще: как на инже узнать координаты точки?
Re: Напишите скрипт на перетаскивание рун по координатам?
Координаты тайла ,infotail и прицелом на тайл.TSD Praetorian wrote:Сабж, пожалуйста. И еще: как на инже узнать координаты точки?
Координаты итема ,info и прицелом на итем.
А координаты руны я ХЗ блин.
Сделал дело - флуди смело !!!
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact:
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact:
Code: Select all
############################Cортировка мешков в сундуке##########
sub Sort()
dim tmpBags[254]
dim Bags[254]
var s,z,c,n,x,y
var i = 0
var bag
uo.Print('Выбери Мусорку :)...')
uo.Exec('addobject bag')
while uo.Targeting()
wait(100)
wend
uo.DeleteJournal()
# var bag = '0x40089941'
UO.Resend()
UO.UseObject('bag')
wait(1000)
# Ищем все мешочки в bag и заносим в массив
UO.Useobject('bag')
UO.findtype('0x0E76','-1','bag')
while UO.FindCount()>0
tmpBags[i] = UO.GetSerial("finditem")
i = i + 1
UO.Ignore("finditem")
wait(100)
UO.findtype('0x0E76','-1','bag')
wend
UO.IgnoreReset()
i = i - 1
# Сортируем полученный массив по возрастанию серийника
for s = 0 to i
c = 0
for z = 0 to i
if tmpBags[s]>tmpBags[z] then
c = c + 1
endif
next
Bags[c] = tmpBags[s]
next
# Раскладываем мешочки согласно сортировке
for n = 0 to 254
if Bags[n] then
x = 28 + (n-10*int(n/10))*12
y = 53 + int(n/10)*15
UO.moveitem (Bags[n], 1, 'bag', str(x), str(y), 0)
wait(1500)
endif
next
end sub
На халяву ненадейся!!!
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact:
Сделай так
Это нужно вставить в скрипт сразу после крафта рунки ..... что она делает .......ищет рунку в паке и бросает ее в помойку.
Code: Select all
uo.SetReceivingContainer('Помойка')
uo.FindType(Вид рунки в паке )
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
uo.UnSetReceivingContainer('помойка')
Все просто.
BETEPAH ™
BETEPAH ™
Фу чтото я на втыке жестоком...BETEPAH wrote:Сделай такЭто нужно вставить в скрипт сразу после крафта рунки ..... что она делает .......ищет рунку в паке и бросает ее в помойку.Code: Select all
uo.SetReceivingContainer('Помойка') uo.FindType(Вид рунки в паке ) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') uo.UnSetReceivingContainer('помойка')
Мне показалось чтоб ему по координатам расфасовывать в сундучке их
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact:
Т.е. скрипт будет выглядеть так:BETEPAH wrote:Сделай такЭто нужно вставить в скрипт сразу после крафта рунки ..... что она делает .......ищет рунку в паке и бросает ее в помойку.Code: Select all
uo.SetReceivingContainer('Помойка') uo.FindType(Вид рунки в паке ) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') uo.UnSetReceivingContainer('помойка')
Code: Select all
Sub Tresh()
uo.SetReceivingContainer('0x4F825C0D') \\ИД трашкана
uo.FindType(0x1F14) \\ в апострафах или просто так надо писать тип?
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
uo.UnSetReceivingContainer('0x4F825C0D')
end subнет вот так
Но можно и не делать все это отдельным скриптом а просто "пихнуть" в " Тело" основного скрипта
Code: Select all
sub Tresh()
uo.SetReceivingContainer('0x4F825C0D')
uo.FindType(0x1F14)
if uo.GetQuantity('finditem')>0 then
uo.Grab('0','finditem')
uo.UnSetReceivingContainer('0x4F825C0D')
endif
end sub
Все просто.
BETEPAH ™
BETEPAH ™
BETEPAH wrote:нет вот такНо можно и не делать все это отдельным скриптом а просто "пихнуть" в " Тело" основного скриптаCode: Select all
sub Tresh() uo.SetReceivingContainer('0x4F825C0D') uo.FindType(0x1F14) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') uo.UnSetReceivingContainer('0x4F825C0D') endif end sub
Code: Select all
sub Tresh()
uo.FindType(0x1F14)
if uo.GetQuantity('finditem')>0 then
uo.SetReceivingContainer('0x4F825C0D')
uo.Grab('0','finditem')
uo.UnSetReceivingContainer()
end if
end sub
Сделал дело - флуди смело !!!
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact:
Приходится вручную нажимать Ран Функш Треш, что бы он по одной рунке трешалBETEPAH wrote:нет вот такНо можно и не делать все это отдельным скриптом а просто "пихнуть" в " Тело" основного скриптаCode: Select all
sub Tresh() uo.SetReceivingContainer('0x4F825C0D') uo.FindType(0x1F14) if uo.GetQuantity('finditem')>0 then uo.Grab('0','finditem') uo.UnSetReceivingContainer('0x4F825C0D') endif end sub
-
TSD Praetorian
- Posts: 42
- Joined: 2004-11-03 11:39:56
- Contact: