Для молодых бойцов.(Скрипты для ПВП Альфа)

[KrafteR]

Решил я поиграть на ПвП-альфе, а что бы нормально играть что надо?
Правильно нужны скрипты, вот я сел и написал парочку простеньких, а так как на форуме возникаюь переодически вопросы на боевые темы, то предлогаю писать в этот топик скрипты для боя. Приглашаю вас господа, опубликовывайте те(скрипты), которые не жалко. Желательно с пояснениями, дабы не возникало лишних вопросов.

Code: Select all

################################################################
;PvP-Alfa v 1.00.(c) DamneD
;Эти скрипты написаны для тех людей, кто не может или не хочет
;писать сам.
;
######################################HILING####################
sub Heal()       ;Хилинг
   If UO.STR==UO.Life Then
      UO.Print("Life is full")
   Else
      UO.SetArm("1")
      UO.BandageSelf()
      wait(1000)
      UO.Arm("1")
      UO.UnSetArm()
   Endif
end sub
################################################################
############################ODEJANIE############################
sub Sword()   ; Одевание щита и оружия
Var Svord='0x13B9' ;Тип оружия, используемый вами
Var Sheld='0x1B76' ;Тип щита, используемого вами
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub

sub Bow()      ; Одевание лука.
Var bow='0x13B1' ;Тип лука, используемого вами.
UO.Equipt('Lhand',bow)
Endsub
################################################################
#############################ALCHIMI############################
Sub Manka() ; Выпивание тотал манок.
Var Type='0x0F06'
Var Color='0x076A'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
Endsub

Sub GreaterHeal() ; Выпивание Грейт Хилок
Var Type='0x0F0C'
Var Color='0x0000'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
Endsub

Sub Invise() ; Выпивание инвизки
Var Type='0x0F09'
Var Color='0x0060'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
Endsub
################################################################
#############################SKILLS#############################
Sub Hiding() ; Прятоться
UO.WarMode(0)
UO.UseSkill('Hiding')
Endsub

Sub Meditation() ; Медетировать
UO.WarMode(0)
UO.UseSkill('Meditation')
Endsub
################################################################
############################SPELLS##############################
Sub Arrow() ; кидание стрелки по последнему статусу.
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then
   UO.Cast('Magic Arrow','laststatus')
Else
   UO.Print("No mana")
Endif
Endsub

Sub Paralyze() ; кидание парализа по последнему статусу
If UO.Mana>=12 AND UO.GA>0 And UO.MR>0 AND UO.SS>0 Then 
   UO.Cast('Paralyze','laststatus')
Else
   UO.Print("No mana")
Endif
Endsub

Sub Poison() ; кидание пойзона по последнему статусу
If UO.Mana>=9 AND UO.NS>0 Then
   UO.Cast('Poison','laststatus')
Else
   UO.Print("No mana")
Endif
Endsub

Sub ManaDrain() ; кидание манадрейн по последнему статусу
If UO.Mana>=11 AND UO.BP>0 AND UO.MR>0 AND UO.SS>0 Then 
   UO.Cast('Mana Drain','laststatus')
Else
   UO.Print("No mana")
Endif
Endsub

Sub FlameStrike() ; кидание флеймстрайка по последнему статусу
If UO.Mana>=40 AND UO.SS>0 AND UO.SA>0 Then 
   UO.Cast('Flame Strike','laststatus')
Else
   UO.Print("No mana")
Endif
Endsub

Sub Cure() ; кидание куре на себя
If UO.Mana>=6 AND UO.GA>0 Then 
   UO.Cast('Cure','self')
Else
   UO.Print("No mana")
Endif
Endsub

Sub GHeal() ; кидание Грейт Хила на себя
If UO.Mana>=11 Then 
   UO.Cast('Greater Heal','self')
Else
   UO.Print("No mana")
Endif
Endsub

Sub UnParalyze() ; Кидание стрелки в себя, для выхода из парализа
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then
   UO.Cast('Magic Arrow','self')
