Yoko

All sides of Injection
It is currently 2025-11-02 21:57:54

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 4 posts ] 
  Print view Previous topic | Next topic 
Author Message
BoBBaH
PostPosted: 2006-05-06 11:47:59 
Offline

Joined: 2006-02-09 11:37:25
Posts: 94
Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз
Top
   
Reply with quote  
Kynep
PostPosted: 2006-05-06 12:36:14 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1348
Location: г. Старый Оскол
BoBBaH wrote:
Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз



Запускаешь, указываешь прицелом мешок источник, затем мешок приемник, после товар и вперед
Code:
sub pereklad()
#****ДРВ*****# 
# (C) Cooper 
#****v1.0****#
VAR Ttov

UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend
UO.UseObject('istok')

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.Print('Выбери ТОВАР')
UO.Exec('addobject tovar')
while UO.Targeting()
wait(100)
wend

TTov = UO.GetGraphic('tovar')
UO.FindType(Ttov,'-1','istok')
If UO.FindCount() > 0 then
     repeat
          UO.MoveItem('finditem', '0', 'priem')
          wait(1000)
          UO.FindType(Ttov,'-1','istok')
     until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub


Last edited by Kynep on 2006-05-06 16:55:12, edited 1 time in total.

Top
   
Reply with quote  
DerMeister =)
PostPosted: 2006-05-06 16:17:18 
Offline
Expert!
User avatar

Joined: 2006-02-25 21:48:38
Posts: 1032
Cooper wrote:
BoBBaH wrote:
Здраствуйте игроки вот мне задолбало перекидывать итемы одинаковых типов в мешочки прощу написать не сложный скрипт:
из мешочка(его айди) перекидывать айтемы(их тип) в другой мешочек(его айди) напишите каму не трудно плиз



Прописываешь тип товара, запускаешь, указываешь прицелом мешок источник, затем мешок приемник
Code:
sub pereklad()
VAR tovar=0x0E76 #Тип товара

UO.Print('Выбери ИСТОЧНИК')
UO.Exec('addobject istok')
while UO.Targeting()
wait(100)
wend

UO.Print('Выбери ПРИЕМНИК')
UO.Exec('addobject priem')
while UO.Targeting()
wait(100)
wend

UO.FindType(tovar,'-1','istok')
If UO.FindCount() > 0 then
repeat
UO.MoveItem('finditem', '0', 'priem')
wait(1000)
UO.FindType(tovar,'-1','istok')
until not UO.FindCount()
UO.Print('Закончили...')
else
UO.Print('А кидать то нечего...')
endif
end sub


Да мля! Чо вы тварите??? Этож геммор такой!

,massmove [задержка] [кол-во]
Например:
Code:
,massmove 100 100

_________________
DerMeister сейчас на нейрале!
Top
   
Reply with quote  
BoBBaH
 Post subject:
PostPosted: 2006-05-06 16:19:06 
Offline

Joined: 2006-02-09 11:37:25
Posts: 94
купер можешь еще в этом скрипте поставить вместо указания типа объекта его цвет ну не иди так как он у всех собственный а вот я хз подойдет ли цвет, чтобы мне рыбок можно было переклаывать а то по типу трули от рар не отличаются почему-то
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 4 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 10 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited