Дайти плизз скрипты на касты

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Luc&feR
Posts: 14
Joined: 2005-01-29 07:33:17

Дайти плизз скрипты на касты

Post by Luc&feR »

Дайти плизз скрипты на касты очень нужно
1 Каст парализа на лест таргет
2 Каст ФСа на лест таргет
3 Каст порт оф графа на лест таргет
4 Чтоб при парализе автоматически кидал стрелку на себя
Тока чтоб кастовал со спелбуки а не со скролов

Зарание сенк
Top
Goggy
Posts: 291
Joined: 2004-11-07 01:22:35
Location: Черкассы
Contact:
Contact Goggy

Re: Дайти плизз скрипты на касты

Post by Goggy »

Luc&feR wrote:Дайти плизз скрипты на касты очень нужно
1 Каст парализа на лест таргет
2 Каст ФСа на лест таргет
3 Каст порт оф графа на лест таргет
4 Чтоб при парализе автоматически кидал стрелку на себя
Тока чтоб кастовал со спелбуки а не со скролов

Зарание сенк
лови и наслаждайся юзанием :lol:
Top
Luc&feR
Posts: 14
Joined: 2005-01-29 07:33:17

Post by Luc&feR »

Блина хотяб в пример дай
дапустим на ФС на лест таргет
я искал все страницы просматрел нету
Top
Goggy
Posts: 291
Joined: 2004-11-07 01:22:35
Location: Черкассы
Contact:
Contact Goggy

Post by Goggy »

Luc&feR wrote:Блина хотяб в пример дай
дапустим на ФС на лест таргет
я искал все страницы просматрел нету

Code: Select all

sub castFlamestrike() 
    UO.waittargetlast() 
    if UO.Count('0x1F5F') then 
       UO.usetype(0x1F5F) 
    else 
       UO.cast('Flame Strike') 
    endif 
endsub
Каст со скрола на ласт таргет, в случае ненахождения иного каст со спел бука....
Самый элементарный пример!
Top
Leks
Posts: 58
Joined: 2004-11-06 12:56:58
Location: Украина, Днепропетровск.
Contact:
Contact Leks

Re: Дайти плизз скрипты на касты

Post by Leks »

Luc&feR wrote:Дайти плизз скрипты на касты очень нужно
1 Каст парализа на лест таргет
2 Каст ФСа на лест таргет
3 Каст порт оф графа на лест таргет
4 Чтоб при парализе автоматически кидал стрелку на себя
Тока чтоб кастовал со спелбуки а не со скролов

Зарание сенк

Code: Select all

 sub Parryng() 
while true 
wait(200) 
uo.Exec('warmode 0') 
wend 
end sub

sub GHeal() 
UO.FindType('0x0F0E','0x09BB',-1,'my') 
UO.WaitTargetSelf() 
UO.UseObject('finditem') 
if UO.InJournal("potion") or UO.InJournal("see the")Then 
UO.DeleteJournal() 
UO.Cast('Greater Heal','self') 
UO.Print("Заклинание!") 
Else 
Endif 
Endif 
End sub 

sub Cure() 
If UO.Poisoned() Then 
UO.FindType('0x0F0E','0x09A6',-1,'my') 
UO.UseObject('finditem') 
UO.Print("ЛЕЧИТ!") 
Endif 
end sub 

sub CureM() 
UO.Cast('Cure','self') 
UO.Print("ЛЕЧИТ!") 
Endif 
end sub 

sub ref() 
UO.FindType('0x0F0E','0x0997',-1,'my') 
UO.UseObject('finditem') 
UO.Print("СТАМИНА") 
Endif 
end sub 

sub UnParalaise() 
UO.FindType('0x0F0D','0x0B99',-1,'my') 
wait(500) 
UO.Cast('Magic Arrow','finditem') 
UO.Print("Антипаралайз!") 
endif 
end sub 

sub Mana() 
UO.FindType('0x0F0E','0x09DF',-1,'my') 
UO.WaitTargetSelf() 
UO.UseObject('finditem') 
UO.Print("Мана") 
Endif 
end sub 

sub Flame() 
UO.Set('lasttarget','laststatus') 
UO.FindType('0x1F5F',-1,'my') 
If UO.GetQuantity('finditem')>0 then 
if UO.Mana>=22 then 
UO.WaitTargetObject('lasttarget') 
UO.UseObject('finditem') 
UO.Print("Scroll") 
else 
UO.Print("Low mana!!! Scroll!") 
endif 
else 
if UO.Mana>=45 then 
UO.Cast('Flame Strike','laststatus') 
UO.Print("Spell") 
else 
UO.Print("Low mana!!! Spell!") 
endif 
endif 
end sub 

sub Healing() 
   UO.SetArm('CWeapon') 
   wait(500) 
