полезные скрипты + все, что нужно настоящему ХУМАНУ 
-дроп (выбросить все из пака)
Code: 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: 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: 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: 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: ###ручками, одеваем кристал армор
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: ### задержка каста
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
вроде все)) если чего вспомню еще - выложу.
|
