PVP-ALFA(2009-2010) by Sin

[ROBERTo]

И так ребята, после того, как потерял свой autoload, столкнулся с проблемой поиска нормальных рабочих скриптов.В данном топике будут выложены скрипты для всех классов.Данный топик будет регулярно пополняться и редактироваться мною.

Топик будет разделен по тематике, а именно:
- общеклассовые скрипты( подходящии для всех классов)
- классовые скрипты ( для определенного класса)



НАчнемс....

Общеклассовые скрипты


Касты
Каст стрелки по последнему статусу.

Code: Select all

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 

Каст парализа по последнему статусу.

Code: Select all

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 

Каст пойзона по последнему статусу.

Code: Select all

Sub Poison()
If UO.Mana>=9 AND UO.NS>0 Then 
   UO.Cast('Poison','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Каст манадрейн по последнему статусу.

Code: Select all

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 

Каст фс по последнему статусу.

Code: Select all

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

Каст лайтинга по последнему статусу.

Code: Select all

Sub Lightning()
If UO.Mana>=10 AND UO.SS>0 AND UO.SA>0 Then 
   UO.Cast('Lightning','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub

Каст харма по последнему статусу.

Code: Select all

Sub Harm()
If UO.Mana>=5 AND UO.SS>0 AND UO.SA>0 Then 
   UO.Cast('Harm','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub

Каст вэакена по последнему статусу.

Code: Select all

Sub Weaken()
If UO.Mana>=5 AND UO.SS>0 AND UO.SA>0 Then 
   UO.Cast('Weaken','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub

Каст диспела по последнему статусу.

Code: Select all

Sub Dispel() 
If UO.Mana>=5 AND UO.SS>0 AND UO.SA>0 Then 
   UO.Cast('Dispel','laststatus') 
Else 
   UO.Print("No mana") 
Endif 
Endsub

Каст парализ филд по последнему статусу.

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 

Каст стены по последнему статусу.

Code: Select all

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

Каст куре на себя

Code: Select all

Sub Cure()
If UO.Mana>=6 AND UO.GA>0 Then 
   UO.Cast('Cure','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Каст Грейтхил на себя

Code: Select all

Sub GHeal() 
If UO.Mana>=11 Then 
   UO.Cast('Greater Heal','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub 

Каст стрелки на себя

Code: Select all

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 

Каст зеркала на себя

Code: Select all

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

Каст реактив армора и протекта на себя

Code: Select all

Sub RArm() 
   UO.Exec("cast 'Reactive Armor'self") 
   wait(2000) 
   UO.Exec("cast 'Protection'self") 
end sub

Бутылки

Тотал мана

Code: Select all

Sub Manka()
Var Type='0x0F06' 
Var Color='0x076A' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
Endsub 

Грейт хил

Code: Select all

Sub GreaterHeal()
Var Type='0x0F0C' 
Var Color='0x0000' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
Endsub 

Инвиз

Code: Select all

Sub Invise() 
Var Type='0x0F09' 
Var Color='0x0060' 
UO.FindType(Type, Color, 2) 
UO.UseObject('finditem') 
Endsub

Информация о полученном поинте

Code: Select all

sub points()
repeat
if UO.InJournal("PvP") Then 
UO.msg("Желаемый текст") 
wait(100) 
Uo.DeleteJournal()
else
wait(50)
end if
until false 
end sub

Информация о жизни

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.fontcolor('0x002d')
UO.msg("Life is "+str(p) +" Damage= - " +str(q-p))
else 
uo.fontcolor('150')
UO.msg("Life is "+str(p) +" (+"+str(p-q)+")")
end if
end if 
IF UO.armor <> k then
k=uo.armor
uo.fontcolor('0x028f')
UO.msg("Armor = "+str(k))
end if 
wait(30)
until false
# until uo.dead()
end sub

Очистка пака

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

[ROBERTo]

Берсы



Хил с топором

Code: Select all

sub arm2()
uo.msg('.drink_heal_great')
uo.usetype('0x0F09','0x042C')
uo.usetype('0x13FA')
end sub

Хил с щитом

Code: Select all

sub arm()
uo.bandageself()
wait(100)
uo.msg('.drink_heal_great')
uo.usetype('0x0F09','0x042C')
uo.usetype('0x1BC3')
end sub

Щит в руки

Code: Select all

sub Heater()
uo.usetype('0x1BC3')
end sub

Топор в руки+ ластстатус

Code: Select all

sub Topor()
uo.usetype('0x13FA')
uo.attack('laststatus') 
end sub

[ROBERTo]

Вампиры

Питье с пола

Code: Select all

sub arm2()
uo.exec("usefromground 0x122E 0x0000")
wait(10)
uo.exec("usefromground 0x122D 0x0000")
wait(10)
uo.exec("usefromground 0x122C 0x0000")
wait(10)
uo.exec("usefromground 0x122B 0x0000")
wait(10)
uo.exec("usefromground 0x122A 0x0000")
end sub

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

Code: Select all

sub bbs()
uo.usetype('0x0F06')
end sub

Можно обьеденить два в одно получится вот это:

Code: Select all

sub bbs()
uo.usetype('0x0F06')
uo.exec("usefromground 0x122E 0x0000")
wait(10)
uo.exec("usefromground 0x122D 0x0000")
wait(10)
uo.exec("usefromground 0x122C 0x0000")
wait(10)
uo.exec("usefromground 0x122B 0x0000")
wait(10)
uo.exec("usefromground 0x122A 0x0000")
end sub

[ROBERTo]

Амазонки

[ROBERTo]

Паладины

[ROBERTo]

Некроманы

Гриф по ласт таргету:

Code: Select all

sub plt()
uo.waittargetlast()
uo.usetype('0x3F14')
end sub

Хил с грифом:

Code: Select all

sub healnekr()
uo.usetype('0x0F91')
wait(100) 
uo.usetype('0x3F14')
end usb

Грив на ближайший труп

Code: Select all

sub pt()
UO.Waittargetground("0x2006")
UO.UseType("0x3F14")
end sub

Каст пойзона на себя

Code: Select all

Sub Poisonself()
If UO.Mana>=12 AND UO.GA>0 AND UO.MR>0 AND UO.SS>0  Then 
   UO.Cast('Poison','self') 
Else 
   UO.Print("No mana") 
Endif 
Endsub

[Nmy]

Скрипты кривые и большинство бесполезны...