Yoko
http://forum.yoko.com.ua/

Дайте Скрипт На Плавку Руды
http://forum.yoko.com.ua/viewtopic.php?f=17&t=11671		 Page 1 of 1
Author:  BattleNet [ 2007-03-25 08:46:57 ]
Post subject:  Дайте Скрипт На Плавку Руды
У нас на шарде, переплавку руды сделали по тупому : нельзя просто 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
Author:  Question_GimFlex [ 2007-03-25 09:14:39 ]
Post subject:  Re: Дайте Скрипт На Плавку Руды
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
Author:  BattleNet [ 2007-03-25 09:50:27 ]
Post subject: 
Неа, попробывал, не получилось, вот я бросил руду на землю, запускаю скрипт, он взял с земли 3 руды, потом появилось : Select Ore To Smelt, и скрипт выключился:(
Author:  to4a [ 2007-03-25 10:00:39 ]
Post subject: 
удивидельно, блин, что оно не работает...
UO.FindType( 0x19B9 , -1 , 1 ) - в кавычки взять
UO.WaitTargetObject( 'moveitem' ) - и что это за хрень такая moveitem? мб finditem?
тока я не пойму ты хочешь чтобы оно кучками по 3 плавил? тогда всё сложнее немного...
Author:  BattleNet [ 2007-03-25 10:24:39 ]
Post subject: 
Я ничайно написал вместо "FindItem" Moveitem )
Author:  BattleNet [ 2007-03-25 10:27:40 ]
Post subject: 
Я хочу, чтобы чар поднимал из кучки лежащей на земле 3 руды, и клал её в пак, потом юзал плавилку, и плавил ту руду которую он поднял, и положил в пак, т.е. 3 руды лежаших в паке, и повторял это действие.
Author:  Question_GimFlex [ 2007-03-25 12:44:37 ]
Post subject: 
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)
Author:  BattleNet [ 2007-03-25 14:32:41 ]
Post subject: 
я дебил, можете написать готовый скрипт???
Author:  Question_GimFlex [ 2007-03-25 17:36:38 ]
Post subject: 
BattleNet wrote:
я дебил, можете написать готовый скрипт???


попытайся стать другим :)
Author:  Ururu [ 2007-03-26 23:13:09 ]
Post subject: 
Попробуй этот. Хз вроде похож.
Только в бекпаке кроме руды и 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
########################################################################
Author:  BattleNet [ 2007-03-27 11:54:52 ]
Post subject: 
я уже сам написал

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
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/