UO.Exec("bandageself") 
   wait(500) 
   UO.Arm('CWeapon') 
end sub 

sub Arrow() 
VAR ManaNeed=4 
UO.Set('lasttarget','laststatus') 
if UO.Mana>=ManaNeed then 
UO.Cast('Magic Arrow','laststatus') 
else 
UO.Print("Low mana!!!") 
endif 
end sub 

sub Poison() 
VAR ManaNeed=9 
VAR ScrollManaNeed=4 
UO.Set('lasttarget','laststatus') 
If NOT UO.Poisoned('lasttarget') Then 
UO.FindType('0x1F40',-1,'my') 
If UO.GetQuantity('finditem')>0 Then 
If UO.Mana>=ScrollManaNeed Then 
UO.WaitTargetObject('lasttarget') 
UO.UseObject('finditem') 
UO.Print("Scroll") 
Else 
UO.Print("Low mana!!! Scroll!") 
Endif 
Else 
If UO.Mana>=ManaNeed Then 
UO.Cast('Poison','laststatus') 
Else 
UO.Print("Low mana!!!") 
Endif 
Endif 
Else 
Uo.Print("Character already poisoned!") 
Endif 
end sub 

sub Paral() 
UO.Set('lasttarget','laststatus') 
UO.FindType('0x1F52',-1,'my') 
If UO.GetQuantity('finditem')>0 then 
if UO.Mana>=14 then 
UO.WaitTargetObject('lasttarget') 
         UO.UseObject('finditem') 
         UO.Print("Scroll") 
      else 
         UO.Print("Low mana!!! Scroll!") 
      endif 
   else 
      if UO.Mana>=28 then 
         UO.Cast('Paralyze','laststatus') 
         UO.Print("Spell") 
      else 
         UO.Print("Low mana!!! Spell!") 
      endif 
   endif 
end sub 

sub Reagents() 
   VAR StoreRegCont=0x401DF3E9 
   VAR CharRegBag='CharRegBag' 
   VAR CountReg=50 
   VAR WaitTime=600 
   VAR MainSafe=0x40057901 