Else
   UO.Print("No mana")
Endif
Endsub

Sub Reflect() ; кидание зеркала на себя
If UO.Mana>=12 AND UO.GA>0 AND UO.MR>0 AND UO.SS>0  Then 
   UO.Cast('Magic Reflect','self')
Else
   UO.Print("No mana")
Endif
Endsub

[666Man666]

вот мои "наработки"

Code: Select all

;PvP-Alfa v 1.00.(c) 666Man666
########## Оружие #########
Пишем в ХотКеи 
(msg .arm) - это пример

.arm - берёт ориже и шит с пака...
.bow - берёт лук с пака...
.drink_total_mana - пьёт манку из пака...
.drink_great_heal - пьёт ГХ из пака...
.drink_tatal_refresh - пьёт стаминку....
.drink_invis - пьёт инвизки....
######### Одевалка ##########
Сразу скажу, настраивать сложно, и муторно... :(
Одевается у столбов каторые !НЕ У БАНКА!

sub Dress_alfa_man()
If UO.Dead() Then
   UO.Print("You are Dead")
   Return
End If
var n

Dim Select[4]
Select[0] = 3
Select[1] = '1'  ; Бинты
Select[2] = '12' ; Химия 2
Select[3] = '3'  ; Реги

Dim Item[4]
Item[0] = 3
Item[1] = '0x0E21'
Item[2] = '0x09B0'
Item[3] = '0x0E76'

If UO.GetGlobal('NorbcalcCheck')<>'yes' Then
   UO.Set('norbcalc','1')
   UO.SetGlobal('NorbcalcCheck','yes')
End If
If UO.GetGlobal('DressCheck')<>'on' Then
   UO.SetGlobal('DressCheck','on')
      If NOT UO.ObjAtLayer('Torso') or UO.Count('0x0EFA')==0 Then ;Проверка на пак
         UO.UseObject('backpack')
         Wait(1000)
      End If
      If UO.CountGround('0x0ED4','0x08BB') and UO.CountGround('0x0ED4','0x079B') Then
         If NOT UO.ObjAtLayer('Torso') Then
            UO.Recall('0x4001361C','7') ; Армор(Композит)
               REPEAT
                  Wait(300)
               Until UO.ObjAtLayer('Torso')
         End If
         If NOT UO.ObjAtLayer('Horse') Then
            UO.Recall('0x40013766','4') ; Зострич
               REPEAT
                  Wait(300)
               Until UO.ObjAtLayer('Horse')
         End If
         For n = 1 TO Select[0]
            If UO.Count(Item[n])==0 Then
               UO.Recall('0x40013766',Select[n])
               UO.DeleteJournal()
                  REPEAT
                     Wait(300)
                  Until UO.InJournal("You put")
            End If
         Next
         UO.Print('Done!')
      Else
         UO.Print("I don't see equipment stone!")
      End If
   UO.SetGlobal('DressCheck','off')
Else
   UO.Print("Wait")
End If
end sub
######### Хил ##########
Опять же только для Альфы...

sub Bandage_alfa()
While NOT UO.Dead()
   If UO.GetHp() < UO.GetMaxHp() Then
      UO.Exec('bandageself')
      Wait(250) ; Задержка (25мс)
   EndIf
UO.Msg('.arm')
end sub

Для вампа

В хоткеи забиндивается, тип крови, тип оружия, тип шита
usetype''; usetype''; usetype''

[Feuille D' Or]

Code: Select all

#Стенка на чара #
sub ff()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Wall of Stone")
wait (350)
uo.fontcolor('0x000')
uo.msg("           ")
uo.fontcolor('0x000')
uo.msg("            ")
uo.fontcolor('0x000')
uo.msg("            ")
end sub

# Парализфилд на чара.#
sub parl()
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Paralyze Field")
wait (350)
uo.fontcolor('0x000')
uo.msg("        ")
uo.fontcolor('0x000')
uo.msg("        ")
uo.fontcolor('0x000')
uo.msg("        ")
end sub

Решил поделиться с народ, для тех кто играет на альфе, сенки по ласт таргету со скрыванием каста.

Спасибо, ребята за этот форум много инетерсного.

[-=SweD=-]

Code: Select all

uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety

А если помучиться с этой строчкой то можно много интересного натворить,я когда тестил то много интересного нашёл

[KrafteR]

Хорошие скрипты, никто не отрицает, но хочу предупредить, что используете вы их на шарде PvP-alfa на свой страх и риск, советую подумать, прежде чем скопировать их себе, а стоят ли они бана.

[netol]

читеры

[Feuille D' Or]

Ммм, смотря в чьих руках, сейчас 90 процентов шарда пвп-альфа бегает на инжекте, остальные десять на ассисте, так что...

[tigerr1]

Code: Select all

uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety

А если помучиться с этой строчкой то можно много интересного натворить,я когда тестил то много интересного нашёл

Слухай чувак ета фишка реальна только для сферы......ты напиши ченить подобное для поляны плиз.............если не хош кидать ето на форум то кинь в асю № 212600856 очень прошу......попользовался на сфере очень понравилось =))))

