Yoko

All sides of Injection
It is currently 2025-10-23 22:21:53

All times are UTC+02:00




Post new topic  Reply to topic  [ 11 posts ] 
Author Message
PostPosted: 2007-03-25 08:46:57 
Offline

Joined: 2007-03-25 08:43:30
Posts: 7
Location: Russian
У нас на шарде, переплавку руды сделали по тупому : нельзя просто 2 раза кликнуть на руду чтобы она плавилась, нужно 2 раза кликнуть на плавилку, а потом на руду которую ты хочеш плавить.
Вот у меня получилось так, но не работает, подскажите пожааалуйста.


Code:
sub smelting()
   UO.FindType( 0x19B9 , -1 , 1 )
   If UO.Findcount() == 0 Then
       UO.Print( "Руды Нет" )
       return
   Endif
   UO.Exec('moveitem finditem 3')
   Wait(1000)
   UO.UseObject( '0x40017C53' )
   Wait(1000)
   UO.WaitTargetObject( 'moveitem' )
   wait(100)
endsub


Top
   
PostPosted: 2007-03-25 09:14:39 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
BattleNet wrote:
У нас на шарде, переплавку руды сделали по тупому : нельзя просто 2 раза кликнуть на руду чтобы она плавилась, нужно 2 раза кликнуть на плавилку, а потом на руду которую ты хочеш плавить.
Вот у меня получилось так, но не работает, подскажите пожааалуйста.


Code:
sub smelting()
   UO.FindType( 0x19B9 , -1 , 1 )
   If UO.Findcount() == 0 Then
       UO.Print( "Руды Нет" )
       return
   Endif
   UO.Exec('moveitem finditem 3')
   Wait(1000)
   UO.UseObject( '0x40017C53' )
   Wait(1000)
   UO.WaitTargetObject( 'moveitem' )
   wait(100)
endsub


Code:
sub smelting()
   UO.FindType( 0x19B9 , -1 , 1 )
   If UO.Findcount() == 0 Then
       UO.Print( "Руды Нет" )
       return
   Endif
   UO.Exec('moveitem finditem 3')
   Wait(1000)
   UO.WaitTargetObject( 'moveitem' )
   wait(100)
   UO.UseObject( '0x40017C53' )
   Wait(1000)
endsub


Top
   
 Post subject:
PostPosted: 2007-03-25 09:50:27 
Offline

Joined: 2007-03-25 08:43:30
Posts: 7
Location: Russian
Неа, попробывал, не получилось, вот я бросил руду на землю, запускаю скрипт, он взял с земли 3 руды, потом появилось : Select Ore To Smelt, и скрипт выключился:(


Top
   
 Post subject:
PostPosted: 2007-03-25 10:00:39 
Offline

Joined: 2006-03-10 00:19:11
Posts: 265
Location: http://drw.ru/
удивидельно, блин, что оно не работает...
UO.FindType( 0x19B9 , -1 , 1 ) - в кавычки взять
UO.WaitTargetObject( 'moveitem' ) - и что это за хрень такая moveitem? мб finditem?
тока я не пойму ты хочешь чтобы оно кучками по 3 плавил? тогда всё сложнее немного...


Top
   
 Post subject:
PostPosted: 2007-03-25 10:24:39 
Offline

Joined: 2007-03-25 08:43:30
Posts: 7
Location: Russian
Я ничайно написал вместо "FindItem" Moveitem )


Top
   
 Post subject:
PostPosted: 2007-03-25 10:27:40 
Offline

Joined: 2007-03-25 08:43:30
Posts: 7
Location: Russian
Я хочу, чтобы чар поднимал из кучки лежащей на земле 3 руды, и клал её в пак, потом юзал плавилку, и плавил ту руду которую он поднял, и положил в пак, т.е. 3 руды лежаших в паке, и повторял это действие.


Top
   
 Post subject:
PostPosted: 2007-03-25 12:44:37 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
ruda1-тип руды если куча >3
ruda2-тип руды если куча=3
Code:
uo.set('finddistance','2')
uo.findtype(ruda1,cvet,'ground')
uo.moveitem('finditem','3','backpack')
wait(1000)
uo.findtype(ruda2,cvet,'backpack')
uo.waittargetobject('finditem')
uo.useobject(plavilka)
wait(500)


Top
   
 Post subject:
PostPosted: 2007-03-25 14:32:41 
Offline

Joined: 2007-03-25 08:43:30
Posts: 7
Location: Russian
я дебил, можете написать готовый скрипт???


Top
   
 Post subject:
PostPosted: 2007-03-25 17:36:38 
Offline
User avatar

