Yoko

шард pvp-alfa

скрипт на одевание вампа

sub Dress_alfa_vamp() 
While NOT UO.Dead() 
var n 
Dim Select[3] 
    Select[1]='21'  ; Кровь 3 
    Select[2]='24' ; Химия 4 
    Select[3]='13'  ; Реги 2 
Dim Item[3] 
    Item[1]='0x0E21' 
    Item[2]='0x09B0' 
    Item[3]='0x0E76' 
If UO.GetGlobal('DressMan')<>'yes' Then 
   UO.Set('norbcalc','1') 
   UO.SetGlobal('DressMan','yes') 
EndIf 
If UO.GetGlobal('DressManCheck')<>'on' Then 
   UO.SetGlobal('DressManCheck','on') 
      If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then 
         If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак 
            UO.UseObject('backpack') 
            Wait(1000) 
         EndIf 
         If NOT UO.ObjAtLayer('Torso') Then 
            UO.Recall('0x4001361C','26') ; Армор(дрид) ns 
               REPEAT 
                  Wait(300) 
               Until UO.ObjAtLayer('Torso') 
         EndIf 
         EndIf 
         Wait(300) 
         If NOT UO.ObjAtLayer('Horse') Then 
            UO.Recall('0x40013766','10') ; LAMA COLOR 
               REPEAT 
                  Wait(300) 
               Until UO.ObjAtLayer('Horse') 
         EndIf 
         Wait(300) 
         For n = 1 TO 3 
            If UO.Count(Item[n])==0 Then 
               UO.Recall('0x40013766',Select[n]) 
               UO.DeleteJournal() 
                  REPEAT 
                     Wait(300) 
                  Until UO.InJournal("You put") 
            EndIf 
         Next 
         UO.Print('Done!') 
      Else 
         UO.Print("I don't see equipment stone!") 
      EndIf 
   UO.SetGlobal('DressManCheck','off') 
Else 
   UO.Print("Wait") 
EndIf 
uo.usetype ('0x1515') 
uo.usetype ('0x1F08') 
uo.usetype ('0x204E') 
uo.usetype ('0x1F06') 
uo.msg ('.arm') 
end sub

Проблема в том , что не могу поменять армор/итемы которые берёт чар со столба

например вот в этой строчке

UO.Recall('0x4001361C','26')

1 значение это id столба , вызывающего гамп , а второе поидее некий номер копки которую я там наживамаю , вот по какому принцыпу выяснить этот номер я не понял
по 26 он выбирает верите ns , а вот откуда у этой кнопки номер 26 и как узнать номера других поскажите плизз
инфогамп

__infogump_______
serial   0x4000b44e
gumpid   0x00000516
X   0
Y   0
2164   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] esizepic 20 120 3600 310 37
    2] esizepic 125 178 3000 175 1
    3] esizepic 125 198 3000 175 1
    4] esizepic 125 218 3000 175 1
    5] esizepic 125 238 3000 175 1
    6] esizepic 125 258 3000 175 1
    7] esizepic 125 278 3000 175 1
    8] esizepic 125 298 3000 175 1
    9] esizepic 125 318 3000 175 1
   10] esizepic 125 338 3000 175 1
   11] esizepic 50 170 3000 80 19
   12] utton 140 182 2437 2438 1 0 
   13] ext 60 175 1024 
   14] utton 140 202 2437 2438 1 0 2
   15] ext 60 195 2002 
   16] utton 140 222 2437 2438 1 0 
   17] ext 60 215 1301 
   18] utton 140 242 2437 2438 1 0 
   19] ext 60 235 1184 
   20] utton 140 262 2437 2438 1 0 
   21] ext 60 255 2335 
   22] utton 140 282 2437 2438 1 0 
   23] ext 60 275 1937 
   24] utton 140 302 2437 2438 1 0 
   25] ext 60 295 1090 
   26] utton 140 322 2437 2438 1 0 
   27] ext 60 315 1750 
   28] ext 60 335 1102 
   29] ext 235 196 0 
   30] ext 235 216 0 1
   31] ext 235 236 0 1
   32] ext 235 256 0 1
   33] ext 235 276 0 1
   34] ext 235 296 0 1
   35] ext 235 316 0 1
   36] ext 235 336 0 1
   37] ext 90 450 54 1
   38] ext 140 155 1920 1
   39] ext 162 155 1920 1
   40] ext 200 155 1920 2
   41] ext 50 385 1920 2
   42] ext 50 400 1920 2
   43] ext 50 415 1920 2
   44] ext 80 385 1920 2
   45] ext 80 400 1920 2
   46] ext 80 415 1920 2
   47] utton 170 182 2437 2438 1 0 
   48] utton 170 202 2437 2438 1 0 2
   49] utton 170 222 2437 2438 1 0 1
   50] utton 170 242 2437 2438 1 0 1
   51] utton 170 262 2437 2438 1 0 1
   52] utton 170 282 2437 2438 1 0 1
   53] utton 170 302 2437 2438 1 0 1
   54] utton 170 322 2437 2438 1 0 1
   55] utton 170 342 2437 2438 1 0 2
   56] utton 200 182 2437 2438 1 0 1
   57] utton 200 202 2437 2438 1 0 2
   58] utton 200 222 2437 2438 1 0 1
   59] utton 200 242 2437 2438 1 0 1
   60] utton 200 262 2437 2438 1 0 2
   61] utton 200 282 2437 2438 1 0 2
   62] utton 200 302 2437 2438 1 0 2
   63] utton 200 322 2437 2438 1 0 2
   64] ext 240 135 0 2
Text: ____________
    0] Agapite
    1] Verite
    2] Valorite
    3] Crystal
    4] Frost
    5] Mytheril
    6] Meteorit
    7] Composite
    8] Leather
    9] 5 pts
   10] 15 pts
   11] 35 pts
   12] 65 pts
   13] 155 pts
   14] 215 pts
   15] 270 pts
   16] 270 pts
   17] You have 1115 pts
   18] F
   19] NS
   20] S
   21] F
   22] NS
   23] S
   24] - Full set
   25] - No shield
   26] - Shield only
   27] PvP Alfa

скрин

up

Нажать на итем, после чего написать infogump

В самом низу будет replay типа [001A]
Можно писать uo.recall('0x12345678','0x001A') или uo.recall('0x12345678','26')

Конвертировать с "hexadecimal" на "decimal" можно в виндовс калькуляторе

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net

спасибо , помогло !