[eXtatic]

cast Paralyze last sto zdes nada zdelac stob ja castaval FS? help PvP alfa shard

[Ururu]

вписать другой спел

[u0rypT]

Sub FlameStrike() ; кидание флеймстрайка по последнему статусу
If UO.Mana>=40 AND UO.SS>0 AND UO.SA>0 Then
UO.Cast('Flame Strike','laststatus')
Else
UO.Print("No mana")
Endif
Endsub

[korzh]

так как на альфе я больше не играю, выложу свои скрипты для нее:) Заранее извиняюсь за повторы скриптов (если будут). Скрипты предназначаются молодым бойцам альфы:) скрипты не сложные (для тех, кому просто впадлу самим написать:)

***ПОНТЫ:

-Пишет сколько на чаре поинтов:

Code: Select all

sub ptscnt()
VAR x=6550 ; начальное значение поинтов
repeat 
      if UO.InJournal("1 PvP") Then 
      x=x+1 
  UO.msg("у меня  "+str(x) +" поинтов")
     
   UO.DeleteJournal()  
else
wait(50)
   endif 
   wait(100) 
   
      if UO.InJournal("2 PvP") Then 
      x=x+2 
   UO.msg("у меня  "+str(x) +" поинтов")
   UO.DeleteJournal()   
else
wait(50)

   endif 
   wait(100) 
   
   if UO.InJournal("3 PvP") Then 
      x=x+3 
  UO.msg("у меня  "+str(x) +" поинтов")
   UO.DeleteJournal()   
else
wait(50)

   endif 
   wait(100) 
     
 if UO.InJournal("4 PvP") Then 
      x=x+4
  UO.msg("у меня  "+str(x) +" поинтов")
   UO.DeleteJournal()   
else
wait(50)

   endif 
   wait(100) 
    
  if UO.InJournal("5 PvP") Then 
      x=x+5 
           UO.msg("у меня  "+str(x) +" поинтов")
   UO.DeleteJournal()   
else
wait(50)

   endif 
   wait(100) 
until false 
end sub

-пишет инфу о хп и арморе (Admir)

Code: Select all

sub say_life()
var p 
var q
var k 
p=uo.life
k=uo.armor
   repeat
   if uo.life <> p then 
   q=p
   p=uo.life
      if p<q then      
   
      UO.msg("Жизнь "+str(p) +"  ранили - " +str(q-p))
      else    
      
      UO.msg("Жизнь "+str(p) +" (+"+str(p-q)+")")
      end if
   end if    
   IF UO.armor <> k then
   k=uo.armor
   
   UO.msg("Защита = "+str(k))
   end if 
   wait(30)
   until false
 #   until uo.dead()
