ААА ЛЮДИ ПОМОГИТЕ СРОЧНО !!!

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
bonus
Posts: 9
Joined: 2004-07-08 13:09:10
Contact:

ААА ЛЮДИ ПОМОГИТЕ СРОЧНО !!!

Post by bonus »

Помогите..смотрите я взял кусочек со крипта лута
Loot[21]=0x0F20 ; Tourmaline
Loot[22]=0x0F26 ; Diamond
Loot[23]=0x0F30 ; Diamond
Loot[24]=0x0F8E ; Serpent Scales
Loot[25]=0x14EB ; Treassure Map
Loot[26]=0x0F79 ; Blackmoor
Loot[27]=0x0F3F ; Arrow
Я хочу допистаь новые камни чтобы лутил...тока я не знаю как узнать кодовое название или как это называеться(к примеру: 0x0F3F)как можно узнать??
или сразу допишите сами чтобы лутил Citrine Ruby Star sapphire в общем все камни которые не достают!вот я даю полный скрипт отредактируйте плз!


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


Loot[0]=0x19B9 ; ore
Loot[1]=0x0EED ; gp
Loot[2]=0x0F7B ; BM
Loot[3]=0x0F7A ; BP
Loot[4]=0x0F84 ; GA
Loot[5]=0x0F85 ; GI
Loot[6]=0x0F86 ; MR
Loot[7]=0x0F88 ; NS
Loot[8]=0x0F8C ; SA
Loot[9]=0x0F8D ; SS
Loot[10]=0x0F90 ; Dead Woods
Loot[11]=0x0F7E ; Sceleton Bones
Loot[12]=0x0F87 ; Eyes of newt
Loot[13]=0x0E76 ; Bag
Loot[14]=0x09B0 ; Pounch
Loot[15]=0x1BDD ; Logs
Loot[16]=0x1078 ; Hides
Loot[17]=0x1BFB ; Bolts
Loot[18]=0x0E34 ; Blanc Scroll
Loot[19]=0x0F25 ; Pieces of Amber
Loot[20]=0x0F16 ; Ametist
Loot[21]=0x0F20 ; Tourmaline
Loot[22]=0x0F26 ; Diamond
Loot[23]=0x0F30 ; Diamond
Loot[24]=0x0F8E ; Serpent Scales
Loot[25]=0x14EB ; Treassure Map
Loot[26]=0x0F79 ; Blackmoor
Loot[27]=0x0F3F ; Arrow
Loot[28]=0x0F79 ; Blackmoor
Loot[29]=0x0F79 ; Blackmoor

UO.UseObject('lastcorpse')

if UO.GetQuantity('lastcorpse') then
UO.SetArm('temp')
UO.WaitTargetObject('lastcorpse')
UO.UseType('0x0F51') ;dagger
wait(1000)
UO.Arm('temp')
wait(1500)
endif

; UO.SetReceivingContainer('0x400935D4') ; loot store bag

For i=0 to 27
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('0x0F9E')
else
UO.Grab(STR(0),'finditem')
endif
wait(WaitTime)
endif
endif
next

; UO.UnSetReceivingContainer()
end sub
ghg
BETEPAH
Expert!
Posts: 838
Joined: 2004-05-31 09:31:51
Contact:

Post by BETEPAH »

через ,info
В УО напиши (появится прицел,прицелом на предмет)

ID=0x401EA017 Type=0x19B9 TPOBOMD Name=
Quantity: 21 Colour: 0x04C2 Layer: 0 Has: 1
X=51 Y=76 Z=0 C=0x4008C744 F=0x00

Тебе надо вот это >> Type=0x19B9 <<

Это к примеру Руда
Все просто.
BETEPAH ™
bonus
Posts: 9
Joined: 2004-07-08 13:09:10
Contact:

Post by bonus »

Оо спасибо а ты не мог бы дописатьк этому скрипту все не достающие камни плиз))то я ошибокнаделаю!
ghg
BuKA
Posts: 31
Joined: 2004-07-10 17:57:58

Post by BuKA »

ну раз зашла тема по поводу лута, то вот мой вариант, ну хотелось бы избавиться от одно вещи: когда итем, который есть в списке, но нет в трупе, не находиться он пишет по этому поводу, можно от этого избавиться, а то такой флуд получаеться ((

sub Loot()
var i,n
Dim A[36]
A[1] = 0x0f7b ;BloodMoss
A[2] = 0x0f09 ;Invisibility
A[3] = 0x0f09 ;ManaRefresh
A[4] = 0x0f0b ;Refresh
A[5] = 0x13B9 ;VikingSword
A[6] = 0x0f0c ;Heal
A[7] = 0x143E ;Halberd
A[8] = 0x1ce1 ;haed
A[9] = 0x1f14 ;Runa
A[10] = 0x204e ;RobeOfDarkMage
A[11] = 0x0f51 ;Dagger
A[12] = 0x0f7a ;BlackPearl
A[13] = 0x1404 ;WarFork
A[14] = 0x0f84 ;Garlic
A[15] = 0x0f85 ;Ginseng
A[16] = 0x1B76 ;Heater
A[17] = 0x1411 ;PlatemailLegs
A[18] = 0x1415 ;Platemail
A[19] = 0x1410 ;PlatemailArms
A[20] = 0x1414 ;PlatemailGauntlets
A[21] = 0x1412 ;PlatemailHelm
A[22] = 0x1413 ;PlatemailHelm
A[23] = 0x1F40 ;Poison
A[24] = 0x1F4A ;Light
A[25] = 0x0f86 ;MandrakeRoot
A[26] = 0x0f88 ;Nightshade
A[27] = 0x0E76 ;Bag
A[28] = 0x09B0 ;BeltPouch
A[29] = 0x0E75 ;Backpack
A[30] = 0x0E21 ;bandage
A[31] = 0x1F5F ;FS
A[32] = 0x1F49 ;GH
A[33] = 0x1F4C ;Recall
A[34] = 0x0f8c ;SulphorousAsh
A[35] = 0x0f8d ;SpidersSilk
A[36] = 0x0EED ;Gold

i = 1200
FOR n=1 TO 36
uo.findtype(A[n],"-1","lastcorpse")
if uo.findcount() > 0 then
UO.grab(1, "finditem")
Wait(i)
END if
next
end sub
SVG
Posts: 73
Joined: 2004-04-15 14:50:06
Location: Moscow

Post by SVG »

Чтобы инжа не флудила надо галку с Verbose menu снять
Я где то рядом... 8)
Ugrum.
Posts: 69
Joined: 2004-04-05 11:59:21
Location: RunUO

Post by Ugrum. »

BuKA wrote: то вот мой вариант

:D
Pilligrim
Posts: 1
Joined: 2004-07-12 00:08:33

Post by Pilligrim »

А можно как то сделать чтобы не прописывать названия итемов ? Если мне например надо слутать цветной армор - можно просто написать Plaitmail Legs ?
заранее благодарен
bonus
Posts: 9
Joined: 2004-07-08 13:09:10
Contact:

Post by bonus »

Мен не нужно чтобы вообще армар лутил мне нужны все реги все камни ,золото,робы плаши,некрореги и камни может просто у вас на шарде нету таких камней !ин названия диамант,аместит,стар сапфир,руби,цитрине,
в общем все!плиз допишите токо без армара!
ghg
Post Reply