Jump to content

Lineage 2


Ребят, помогите со Скриптом. Переплавка руды в инготы

- - - - -

  • You cannot reply to this topic
42 replies to this topic

#1
Mikalti

Mikalti

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 121 posts

Работает, но почему-то переплавляет в один ингот и останавливается.

 

Нашёл  вот такой вот скрипт.

 

 

 
var seif1='0x71ADB299'  # id sundyka gde lejit ruda
var seif2='0x4037D1BB' # id sundyka kyda lojit ingoti
 
sub smelt() 
   var i 
   DIM ore[4] 
   ore[1]=0x19B8 
   ore[2]=0x19B9 
   ore[3]=0x19BA 
   ore[4]=0x19B7
   uo.deletejournal()
   UO.useobject(seif1)
   while not uo.dead()
      for i=1 to 4 
         UO.FindType(ore[i],'-1',seif1) 
         while UO.GetQuantity('finditem') > 0 
            UO.Exec('moveitem finditem 1') # kolichestvo isspolzuemoi rudi za raz
            while not uo.injournal("put")
               UO.Useobject('finditem')
               wait(1200)
            wend
            uo.deletejournal()          
            unload()
         wend 
      next
   wend
endsub 
 
sub unload() 
   var t
   DIM type[5] 
   type[1]=0x1BEF 
   type[2]=0x1BF5 
   type[3]=0x1BE3 
   type[4]=0x1BE9 
   
   for t=1 to 4 
      Uo.FindType(type[t],'-1','backpack') 
      If UO.FindCount()>0 then  
         UO.moveitem('finditem','-1',seif2) 
         repeat 
            wait(100) 
         until Uo.ContainerOf('finditem')<>Uo.GetSerial('backpack') 
      endif   
   next 
end sub

 

 

Подскажите как запустить цикл. Подправьте пожалуйста. 


Edited by Mikalti, 15 October 2013 - 09:15 AM.


#2
ninja

ninja

    Птица-говорун

  • Пользователи
  • PipPipPipPipPipPipPipPipPip
  • 1,597 posts
  • Location:Череповец
  • Interests:Big Red Machine

wend

 

перед end sub

 

 

 

while not uo.dead()

 

после    sub smelt()  или замени на var i  

 

хз,попробуй ^_^ 



#3
Mikalti

Mikalti

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 121 posts