Joined: 2007-03-24 08:12:51
Posts: 188
BattleNet wrote:
я дебил, можете написать готовый скрипт???


попытайся стать другим :)


Top
   
 Post subject:
PostPosted: 2007-03-26 23:13:09 
Offline
User avatar

Joined: 2007-02-21 20:15:57
Posts: 479
Попробуй этот. Хз вроде похож.
Только в бекпаке кроме руды и 1 пустого мешка недолжно быть ничего больше (ни рунбук, ни спелбук, ни ключей и т.д.)

Code:
#########################################################################
#          Quick Mass Smelting Ore by Two ores ... for Antares          #
# 1) В рюкзаке обязательно присутствие НЕ полного мешка                #
# 2) В рюкзаке не желательно присутствие  чего-либо кроме мешка и руды  #
#########  ####  ####  ####  wrote by Recluse  ####  ####  ####  ########
# 1)После запуска скрипта укажите появившимся тагетом на ФОРЖУ          #
# 2)После чего руда если она в Бэкапэ переместится в мешок              #
#(мешок - произвольный если их несколько...надеюсь он не выберет полный)#
# 3)Затем инжект выложит красивыми кучками руду обратно в Бэкап :)      # 
# 4)И начнёт её плавить...                                              #
# 5)Соберёт несгоревшую руду обратно в мешок                            #
# 6)И будет повторять 3-5 пока почти не кончится руда                  #
# 7)В бэкпаке останется чуть-чуть руды - плавьте ручками                #
#########################################################################
sub MassSmeltingOreBy2()
var bag , i , j , forge
uo.findtype(0x0E76,-1,'backpack')
if uo.findcount() > 0 then
bag = uo.GetSerial('finditem')
uo.print('Show me FORGE.')
UO.exec('addobject forge')
while UO.targeting()
  wait(200)
wend
uo.moveitem(bag,-1,'backpack','147','147','0')
uo.useobject(bag)
wait(200)
uo.findtype('0x19B9',-1,'backpack')
uo.moveitem('finditem',-1,bag)
wait(300)
while (uo.count('0x19B9') > 0)
  i = 12
  j = 12
  while (uo.count('0x19B9') > 0) and (uo.count('0x19BA') < 425) and (i < 145) and (j<145)
  uo.findtype('0x19B9',-1,bag)
  uo.moveitem('finditem','2','backpack',str(i),str(j),'0')
  wait(200)
  if i==140 then
    i = 4
    j = j + 8
  else
    i = i + 8
  end if 
  wend
  while uo.count('0x19BA') > 0
  uo.useobject('forge')
  uo.waittargettype('0x19BA')
  wait(300)
  wend
  while uo.count('0x19B7') > 0
  uo.findtype('0x19B7',-1,'backpack')
  uo.moveitem('finditem',-1,bag)
  wait(200)
  wend
wend
uo.findtype('0x19B7',-1,bag)
if uo.findcount() then
  uo.Grab(-1,'finditem')
end if
uo.findtype('0x19BA',-1,bag)
if uo.findcount() then
  uo.Grab(-1,'finditem')
end if
uo.findtype('0x19B8',-1,bag)
if uo.findcount() then
  uo.Grab(-1,'finditem')
end if
end if
end sub
########################################################################

_________________
Шард Антарес
Ururu


Top
   
 Post subject:
PostPosted: 2007-03-27 11:54:52 
Offline

Joined: 2007-03-25 08:43:30
Posts: 7
Location: Russian
я уже сам написал

Code:
VAR plavilka = '0x40017C53'
VAR Ruda4 = '0x19B9'
VAR Ruda3 = '0x19B8'
VAR Ruda2 = '0x19B7'
VAR Ruda1 = '0x19BA'
sub smelting()
while uo.life>0
   UO.FindType( Ruda4, -1, 1)
   Wait(300)
   UO.Exec( "moveitem finditem 3" )
   Wait(300)
   UO.WaitTargetType( Ruda3 )
   wait(300)
   UO.UseObject ( plavilka )
   wait(300)
       UO.WaitTargetType( Ruda1 )
       wait(300)
       UO.Drop('0x19BA')
       wait(300)
           UO.WaitTargetType( Ruda2 )
           wait(300)
           UO.Drop('0x19B7')
               UO.FindType( Ruda3, -1, 1)
               Wait(300)
               UO.Exec( "moveitem finditem 3" )
               Wait(300)
               UO.WaitTargetType( Ruda3 )
               wait(300)
               UO.UseObject ( plavilka )
   wait(400)
wend
endsub


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 11 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 4 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