Code: Select all
############################################################################
################## AUTOLOAD v1.0 ###########################################
############################################################################
############ Шард DRW & PvPAlpha / www.DRW.ru ¦ www.pvp-alfa.ru/ ###########
############################################################################
################ Copiright by WOLVERINE ####################################
############################################################################
############################################################################
#Данный скрипт был написан в целях экономии личного времени.
# Не из из-за скуки и желания прославится.
# Скрипт поставляется как есть, техническая поддержка не осуществляется.
# Вам разрешено изменять скрипт и копаться в его коде, но запрешено выдавать данный продук за свое творение.
# В противном случае ВЫ будете выебаны в нос, и другие дыры.
# Все права ебаны в рот. Скрипт написан для детей от 3 до 5 лет.
################################################################################
sub Razgruzka()
VAR StoreRegCont='backpack'
VAR CharRegBag='CharRegBag'
VAR CountReg=9999
VAR WaitTime=600
VAR MainSafe='backpack'
uo.print('Выбери Мешок:')
uo.exec('addobject CharRegBag')
while uo.targeting()
wait(100)
wend
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer(CharRegBag)
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
endif
if UO.SS<CountReg then
UO.FindType('0x0E34','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg),'finditem')
endif
if UO.SS<CountReg then
UO.FindType('0x0F87','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg),'finditem')
endif
end:
UO.UnsetReceivingContainer()
Uo.Print('Well Done!!!')
end sub
###############################################################
sub Inscript()
while UO.Count('0x0E34')>0 ; blank scroll
UO.DeleteJournal()
UO.UseType('0x0E34') ; blank scroll
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail")
wait(500)
wend
wend
end sub
#==============================================================
# sEarthquake() - crafting Earthquake scroll
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub sEarthquake()
UO.CancelMenu()
UO.AutoMenu('Spell Circle 8','Earthquake')
UO.AutoMenu('Spell Circles','Eighth Circle')
Inscript()
UO.CancelMenu()
end sub
#==============================================================
# SPar() - crafting Paralize scroll
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub spar()
UO.CancelMenu()
UO.AutoMenu('Spell Circle 5','Paralyze')
UO.AutoMenu('Spell Circles','Fifth Circle')
Inscript()
UO.CancelMenu()
end sub
#==============================================================
# SFS() - crafting FlameStrike scroll
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub sfs()
UO.CancelMenu()
UO.AutoMenu('Spell Circle 7','Flamestrike')
UO.AutoMenu('Spell Circles','Seventh Circle')
Inscript()
UO.CancelMenu()
end sub
###############################################################
;
; Alchemy Sub
;
###############################################################
###############################################################
#==============================================================
# Alchemy(reagent, min_reg, choice) - main alchemi script
#
# reagent - type of reagent
# min_reg - min count reagets to make potion
# choice - menu choice after using reagents
#
# Journal has been deleted!!!
#--------------------------------------------------------------
sub Alchemy(reagent, min_reg, choice)
while UO.Count('0x0F0E','0x0000')>0 AND UO.Count(reagent)>=min_reg
UO.DeleteJournal()
UO.Exec("waitmenu 'What sort of potion do you want to' "+choice)
UO.UseType(reagent)
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed")
wait(300)
wend
wend
gong(2)
end sub
#==============================================================
# TMana() - toss total mana potion
#--------------------------------------------------------------
sub TMana()
alchemy('0x0F87', 6, "'Total Mana'")
end sub
#==============================================================
# GExplosion() - toss total mana potion
#--------------------------------------------------------------
sub GExplosion()
alchemy('0x0F8C', 10, "'Greater Explosion'")
end sub
#==============================================================
# LExplosion() - toss Lesser Explotion potion
#--------------------------------------------------------------
sub LExplosion()
alchemy('0x0F8C', 3, "'Lesser Explosion'")
end sub
#==============================================================
# TRefresh() - toss total refresh potion
#--------------------------------------------------------------
sub TRefresh()
alchemy('0x0F7A', 6, "'Total Refresh'")
end sub
#==============================================================
# GHealp() - toss total mana potion
#--------------------------------------------------------------
sub GHealp()
alchemy('0x0F85', 7, "'Greater Heal'")
end sub
################################################################
###########################CheckLag#############################
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub
#####################################################################
##########################DeleteJournal##############################
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, 'string replaced' )
DeleteJournal( string1 )
Endif
endsub
######################################HILING####################
sub Heal() ;Хилинг
If UO.STR==UO.Life Then
UO.Print("Life is full")
Else
UO.SetArm("1")
UO.BandageSelf()
uo.say('Medic...Medic....')
uo.say('I need Help!!!')
wait(1000)
UO.Arm("1")
UO.UnSetArm()
Endif
end sub
################################################################
############################DRESS###############################
sub Sword() ; Одевание щита и оружия
Var Svord='0x13B9' ;Тип оружия, используемый вами 0x3FF8
Var Sheld='0x1B76' ;Тип щита, используемого вами
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub
sub Human() ; Одевание щита и оружия
Var Svord='0x3FF8' ;Тип оружия, используемый вами 0x3FF8
Var Sheld='0x1B76' ;Тип щита, используемого вами
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub
sub Katana() ; Одевание щита и оружия
Var Svord='0x1440' ;Тип оружия, используемый вами 0x1440 0x13FE
Var Sheld='0x1B7B' ;Тип щита, используемого вами
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub
sub Fork() ; Одевание щита и оружия
Var Svord='0x1404' ;Тип оружия, используемый вами 0x1440 0x13FE
Var Sheld='0x1B7A' ;Тип щита, используемого вами
UO.Equipt('Rhand',Svord)
UO.Equipt('Lhand',Sheld)
Endsub
sub Bow() ; Одевание лука.
;Var bow='0x13B1' ;Тип лука, используемого вами.
VAR bow='0x13FC' ;Heavy_crossbow
;VAR bow='0x0F4F' ;crossbow
UO.Equipt('Lhand',bow)
Endsub
sub Aleba()
VAR Halberd='0x143E' ;
UO.Equipt('Lhand',Halberd)
Endsub
################################################################
#############################ALCHEMY############################
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 TotalRefresh() ; Выпивание Грейт Хилок
Var Type='0x0F0B'
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 Hiding1() ; Прятоться
UO.WarMode(0)
UO.UseSkill('Hiding')
Endsub
sub Hiding()
UO.DeleteJournal()
UO.Exec('warmode 0')
UO.UseSkill('Stealth')
wait(500)
UO.Print("")
UO.Print("")
UO.Print(" *1*")
wait(500)
UO.Print("")
UO.Print(" *2*")
UO.Print("")
wait(500)
UO.Print(" *STOP!*")
UO.Print("")
UO.Print("")
end sub
Sub Meditation() ; Медетировать
UO.WarMode(0)
UO.UseSkill('Meditation')
Uo.msg('Meditation...')
Endsub
################################################################
############################SPELLS##############################
Sub Arrow() ; кидание стрелки по последнему статусу.
If UO.Mana>=13 AND UO.BP>0 AND UO.NS>0 Then
Uo.msg ('Well we shall have fun?')
Uo.msg ('Yes to you an ass!!!')
Uo.msg ('Get Ready!')
UO.Cast('Magic Arrow','laststatus')
Else
UO.Print("No mana")
Endif
Endsub
Sub Paralis() ; кидание стрелки по последнему статусу.
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then
UO.Cast('Paralyze','laststatus')
Else
UO.Print("No mana")
Endif
Endsub
#==============================================================
# Lightning() - cast Lighting to last status from scroll,
# if she found or from spellbook
#--------------------------------------------------------------
sub Lightning()
UO.Set('lasttarget','laststatus')
UO.FindType('0x1F4A',-1,'my')
If UO.GetQuantity('finditem')>0 then
if UO.Mana>=10 then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
else
UO.Print("Low mana!!! Scroll!")
endif
else
if UO.Mana>=20 then
UO.Cast('Lightning','laststatus')
UO.Print("Spell")
else
UO.Print("Low mana!!! Spell!")
endif
endif
end sub
#==============================================================
# Paralyze() - cast Paralyze to last status from scroll, if she
# found or from spellbook
#--------------------------------------------------------------
sub Paralyze()
var f=0
if UO.Count("0x1f52") > 0 then
UO.waittargetlast()
UO.Exec("usetype 0x1f52")
VAR parascrlcnt=UO.Count("0x1f52") - 1
UO.Print(""+STR(parascrlcnt)+" Paralyze Scrolls left")
else
UO.waittargetlast()
UO.Exec("cast 'Paralyze'")
Uo.Say('Киса Ку-Ку')
f=1
UO.Print("Warning!!! No Paralyze Scrolls, Using Regs!")
end if
end sub
#==============================================================
# Poison() - cast poison on laststatus if target-char not
# poisoned and your char have enought mana
#--------------------------------------------------------------
sub Poison()
VAR ManaNeed=9
VAR ScrollManaNeed=4
UO.Set('lasttarget','laststatus')
If NOT UO.Poisoned('lasttarget') Then
UO.FindType('0x1F40',-1,'my')
If UO.GetQuantity('finditem')>0 Then
If UO.Mana>=ScrollManaNeed Then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
Else
UO.Print("Low mana!!! Scroll!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Poison','laststatus')
Else
UO.Print("Low mana!!!")
Endif
Endif
Else
UO.Print("Character already poisoned!")
Endif
end sub
Sub ManaDrain() ; кидание манадрейн по последнему статусу
If UO.Mana>=11 AND UO.BP>0 AND UO.MR>0 AND UO.SS>0 Then
Uo.msg ('Тебе Mana не жалко ???')
Uo.msg ('Yes to you an ass!!!')
Uo.msg ('Get Ready!')
UO.Cast('Mana Drain','laststatus')
Uo.msg(' ')
Uo.msg(' ')
Uo.msg(' ')
Else
UO.Print("No mana")
Endif
Endsub
#==============================================================
# FlameStrike() - cast Flame Strike to last status from scroll,
# if she found or from spellbook
#--------------------------------------------------------------
sub FlameStrike()
UO.Set('lasttarget','laststatus')
UO.FindType('0x1F5F',-1,'my')
If UO.GetQuantity('finditem')>0 then
if UO.Mana>=22 then
UO.WaitTargetObject('lasttarget')
UO.UseObject('finditem')
UO.Print("Scroll")
else
UO.Print("Low mana!!! Scroll!")
endif
else
if UO.Mana>=45 then
UO.Cast('Flame Strike','laststatus')
UO.Print("Spell")
else
UO.Print("Low mana!!! Spell!")
endif
endif
end sub
#==============================================================
# Cure() - cast cure to self from scroll, if she found
# or from spellbook
#--------------------------------------------------------------
sub Cure()
VAR ManaNeed=6
VAR ManaNeedScroll=3
If UO.Poisoned() Then
UO.FindType('0x1F37',-1,'my')
If UO.FindCount()>0 Then
If UO.Mana>=ManaNeedScroll Then
UO.WaitTargetSelf()
UO.UseObject('finditem')
UO.Print("Scroll!!!")
Else
UO.Print("Low mana scroll!!!")
Endif
Else
If UO.Mana>=ManaNeed Then
UO.Cast('Cure','self')
UO.Print("Spell!!!")
Else
UO.Print("Low mana spell!!!")
Endif
Endif
Else
UO.Print("You allready not sick!!!")
Endif
end sub
Sub Reveal() ; кидание куре на себя
If UO.Mana>=20 AND UO.BM>0 AND UO.SA>0 Then
Uo.msg ('Ky-Ky!!! ')
UO.Cast('Reveal','self')
Else
UO.Print("No mana")
Endif
Endsub
#==============================================================
# GHeal() - cast greater heal to self from scroll, if she
# found or from spellbook
#--------------------------------------------------------------
sub GHeal()
var f=0
if UO.Count("0x1F49") > 0 then
UO.waittargetself()
UO.Exec("usetype 0x1F49")
VAR Greatscrlcnt=UO.Count("0x1F49") - 1
UO.Print(""+STR(Greatscrlcnt)+" GreatHeal Scrolls left")
else
UO.waittargetSelf()
UO.Exec("cast 'Greater Heal'")
f=1
UO.Print("Warning!!! No GreatHeal Scrolls, Using Regs!")
end if
end sub
##############################################################
Sub UnParalyze() ; Кидание стрелки в себя, для выхода из парализа
If UO.Mana>=4 AND UO.BP>0 AND UO.NS>0 Then
uo.msg('Leave Me Alone!')
Uo.msg ('Yes to you an ass!!!')
Uo.msg ('Get Ready!')
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.msg ('Mirror a pocket mirror :))')
UO.Cast('Magic Reflect','self')
Else
UO.Print("No mana")
Endif
Endsub
##############################################################
#####################TELEPORTING##############################
#######################
sub TeleportSelfUp()
#######################
# Телепортирует чара на этаж выше/крышу здания (из нутри).
#
UO.WaitTargetTile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")+35))
UO.Cast("Teleport")
end sub
#########################
sub TeleportSelfDown()
#########################
# Телепортирует чара на этаж ниже/c крыши здания (из нутри).
#
UO.WaitTargetTile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")-35))
UO.Cast("Teleport")
end sub
##############################################################
#####################DRESS AND ARM############################
################################################
##===============Script For PvP-Alpha=========##
##===============Crafted By WOLVERINE=========##
##===================Ver.2.0==================##
################################################
VAR Regs = '0x4000B553' ;Regs & Potions Stoun
VAR Arm = '0x4000B44E' ;Armor
VAR Weapon = '0x4000B2E3' ;Weapon
sub main()
Uo.Print("Script Crafted By WOLVERINE")
wait(100)
Uo.Print("Shoose subject from this List")
#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#
sub regs()
Uo.UseObject(Regs)
wait(120)
Uo.LClick(209,187);Bandages
wait(120)
Uo.UseObject(Regs)
wait(120)
Uo.LClick(208,206) ;Potions
wait(120)
Uo.UseObject(Regs)
wait(120)
Uo.LClick(208,224) ;Regs
wait(120)
Uo.UseObject(Regs)
wait(120)
Uo.LClick(208,306) ;Lama
wait(120)
end sub
#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#
sub arm()
Uo.UseObject(Arm)
wait(120)
Uo.LClick(175,327) ;Composite
wait(200)
Uo.UseObject(Arm)
wait(150)
Uo.LClick(205,326) ;Composite Shield
wait(200)
#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#
sub weapon()
#Uo.UseObject(Weapon)
#wait(120)
#Uo.LClick(57,200) ;Sword
#wait(120)
#Uo.LClick(175,285) ;Meteorit
#wait(200)
Uo.UseObject(Weapon)
wait(120)
Uo.LClick(59,261) ;Archery
wait(220)
Uo.LClick(214,267) ;Mythic Bow
wait(200)
end sub
#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$#$##$#$#$#$#$#
sub Clothing()
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x1F08','0x042C','backpack') ;Magic Amulet
UO.Ignore("finditem")
UO.IgnoreReset()
Uo.UseObject('finditem')
wait(150)
#######################################################
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x1515','0x0A7C','backpack') ;Guild Cape
UO.Ignore("finditem")
UO.IgnoreReset()
Uo.UseObject('finditem')
wait(150)
#######################################################
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x1545','0x0A7C','backpack') ;Guild Mask
UO.Ignore("finditem")
UO.IgnoreReset()
Uo.UseObject('finditem')
wait(150)
#######################################################
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x1541','0x0A7C','backpack') ;Guild Sash
UO.Ignore("finditem")
UO.IgnoreReset()
Uo.UseObject('finditem')
wait(150)
#######################################################
Uo.DeleteJournal()
while not UO.Dead()
Uo.FindType('0x09B0','0x0005','backpack') ;Bag of Potion`s
UO.Ignore("finditem")
UO.IgnoreReset()
Uo.UseObject('finditem')
wait(150)
end sub
###################################################################
######################!!!DYNAMITE!!!###############################
sub Bomb()
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.FindType('0x0F0D','0x0B99','backpack')
;UO.FindType('0x0F0E','0x09DA','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.DeleteJournal()
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
Wait(500)
UO.Print("- = Мочи суку = -")
end sub
sub Bomb2()
UO.FindType('0x0F0D','0x0B99','ground')
UO.Cast('Magic Arrow','finditem')
end sub
#########################################################################################################
###################################################################
sub ExplodeHim()
VAR i, pack='backpack',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=20 ; 1 bomb hits
CountEX=8
UO.Print("Ща рванет!!!...")
UO.Set('lasttarget','laststatus')
For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99','backpack')
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
UO.Drop('1',STR(UO.GetX('laststatus')),STR(UO.GetY('laststatus')),STR(UO.GetZ('laststatus')),'finditem')
wait(580)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub
#######################Other#######################################
sub AP()
uo.findtype("0x0F0D", "0x0B99", "my")
if uo.findcount()>0 then
uo.waittargetobject("finditem")
uo.cast("Clumsy")
end if
end sub
#########################################3
sub up()
uo.waittargettile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")+105))
uo.cast('Teleport')
end sub
sub down()
uo.waittargettile("400",str(uo.getx("self")),str(uo.gety("self")),str(uo.getz("self")-20))
uo.cast('Teleport')
end sub
#####################################################################
#####################################################################
Sub GetWeapon( Fork, Shield )
VAR msg1 = 'Not strong enough to equip'
DeleteJournal( msg1 )
; берем в руки оружие и щит. Динамические паузы и оптимитизация.
If Fork == '' AND Shield == '' Then
return
Endif
If Fork == '' Then
; только щит
If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == Shield Then
; все есть
return
Else
GetOneWeaponOnly( 'Lhand', Shield )
return
Endif
Endif
If Shield == '' Then
; только оружие
If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
; все есть
return
Else
GetOneWeaponOnly( 'Rhand', Fork )
return
Endif
Endif
If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == Shield Then
If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
; уже в руках все
return
Else
; надо взять в руки только оружие, щит не надо
GetOneWeaponOnly( 'Rhand', Fork )
Endif
Else
If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == Fork Then
; в руках только оружие, надо еще щит взять
GetOneWeaponOnly( 'Lhand', Shield )
Else
; в руках нет ни оружия, ни щита
GetOneWeaponOnly( 'Rhand', Fork )
GetOneWeaponOnly( 'Lhand', Shield )
Endif
Endif
endsub
Sub GetOneWeaponOnly( lay, typ )
VAR msg1 = 'Not strong enough to equip'
UO.Equipt( lay, typ )
repeat
wait(50)
until UO.GetGraphic( UO.ObjAtLayer( lay ) ) == typ OR UO.InJournal( msg1 )
If UO.InJournal( msg1 ) Then
UO.WaitTargetSelf()
UO.Cast( 'Dispel' )
wait(4000)
GetOneWeaponOnly( lay, typ )
CheckLag()
Endif
endsub
; AutoLoot. v.1.11b (c) Edred
;
; Автоматический лут трупа. Три варианта скрипта - первый на последний
; труп, второй вызывает прицел для указания трупа. Лутится только то,
; что указано в массиве. Третий вариант - лутим с земли около чара.
;
sub AutoLoot()
VAR Cleaver = '0x0F51' ; кливер (тип)
; Считываем оружие и щит из рук
VAR MyFork = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) )
VAR MyShield = UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) )
If MyFork == '0x0000' Then
MyFork = ''
Endif
If MyShield == '0x0000' Then
MyShield = ''
Endif
;
VAR CorpseSer = UO.GetSerial( 'lastcorpse' )
CheckLag()
UO.WaitTargetObject( CorpseSer )
UO.UseType( Cleaver )
wait(1000)
CheckLag()
GetWeapon(MyFork,MyShield)
UO.UseObject( CorpseSer )
wait(500)
CheckLag()
CorpseLoot( CorpseSer )
endsub
;
sub AutoLoot2()
VAR Cleaver = '0x0F51' ; кливер (тип)
; Считываем оружие и щит из рук
VAR MyFork = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) )
VAR MyShield = UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) )
If MyFork == '0x0000' Then
MyFork = ''
Endif
If MyShield == '0x0000' Then
MyShield = ''
Endif
;
If UO.Targeting() Then
UO.CancelTarget()
Endif
UO.Print( 'Please, choice of corpse:' )
UO.AddObject( 'CorpseForLoot' )
While UO.Targeting()
wait(100)
Wend
VAR CorpseSer = UO.GetSerial( 'CorpseForLoot' )
CheckLag()
UO.WaitTargetObject( CorpseSer )
UO.UseType( Cleaver )
wait(1000)
CheckLag()
GetWeapon( MyFork, MyShield )
UO.UseObject( CorpseSer )
wait(500)
CheckLag()
CorpseLoot( CorpseSer )
endsub
;
; Автоматически лутим с земли около чара. Одежду сразу режем на бинты.
;
sub AutoLootGround()
VAR Cleaver = '0x0F51' ; кливер (тип)
VAR Scissor = '0x0F9E' ; Ножницы
VAR fastloot = 'FastLoot detected.'
DIM Nado[61]
Nado[0] = '0x170B' ; boots
Nado[1] = '0x1718' ;
Nado[2] = '0x1516' ; a skirt
Nado[3] = '0x1F03' ; a robe
Nado[4] = '0x1F01' ; a plain dress
Nado[5] = '0x1EFD' ; a fancy shirt
Nado[6] = '0x1541' ; a body sash
Nado[7] = '0x170B' ; boots
Nado[8] = '0x170D' ; sandals
Nado[9] = '0x1717' ; a straw hat
Nado[10] = '0x1539' ; long pants
Nado[11] = '0x152E' ; short pants
Nado[12] = '0x1515' ; a cloak
Nado[13] = '0x1FA1' ; tunic
Nado[14] = '0x0EED' ; gold coin
Nado[15] = '0x0F3F' ; arrows
Nado[16] = '0x0F7A' ; pearls, black pearls
Nado[17] = '0x0F7B' ; bood moss
Nado[18] = '0x0F7D' ; vials of blood
Nado[19] = '0x0F84' ; garlic
Nado[20] = '0x0F85' ; ginseng
Nado[21] = '0x0F86' ; mandrake root
Nado[22] = '0x0F88' ; night shade
Nado[23] = '0x0F8C' ; sulphorous ash
Nado[24] = '0x0F8D' ; spiders silk
Nado[25] = '0x14ED' ; a treasure map
Nado[26] = '0x0E75' ; backpack
#ARMORWEAPON#
Nado[27] = '0x1412' ; Platemail Helm
Nado[28] = '0x1413' ; Platemail Gorget
Nado[29] = '0x1414' ; Platemail Gauntlets
Nado[30] = '0x1410' ; Platemail Arms
Nado[31] = '0x1411' ; Platemail Legs
Nado[32] = '0x1C04' ; Platemail Female Armor
Nado[33] = '0x1415' ; Platemail Armor
Nado[34] = '0x1B73' ; Buckler
Nado[35] = '0x1B7B' ; Metal Shield
Nado[36] = '0x1B76' ; Heater Shield
Nado[37] = '0x1408' ; Closed Helm
Nado[38] = '0x140A' ; Helmet
Nado[39] = '0x140C' ; Bascinet
Nado[40] = '0x140E' ; Nose Helm
Nado[41] = '0x0F5E' ; Broad Sword
Nado[42] = '0x1440' ; Cutlass
Nado[43] = '0x0F51' ; Dagger
Nado[44] = '0x13FE' ; Kryss
Nado[45] = '0x1400' ; Katana
Nado[46] = '0x0F60' ; Longsword
Nado[47] = '0x13B5' ; Scimitar
Nado[48] = '0x13B9' ; Viking Sword
Nado[49] = '0x0F45' ; Executioner's Axe
Nado[50] = '0x0F49' ; Axe
Nado[51] = '0x0F4B' ; Double Axe
Nado[52] = '0x143E' ; Halberd
Nado[53] = '0x0F4D' ; Bardiche
Nado[54] = '0x13B1' ; Bow
Nado[55] = '0x13FC' ; Heavy Crossbow
Nado[56] = '0x0F4F' ; Crossbow
Nado[57] = '0x1F65' ; Earthquake Scroll
Nado[58] = '0x1F5F' ; Flamestrike Scroll
Nado[59] = '0x1F52' ; Paralyze Scroll
Nado[60] = '0x1086' ; Bracelet of Mana Regeneration
Nado[61] = '0x1086' ; Bracelet of Life Regeneration
VAR i
UO.Exec( 'set finddistance 3' )
For i = 0 To 60
UO.FindType( Nado[i], '-1', '1' )
While UO.FindCount() > 0
DeleteJournal( fastloot )
If i < 14 Then
UO.WaitTargetObject( 'finditem' )
UO.UseType( Scissor )
GetPause(500)
CheckLag()
Else
If i == 60 Then
If UO.GetQuantity( 'finditem' ) == 1 Then
UO.Ignore( 'finditem' )
Else
UO.MoveItem( 'finditem' )
GetPause(350)
CheckLag()
Endif
Else
UO.MoveItem( 'finditem' )
GetPause(350)
CheckLag()
Endif
Endif
UO.FindType( Nado[i], '-1', '1' )
Wend
Next
UO.Print( 'The loot was finished' )
endsub
;
; Лут указанного трупа
;
Sub CorpseLoot( Cont )
; лутим из Cont
DIM Nado[74]
; реги
Nado[0] = '0x0F7A' ; pearls, black pearls
Nado[1] = '0x0F7B' ; bood moss
Nado[2] = '0x0F84' ; garlic
Nado[3] = '0x0F85' ; ginseng
Nado[4] = '0x0F86' ; mandrake root
Nado[5] = '0x0F88' ; night shade
Nado[6] = '0x0F8C' ; sulphorous ash
Nado[7] = '0x0F8D' ; spiders silk
; то что надо резать ножницами
Nado[8] = '0x1078' ; leather
; основной лут
Nado[9] = '0x0F78' ; batwings
Nado[10] = '0x0F7E' ; bones
Nado[11] = '0x0F7D' ; vials of blood
Nado[12] = '0x0F80' ; daemons bones
Nado[13] = '0x0F81' ; fertile dirt
Nado[14] = '0x0F82' ; dragons blood
Nado[15] = '0x0F87' ; eyes of newt
Nado[16] = '0x0F8E' ; serpents scales
Nado[17] = '0x0F90' ; dead woods
Nado[18] = '0x0F91' ; wyrms hearts
Nado[19] = '0x0F8F' ; volcanic ash
Nado[20] = '0x0E34' ; blank scrolls
; золото и руда
Nado[21] = '0x0EED' ; gold coin
Nado[22] = '0x0F23' ; cintrines
Nado[23] = '0x19B7' ; magic ore
; прочий лут
Nado[24] = '0x0E24' ; water bottles
Nado[25] = '0x0F0E' ; empty bottles
Nado[26] = '0x0F0B' ; total refresh
Nado[27] = '0x0F09' ; total mana refresh
Nado[28] = '0x0F06' ; shrink
Nado[29] = '0x0F0C' ; greater heal
Nado[30] = '0x0F09' ; invisibility
Nado[31] = '0x0E21' ; bandages
Nado[32] = '0x0E20' ; bloody bandages - бинты
Nado[33] = '0x0F3F' ; arrows
Nado[34] = '0x1BD1' ; feathers
Nado[35] = '0x14ED' ; a treasure map
Nado[36] = '0x1078' ; pile of hides
Nado[37] = '0x0FAB' ; duing tub
Nado[38] = '0x1BFB' ; bolts
Nado[39] = '0x1089' ; necklace
#ARMORWEAPON#
Nado[40] = '0x1412' ; Platemail Helm
Nado[41] = '0x1413' ; Platemail Gorget
Nado[42] = '0x1414' ; Platemail Gauntlets
Nado[43] = '0x1410' ; Platemail Arms
Nado[44] = '0x1411' ; Platemail Legs
Nado[45] = '0x1C04' ; Platemail Female Armor
Nado[46] = '0x1415' ; Platemail Armor
Nado[47] = '0x1B73' ; Buckler
Nado[48] = '0x1B7B' ; Metal Shield
Nado[49] = '0x1B76' ; Heater Shield
Nado[50] = '0x1408' ; Closed Helm
Nado[51] = '0x140A' ; Helmet
Nado[52] = '0x140C' ; Bascinet
Nado[53] = '0x140E' ; Nose Helm
Nado[54] = '0x0F5E' ; Broad Sword
Nado[55] = '0x1440' ; Cutlass
Nado[56] = '0x0F51' ; Dagger
Nado[57] = '0x13FE' ; Kryss
Nado[58] = '0x1400' ; Katana
Nado[59] = '0x0F60' ; Longsword
Nado[60] = '0x13B5' ; Scimitar
Nado[61] = '0x13B9' ; Viking Sword
Nado[62] = '0x0F45' ; Executioner's Axe
Nado[63] = '0x0F49' ; Axe
Nado[64] = '0x0F4B' ; Double Axe
Nado[65] = '0x143E' ; Halberd
Nado[66] = '0x0F4D' ; Bardiche
Nado[67] = '0x13B1' ; Bow
Nado[68] = '0x13FC' ; Heavy Crossbow
Nado[69] = '0x0F4F' ; Crossbow
Nado[70] = '0x1F65' ; Earthquake Scroll
Nado[71] = '0x1F5F' ; Flamestrike Scroll
Nado[72] = '0x1F52' ; Paralyze Scroll
Nado[73] = '0x1086' ; Bracelet of Mana Regeneration
Nado[74] = '0x1086' ; Bracelet of Life Regeneration
VAR otherpack = '0x0E75' ; backpack
VAR i, typ, serpack
VAR Scissor = '0x0F9E' ; Ножницы
VAR fastloot = 'FastLoot detected.'
For i = 0 To 73
UO.FindType( Nado[i], -1, Cont )
While UO.FindCount() > 0
DeleteJournal( fastloot )
If i == 8 Then
If UO.GetColor( 'finditem' ) == '0x0000' Then
UO.WaitTargetObject( 'finditem' )
UO.UseType( Scissor )
GetPause(500)
CheckLag()
Else
UO.MoveItem( 'finditem' )
GetPause(500)
CheckLag()
Endif
Else
UO.MoveItem( 'finditem' )
GetPause(500)
CheckLag()
Endif
UO.FindType( Nado[i], -1, Cont )
Wend
Next
UO.FindType( otherpack, -1, Cont )
while UO.FindCount() > 0
serpack = UO.GetSerial( 'finditem' )
UO.Ignore( 'finditem' )
UO.UseObject( serpack )
wait(500)
CheckLag()
CorpseLoot( serpack )
wait(500)
UO.FindType( otherpack, -1, Cont )
wend
UO.Print( 'The loot was finished' )
endsub
;
; Пауза в переданных миллисекундах, с проверкой на сообщение о
; детекте фастлута. Не забудьте удалить эту фразу из журнала перед
; тем действием, после которого стоит эта пауза!
Sub GetPause( ms )
VAR t = 0
VAR msg = 'FastLoot detected.'
repeat
wait(50)
t = t + 50
until t >= ms OR UO.InJournal( msg )
If UO.InJournal( msg ) Then
wait(200)
Endif
endsub
##############################################################
#######################################################################
sub Obrezanie()
UO.SetArm('temp')
UO.Set('finddistance','2')
Uo.findtype('0x2006','0xffff','ground')
wait(500)
UO.WaitTargetObject('finditem')
UO.UseType('0x0F51') ;dagger
wait(500)
Uo.Msg('Чик-чик')
UO.Arm('temp')
wait(1500)
end sub
###################################################################
#######################COLOR-LIVE#####################################
sub speechcolor()
var i,n
Dim A[12]
A[0] = 0x0003 ;Blu
A[1] = 0x0026 ;Red
A[2] = 0x0035 ;Yellow
A[3] = 0x000D ;Purple
A[4] = 0x00ad ;Green
A[5] = 0x0120 ;Brigh Blue
A[6] = 0x03c6 ;Bright Grey
A[7] = 0x0331 ;Dark Grey
A[8] = 0x002B ;Orange
A[9] = 0x0005 ;Bright Blue
A[10] = 0x0021 ;Bright Red
A[11] = 0x01a2 ;Purple
A[12] = 0x028d ;Dark Yellow
i = 750
Restart:
FOR n=0 TO 12
Uo.fontcolor(A[n])
Wait(i)
NEXT
goto Restart
end sub
#######################################################
sub COLOR()
Uo.Usetype('0x1F65')
Uo.Print('Подъебнем....')
Uo.fontcolor('0x0003')
Uo.msg('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||')
Uo.fontcolor('0x03e5')
Uo.msg('||||||||||!!!ESTONIA FOREVER!!!|||||||||||||||')
Uo.fontcolor('0x03e4')
Uo.msg('|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||')
end sub
###################################################################
#######################MSG#####################################
sub Hidehim()
uo.say(',hide')
end sub
##############
sub resend()
uo.say(',resend')
end sub
###################################################################
#######################WALLS#####################################
Sub FireSelF(); кидание FireField себе под ноги...
#Uo.msg ('From me you will not escape!!!!')
UO.Cast('Fire Field','0x403FBDE1'); Прописана кадушка для промывки бинтиков..а так может быть любая вещь в паке
#Else
UO.Print("No mana")
#Endif
Endsub
#######################################################
Sub Fire()
Uo.cast('Fire Field')
end sub
##############################################
sub Wash()
Uo.FindType('0x0E20','0x0000','backpack')
Uo.Print('Don`t Forget about Us...)))')
Uo.Useobject('finditem','0x1008')
end sub
##################################################33
sub VasAnOrt()
uo.cast('Mass Dispel','self')
end sub
######################################################
sub STENKA()
Uo.cast('Paralyze','laststatus')
wait(3300)
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
UO.cast("Wall of Stone")
wait(2400)
uo.waittargettile("400",str(uo.getx("lasttarget")-1),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
UO.cast("Wall of Stone")
end sub
####################################################################################################################
sub invaspor()
Uo.Usetype('0x1F65')
Uo.Print('Подъебнем....')
Uo.fontcolor('0x0003')
Uo.msg(' ')
Uo.fontcolor('0x03e5')
Uo.msg(' ')
Uo.fontcolor('0x03e4')
Uo.msg(' ')
end sub
#################################################################
sub Wall()
UO.Set('lasttarget','laststatus')
uo.waittargettile("400",str(uo.getx("lasttarget")),str(uo.gety("lasttarget")),str(uo.getz("lasttarget")))
uo.cast("Wall of Stone")
end sub
sub WallOfStone()
uo.cast("Wall of Stone")
end sub
Sub Paralyzefield()
uo.cast("Paralyze Field")
end sub
sub dom()
UO.FindType('0x1F14',-1,'my')
wait(200)
UO.Print("!!Прыгаем!!!")
UO.Cast('Recall','finditem')
end sub
##############################################################
sub Drop()
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')-1), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')+1), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(500)
UO.Cast('Clumsy','laststatus')
wait(2000)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')-1), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')+1), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')-1), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
UO.Cast('Clumsy','laststatus')
wait(2000)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')+1), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')-1), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')+1), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
uo.FindType('0x0f0d', '0x0B99', '1')
uo.waittargetObject('finditem')
uo.Cast('Clumsy')
end sub
###############################################################################################################3
sub ExpDrop()
VAR expcount
For expcount=1 to 9
uo.print('---'+str(5-expcount)+'---')
uo.FindType('0x0F0D','0x0B99','backpack')
uo.Drop('1', Str(uo.GetX('laststatus')), Str(uo.GetY('laststatus')), Str(uo.GetZ('laststatus')), 'finditem')
wait(400)
Next
uo.print('---!Ща рванет!---')
uo.FindType('0x0F0D','0x0B99','ground')
uo.cast('Clumsy','finditem')
end sub
##############################################
sub grab()
UO.Ignore( 'self' )
UO.Set( 'finddistance', '2' )
Repeat
UO.FindType( '-1', '-1', 'ground' )
UO.Grab( '1', 'finditem' )
wait(500)
Until UO.FindCount() == 0
endsub
##############################################
sub terminate()
UO.Print("ALL OFF")
uo.exec("terminate all")
end sub
###############################################
sub S()
uo.addobject("undressbag")
while uo.targeting()
wait(100)
wend
uo.exec("setdressspeed 600")
uo.undress()
end sub
################################################
sub D()
Uo.settdress('Wmot')
Uo.Print('Clothing Set')
wait(100)
wend
uo.exec("setdressspeed 400")
uo.dress('Wmot')
end sub
#######################################################################
sub Reagents()
VAR StoreRegCont=0x40337518
VAR CharRegBag='CharRegBag'
VAR CountReg=50
VAR WaitTime=600
VAR MainSafe=0x403337DA
uo.print('Выбери Мешок:')
uo.exec('addobject CharRegBag')
while uo.targeting()
wait(100)
wend
UO.UseObject(MainSafe)
UO.UseObject(StoreRegCont)
UO.SetReceivingContainer(CharRegBag)
wait(WaitTime)
if UO.BM<CountReg then
UO.FindType('0x0F7B','-1',StoreRegCont) ; BM
UO.Grab(STR((CountReg-UO.BM)),'finditem')
wait(WaitTime)
endif
if UO.BP<CountReg then
UO.FindType('0x0F7A','-1',StoreRegCont) ; BP
UO.Grab(STR(CountReg-UO.BP),'finditem')
wait(WaitTime)
endif
if UO.GA<CountReg then
UO.FindType('0x0F84','-1',StoreRegCont) ; GA
UO.Grab(STR(CountReg-UO.GA),'finditem')
wait(WaitTime)
endif
if UO.GS<CountReg then
UO.FindType('0x0F85','-1',StoreRegCont) ; GS
UO.Grab(STR(CountReg-UO.GS),'finditem')
wait(WaitTime)
endif
if UO.MR<CountReg then
UO.FindType('0x0F86','-1',StoreRegCont) ; MR
UO.Grab(STR(CountReg-UO.MR),'finditem')
wait(WaitTime)
endif
if UO.NS<CountReg then
UO.FindType('0x0F88','-1',StoreRegCont) ; NS
UO.Grab(STR(CountReg-UO.NS),'finditem')
wait(WaitTime)
endif
if UO.SA<CountReg then
UO.FindType('0x0F8C','-1',StoreRegCont) ; SA
UO.Grab(STR(CountReg-UO.SA),'finditem')
wait(WaitTime)
endif
if UO.SS<CountReg then
UO.FindType('0x0F8D','-1',StoreRegCont) ; SS
UO.Grab(STR(CountReg-UO.SS),'finditem')
endif
end:
UO.UnsetReceivingContainer()
Uo.Print('Well Done!!!')
end sub
#######################ANIMAL#####################################
sub horse_attack()
Var hrsT, hrsC
;hrsT = "0x00CC" # тип зверька
;hrsC = "0x031C" # его цвет
;hrsT = "0x00E2" # тип зверька Mustang Rozovii
;hrsC = "0x0279" # его цвет
;hrsT = "0x00DA" # тип зверьк
;hrsC = "0x0455" # его цвет
; hrsT = "0x00E2" # тип зверьк Mustang gray
; hrsC = "0x03E7" # его цвет
;hrsT = "0x00D2" # тип зверька Oclock
;hrsC = "0x0000" # его цвет
;hrsT = "0x00CC" # тип зверька Mustang REd
;hrsC = "0x01B6" # его цвет
;hrsT = "0x00DB" # тип зверька Orn
; hrsC = "0x0000" # его цвет
;hrsT = "0x00CC" # тип зверька Horse
;hrsC = "0x0000" # его цвет
hrsT = "0x00CC" # тип зверька Nightmare
;hrsC = "0x0901" # его цвет
hrsC = "0x0BB6" # его цвет UNICORN
; hrsT = "0x00DA" # тип зверька Black Shade
; hrsC = "0x0455" # его цвет
;hrsT = "0x00DA" # тип зверька Zostrich
;hrsC = "0x0000" # его цвет
;hrsT = "0x00E4" # тип зверька Avril
;hrsC = "0x0000" # его цвет
UO.Set("finddistance", "4")
UO.FindType(hrsT, hrsC, "ground")
If UO.FindCount() > 0 Then
UO.UseFromGround(hrsT)
Else
UO.UseObject("self")
UO.WaitTargetObject("laststatus")
UO.Say("all kill")
End If
end sub
#########################################################
sub ress()
UO.SetArm('Weapon')
UO.WaitTargetObject("laststatus")
uo.usetype('0x0E21')
Uo.Say('Поднимись ДруК Мои!!!')
wait(400)
UO.Arm('Weapon')
end sub
##########################################################3
sub lol()
UO.cast('Protection','self')
wait (2000)
UO.cast('Reactive Armor','self')
wait (2000)
UO.cast('Magic Reflection','self')
wait(3000)
UO.cast('Arch Protection','self')
end sub
#########################################################
sub TS()
VAR TravelStone='0x0EDE'
UO.UseFromGround(TravelStone)
wait(200)
UO.LClick(407,277)
Uo.Print('MOVE TO Duels Arena')
#Uo.Say('I go on duel arena... Up to a meeting Loosers! ')
end sub
###########################################################
sub Grabbomb()
UO.Ignore( 'self' )
UO.Set('finddistance','3')
Repeat
Uo.FindType('0x0F0D','0xffff','ground')
wait(100)
UO.Grab( '1', 'finditem' )
wait(500)
Until UO.FindCount() == 0
end sub
sub test()
uo.print('по русски')
uo.print("по русски")
uo.print('по русски')
uo.print("по русски")
end sub
sub Farmer()
uo.usefromground('0x0C76')
uo.usefromground('0x0C7D');a corn stalk
uo.usefromground('0x0C6F') ;onion
uo.usefromground('0x0C4F');bale of cotton
uo.usefromground('0x0C76')
uo.usefromground('0x0C76')
end sub
sub ExplodeHim112()
VAR i, pack='0x403FBDE1',FirstBomb, FirstFlag=1, CountEX
VAR ExHP=20 ; 1 bomb hits
CountEX=INT(UO.GetHP('lastattack')/ExHP+0.99)
UO.Print(STR(CountEX)+" explodov nado :)")
For i=1 to CountEX
UO.FindType('0x0F0D','0x0B99',pack)
If UO.GetQuantity('finditem') Then
If FirstFlag Then
FirstFlag=0
FirstBomb='finditem'
Endif
;CheckLag()
UO.Drop('1',STR(UO.GetX('lastattack')),STR(UO.GetY('lastattack')),STR(UO.GetZ('lastattack')),'finditem')
wait(550)
Else
UO.Print("Explosives not found!")
EndIf
Next
UO.Cast('Magic Arrow',FirstBomb)
end sub
######### Одевалка ##########
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('0x4000B44E','7') ; Армор(Композит)
REPEAT
Wait(300)
Until UO.ObjAtLayer('Torso')
End If
If NOT UO.ObjAtLayer('Horse') Then
UO.Recall('0x4000B553','8') ; Зострич
REPEAT
REPEAT
Wait(300)
Until UO.ObjAtLayer('Horse')
End If
For n = 1 TO Select[0]
If UO.Count(Item[n])==0 Then
UO.Recall('0x4000B553',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 BowPVP()
uo.say('.arm_bow ')
uo.print('Ебашим с лука!!!')
Uo.fontcolor('0x00ad')
uo.Say('Roobin God Power!!!')
end sub
sub Bank()
Uo.fontcolor('0x00ad')
uo.say("Legushka Where is bank ?")
wait(500)
Uo.fontcolor('0x0003')
uo.say("I need to buy a bubble ")
wait(500)
Uo.fontcolor('0x0026')
uo.say("I am compelled to call guards bye !")
end sub
Sub Bowdrw()
Var bow='0x13B1' ;Тип лука, используемого вами.
UO.Equipt('Lhand',bow)
uo.print('Ебашим с лука!!!')
Uo.fontcolor('0x00ad')
uo.Say('Roobin God Power!!!')
end sub
sub ttext2()
VAR x=5
while True
if UO.InJournal("WOLVERINE:") Then
UO.FontColor(x)
x=x+1
if x == 200 then
x=5
endif
endif
wait(30)
Wend
end sub
Sub Win()
uo.Msg('Наказан!!!')
wait(800)
uo.msg('Учись играть!!!')
wait(800)
uo.Msg('Жду новых встреч!!!')
end sub
sub TeleportSelfUP()
UO.WaitTargetTile("400",str(uo.getx("self")-1),str(uo.gety("self")-1),str(uo.getz("self")-12))
UO.Cast("Teleport")
end sub
sub TeleportSelDown()
UO.WaitTargetTile("400",str(uo.getx("self")+1),str(uo.gety("self")+1),str(uo.getz("self")-12))
UO.Cast("Teleport")
end sub
sub TeleportSelRight()
UO.WaitTargetTile("400",str(uo.getx("self")+1),str(uo.gety("self")-1),str(uo.getz("self")-12))
UO.Cast("Teleport")
end sub
sub TeleportSelLeft()
UO.WaitTargetTile("400",str(uo.getx("self")-1),str(uo.gety("self")+1),str(uo.getz("self")-12))
UO.Cast("Teleport")
end sub
sub Saver()
Var hrsT, hrsC
;hrsT = "0x00CC" # тип зверька
;hrsC = "0x031C" # его цвет
;hrsT = "0x00E2" # тип зверька Mustang Rozovii
;hrsC = "0x0279" # его цвет
;hrsT = "0x00DA" # тип зверьк
;hrsC = "0x0455" # его цвет
; hrsT = "0x00E2" # тип зверьк Mustang gray
; hrsC = "0x03E7" # его цвет
; hrsT = "0x00D2" # тип зверька Oclock
;hrsC = "0x0000" # его цвет
;hrsT = "0x00CC" # тип зверька Mustang REd
;hrsC = "0x01B6" # его цвет
;hrsT = "0x00DB" # тип зверька Orn
; hrsC = "0x0000" # его цвет
;hrsT = "0x00CC" # тип зверька Horse
;hrsC = "0x0000" # его цвет
;hrsT = "0x00CC" # тип зверька Nightmare
;hrsC = "0x0901" # его цвет
; hrsC = "0x0BB6" # его цвет UNICORN
; hrsT = "0x00DA" # тип зверька Black Shade
; hrsC = "0x0455" # его цвет
hrsT = "0x00DA" # тип зверька Zostrich
hrsC = "0x0000" # его цвет
;hrsT = "0x00E4" # тип зверька Avril
;hrsC = "0x0000" # его цвет
UO.Set("finddistance", "4")
UO.FindType(hrsT, hrsC, "ground")
If UO.FindCount() > 0 Then
UO.UseFromGround(hrsT)
Else
UO.UseObject("self")
UO.WaitTargetObject("laststatus")
UO.Say("Кусика меня")
End If
end sub
sub Loot3()
VAR dagger='0x0F51'
uo.exec('set finddistance 2')
uo.waittargetobject('lastcorpse')
uo.UseType(dagger)
uo.ignore('self')
uo.findtype(-1,-1,'ground')
while uo.findcount() > 0
uo.findtype(-1,-1,'ground')
uo.ignore('finditem')
uo.grab('all','finditem')
Wait(500)
wend
uo.ignorereset()
uo.exec('set finddistance 15')
endsub
Вобщем вот скрипт!! Почемуто не пьёт бутылки!! Пишет какойто GONG!!