Вроде не помогло(



#4
ninja

ninja

    Птица-говорун

  • Пользователи
  • PipPipPipPipPipPipPipPipPip
  • 1,597 posts
  • Location:Череповец
  • Interests:Big Red Machine

Вроде не помогло(

а бля,дак у тебя же два скрипта тут,нада запустить под Sub smelt и sub unload   один и тот же скрипт хз,пробуй



#5
Mikalti

Mikalti

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 121 posts

Попробывал уже убрать вторую часть скрипта. 1я работает и без него, но цикл всё ещё не запускается. Останавливается сразу после переплавки в 1н ингот.



#6
Mikalti

Mikalti

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 121 posts

В Общем Кому нужно. Вот Скрипт, только он работает по другому. Желательно в доме, сесть рядом с плавильней положить кучки руды на пол рядом с собой и "Вуаааллля"

 

 

 

 

####################################
#############Smelting by Green Peace
sub smelt_ground()
var r 
var i,k=0
var max =((UO.Str*4)+30) #Calculating of max weight based on character strenght
DIM ore[4]
ore[1]=0x19B8
ore[2]=0x19B9
ore[3]=0x19BA
ore[4]=0x19B7
while k==0
r=0
If UO.Weight>=max-30 then 
clean()
endif
 
for i=1 to 4
UO.FindType(ore[i],-1,'ground')
   If UO.FindCount()>0 then
      r=0
      UO.Exec('moveitem finditem 1')
            repeat
               wait(50)
          until Uo.ContainerOf('finditem')==UO.Getserial('backpack')
          UO.Useobject('finditem')
   else
   #UO.Print('Not Found')
   r=r+1
   endif
next
if r==4 then
k=1
Uo.Print('No ore to smelt')
endif
wend
endsub 
 
 
 
Единственное что можно подправить, что бы готовые инготы он складывал не к себе в пак, а например в рядом стоящий Сундук, если у вас получится - поделитесь пожалуйста изменениями. 


#7
ninja

ninja

    Птица-говорун

  • Пользователи
  • PipPipPipPipPipPipPipPipPip
  • 1,597 posts
  • Location:Череповец
  • Interests:Big Red Machine

,setcatchbag и на нужный сундук не ?



#8
Mikalti

Mikalti

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 121 posts

,setcatchbag и на нужный сундук не ?

При дисконнекте, опять прописывать, и если случайно что-то не вовремя перетащить , то вещи бывают "залипают" + опять-же при смене нужного Бек пека на другой с помощью команды сеткечбэг - вещи летают по основному пеку как сумасшедшие - помогает только реконнект. 



#9
Greeek!

Greeek!

    Грек

  • Пользователи
  • PipPipPipPipPipPipPipPipPipPip
  • 4,386 posts
  • Location:Санкт-Петербург

unsetcatchbag



#10
Mikalti

Mikalti

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 121 posts

unsetcatchbag

О, спасибо. Не знал.



#11
ZABUNBABUN

ZABUNBABUN

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 269 posts
  • Interests:Sport


 

В Общем Кому нужно. Вот Скрипт, только он работает по другому. Желательно в доме, сесть рядом с плавильней положить кучки руды на пол рядом с собой и "Вуаааллля"

 

 

 

 

####################################
#############Smelting by Green Peace
sub smelt_ground()
var r 
var i,k=0
var max =((UO.Str*4)+30) #Calculating of max weight based on character strenght
DIM ore[4]
ore[1]=0x19B8
ore[2]=0x19B9
ore[3]=0x19BA
ore[4]=0x19B7
while k==0
r=0
If UO.Weight>=max-30 then 
clean()
endif
 
for i=1 to 4
UO.FindType(ore[i],-1,'ground')
   If UO.FindCount()>0 then
      r=0
      UO.Exec('moveitem finditem 1')
            repeat
               wait(50)
          until Uo.ContainerOf('finditem')==UO.Getserial('backpack')
          UO.Useobject('finditem')
   else
   #UO.Print('Not Found')
   r=r+1
   endif
next
if r==4 then
k=1
Uo.Print('No ore to smelt')
endif
wend
endsub 
 
 
 
Единственное что можно подправить, что бы готовые инготы он складывал не к себе в пак, а например в рядом стоящий Сундук, если у вас получится - поделитесь пожалуйста изменениями. 

 

 

это на инжу или стелс? и надо сюда чтонибудь вставлять?



#12
daimond

daimond

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 70 posts
####################################
#############Smelting by Green Peace
sub smelt_ground()
var r 
var i,k=0
var max =((UO.Str*4)+30) #Calculating of max weight based on character strenght
DIM ore[4]
ore[1]=0x19B8
ore[2]=0x19B9
ore[3]=0x19BA
ore[4]=0x19B7
while k==0
r=0
If UO.Weight>=max-30 then 
clean()
endif


for i=1 to 4
UO.FindType(ore[i],-1,'ground')
   If UO.FindCount()>0 then
      r=0
      UO.Exec('moveitem finditem 1')
            repeat
               wait(50)
          until Uo.ContainerOf('finditem')==UO.Getserial('backpack')
          UO.Useobject('finditem')
   else
   #UO.Print('Not Found')
   r=r+1
   endif
next
if r==4 then
k=1
Uo.Print('No ore to smelt')
endif
wend
 
 
 
 
 
 
clean() Где взять этот ИНКЛУД ?
endsub 


#13
cSmoke

cSmoke

    Путешественник

  • Пользователи
  • PipPip
  • 54 posts

Напиши что требуется, подгоню в понедельник скрипт, просто я играю ток с пн-пт.  А то инги на пол класть вообще не вариант. 


Edited by cSmoke, 11 February 2017 - 02:47 PM.


#14
daimond

daimond

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 70 posts

Напиши что требуется, подгоню в понедельник скрипт, просто я играю ток с пн-пт.  А то инги на пол класть вообще не вариант. 

 

 

 

Есть еще вот такой скрипт, но периодически слетает при плавке руды. (этот скрипт работает из сумки в бэкпек кладет 1 штуку и плавит)

 

sub smelt_ore() 
   
   Var bag='0x48DA61AE' #ID сумки куда будем класть ore
   Var Ore='0x19B9'     # Тип руды
   Repeat 
      uo.grab(1,bag+'.'+Ore) # Количество переплавляемой руды
      checklag() 
      uo.useobject('^'+Ore) 
      wait(100) 
   until not uo.FindCount()
end sub


Sub checklag()
   deljournal("ackpack")
   uo.click("backpack")
   repeat
      wait(50)
   until uo.injournal("ackpack")
endsub


Sub deljournal(msg)
   while uo.injournal(msg)
      uo.setjournalline(uo.injournal(msg)-1,"")
   wend
endsub


Sub DeleteJournal(msg) 
   var nom = UO.InJournal(msg) 
   If nom>0 Then 
      UO.SetJournalLine(Nom - 1," -- replaced -- ")  
      DeleteJournal(msg) 
   EndIf 
endsub

Нужно сделать, чтоб плавил безостановочно пока руда не кончится. Хорошо если еще добавить, чтоб брал из другой  сумки руду и клал в сумку из которой делит руду  по возрастанию сложности ее плавления. Но а самый идеальный если еще и сверял бы по уровню скилла и брал только нужную руду.   



#15
cSmoke

cSmoke

    Путешественник

  • Пользователи
  • PipPip
  • 54 posts

Ты думаешь что тут растет скил при плавке?



#16
bachukaster

bachukaster

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 700 posts
  • Location:Moscow

при плавке песка растет БС, но не сказать что ахти



#17
daimond

daimond

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 70 posts

Ты думаешь что тут растет скил при плавке?

 

Я не думаю а уже проверил.



#18
cSmoke

cSmoke

    Путешественник

  • Пользователи
  • PipPip
  • 54 posts
sub plavka_rudi()
   uo.print('Укажите гду лежит руда')
   uo.addobject('gde')
   while uo.Targeting()  
      wait(500)
   wend
   while uo.findtype('0x19B9',-1,'gde')
      uo.moveitem('finditem', 1, 'backpack')
      while not uo.findtype('0x19B9',-1,'backpack')    
      
      wend
      while uo.findtype('0x19B9',-1,'backpack')   
      uo.useobject('finditem')
       wend                             
   wend
   
end sub


#19
cSmoke

cSmoke

    Путешественник

  • Пользователи
  • PipPip
  • 54 posts

только в сумку положить 1 вид руды, перекладывает 1 инг в бакпак персонажаи плавит его. если будет разные типы, то их тоже переплавит только не по очереди. И плавит быстро


Edited by cSmoke, 16 February 2017 - 02:17 PM.


#20
cSmoke

cSmoke

    Путешественник

  • Пользователи
  • PipPip
  • 54 posts

КУПЛЮ ПАГАНА руду))))))







0 user(s) are reading this topic

members, guests, anonymous users