Page 1 of 1

PVP-ALFA(2009-2010) by Sin

Posted: 2009-12-14 22:14:15
by 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

Posted: 2009-12-14 22:14:45
by 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

Posted: 2009-12-14 22:14:58
by 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

Posted: 2009-12-14 22:15:14
by ROBERTo
Амазонки

Posted: 2009-12-14 22:15:38
by ROBERTo
Паладины

Posted: 2009-12-14 22:15:57
by 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

Posted: 2010-01-05 00:14:44
by Nmy
Скрипты кривые и большинство бесполезны...