Лут с трупа (лутит 72 айтема.)
Code
sub Loot()
var i,n
Dim A[76]
A[0] = 0x204e ; Shroud of the monk
A[1] = 0x13B9 ; VikingSword
A[2] = 0x20D6 ; Dragon
A[3] = 0x1086 ; Bracelet
A[4] = 0x0F0E ; Invisibility
A[5] = 0x0F0E ; Total Mana
A[6] = 0x0F0E ; Total Mana
A[7] = 0x0F0E ; Total Refresh
A[8] = 0x0F0E ; Greater Heal
A[9] = 0x143E ; Halberd
A[10] = 0x0F03 ; Antifreez
A[11] = 0x0F03 ; Antifreez
A[12] = 0x0F03 ; Antifreez
A[13] = 0x0F03 ; Antifreez
A[14] = 0x0F0E ; Total Mana
A[15] = 0x0F0E ; Total Mana
A[16] = 0x0F0E ; Total Mana
A[17] = 0x1B77 ; Heater Shield perev
A[18] = 0x1B76 ; Heater Shield
A[19] = 0x1411 ; PlatemailLegs
A[20] = 0x1415 ; Platemail
A[21] = 0x1410 ; PlatemailArms
A[22] = 0x1414 ; PlatemailGauntlets
A[23] = 0x1412 ; PlatemailHelm
A[24] = 0x1413 ; PlatemailGorget
A[25] = 0x1416 ; Platemail perev
A[26] = 0x141A ; PlatemailLegs perev
A[27] = 0x1418 ; PlatemailGauntlets perev
A[28] = 0x1419 ; PlatemailHelm perev
A[29] = 0x1F52 ; Paralyze scroll
A[30] = 0x1F52 ; Paralyze scroll
A[31] = 0x0F60 ; LongSword
A[32] = 0x0f86 ; MandrakeRoot
A[33] = 0x0f88 ; Nightshade
A[34] = 0x0E76 ; Bag
A[35] = 0x09B0 ; BeltPouch
A[36] = 0x0E75 ; Backpack
A[37] = 0x0E21 ; bandage
A[38] = 0x1F5F ; FS
A[39] = 0x1F5F ; FS
A[40] = 0x0F3F ; Arrows
A[41] = 0x0EED ; Gold
A[42] = 0x1F5F ; FS
A[43] = 0x143E ; Halbert
A[44] = 0x0F4B ; Double axe
A[45] = 0x0F45 ; Executioner's axe
A[46] = 0x1406 ; War mace
A[47] = 0x13FE ; Katana
A[48] = 0x0F4D ; Bardiche
A[49] = 0x0F49 ; Axe
A[50] = 0x1404 ; War fork
A[51] = 0x1F52 ; Paralyze scroll
A[52] = 0x0F62 ; Spear
A[53] = 0x1402 ; Short spear
A[54] = 0x1400 ; Kryss
A[55] = 0x1440 ; Cutlass
A[56] = 0x13FA ; Large battle axe
A[57] = 0x13B5 ; Scimitar
A[58] = 0x0F5E ; Broadsword
A[59] = 0x1F52 ; Paralyze scroll
A[60] = 0x13B1 ; Bow
A[61] = 0x13FC ; Heavy crossbow
A[62] = 0x0F4F ; Crossbow
A[63] = 0x1442 ; Two Handed axe
A[64] = 0x0E87 ; Pitchfork
A[65] = 0x1438 ; War Hammer
A[66] = 0x0F7D ; blood of nightmare
A[67] = 0x0F78 ; Batwing
A[68] = 0x0F8D ; Spider Silk
A[69] = 0x13BF ; Chainmail Tunic
A[70] = 0x13C4 ; Chainmail Tunic
A[71] = 0x13BE ; Chainmail Legs
A[72] = 0x13EF ; Ringmail Sleeves
A[73] = 0x13EE ; Ringmail Sleeves
A[74] = 0x13F2 ; Ringmail Gloves
A[75] = 0x13EB ; Ringmail Gloves
i = 600
FOR n=0 TO 75
uo.findtype(A[n],"-1","lastcontainer")
if uo.getquantity('finditem') then
UO.Grab('lastcontainer','finditem')
uo.print("Found "+str(uo.findcount()))
Wait(i)
END if
next
uo.print('Done')
end sub
Добавлено (14.02.2009, 12:12)
---------------------------------------------
Лут с земли (78 итемов.)
Code
sub loot2()
var exit=0, i
dim loot[78]
Loot[0]=0x204e ; Shroud of the monk
Loot[1]=0x20D6 ; Dragon
Loot[2]=0x1086 ; Braslet
Loot[3]=0x1415 ; Plate
Loot[4]=0x1416 ; Plate
Loot[5]=0x1411 ; Legs
Loot[6]=0x141A ; Legs
Loot[7]=0x1B76 ; Heater shield
Loot[8]=0x1B77 ; Heater shield
Loot[9]=0x1410 ; Arms
Loot[10]=0x1419 ; Helm
Loot[11]=0x1412 ; Helm
Loot[12]=0x1413 ; Gorget
Loot[13]=0x1418 ; Gauntlets
Loot[14]=0x1414 ; Gauntlets
Loot[15]=0x13B9 ; Viking sword
Loot[16]=0x143E ; Halbert
Loot[17]=0x0F0E ; Bottles
Loot[18]=0x0F0E ; Bottles
Loot[19]=0x0F03 ; Antifreez
Loot[20]=0x0F03 ; Antifreez
Loot[21]=0x0F0E ; Bottles
Loot[22]=0x0F0E ; Bottles
Loot[23]=0x0F0E ; Bottles
Loot[24]=0x0F03 ; Antifreez
Loot[25]=0x0F03 ; Antifreez
Loot[26]=0x1F52 ; Paralyze scrolls
Loot[27]=0x0F0E ; Bottles
Loot[28]=0x0F0E ; Bottles
Loot[29]=0x0F0E ; Bottles
Loot[30]=0x0F0E ; Bottles
Loot[31]=0x0F0E ; Bottles
Loot[32]=0x0F0E ; Bottles
Loot[33]=0x0F0E ; Bottles
Loot[34]=0x1F52 ; Paralyze scrolls
Loot[35]=0x1F52 ; Paralyze scrolls
Loot[36]=0x0F4B ; Double axe
Loot[37]=0x0F45 ; Executioner's axe
Loot[38]=0x1406 ; War mace
Loot[39]=0x13FE ; Katana
Loot[40]=0x0F4D ; Bardiche
Loot[41]=0x0F49 ; Axe
Loot[42]=0x1404 ; War fork
Loot[43]=0x0F62 ; Spear
Loot[44]=0x1402 ; Short spear
Loot[45]=0x1400 ; Kryss
Loot[46]=0x1440 ; Cutlass
Loot[47]=0x13FA ; Large battle axe
Loot[48]=0x13B5 ; Scimitar
Loot[49]=0x0F5E ; Broadsword
Loot[50]=0x1B7A ; Wooden shield
Loot[51]=0x1F5F ; FS
Loot[52]=0x1442 ; Two handed axe
Loot[53]=0x1F5F ; FS
Loot[54]=0x13B1 ; Bow
Loot[55]=0x13FC ; Heavy crossbow
Loot[56]=0x0F4F ; Crossbow
Loot[57]=0x0E76 ; Bag
Loot[58]=0x0EED ; gold pieces
Loot[59]=0x09B0 ; Pounch
Loot[60]=0x09B0 ; Pounch
Loot[61]=0x0F7D ; blood of nightmare
Loot[62]=0x0E21 ; Bandages
Loot[63]=0x1F5F ; FS
Loot[64]=0x0F03 ; Antifreez
Loot[65]=0x0E87 ; Pitchfork
Loot[66]=0x1438 ; War Hammer
Loot[67]=0x0F3F ; Arrows
Loot[68]=0x1F5F ; FS
Loot[69]=0x0F8D ; Spider Silk
Loot[70]=0x0F60 ; Long Sword
Loot[71]=0x13BF ; Chainmail Tunic
Loot[72]=0x13C4 ; Chainmail Tunic
Loot[73]=0x13BE ; Chainmail Legs
Loot[74]=0x13EF ; Ringmail Sleeves
Loot[75]=0x13EE ; Ringmail Sleeves
Loot[76]=0x13F2 ; Ringmail Gloves
Loot[77]=0x13EB ; Ringmail Gloves
for i=0 to 77
uo.findtype(Loot[i],-1,'ground')
if uo.getquantity('finditem') then
uo.grab(STR(0),'finditem')
uo.print('Loot')
wait(600)
endif
next
uo.print('Done')
end sub
Добавлено (14.02.2009, 12:20)
---------------------------------------------
Подсчёт ресов в бекпаке
Code
sub shit()
UO.Print(STR(UO.count('0x0F0E','0x09DF'))+" Total mana")
UO.Print(STR(UO.count('0x0F0E','0x0997'))+" Total refresh")
UO.Print(STR(UO.count('0x0F0E','0x09BB'))+" Greater heal")
UO.Print(STR(UO.count('0x0F0E','0x0631'))+" Invisible")
UO.Print(STR(UO.count('0x1F52','0x0000'))+" Paralyze scroll")
UO.Print(STR(UO.Count('0x1F5F','0x0000'))+" Flame Strike scroll")
UO.Print(STR(UO.count('0x0E21','0x0000'))+" Bandages")
end sub
Энерджи Фиелд по ласттаргету.
Code
sub EFl()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Energy Field")
end sub
Парализ филд по ласттаргету.
Code
sub PF()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Paralyze Field")
end sub
Фаер Филд по ласттаргету.
Code
sub FF()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Fire Field")
end sub
Вызывает Магическую Хорсу прям под попу, и садится на неё.)
Code
sub KalXen()
VAR i=0,exit=0
Dim animals[4]
animals[0] = '0x00E4'
animals[1] = '0x00CC'
animals[2] = '0x00E2'
animals[3] = '0x00C8'
UO.Cast('Summ. Creature','backpack')
UO.WaitMenu('What','Horse')
wait(4500)
uo.set( 'finddistance', '2' )
while not exit
UO.FindType(animals[i],-1,'ground')
if UO.FindCount() then
UO.UseObject('finditem')
exit=1
endif
i=i+1
if i>3 then
i=0
endif
wait(100)
wend
endsub
Добавлено (14.02.2009, 12:26)
---------------------------------------------
Пойзон Оружия. Показываем таргетом на девайс в руке.
Code
sub poison()
uo.print("Покажи Пуху")
UO.exec('addobject nyxa')
while uo.targeting()
wait(500)
wend
uo.exec("warmode 0")
wait(100)
UO.FindType('0x0F0E','0x0998','backpack')
if uo.findcount() then
uo.deletejournal()
uo.waittargetobject('nyxa','finditem')
uo.useskill('Poisoning')
repeat
wait(50)
endif
end sub
Добавлено (14.02.2009, 12:27)
---------------------------------------------
Поднятия с земли различных вещей, которые мешают или блокируют передвижение. Модернизированный.)
Добавлено (14.02.2009, 12:29)
---------------------------------------------
Частями... 1-я часть.
Code
sub GrabSeno()
#Puma & MupoTBop#
VAR gut=0, cnt=0,p,i,q
dim Seno[32]
Seno[0]=0x100D
Seno[1]=0x100C
Seno[2]=0x0F36
Seno[3]=0x1CE0
Seno[4]=0x0E7D
Seno[5]=0x0838
Seno[6]=0x1367
Seno[7]=0x1366
Seno[8]=0x1CE8
Seno[9]=0x1369
Seno[10]=0x136A
Seno[11]=0x136B
Seno[12]=0x136C
Seno[13]=0x136D
Seno[14]=0x03B6
Seno[15]=0x1365
Seno[16]=0x1359
Seno[17]=0x135A
Seno[18]=0x136C
Seno[19]=0x135C
Seno[20]=0x135D
Seno[21]=0x135E
Seno[22]=0x135F
Seno[23]=0x1363
Seno[24]=0x1361
Seno[25]=0x136B
Добавлено (14.02.2009, 12:30)
---------------------------------------------
[b]2я часть[/b]
Code
Seno[26]=0x134f
Seno[27]=0x1CDE
Seno[28]=0x1CE6
Seno[29]=0x1CEB
Seno[30]=0x1CE4
Seno[31]=0x09AA
uo.set('finddistance', '4' )
UO.SetReceivingContainer('backpack')
while cnt<32 and gut==0
UO.FindType(Seno[cnt],-1,'ground')
If UO.FindCount('finditem')>0 Then
UO.grab ('-1','finditem')
gut=1
end if
cnt=cnt+1
wend
If not UO.FindCount('finditem') then
UO.grab('-1','Stog')
end if
UO.UnSetReceivingContainer()
end sub
Добавлено (14.02.2009, 12:34)
---------------------------------------------
Расшринковать дракона и атаковать им -)
Code
sub drak()
uo.Findtype('0x20D6','backpack')
if uo.FindCount() then
uo.useobject('finditem')
wait(300)
UO.Exec("waittargetlast")
UO.Say("All Kill")
wait(700)
UO.Exec("waittargetlast")
UO.Say("All Kill")
wait(700)
UO.Exec("waittargetlast")
UO.Say("All Kill")
wait(100)
uo.deletejournal()
end if
end sub
Шринк Дракона и взятие его в бекпак. Нужно вбивать ID нового дракона каждый раз.)
Code
sub shrink()
var typeshrink = '0x0F0E'
var colorshrink = '0x0388'
var drakonshrink = '0x20D6'
var drakon= '0x000BD773'
uo.FindType(typeshrink,colorshrink,'backpack')
if uo.FindCount() then
uo.WaitTargetObject(drakon)
uo.UseObject('finditem')
wait(500)
end if
uo.FindType(drakonshrink,'-1','ground')
if uo.FindCount() then
uo.moveitem('finditem','all','backpack')
wait(200)
end if
end sub
Добавлено (14.02.2009, 12:35)
---------------------------------------------
Шринк затаймленого Юника/Найта и взятие его в бекпак.
Code
sub ShrinkHorse()
var typeshrink = '0x0F0E'
var colorshrink = '0x0388'
var horseshrink = '0x2121'
uo.Exec('addobject Horse')
while uo.Targeting()
wait(100)
wend
uo.FindType(typeshrink,colorshrink,'backpack')
if uo.FindCount() then
uo.WaitTargetObject('Horse')
uo.UseObject('finditem')
wait(500)
end if
uo.FindType(horseshrink,'-1','ground')
if uo.FindCount() then
uo.moveitem('finditem','all','backpack')
wait(750)
end if
end sub