end sub

[korzh]

КАСТЫ,бутылки


-парарализ филд и стенки

Code: Select all

###Парализ филд по ласттаргету

sub paralF() 
Uo.waittargettile("400",str(Uo.getx("laststarget")),str(Uo.gety("lasttarget")),str(Uo.getz("lasttarget"))) 
Uo.cast("Paralyze Field") 
end sub 

###стенка по ласттаргету

sub Stone() 
Uo.waittargettile("400",str(Uo.getx("laststarget")),str(Uo.gety("lasttarget")),str(Uo.getz("lasttarget"))) 
Uo.cast("Wall of Stone") 
end sub 

###стенка на себя

sub stone_self()
uo.waittargetobject('0x40037642') ; ID knigi
Uo.cast("Wall of Stone") 
end sub

-касты в себя (стрелка, протект....)

Code: Select all

sub reflect()
   UO.Exec("cast 'Magic Reflection'self")
end sub
   
Sub RArm()
   UO.Exec("cast 'Reactive Armor'self")
end sub

sub Arm()
   UO.Exec("cast 'Protection'self")
end sub

sub ArrowS()
   UO.Exec("cast 'Magic Arrow'self")
end sub

sub CureS()
   UO.Exec("cast 'Cure'self")
end sub

sub invS()
   UO.Exec("cast 'Invisibility'self")
end sub

sub healS()
   UO.Exec("cast 'Heal'self")
end sub

sub Feeblemind()
   UO.Exec("cast 'Feeblemind'self")
end sub

sub MassDispel()
   UO.Exec("cast 'Mass Dispel'self")
end sub

-боевые касты:

Code: Select all

sub lightL() 
UO.Cast('Lightning','laststatus') 
end sub 

sub fsL() 
UO.Cast('Flame Strike','laststatus') 
end sub 

sub arrowL() 
UO.Cast('Magic Arrow','laststatus') 
end sub 

sub freezL() 
UO.Cast('Paralyze','laststatus') 
end sub 

sub desL() 
UO.Cast('Weaken','laststatus') 
end sub 

sub poiL() 
UO.Cast('Poison','laststatus') 
end sub 

sub manaL() 
UO.Cast('Mana Drain','laststatus') 
end sub

sub DispelL() 
UO.Cast('Dispel','laststatus') 
end sub

-питье бутылок

Code: Select all

sub ghp()
uo.msg('.drink_heal_great')
end sub


sub tmp()
uo.msg('.drink_mana_total')
end sub


sub trp()
uo.msg('.drink_refresh_total ')
end sub


sub ip()
uo.msg('.drink_invis ')
end sub


sub cp()
uo.msg('.drink_cure')
end sub

[korzh]

теперь скрипты на морфов.

БЕРСЕРК

-одевалка (Admir)

Code: Select all

####CHAOS

sub Dress_alfa_bersPK()
While NOT UO.Dead()
var n
Dim Select[4]
    Select[1]='11'  ; Бинты 2
    Select[2]='24' ; Химия 4
    Select[3]='13'  ; Реги 2
    Select[4]='28'  ; ресторы 4
Dim Item[4]
    Item[1]='0x0E21'
    Item[2]='0x09B0'
    Item[3]='0x0E76'
    Item[4]='0x0F09 0x042C'
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','15') ; Армор(ДРИД) ns ХОЛИ 16
               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 4
            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 ('0x1545')
uo.usetype ('0x1537')
uo.usetype ('0x1F08')
uo.usetype ('0x1F06')
uo.msg ('.arm')
end sub 

#######ORDER

sub Dress_alfa_bers_ord()
While NOT UO.Dead()
var n
Dim Select[4]
    Select[1]='11'  ; Бинты 2
    Select[2]='24' ; Химия 4
    Select[3]='13'  ; Реги 2
    Select[4]='28'  ; ресторы 4
