Toggle shoutbox Chat
|
Может кто написать скрипт =)
#1
Posted 24 January 2007 - 16:54
#2
Posted 24 January 2007 - 17:16
#3
Posted 24 January 2007 - 18:08
Напишите пожалуйста скрипт на плавление метала по одному :arrow: Спосиб
Tebe na inju?
#4
Posted 24 January 2007 - 18:18
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
Попробуй этот для инжи!
#5
Posted 24 January 2007 - 19:38
#6
Posted 24 January 2007 - 19:41
#7
Posted 24 January 2007 - 23:15
#8
Posted 24 January 2007 - 23:48
#9
Posted 25 January 2007 - 14:16
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 subpoprobuj 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
#10
Posted 08 December 2015 - 07:29
скрипт работает не коректно , сначало плпвит 1 инг, а потомо сразу всю кучу (
1 user(s) are reading this topic
0 members, 1 guests, 0 anonymous users