Yoko

Code: Select all

sub Equipt()
if uo.getlayer('_0x13B1')=="Rhand" then 
	uo.arm("1")
	else
	uo.usetype('0x13B1') 
endsub

Code: Select all

,setarm 1

Code: Select all

sub Equipt()

Var SwordType = "0x13BA"
Var SwordWrapedType = "0x13B9"

  If (UO.GetGraphic(UO.ObjAtLayer("Rhand")) == SwordType) OR (UO.GetGraphic(UO.ObjAtLayer("Rhand")) == SwordWrapedType) Then
    UO.Arm("Arbaletik")
  Else
    UO.Arm("ShitIMech")
  EndIf

endsub

Code: Select all

sub Equipt()
# Скрипт на цикличную смену наборов вооружения
# (C) AGRS, 2008

# Скрипт проверяет наличие в правой руке одного из типов основного оружия
# Если оно обнаружено, то экипируется набор сменного оружия
# В противном случае экипируется набор основного оружия
# Наборы оружия устанавливаются командой ,setarm
# Подробнее о команде: http://yoko.netroof.net/help/index.php?lang=rus&a=item&item=setarm

# Указать тип основного оружия (в правой руке) в нормальном состоянии
Var WeaponType = "0x13BA"

# Указать тип основного оружия (в правой руке) в перевернутом состоянии
# Если оружие уронить на пол, оно поворачивается на 90 градусов на большинстве шардов
# И его графический тип изменяется
Var WeaponWrapedType = "0x13B9" 

# Указать название набора с основным оружием
Var ArmDefault = "MainWeaponSet" 

# Указать название набора со сменным оружием
Var ArmToChange = "SecondaryWeaponSet" 

  If (UO.GetGraphic(UO.ObjAtLayer("Rhand")) == WeaponType) OR (UO.GetGraphic(UO.ObjAtLayer("Rhand")) == WeaponWrapedType) Then 
    UO.Arm(ArmToChange) 
  Else 
    UO.Arm(ArmDefault) 
  EndIf 

endsub 

Code: Select all

sub Equipt() 
Var WeaponType = "0x13B1" 


if (UO.GetGraphic(UO.ObjAtLayer("Rhand")) == WeaponType)  Then 
    UO.Arm(1) 
  Else 
    UO.Arm(2) 
  EndIf 

endsub 

Code: Select all

sub BowGet() 
uo.findtype ('0x13B1',-1,'backpack') 
if Uo.ContainerOf('finditem')==Uo.GetSerial('backpack') then 
UO.Setarm('BowArm') 
uo.waittargetobject('laststatus') 
uo.usetype('0x13B1') 
uo.print('Лук') 
else 
UO.Arm('BowArm') 
uo.print('Меч') 
end if 
UO.Attack('laststatus') 
end sub

Code: Select all

#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 
#++++++++++++++-= Auto Attack Men\Women    =-++++++++++++++++ 
#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 

#+++++++++++++-= Auto Attack all players    =-+++++++++++++++ 
sub StartAttack1() ;биндим для атаки всех чаров 
StartAttack(1) 
end sub 
#++++++++++-= Auto Attack PK players only   =-+++++++++++++++ 
sub StartAttack0() ;биндим для атаки только ПК,серых и вражественной гильдии 
StartAttack(0) 
end sub 

sub StartAttack(status) 
UO.Ignore("self") 
Var FindOK=false,temp,mess,t=0,k 
DIM Friend[50] 
VAR endlist=6; последнее число в списке друзей 
Friend[0]="feduk" 
Friend[1]="SENYA" 
Friend[2]="Gurza" 
Friend[3]="ALF" 
Friend[4]="Flatra" 
Friend[5]="Antonio." 
Friend[6]="Freeman" 
uo.set('finddistance','20') 
 for t=0 to 1 
  repeat 
   uo.findtype("0x019"+str(t),"-1","ground") 
   temp=0 
   for k=0 to endlist 
    if Uo.GetName("finditem")==Friend[k] and uo.findcount()<>0 then 
     UO.Ignore("finditem") 
     k=endlist 
     temp=1 
    end if 
   next 
   if temp==0 and uo.findcount()<>0 then 
    if status==0 and uo.getnotoriety("finditem")>2 then 
     UO.addobject('Enemy',uo.getserial("finditem")) 
     Uo.print ("Curent target = "+uo.getname('Enemy')) 
     uo.ignore('Enemy') 
     return 
      else 
      if status==1 then 
       UO.addobject('Enemy',uo.getserial("finditem")) 
       Uo.print("Curent target = "+uo.getname('Enemy')) 
       uo.ignore('Enemy') 
       return 
        else 
         uo.ignore("finditem") 
      end if                         
     end if 
    end if 
  until uo.findcount()==0 
   if uo.findcount()==0 then 
    UO.IgnoreReset()       
   end if 
 next 
end sub 

Code: Select all

uo.set('finddistance','20')

Code: Select all

; Функция GetDistance возвращает расстояние до координат 
; (как UO.GetDistance - до объекта) 
; 
; Почему так - потому что учим математику :) 
; 
Sub GetDistance( X, Y ) 
   VAR A, B, C 
   A = abs( X - UO.GetX() ) 
   B = abs( Y - UO.GetY() ) 
   If A > B Then 
      C = A 
   Else 
      C = B 
   EndIf 
   Return C 
endsub