Yoko

sub Dress_alfa_wizard_up()
uo.fontcolor ('0863')
uo.msg("† Погнали! †")
VAR t = uo.timer()
var stolb_arm
var stolb_eq
var stolb_gun
var stolb_order=0
var stolb_haos=0
var guild=0
var eqip_arm
Dim Select[3]
  Select[1]= '21'  ; Кровь 3
   Select[2] = '24'  ; Химия 4
   Select[3] = '3'   ; Реги
Dim Item[3]
   Item[1] = '0x0E21'
   Item[2] = '0x09B0'
   Item[3] = '0x0E76'
If UO.Dead() Then
   UO.Print("You are Dead")
   Return
End If
If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
   UO.Set('norbcalc','1')
   UO.SetGlobal('NorbcalcCheck','0')
End If
      If UO.CountGround('0x0ED4','0x08BB') or UO.CountGround('0x0ED4','0x079B') Then
         UO.Set('finddistance','3')
         uo.findtype ("0x0ED4","0x08BB","ground")
         stolb_arm = UO.GetSerial('finditem')
         uo.findtype ('0x0ED4','0x079B','1')
         stolb_eq = UO.GetSerial("finditem")
         uo.findtype ('0x0ED4','0x04B0','1')
         stolb_gun = UO.GetSerial("finditem")
         uo.findtype ('0x1512',-1,'1')
         stolb_order = UO.GetSerial("finditem")
         uo.findtype ('0x151C',-1,'1')
         stolb_haos = UO.GetSerial("finditem")
         if (uo.GetNotoriety() == 1) then
            guild =stolb_order
         else
            if  (uo.GetNotoriety() == 6) then
               guild =stolb_haos
            end if
         end if
         If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
            UO.UseObject('backpack')
            Wait(5)
         End If
         
         If guild then
            uo.recall(guild,'0')
           repeat
              wait(20)
           until (uo.lastgump('text',0) == 'armor')
           var string_point = uo.lastgump('text',3)
           var gp = mid(string_point,9,len(string_point)-12)

           if val(gp) < 50 then
            eqip_arm = '15'
         else
             eqip_arm = '1'
           stolb_arm = guild
         end if
           if val(gp) >= 250 then
             eqip_arm = '2'
           end if
           if val(gp) >= 1000 then
             eqip_arm = '3'
           end if
           else
             eqip_arm = '7'
         end if
         uo.deletejournal()
         If NOT UO.ObjAtLayer('Torso') Then
            UO.Recall(stolb_arm,eqip_arm) #;15-композNS 26-dreadNS 7comF
            #UO.Recall(stolb_arm,'7')
               REPEAT
                  Wait(5)
               Until UO.ObjAtLayer('Torso')
               End If         
               UO.Recall('0x4001361C','11')
               REPEAT
                  Wait(5)
               Until UO.injournal ("You don't fear poison anymore!")
         EndIf
         If NOT UO.ObjAtLayer('Horse') Then
            UO.Recall(stolb_eq,'8') ; Лама (Цветная) 0x000A;8 - нецветная
               REPEAT
                  Wait(5)
               Until UO.ObjAtLayer('Horse')
         End If           

         For var n = 1 TO 3
            If UO.Count(Item[n])==0 Then
               UO.Recall(stolb_eq,Select[n])
               UO.DeleteJournal()
                  REPEAT
                     Wait(5)
                  Until UO.InJournal("You put")
               IF n == 4 THEN
                  UO.Recall(stolb_eq,'9')
               REPEAT
                     Wait(5)
               Until UO.InJournal("You put")
               end if
            End If
         Next
         UO.Print('Done!')
      Else
         UO.Print("I don't see equipment stone!")
      End If
      Uo.exec("usetype 0x1718;usetype 0x1F06;usetype 0x1F08")
End If
t = (uo.timer() - t) / 10
uo.msg("† Усё †  "+ str(t)+ " сек")
wait(100)
uo.fontcolor('0x0344')
uo.msg('† В БОЙ! †')
end sub