Dim Item[4]
    Item[1]='0x0E21'
    Item[2]='0x09B0'
    Item[3]='0x0E76'
    Item[4]='0x0F09 0x042C'
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','16') ; Армор(ДРИД) ns ХОЛИ 16
               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 4
            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 ('0x1545')
uo.usetype ('0x1537')
uo.usetype ('0x1F08')
uo.usetype ('0x1F06')
uo.msg ('.arm')
end sub 

-Хил

Code: Select all

######хил с топором и дальнейшей атакой

sub heal_topor()
uo.exec ("bandageself")
wait (50)
    uo.msg('.arm_sword')
uo.attack ('laststatus')
uo.attack ('laststatus')
    if uo.life < 175 Then
      wait (10)
      uo.usetype ('0x0F09 0x042C')
    end if
    if uo.life < 170 Then
      uo.msg ('.drink_heal_great')
    end if
end sub

#######хил с щитом

sub test2()
uo.exec ("bandageself")
wait (50)
uo.msg('.arm_shield')
UO.UseType('0x0E85') 
if uo.life < 180 Then
wait (10)
    uo.usetype ('0x0F09 0x042C')
end if
wait (10)
if uo.life < 100 Then
    uo.msg ('.drink_heal_great')
end if
end sub

[korzh]

ПАЛАДИН

-одевалка

Code: Select all

sub Dress_alfa_pal()
While NOT UO.Dead()
var n
Dim Select[3]
    Select[1]='11'  ; Кровь 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','16') ; Армор(холи) 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)
          UO.Recall('0x4001AA8A','4')
          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 

-хил

Code: Select all

sub healpal()
uo.waittargetself()
uo.usetype ('0x0E21')
    wait (50)
    uo.msg ('.arm_mace')
    uo.msg ('.arm_shield')
uo.attack ('laststatus')
uo.attack ('laststatus')
    if uo.life < 140 Then
      uo.msg ('.drink_heal_great')
    end if
end sub

sub healpal2()
uo.waittargetself()
uo.usetype ('0x0E21')
    wait (50)
    uo.msg ('.arm_sword')
    uo.msg ('.arm_shield')
    if uo.life < 140 Then
      uo.msg ('.drink_heal_great')
    end if
end sub

[korzh]

ВАМПИР

-одевалка

Code: Select all

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 

-хил

Code: Select all

sub Blood()
var n
Dim Blood[6]
Blood[1] = '0x122E'
Blood[2] = '0x122D'
Blood[3] = '0x122A'
Blood[4] = '0x122B'
Blood[5] = '0x122C'
Blood[6] = '0x1645'
While NOT UO.Dead()
If UO.GetGlobal('UseBloodCheck')<>'on' Then
UO.SetGlobal('UseBloodCheck','on')
For n = 1 TO 6
UO.FindType(Blood[n],'-1','1')
If UO.FindCount() Then
UO.UseObject('finditem')
EndIf
Next
UO.SetGlobal('UseBloodCheck','off')
Else
UO.Print("Wait")
EndIf
end sub 

АМАЗОНКА

-одевалка

Code: Select all

sub Dress_alfa_ama()
While NOT UO.Dead()
uo.usetype ('0x1F07')
uo.usetype ('0x1F06')
uo.usetype ('0x170D')
uo.usetype ('0x1C08')
uo.usetype ('0x1DB9')
uo.usetype ('0x13C5')
uo.usetype ('0x13CC')
uo.usetype ('0x13C6')
uo.usetype ('0x13CB')
uo.usetype ('0x1F08')
var n
Dim Select[5]
    Select[1]='11'  ; Бинты
    Select[2]='24' ; Химия 4
    Select[3]='3'  ; Реги 
    Select[4]='32'  ; момс
    Select[5]='14'  ; стрелы
Dim Item[5]
    Item[1]='0x0E21'
    Item[2]='0x09B0'
    Item[3]='0x0E76'
    Item[4]='0x0E2A'
    Item[5]='0x0F3F'
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
         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 5
            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.msg ('.arm')
