9 ответов в теме

[arsenic]

Напишите пожалуйста скрипт на плавление метала по одному :arrow: Спосиб

[BoBKa]

na eazy gdeto byl vylozen na sajte, poi6i!

[Duplomat]

Напишите пожалуйста скрипт на плавление метала по одному  :arrow:  Спосиб

Tebe na inju?

[Duplomat]

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 5') 



            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

Попробуй этот для инжи!

[arsenic]

Спосиб =)

[arsenic]

чтото не работает пишит No ore to smel

[Duplomat]

Пропиши типы

[arsenic]

там такиеже как и указаны =(

[teror]

sub SmeltMarg() 



VAR SourceContainer='0x4000EEAC' 



VAR Exit=0 



UO.SetCatchBag(SourceContainer) 



While Exit<>1 



UO.FindType('0x19B9',-1,SourceContainer) 



If UO.GetQuantity('finditem')>0 Then 



UO.MoveItem('finditem','1','ground') 



wait(600) 



UO.UseObject('finditem') 



wait(600) 



UO.FindType('0x1BEF',-1,'ground') 



wait(600) 



Else 



Exit=1 



Endif 



Wend 



UO.UnSetCatchBag() 



end sub

poprobuj etot variant. zaglenul bi na yoko forum tam mnozestva variantov, a mi bi uze pomogli razobratsa tebe. i polzujsa poiskom ! http://www.oldp.net/...highlight=smelt

[texxxx]

скрипт работает не коректно , сначало плпвит 1 инг, а потомо сразу всю кучу (