uo.print('Выбери Мешок:') 
uo.exec('addobject CharRegBag') 
while uo.targeting() 
wait(100) 
wend 

   UO.UseObject(MainSafe) 
   UO.UseObject(StoreRegCont) 
    
   UO.SetReceivingContainer(CharRegBag) 
   wait(WaitTime) 

   if UO.BM<CountReg then 
      UO.FindType('0x0F7B','-1',StoreRegCont) ; BM 
      UO.Grab(STR((CountReg-UO.BM)),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.BP<CountReg then 
      UO.FindType('0x0F7A','-1',StoreRegCont) ; BP 
      UO.Grab(STR(CountReg-UO.BP),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.GA<CountReg then 
      UO.FindType('0x0F84','-1',StoreRegCont) ; GA 
      UO.Grab(STR(CountReg-UO.GA),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.GS<CountReg then 
      UO.FindType('0x0F85','-1',StoreRegCont) ; GS 
      UO.Grab(STR(CountReg-UO.GS),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.MR<CountReg then 
      UO.FindType('0x0F86','-1',StoreRegCont) ; MR 
      UO.Grab(STR(CountReg-UO.MR),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.NS<CountReg then 
      UO.FindType('0x0F88','-1',StoreRegCont) ; NS 
      UO.Grab(STR(CountReg-UO.NS),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.SA<CountReg then 
      UO.FindType('0x0F8C','-1',StoreRegCont) ; SA 
      UO.Grab(STR(CountReg-UO.SA),'finditem') 
      wait(WaitTime) 
   endif 

   if UO.SS<CountReg then 
      UO.FindType('0x0F8D','-1',StoreRegCont) ; SS 
      UO.Grab(STR(CountReg-UO.SS),'finditem') 
   endif 
end: 
   UO.UnsetReceivingContainer() 
end sub 

sub Save() 
UO.FindType('0x1F15',-1,'my') 
wait(200) 
UO.Print("!!Прыгаем!!") 
UO.Cast('Recall','finditem') 
UO.FindType('0x1F14',-1,'my') 
wait(200) 
UO.Print("!!Прыгаем!!") 
UO.Cast('Recall','finditem')
end sub 

sub Weak() 
VAR ManaNeed=4 
UO.Set('lasttarget','laststatus') 
if UO.Mana>=ManaNeed then 
UO.Cast('Reactive Armor','laststatus') 
else 
UO.Print("Low mana!!!") 
endif 
end sub 

sub MassD() 
VAR ManaNeed=10 
UO.Cast('Mass Dispel','self') 
else 
UO.Print("Low mana!!!") 
endif 
end sub 

sub Dispel() 
VAR ManaNeed=10 
UO.Cast('Dispel','self') 
else 
UO.Print("Low mana!!!") 
endif 
end sub 

sub Alarm() 
repeat 
if UO.InJournal("is attacking you") Then 
UO.DeleteJournal() 
uo.playwav("c:\uo\Warning.wav") 
#Save() 
endif 
Wait(1000) 
until false 
end sub 

sub Attack() 
var Enemy = 0x00000000 
repeat 
if UO.InJournal("is attacking you") Then 
Enemy = UO.JournalSerial(UO.InJournal("is attacking you")-1) 
UO.Cast('Magic Arrow',Enemy) 
Wait(1200) 
UO.Cast('Magic Arrow',Enemy) 
UO.DeleteJournal() 
Save() 
endif 
Wait(1000) 
until false 
end sub 

sub Hide() 
repeat 
while not UO.Hidden() 
wait(100) 
UO.Warmode("1") 
uo.print("hiding...") 
UO.UseSkill("Stealth") 
wait(4100) 
wend 
wait(100) 
until false 
end sub 

sub Reconnector() 
    var ReconnectTime, RFlag 
    ReconnectTime = '0' 
    RFlag = 1 
    Repeat 
          While (UO.ObjAtLayer('Bpack') == '') 
                if RFlag Then 
                   ReconnectTime = MakeTime() 
                   RFlag = 0 
                endif 
                Wait(20000) # WorldSave Protection 
                UO.Say('') 
                Wait(3000) 
                UO.Say('') 
                Wait(3000) 
                UO.Say('') 
                Wait(3000) 
                UO.LDblClick(357,164) 
                UO.LClick(616,459) 
                Wait(3000)        
          WEnd 
          Wait(3000) 
          if (RFlag == 0) and (ReconnectTime <> '0') Then 
             UO.Exec('terminate all') 
             UO.Exec('exec autoload') 
             UO.TextOpen() 
             UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime) 
             RFlag = 1 
             ReconnectTime = '0' 
          endif 
    Until false 
end sub 

sub MakeTime() 
   VAR D, T, Ret, i 
   Ret = STR(UO.Time()) 
   T = "" 
   For i = 0 To Len(Ret) 
      T = Ret[Len(Ret)-i] + T 
      If (I == 2) OR (I == 4) Then 
         T = ":" + T 
      EndIf 
   Next 
   Ret = STR(UO.Date()) 
   D = "" 
   For i = 0 To Len(Ret) 
      D = Ret[Len(Ret)-i] + D 
      If (I == 2) OR (I == 4) Then 
         D = "." + D 
      EndIf 
   Next    
   Ret = T + " @ " + D 
   RETURN Ret 
end sub 

sub Loot() 
   VAR WaitTime=500 
   VAR Exit=0, i 
   DIM Loot[142] 
    

Loot[0]=0x0EED ; gp 
Loot[1]=0x0F7B ; BM 
Loot[2]=0x0F7A ; BP 
Loot[3]=0x0F84 ; GA 
Loot[4]=0x0F85 ; GI 
Loot[5]=0x0F86 ; MR 
Loot[6]=0x0F88 ; NS 
Loot[7]=0x0F8C ; SA 
Loot[8]=0x0F8D ; SS 
Loot[9]=0x0F90 ; Dead Woods 
Loot[10]=0x0F7E ; Sceleton Bones 
Loot[11]=0x0F87 ; Eyes of newt 
Loot[12]=0x1078 ; Hides 
Loot[13]=0x1BFB ; Bolts 
Loot[14]=0x0E34 ; Blanc Scroll 
Loot[15]=0x0F25 ; Pieces of Amber 
Loot[16]=0x0F16 ; Ametist 
Loot[17]=0x0F20 ; Tourmaline 
Loot[18]=0x0F26 ; Diamond 
Loot[19]=0x0F30 ; Diamond 
Loot[20]=0x0F8E ; Serpent Scales 
Loot[21]=0x14EB ; Treassure Map 
Loot[22]=0x0F79 ; Blackmoor 
Loot[23]=0x0F3F ; Arrow 
Loot[24]=0x0F79 ; Blackmoor 
Loot[25]=0x0F91 ; Wirn hart 
Loot[26]=0x0F78 ; Bat 
Loot[27]=0x1F03 ; роба 
Loot[28]=0x1515 ; плащь 
Loot[29]=0x1B76 ; щит 
Loot[30]=0x1414 ; перчи 
Loot[31]=0x1410 ; руки 
Loot[32]=0x1415 ; досп 
Loot[33]=0x1411 ; ноги 
Loot[34]=0x1413 ; горло 
Loot[35]=0x1412 ; шлем 
Loot[36]=0x0F0E ; бутылки 
Loot[37]=0x0F0E ; бутылки 
Loot[38]=0x0F0E ; бутылки 
Loot[39]=0x0F0E ; бутылки 
Loot[40]=0x0F0E ; бутылки 
Loot[41]=0x1F5F ; скролы 
Loot[42]=0x1F5F ; скролы 
Loot[43]=0x1F5F ; скролы 
Loot[44]=0x1F5F ; скролы 
Loot[45]=0x0E76 ; Bag 
Loot[46]=0x0E76 ; Bag 
Loot[47]=0x09B0 ; Pounch 
Loot[48]=0x09B0 ; Pounch 
Loot[49]=0x1BDD ; Logs 
Loot[50]=0x1BDD ; Logs 
Loot[51]=0x1BDD ; Logs 
Loot[52]=0x1BDD ; Logs 
Loot[53]=0x1BDD ; Logs 
Loot[54]=0x1BDD ; Logs 
Loot[55]=0x1BDD ; Logs 
Loot[56]=0x1BDD ; Logs 
Loot[57]=0x1BDD ; Logs 
Loot[58]=0x1BDD ; Logs 
Loot[59]=0x1BDD ; Logs 
Loot[60]=0x1BDD ; Logs 
Loot[61]=0x1BDD ; Logs 
Loot[62]=0x1BDD ; Logs 
Loot[63]=0x1BEF ; инги 
Loot[64]=0x1BEF ; инги 
Loot[65]=0x1BEF ; инги 
Loot[66]=0x1BEF ; инги 
Loot[67]=0x1BEF ; инги 
Loot[68]=0x1BEF ; инги 
Loot[69]=0x1BEF ; инги 
Loot[70]=0x1BEF ; инги 
Loot[71]=0x19B9 ; руда 
Loot[72]=0x19B9 ; руда 
Loot[73]=0x19B9 ; руда 
Loot[74]=0x19B9 ; руда 
Loot[75]=0x19B9 ; руда 
Loot[76]=0x19B9 ; руда 
Loot[77]=0x19B9 ; руда 
Loot[78]=0x1F03 ; роба 
Loot[79]=0x1515 ; плащь 
Loot[80]=0x1B76 ; щит 
Loot[81]=0x1414 ; перчи 
Loot[82]=0x1410 ; руки 
Loot[83]=0x1415 ; досп 
Loot[84]=0x1411 ; ноги 
Loot[85]=0x1413 ; горло 
Loot[86]=0x1412 ; шлем 
Loot[87]=0x1F03 ; роба 
Loot[88]=0x1515 ; плащь 
Loot[89]=0x1B76 ; щит 
Loot[90]=0x1414 ; перчи 
Loot[91]=0x1410 ; руки 
Loot[92]=0x1415 ; досп 
Loot[93]=0x1411 ; ноги 
Loot[94]=0x1413 ; горло 
Loot[95]=0x1412 ; шлем 
Loot[96]=0x1F03 ; роба 
Loot[97]=0x1515 ; плащь 
Loot[98]=0x1B76 ; щит 
Loot[99]=0x1414 ; перчи 
Loot[100]=0x1410 ; руки 
Loot[101]=0x1415 ; досп 
Loot[102]=0x1411 ; ноги 
Loot[103]=0x1413 ; горло 
Loot[104]=0x1412 ; шлем 
Loot[105]=0x0E21 ; бинты 
Loot[106]=0x13B9 ; викинг 
Loot[107]=0x1406 ; мейса 
Loot[108]=0x13B1 ; лук 
Loot[109]=0x0F4F ; арбалет 
Loot[110]=0x13FC ; тяжелый арб 
Loot[111]=0x13FE ; катана 
Loot[112]=0x143E ; алеба 
Loot[113]=0x1F14 ; руна 
Loot[114]=0x0F4C ; двойной топор 
Loot[115]=0x1B7A ; шит дерево 
Loot[116]=0x1541 ; повязка 
Loot[117]=0x0E21 ; бинты 
Loot[118]=0x13B9 ; викинг 
Loot[119]=0x1406 ; мейса 
Loot[120]=0x13B1 ; лук 
Loot[121]=0x0F4F ; арбалет 
Loot[122]=0x13FC ; тяжелый арб 
Loot[123]=0x13FE ; катана 
Loot[124]=0x143E ; алеба 
Loot[125]=0x1F14 ; руна 
Loot[126]=0x0F4C ; двойной топор 
Loot[127]=0x1B7A ; шит дерево 
Loot[128]=0x1541 ; повязка 
Loot[129]=0x0E21 ; бинты 
Loot[130]=0x13B9 ; викинг 
Loot[131]=0x1406 ; мейса 
Loot[132]=0x13B1 ; лук 
Loot[133]=0x0F4F ; арбалет 
Loot[134]=0x13FC ; тяжелый арб 
Loot[135]=0x13FE ; катана 
Loot[136]=0x143E ; алеба 
Loot[137]=0x1F14 ; руна 
Loot[138]=0x0F4C ; двойной топор 
Loot[139]=0x1BD1 ; шит дерево 
Loot[140]=0x1541 ; повязка 
Loot[141]=0x0E20 ; бинты (кровавые) 
Loot[142]=0x0E20 ; бинты (кровавые) 
    
UO.UseObject('lastcorpse') 

   if UO.GetQuantity('lastcorpse') then 
      UO.SetArm('temp') 
      UO.WaitTargetObject('lastcorpse') 
      UO.UseType('0x0EC2') ;dagger 
      wait(500) 
      UO.Arm('temp') 
      wait(500) 
   endif 
    
UO.SetReceivingContainer('0x402AF108') ; loot store bag 

   For i=0 to 142 
      UO.FindType(Loot[i],-1,'ground') 
      if UO.GetQuantity('finditem') then 
         UO.Grab(STR(0),'finditem') 
         wait(WaitTime) 
      endif 

      if UO.GetQuantity('lastcorpse') then 
         UO.FindType(Loot[i],-1,'lastcorpse') 
         if UO.GetQuantity('finditem') then 
            if Loot[i]==0x1078 then 
               UO.WaitTargetObject('finditem') 
               UO.UseType('0x0F9F') 
            else 
               UO.Grab(STR(0),'finditem') 
            endif              
            wait(WaitTime) 
         endif 
      endif 
   next 

UO.UnSetReceivingContainer('0x402AF108') 
end sub 

sub terminate() 
UO.Print("ALL OFF") 
uo.exec("terminate all") 
end sub 


sub pal() 
UO.Set('lasttarget','laststatus') 
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget"))) 
uo.cast("Paralyze Field") 
end sub 


sub Repair() 
VAR i,Exit,Part 
VAR Molotok='0x13E3' 
DIM Layers[8] 
Layers[0]='Hat' 
Layers[1]='Neck' 
Layers[2]='Gloves' 
Layers[3]='Arms' 
Layers[4]='Torso' 
Layers[5]='Legs' 
Layers[6]='Lhand' 
    
For i=0 to 6 
Part=UO.ObjAtLayer(Layers[i]) 
If Part<>"" Then 
Exit=0 
While Exit==0 
CheckLag() ;Delete journal 
UO.WaitTargetObject(Part) 
UO.UseSkill('Arms Lore') 
Repeat 
wait(500) 
Until UO.InJournal('Defense') OR UO.InJournal('uncertain') 
wait(1000) 
If UO.InJournal('full repair') Then 
Exit=1 
Else 
UO.UnEquip(Layers[i]) 
wait(500) 
UO.WaitTargetObject(Part) 
UO.UseType(Molotok) 
wait(1000) 
UO.Equip(Layers[i],Part) 
EndIf 
Wend 
Endif 
Next 
UO.Print("!!Все починено!!") 
uo.playwav("c:\inject\SOUND\REMINDER.wav") 
end sub 

sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 

   repeat 
      wait(500) 
   until UO.InJournal('backpack') 
end sub 

sub reactiv() 
VAR ManaNeed=4 
UO.Set('lasttarget','laststatus') 
if UO.Mana>=ManaNeed then 
UO.Cast('Reactive Armor','laststatus') 
else 
UO.Print("Low mana!!!") 
endif 
end sub 

sub curem() 
   UO.Exec("waittargetself") 
   wait(100) 
   UO.Cast("Cure") 
end sub 

sub Bomb() 
UO.FindType('0x0F0D','0x0B99','backpack') 
;UO.FindType('0x0F0E','0x09DA','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.DeleteJournal() 
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
Wait(500) 
UO.FindType('0x0F0D','0x0B99','backpack') 
;UO.FindType('0x0F0E','0x09DA','backpack') 
If UO.GetQuantity('finditem')>0 Then 
UO.DeleteJournal() 
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem') 
Wait(500) 
uo.playwav("c:\inject\SOUND\REMINDER.wav") 
UO.Print("!ЖМИ!") 
end sub 

sub Bomb2() 
UO.FindType('0x0F0D','0x0B99','ground') 
UO.Cast('Magic Arrow','finditem') 
end sub 


sub SaveR() 
UO.Print("!!Прыгаем!!") 
uo.exec("recall 0x401668D9 1025") 
end sub 

sub fence() 
var x,y,i 
for x = -1 to 1 
for y = -1 to 1 
uo.findtype("подушка") 
if uo.findcount() and x <> 0 and y <> 0 then 
uo.drop("1",str(uo.getx()+x),str(uo.gety()+y),uo.getz(),"finditem") 
i = 0 
while uo.containerof("finditem") <> "0x00000000" and i < 10 
wait(100) 
i = i + 1 
wend 
endif 
next 
next 
end sub 

sub Sbroc() 
   VAR WaitTime=1000 
   VAR Bag='Bag' 
    VAR Exit=0, i 
   DIM Loot[157] 
    

Loot[0]=0x0EED ; gp 
Loot[1]=0x0F7B ; BM 
Loot[2]=0x0F7A ; BP 
Loot[3]=0x0F84 ; GA 
Loot[4]=0x0F85 ; GI 
Loot[5]=0x0F86 ; MR 
Loot[6]=0x0F88 ; NS 
Loot[7]=0x0F8C ; SA 
Loot[8]=0x0F8D ; SS 
Loot[9]=0x0F90 ; Dead Woods 
Loot[10]=0x0F7E ; Sceleton Bones 
Loot[11]=0x0F87 ; Eyes of newt 
Loot[12]=0x1078 ; Hides 
Loot[13]=0x1BFB ; Bolts 
Loot[14]=0x0E34 ; Blanc Scroll 
Loot[15]=0x0F25 ; Pieces of Amber 
Loot[16]=0x0F16 ; Ametist 
Loot[17]=0x0F20 ; Tourmaline 
Loot[18]=0x0F26 ; Diamond 
Loot[19]=0x0F30 ; Diamond 
Loot[20]=0x0F8E ; Serpent Scales 
Loot[21]=0x14EB ; Treassure Map 
Loot[22]=0x0F79 ; Blackmoor 
Loot[23]=0x0F3F ; Arrow 
Loot[24]=0x0F79 ; Blackmoor 
Loot[25]=0x0F91 ; Wirn hart 
Loot[26]=0x0F78 ; Bat 
Loot[27]=0x1F03 ; роба 
Loot[28]=0x1515 ; плащь 
Loot[29]=0x1B76 ; щит 
Loot[30]=0x1414 ; перчи 
Loot[31]=0x1410 ; руки 
Loot[32]=0x1415 ; досп 
Loot[33]=0x1411 ; ноги 
Loot[34]=0x1413 ; горло 
Loot[35]=0x1412 ; шлем 
Loot[36]=0x0F0E ; бутылки 
Loot[37]=0x0F0E ; бутылки 
Loot[38]=0x0F0E ; бутылки 
Loot[39]=0x0F0E ; бутылки 
Loot[40]=0x0F0E ; бутылки 
Loot[41]=0x1F5F ; скролы 
Loot[42]=0x1F5F ; скролы 
Loot[43]=0x1F5F ; скролы 
Loot[44]=0x1F5F ; скролы 
Loot[45]=0x0E76 ; Bag 
Loot[46]=0x0E76 ; Bag 
Loot[47]=0x09B0 ; Pounch 
Loot[48]=0x09B0 ; Pounch 
Loot[49]=0x1BDD ; Logs 
Loot[50]=0x1BDD ; Logs 
Loot[51]=0x1BDD ; Logs 
Loot[52]=0x1BDD ; Logs 
Loot[53]=0x1BDD ; Logs 
Loot[54]=0x1BDD ; Logs 
Loot[55]=0x1BDD ; Logs 
Loot[56]=0x1BDD ; Logs 
Loot[57]=0x1BDD ; Logs 
Loot[58]=0x1BDD ; Logs 
Loot[59]=0x1BDD ; Logs 
Loot[60]=0x1BDD ; Logs 
Loot[61]=0x1BDD ; Logs 
Loot[62]=0x1BDD ; Logs 
Loot[63]=0x1BEF ; инги 
Loot[64]=0x1BEF ; инги 
Loot[65]=0x1BEF ; инги 
Loot[66]=0x1BEF ; инги 
Loot[67]=0x1BEF ; инги 
Loot[68]=0x1BEF ; инги 
Loot[69]=0x1BEF ; инги 
Loot[70]=0x1BEF ; инги 
Loot[71]=0x19B9 ; руда 
Loot[72]=0x19B9 ; руда 
Loot[73]=0x19B9 ; руда 
Loot[74]=0x19B9 ; руда 
Loot[75]=0x19B9 ; руда 
Loot[76]=0x19B9 ; руда 
Loot[77]=0x19B9 ; руда 
Loot[78]=0x1F03 ; роба 
Loot[79]=0x1515 ; плащь 
Loot[80]=0x1B76 ; щит 
Loot[81]=0x1414 ; перчи 
Loot[82]=0x1410 ; руки 
Loot[83]=0x1415 ; досп 
Loot[84]=0x1411 ; ноги 
Loot[85]=0x1413 ; горло 
Loot[86]=0x1412 ; шлем 
Loot[87]=0x1F03 ; роба 
Loot[88]=0x1515 ; плащь 
Loot[89]=0x1B76 ; щит 
Loot[90]=0x1414 ; перчи 
Loot[91]=0x1410 ; руки 
Loot[92]=0x1415 ; досп 
Loot[93]=0x1411 ; ноги 
Loot[94]=0x1413 ; горло 
Loot[95]=0x1412 ; шлем 
Loot[96]=0x1F03 ; роба 
Loot[97]=0x1515 ; плащь 
Loot[98]=0x1B76 ; щит 
Loot[99]=0x1414 ; перчи 
Loot[100]=0x1410 ; руки 
Loot[101]=0x1415 ; досп 
Loot[102]=0x1411 ; ноги 
Loot[103]=0x1413 ; горло 
Loot[104]=0x1412 ; шлем 
Loot[105]=0x0E21 ; бинты 
Loot[106]=0x13B9 ; викинг 
Loot[107]=0x1406 ; мейса 
Loot[108]=0x13B1 ; лук 
Loot[109]=0x0F4F ; арбалет 
Loot[110]=0x13FC ; тяжелый арб 
Loot[111]=0x13FE ; катана 
Loot[112]=0x143E ; алеба 
Loot[113]=0x1F14 ; руна 
Loot[114]=0x0F4C ; двойной топор 
Loot[115]=0x1B7A ; шит дерево 
Loot[116]=0x1541 ; повязка 
Loot[117]=0x0E21 ; бинты 
Loot[118]=0x13B9 ; викинг 
Loot[119]=0x1406 ; мейса 
Loot[120]=0x13B1 ; лук 
Loot[121]=0x0F4F ; арбалет 
Loot[122]=0x13FC ; тяжелый арб 
Loot[123]=0x13FE ; катана 
Loot[124]=0x143E ; алеба 
Loot[125]=0x1F14 ; руна 
Loot[126]=0x0F4C ; двойной топор 
Loot[127]=0x1B7A ; шит дерево 
Loot[128]=0x1541 ; повязка 
Loot[129]=0x0E21 ; бинты 
Loot[130]=0x13B9 ; викинг 
Loot[131]=0x1406 ; мейса 
Loot[132]=0x13B1 ; лук 
Loot[133]=0x0F4F ; арбалет 
Loot[134]=0x13FC ; тяжелый арб 
Loot[135]=0x13FE ; катана 
Loot[136]=0x143E ; алеба 
Loot[137]=0x1F14 ; руна 
Loot[138]=0x0F4C ; двойной топор 
Loot[139]=0x1B7A ; шит дерево 
Loot[140]=0x1541 ; повязка 
Loot[141]=0x0E20 ; бинты (кровавые) 
Loot[142]=0x0E20 ; бинты (кровавые) 
Loot[143]=0x0F0E ; бутылки 
Loot[144]=0x0F0D ; бутылки 
Loot[145]=0x0F0D ; бутылки 
Loot[146]=0x0F0D ; бутылки 
Loot[147]=0x0F0D ; бутылки 
Loot[148]=0x0F0D ; бутылки 
Loot[149]=0x0F0D ; бутылки 
Loot[150]=0x0F0D ; бутылки 
Loot[151]=0x0F0D ; бутылки 
Loot[152]=0x0F0D ; бутылки 
Loot[153]=0x0F0D ; бутылки 
Loot[154]=0x0F0D ; бутылки 
Loot[155]=0x0F0D ; бутылки 
Loot[156]=0x0F0D ; бутылки 
Loot[157]=0x0F0D ; бутылки 


uo.print('Выбери Сундук для СБРОСА:') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
uo.exec("setdressspeed 800") 
uo.undress() 
uo.exec("setdressspeed 800") 
uo.disarm() 
wait(1000) 
UO.UseObject('Bag') 
UO.SetReceivingContainer('Bag') 
For i=0 to 157 
UO.FindType(Loot[i],-1,'backpack') 
if UO.GetQuantity('finditem') then 
UO.Grab(STR(0),'finditem') 
wait(WaitTime) 
endif 

if UO.GetQuantity('backpack') then 
UO.FindType(Loot[i],-1,'backpack') 
if UO.GetQuantity('finditem') then 
if Loot[i]==0x1078 then 
UO.WaitTargetObject('finditem') 
UO.UseType('0x0F9E') 
else 
UO.Grab(STR(0),'finditem') 
endif              
wait(WaitTime) 
endif 
endif 
next 

UO.UnSetReceivingContainer() 
end sub 


sub SBOR() 
   VAR WaitTime=1000 
   VAR Bag='Bag' 
    VAR Exit=0, i, p 
    
DIM Loot[40] 
    
Loot[0]=0x0EED ; gp 
Loot[1]=0x0F7B ; BM 
Loot[2]=0x0F7A ; BP 
Loot[3]=0x0F84 ; GA 
Loot[4]=0x0F85 ; GI 
Loot[5]=0x0F86 ; MR 
Loot[6]=0x0F88 ; NS 
Loot[7]=0x0F8C ; SA 
Loot[8]=0x0F8D ; SS 
Loot[9]=0x1BFB ; Bolts 
Loot[10]=0x0F3F ; Arrow 
Loot[11]=0x1F03 ; роба 
Loot[12]=0x1515 ; плащь 
Loot[13]=0x1B76 ; щит 
Loot[14]=0x1414 ; перчи 
Loot[15]=0x1410 ; руки 
Loot[16]=0x1415 ; досп 
Loot[17]=0x1411 ; ноги 
Loot[18]=0x1413 ; горло 
Loot[19]=0x1412 ; шлем 
Loot[20]=0x0F0E ; бутылки 
Loot[21]=0x0F0E ; бутылки 
Loot[22]=0x0F0E ; бутылки 
Loot[23]=0x0F0D ; бутылки 
Loot[24]=0x0F0D ; бутылки 
Loot[25]=0x1F5F ; скролы 
Loot[26]=0x1F5F ; скролы 
Loot[27]=0x1F5F ; скролы 
Loot[28]=0x1F5F ; скролы 
Loot[29]=0x0E76 ; Bag 
Loot[30]=0x0E76 ; Bag 
Loot[31]=0x09B0 ; Pounch 
Loot[32]=0x09B0 ; Pounch 
Loot[33]=0x0E21 ; бинты 
Loot[34]=0x13B9 ; викинг 
Loot[35]=0x1F14 ; руна 
Loot[36]=0x0F0D ; бутылки 
Loot[37]=0x0F0D ; бутылки 
Loot[38]=0x0F0D ; бутылки 
Loot[39]=0x0F0D ; бутылки 
Loot[40]=0x0F0D ; бутылки 

DIM Armor[17] 

Armor[0]=0x1F03 ; роба 
Armor[2]=0x1515 ; плащь 
Armor[3]=0x1B76 ; щит 
Armor[4]=0x1414 ; перчи 
Armor[5]=0x1410 ; руки 
Armor[6]=0x1415 ; досп 
Armor[7]=0x1411 ; ноги 
Armor[8]=0x1413 ; горло 
Armor[9]=0x1412 ; шлем 
Armor[10]=0x13B9 ; викинг 
Armor[11]=0x1406 ; мейса 
Armor[12]=0x13B1 ; лук 
Armor[13]=0x0F4F ; арбалет 
Armor[14]=0x13FC ; тяжелый арб 
Armor[15]=0x13FE ; катана 
Armor[16]=0x143E ; алеба 
Armor[17]=0x1541 ; повязка 


uo.print('Выбери Сундук для СБОРА:') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 
UO.UseObject('Bag') 
UO.SetReceivingContainer('backpack') 
For i=0 to 40 
UO.FindType(Loot[i],-1,'Bag') 
if UO.GetQuantity('finditem') then 
UO.Grab(STR(0),'finditem') 
wait(WaitTime) 
endif 
if UO.GetQuantity('Bag') then 
UO.FindType(Loot[i],-1,'Bag') 
if UO.GetQuantity('finditem') then 
if Loot[i]==0x1078 then 
UO.WaitTargetObject('finditem') 
UO.UseType('0x0F9E') 
else 
UO.Grab(STR(0),'finditem') 
endif              
wait(WaitTime) 
endif 
endif 
next 
UO.UnSetReceivingContainer() 

;UO.UseType('0x1F03') 
;wait(WaitTime) 
;UO.UseType('0x1515') 
;wait(WaitTime) 
UO.UseType('0x1B76') 
wait(WaitTime) 
UO.UseType('0x1414') 
wait(WaitTime) 
UO.UseType('0x1410') 
wait(WaitTime) 
UO.UseType('0x1415') 
wait(WaitTime) 
UO.UseType('0x1411') 
wait(WaitTime) 
UO.UseType('0x1413') 
wait(WaitTime) 
UO.UseType('0x1412') 
wait(WaitTime) 
UO.UseType('0x13B9') 
wait(WaitTime) 
UO.WaitTargetObject() 

endif 
end sub 

sub S() 
uo.addobject("undressbag") 
while uo.targeting() 
wait(100) 
wend 
uo.exec("setdressspeed 400") 
uo.undress() 
end sub
Тут Ты должен найти ФСЕ что нана :)))
Just Be! Все ФИГНЯ, кроме пчёл!!! А пчёлы ваще фигня!
Top
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:
Contact BETEPAH

Post by BETEPAH »

Что подозрительно знакомый автолодик ))))))
Все просто.
BETEPAH ™
Top
Post Reply

Return to “Scripting Ore”