end sub 

#######одеть армор, серьги...

Sub amashmot()
uo.usetype ('0x1F07')
uo.usetype ('0x1F06')
uo.usetype ('0x170D')
uo.usetype ('0x1C08')
uo.usetype ('0x1DB9')
uo.usetype ('0x13C5')
uo.usetype ('0x13CC')
uo.usetype ('0x13C6')
uo.usetype ('0x13CB')
uo.usetype ('0x1F08')
end sub

-хил

Code: Select all

sub healfullama()
uo.waittargetself()
uo.msg ('.use_bandage')
wait (50)
uo.msg ('.drink_mm')
uo.msg ('.drink_heal')
uo.msg ('.arm')
end sub

sub healama()
uo.msg ('.drink_mm')
uo.msg ('.drink_heal')
uo.attack ('laststatus')
uo.attack ('laststatus')
end sub

[korzh]

полезные скрипты + все, что нужно настоящему ХУМАНУ

-дроп (выбросить все из пака)

Code: Select all

Sub drop()
UO.undress('0x1401')
wait (100)
Uo.drop('0','0','0','7','^0x1412')
wait (20)
Uo.drop('0','0','0','7','^0x1415')
wait (20)
Uo.drop('0','0','0','7','^0x1410')
wait (20)
Uo.drop('0','0','0','7','^0x1414')
wait (20)
Uo.drop('1','0','0','7','^0x1413')
wait (20)
Uo.drop('0','0','0','7','^0x1411')
wait (20)
Uo.drop('0','0','0','7','^0x09B0')
wait (20)
Uo.drop('0','0','0','7','^0x09B0')
wait (20)
Uo.drop('0','0','0','7','^0x09B0')
wait (20)
Uo.drop('0','0','0','7','^0x09B0')
wait (20)
Uo.drop('0','0','0','7','^0x0E76')
wait (20)
Uo.drop('0','0','0','7','^0x1B76')
wait (20)
Uo.drop('0','0','0','7','^0x13B1')
wait (20)
Uo.drop('0','0','0','7','^0x13B1')
wait (20)
Uo.drop('0','0','0','7','^0x0F3F')
wait (20)
Uo.drop('0','0','0','7','^0x0E21')
wait (20)
Uo.drop('0','0','0','7','^0x09B0')
wait (20)
Uo.drop('0','0','0','7','^0x0F0E')
wait (20)
Uo.drop('0','0','0','7','^0x0E20')
end sub

-телепорт стоун (не судите строго, писал давно, а переписывать лень , зато работает))

Code: Select all

sub Portal()
var portal
portal = '0x4001E8CD'
var portal1
portal1 = '0x40058201'
var portal2
portal2 = '0x400589AD'
var portal3
portal3 = '0x40049CE2'
var portal4
portal4 = '0x40012750'
if uo.GetDistance(portal)<3 or uo.GetDistance(portal1)<3 or uo.GetDistance(portal2)<3 or uo.GetDistance(portal3)<3 or uo.GetDistance(portal4)<3 and uo.life=uo.str then
UO.exec("warmode 0") 
uo.usefromground('0x1183')
wait (4990) 
UO.Print('go') 
UO.exec("warmode 0") 
WAIT (5)
UO.exec("warmode 0") 
else
wait(10)
endif
end sub 

-лучшая одевалка на хумана (Admir)

Code: Select all

sub Dress_alfa_wizard_up()
uo.fontcolor ('0863')
;Crafted by Admir
uo.msg("start")
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] = '11'   ; Бинты 2
   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("stop  "+ str(t)+ " sec")
end sub

-хилинг для хумана

Code: Select all

sub attack()
uo.attack ('laststatus')
uo.attack ('laststatus')
end sub

### хил + бинт, берет щит

