Плавка руды тут =)

GimFlex · Post by **GimFlex** » 2005-02-22 21:58:30

#Вобщем вот скрипт которым я плавлю берете кирку +15 в руки
#кушаете досыта далее введите ИД сундука где оры и ИД сундука
#куда инги кидать можно изменить число оров которые берет за раз у
#меня выставлено 400 хотите меньше или больше правьте тута
#UO.Exec('moveitem finditem 400')
#есть проверка на то, если руда не поплавится =)
###############################################
#GimFlex drw.ru
###############################################
var seif1='0x40018032'  # там где оры
var seif2='0x4037D1BB' # там куда инги

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 400') # ставьте число оров тута
       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

I'm · Post by **I'm** » 2005-02-22 22:12:18

Мне кажется или что-то подобное я видел

The Cheater · Post by **The Cheater** » 2005-02-22 22:18:15

I'm wrote:Мне кажется или что-то подобное я видел

да наверняка ....

I'm · Post by **I'm** » 2005-02-22 22:23:52

И кажется у ивел_гремлина

GimFlex · Post by **GimFlex** » 2005-02-22 22:36:21

I'm wrote:И кажется у ивел_гремлина

может и было просто давно сюда не заходил решил сразу кинуть сам недавно руду решил поплавить пришлось написать сори за плагиат если че

I'm · Post by **I'm** » 2005-02-22 22:39:25

Каюсь я тоже спер идею у гремлина но реализовал иначе =)

GimFlex · Post by **GimFlex** » 2005-02-22 22:40:07

I'm wrote:И кажется у ивел_гремлина

пришлось немного поискать этого гремлина в серче =) у него немного не то хотя очень похоже короче я просто выложил для неугомонных юзверей

Code: Select all

#################################### 
#############Smelting by evil_Gremlin, v 1.1 
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 
#############Ingots dropping sub 
sub Clean() 
var i,t,l,col 
DIM type[5] 
type[1]=0x1BEF 
type[2]=0x1BF5 
type[3]=0x1BE3 
type[4]=0x1BE9 
UO.Print('Overload. Cleaning') 
col=0 
repeat 
col=0 
for t=1 to 4 
Uo.FindType(type[t],'-1','backpack') 
   If UO.FindCount()>0 then 
   UO.Print('Found') 
   l=0 
      Uo.Exec('drophere finditem') 
         repeat 
         wait(100) 
         until Uo.ContainerOf('finditem')<>Uo.GetSerial('backpack') 
   else 
   col=col+1 
   endif 
next 
until col>=4 
UO.Print('Cleaned....') 
end sub

I'm · Post by **I'm** » 2005-02-22 22:47:47

Да лано тебе, уж и пофлудить нельзя?

P.S. За идею спасибо evil_Gremlin'y