sub h1()
   UO.waittargetself()
   UO.Exec("cast 'Heal'")
   WAIT(50)
    uo.exec("bandageself")
       wait(30)
      UO.msg('.arm_shield')
end sub

### проверка хп, 80< - одевает амуль хп, >80 одевает амуль маны

sub amul()
if UO.Life < 80 Then 
uo.useobject('0x40018CB6') ; айди хп амуля  
else
wait(50)

endif
if UO.Life > 85 Then 
uo.useobject('0x4002D683') ; айди амуля маны  
else
wait(50)

endif
 end sub

### оевает амулеты, освобожает правую руку, хилица, берет щит 

sub h()
UO.Exec("cast 'Greater Heal'self")
wait(60)
   test1()
end sub

##

sub test1()
amul()
uo.unequip('Rhand','0x40024429') ; айди вашего оружия
    uo.exec("bandageself")
        wait(30)
     UO.msg('.arm_shield')
     if uo.life<40 then
uo.msg('.drink_heal_great')  
else
wait(5)

end if
end sub 

### меняет амулеты, хилица, берет оружие, бьет

sub test2()
amul()

if uo.life<40 then
uo.msg('.drink_heal_great')
else
wait(5)
end if

    uo.exec("bandageself")
        wait(30)
     UO.msg('.arm')
attack()
end sub

### хил с луком и ластатаком

sub bb()
 uo.exec("bandageself")
    wait(30)
    UO.msg(".arm_bow")
    attack()
end sub

-защита от пойзона

Code: Select all

###ручками, одеваем кристал армор

sub cryst()
UO.usetype('0x1412', '0x04A0')
UO.usetype('0x1413', '0x04A0')
UO.usetype('0x1415', '0x04A0')
UO.usetype('0x1410', '0x04A0')
UO.usetype('0x1414', '0x04A0')
UO.usetype('0x1411', '0x04A0')
endsub

### автоматически

sub autopoi()
repeat 
 UO.DeleteJournal() 
 wait (50)
if uo.injournal ('In Nox') then
wait(1200)
cryst()
wait(650)
#сюда впишите что обратно одевать
else
wait(5)
end if
wait(50)
until uo.dead()
end sub

-автокаст

Code: Select all

### задержка каста

Sub CastWait() 
var LastMana=UO.Mana 
var LastHP = uo.life
UO.DeleteJournal() 
REPEAT 
If LastMana > UO.Mana or LastHP > uo.life Then
return 
Else 
If LastMana < UO.Mana Then 
LastMana = UO.Mana 
End If 
if LastHP < uo.life Then
LastHP = uo.life
End If 
End If 
Wait(5) 
Until UO.InJournal("You have been poizoned!")
end sub


### пример

sub apoi() 
CastWaitSpeC() 
var LastMana=UO.Mana
UO.Cast('Lightning','laststatus') 
REPEAT 
Wait(5) 
Until LastMana > UO.Mana
end sub


### пример 2
sub supalait() 
UO.Cast('Lightning','lasttarget') 
CastWait() 
UO.Cast('Lightning','lasttarget') 
CastWait() 
UO.Cast('Lightning','lasttarget') 
CastWait() 
UO.Cast('Flame Strike','lasttarget') 
CastWait() 
end sub 

вроде все)) если чего вспомню еще - выложу.

[Lopi]

а скрипты которые написанны на пвп- Альфа для дрв подойдут?

[KTO nyKHyJI???]

ребят-)) подскажите плз
в скрипте - лучшая одевалка на хумана (Admir)

Code: Select all

sub Dress_alfa_wizard_up() 
uo.fontcolor ('0863') 
;Crafted by Admir 
uo.msg("start") 
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] = '11'   ; Бинты 2 
   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("stop  "+ str(t)+ " sec") 
end sub

реально ли сделать чтобы не брался кристал армор, как нибудь ? больше часа сейчас химичил так и не смог отучить его брать его -((

[KTO nyKHyJI???]

разобрался