Ещё скрипты

Поделиться12007-01-06 20:16:14

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

МАГЕРИ!

sub Magery()
var LastTimer
while not uo.Dead()
uo.DeleteJournal()
CheckLag()
while uo.Mana>16
uo.Cast('Poison','self')
wait(2700)
wend
while uo.Mana<uo.INT
LastTimer=uo.Timer()
uo.UseSkill('Meditation')
repeat
wait(100)
until uo.InJournal("You are") or uo.InJournal("You lose") or uo.Timer()>LastTimer+200
uo.DeleteJournal()
wait(2000)
wend
wend
end sub

sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(500)
until uo.InJournal('backpack')
end sub

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
wait(1000)
UO.Exec('exec main')
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

0

Поделиться22007-01-06 20:17:04

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

АНАТОМИЯ

sub Anatomy()
var Exit=0
while Exit==0
uo.DeleteJournal()
uo.Waittargetself()
uo.Useskill('Anatomy')
while not (uo.InJournal('looks')or uo.InJournal('You'))
wait(1000)
wend
wend
end sub

0

Поделиться32007-01-06 20:17:30

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

ФИШИНГ!

sub fishing()
var mx, my, mz, i, j
uo.print('Укажите ведро.')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
for i = mx-4 to mx+4
for j = my -4 to my+4
if UO.dead() then
return
endif
while not UO.Hidden()
UO.Warmode("0")
uo.print("hiding...")
UO.UseSkill("Hiding")
wait(4000)
wend

UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0DBF") ;FishingPole
if UO.dead() then
return
endif
if UO.Weight>660 then
return
endif
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("in water")
wait (100)
if UO.InJournal("You pull") then
UO.SetReceivingContainer('Bag')
UO.findtype('0x09CC','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CD','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CE','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x09CF','0x0000','ground') ;fish
UO.grab ('3','finditem')
wait (200)
UO.findtype('0x14EB','0x0000','ground') ;tattered map
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x05F6','ground') ;Truly rare fish
UO.grab ('1','finditem')
wait (200)
UO.findtype('0x0DD6','0x01BB','ground') ;Prize fish
UO.grab ('1','finditem')
wait (200)
UO.UnSetReceivingContainer()
end if
wend
wend
UO.DeleteJournal()
next
next
end sub

0

Поделиться42007-01-06 20:17:54

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

ПВП :lol:

##########################################
# Пылесос #
##########################################
sub Pylesos()
UO.IgnoreReset()
UO.Set('finddistance','3')
UO.FindType('-1','-1','ground')
While UO.FindCount()
UO.MoveItem('finditem',0,'BagForLoot')
Wait(500)
UO.Ignore('finditem')
UO.FindType('-1','-1','ground')
WEnd
end sub
##########################################
# Бинты #
##########################################
sub Bandage() #Лечение бинтом и одевания оружия F1
var Heater = '0x1b76'
var Round = '0x1b72'
var Buckler = '0x1b73'
var Metal = '0x1b7b'
var Maul = '0x143A'
var Mace = '0x0F5C'
var WarMace = '0x1406'
var Catana = '0x13fe'
var BroadSword = '0x0f5e'
var VikingSword = '0x13b9'
var Longsword = '0x0F60'
var Halberd = '0x143E'
var WarHammer = '0x1438'
UO.WaitTargetSelf()
UO.UseType( 'bandage' )
wait(500)
uo.equipt('Rhand',Longsword)
UO.UseType( Heater ) #Щит (если не надо, то комент перед строкой)

end sub
###########################################
# ЛУТ #
###########################################

sub cut()
var Maul = '0x143A'
var Mace = '0x0F5C'
var WarMace = '0x1406'
var Catana = '0x13fe'
var BroadSword = '0x0f5e'
var VikingSword = '0x13b9'
var Longsword = '0x0F60'
var Halberd = '0x143E'
var WarHammer = '0x1438'
var Dagger = '0x0F51'
#
var LootPack = '0x401511a6'
#
VAR CorpseSer
uo.setreceivingcontainer(LootPack)
if UO.Count( Dagger ) < 1 then
UO.Print( "Dagger not found" )
else
UO.Print( "Click target to corpse" )
UO.usetype( Dagger )
wait( 500 )
while UO.Targeting()
wait(100)
wend
uo.equipt('Rhand',Longsword)# ОДЕВАЕМ ДЕВАЙС ОБРАТНО
wait( 1000 )
CorpseSer = UO.GetSerial( "lasttarget" )

uo.emptycontainer( 1000, CorpseSer)
end if
uo.unsetreceivingcontainer()
end sub
#####################################
#####################################
# просто хайд #
#####################################
sub Hide()
UO.WarMode(0)
UO.UseSkill('Hiding')
Wait(4000)
endsub

#####################################
#### Говорилки ####
#####################################
sub Guards() #
UO.Msg('Guards') #
endsub #
# #
sub Bank() #
UO.Msg('bank') #
endsub #
# #
sub Trashersell() #
UO.Msg('Trasher sell') #
endsub #
#####################################

0

Поделиться52007-01-06 20:18:49

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

СПИРИТ СПИК И ЕВАЛЮШОН ИНТ.

var obj='0x002179AD'
sub Evaluate()
var count=0,i=0
uo.useobject('backpack')
UO.Exec('terminate Reconnector')
wait(1000)
UO.Exec('exec Reconnector')
wait(1000)
i=0
repeat
i=i+1
cheklag()
uo.print("Evaluating...")
UO.Useskill('Evaluating',obj)
wait(5500)
if i==30 then
uo.usetype('0x097B')
wait(1000)
i=0
cheklag()
uo.print("Spirit Speak...")
uo.useskill ("Spirit Speak")
uo.deletejournal()
repeat
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
end if
until UO.Dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub

sub Reconnector()
var ReconnectTime, RFlag
ReconnectTime = '0'
RFlag = 1
Repeat
While (UO.ObjAtLayer('Bpack') == '')
if RFlag Then
ReconnectTime = MakeTime()
RFlag = 0
endif
Wait(20000) # WorldSave Protection
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.Say('')
Wait(3000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(3000)
WEnd
Wait(3000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate Evaluate')
wait(1000)
UO.Exec('exec Evaluate')
wait(1000)
UO.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
RFlag = 1
ReconnectTime = '0'
endif
Until false
end sub

sub MakeTime()
VAR D, T, Ret, i
Ret = STR(UO.Time())
T = ""
For i = 0 To Len(Ret)
T = Ret[Len(Ret)-i] + T
If (I == 2) OR (I == 4) Then
T = ":" + T
EndIf
Next
Ret = STR(UO.Date())
D = ""
For i = 0 To Len(Ret)
D = Ret[Len(Ret)-i] + D
If (I == 2) OR (I == 4) Then
D = "." + D
EndIf
Next
Ret = T + " @ " + D
RETURN Ret
end sub

0

Поделиться62007-01-06 20:19:13

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

ХЕАЛИНГ

sub Healing()

While True
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
wait(3150)

If UO.InJournal("now")Then
wait(120000)
UO.Arm('CWeapon')
wait(1500)
UO.DeleteJournal()

UO.FindType(0x0E20,"-1","my")
If UO.FindCount() then
uo.UseType(0x0E20) ;bloody bandages
uo.waittargettype(0x1008) ;wash basin
wait(1500)
else
wait(1000)
uo.print("You have no bandages")
UO.Exec("playwav d:\game\uo\injection\cow")
endif
endif

If UO.InJournal("cure") Then ;иногда может проглючить
UO.Exec("playwav d:\game\uo\injection\cow")
wait(5000)
UO.DeleteJournal()
endif

UO.Useskill('Spirit Speak')
wait(500)
wend

end sub

0

Поделиться72007-01-06 20:20:11

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

ЕЩЁ ОДИН ВИПД ХЕАЛИНГА

sub Train_Healing()
var i,j,tekstr
uo.undress()
wait(100)
repeat
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then
tekstr=uo.str
wait(200)
cheklag()
uo.usetype(0x0E85); Cursed Hat
uo.useskill ("Spirit Speak")

wait(2000)
j=0
repeat
wait(10)
j=j+1
until (uo.life <= tekstr-1) or (j>1000)
cheklag()
uo.undress()
wait(200)
cheklag()
uo.exec('bandageself')
Wait(2000)
else

UO.FindType(0x0E20,"-1","my")
if UO.FindCount() then
cheklag()
uo.waittargettype(0x1008) # wash basin
uo.UseType(0x0E20) #bloody bandages
else
cheklag()
uo.print("You haven't bandages")
uo.exec("terminate Train_Healing")
Play_Sound(1)
endif
endif
until uo.dead()

end sub
sub cheklag()
uo.deletejournal()
uo.click('backpack')
Repeat
wait(100)
Until UO.InJournal("backpack")
end sub

0

Поделиться82007-01-06 20:20:40

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

ЛОВЛЯ КАРТ,ЛОВИТ ТОКА КРАТЫ!!!

sub Maps_only()
var mx, my, mz, i, j
mx = UO.GetX('self')
my = UO.GetY('self')
mz = UO.GetZ('self')
UO.DeleteJournal()
while true
for i = mx-6 to mx+6
for j = my -6 to my+6
UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water")
UO.DeleteJournal()
UO.Waittargettile("6043", str(i), str(j), str(mz))
UO.Usetype('0x0DBF')
while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water")
wait (100)
wend
if UO.InJournal("You pull") then
#UO.WaitTargetGround('0x09CC') ; fish1
#wait(500)
#UO.Grab()

#UO.WaitTargetGround('0x09CD') ; fish2
#wait(500)
#UO.Grab()

#UO.WaitTargetGround('0x09CE') ; fish3
#wait(500)
#UO.Grab()

#UO.WaitTargetGround('0x09CF') ; fish4
#wait(500)
#UO.Grab()

#UO.WaitTargetGround('0x0DD6') ; small fish
#wait(500)
#UO.Grab()

UO.WaitTargetGround('0x14EB') ; maps
wait(500)
UO.Grab()
next
next
endif

wend
UO.DeleteJournal()
next
next
endif
wend
Endsub

0

Поделиться92007-01-06 20:21:03

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

СПАРРИНГ

sub sparing()
VAR E, t, Enemy='0x0023119F' , MinHP=50, G=true, L, Weapon='0x13FC', Shield='0x0000' ; type of weapon
Var Weap
UO.WarMode(1)
UO.Attack(Enemy)
UO.DeleteJournal()
if not Shield=='0x0000' then
if not UO.ObjAtLayer("Lhand") then
UO.equipt('Lhand',Shield)
wait(800)
Checklag()
else
Weap=UO.ObjAtLayer("Lhand")
if uo.GetGraphic(Weap)<>Shield then
UO.equipt('Lhand',Shield)
wait(800)
Chacklag()
end if
end if
end if
if not Weapon=='0x0000' then
if not UO.ObjAtLayer("Rhand") then
UO.equipt('Rhand',Weapon)
wait(800)
Checklag()
else
Weap=UO.ObjAtLayer("Rhand")
if uo.GetGraphic(Weap)<>Weapon then
UO.equipt('Rhand',Weapon)
wait(500)
Chacklag()
end if
end if
end if
while G==true
wait(500)
if UO.InJournal("stay") or UO.Life<MinHP then
UO.Say("stay")
t=UO.Timer()
repeat
E=true
UO.Exec('warmode 0')
wait(500)
if UO.WarMode()==1 then
E=false
UO.Say("stay")
t=UO.Timer()
endif
until E==true and UO.Timer()>=t+30
CheckLag()
while UO.Life<UO.Str
L=UO.Life
UO.Exec('warmode 0')
DelJ("the")
t=UO.Timer()
UO.Exec('bandageself')
repeat
Wait(500)
until UO.InJournal("You put the bloody bandage") or UO.InJournal("barely help") or UO.InJournal("need healing") or UO.Life<L or UO.Timer()>t+100
CheckLag()
if UO.Life<L then
UO.Say("stay")
endif
wend
CheckBandage()
if not Shield=='0x0000' then
if not UO.ObjAtLayer("Lhand") then
UO.equipt('Lhand',Shield)
wait(800)
Checklag()
else
Weap=UO.ObjAtLayer("Lhand")
if uo.GetGraphic(Weap)<>Shield then
UO.equipt('Lhand',Shield)
wait(800)
Chacklag()
end if
end if
end if
if not Weapon=='0x0000' then
if not UO.ObjAtLayer("Rhand") then
UO.equipt('Rhand',Weapon)
wait(800)
Checklag()
else
Weap=UO.ObjAtLayer("Rhand")
if uo.GetGraphic(Weap)<>Weapon then
UO.equipt('Rhand',Weapon)
wait(500)
Chacklag()
end if
end if
end if
if not UO.InJournal("iiaoaee!") then
UO.Say("go")
repeat
wait(50)
until UO.InJournal("go") or UO.Life<UO.Str
DelJ(UO.GetName()+": go")
repeat
#UO.WaitTargetObject(0x4007057A)
#UO.UseSkill('Taste Identification')
wait(50)
until UO.InJournal("go") or UO.Life<UO.Str
else
UO.Say("go")
endif
UO.DeleteJournal()
UO.WarMode(1)
UO.Attack(Enemy)
endif
if UO.Dead() then
UO.WarMode(1)
endif
wend
end sub

sub DelJ(s)
VAR MN=UO.InJournal(s)
while MN > 0
UO.SetJournalLine(MN-1, '')
MN=UO.InJournal(s)
wend
end sub

sub CheckLag()
DelJ("backpack")
UO.Click('backpack')
repeat
wait(500)
until UO.InJournal('backpack')
end sub

sub CheckBandage()
VAR Banka='0x4043BC57' ; ID of wash basin
Var timer

UO.waittargetobject(banka)
UO.usetype(0x0e20)
Wait(1000)
UO.Exec('set finddistance 3')
UO.FindType('0x0F3F',-1,'ground')
if UO.findcount()>0 then
UO.Grab('0','finditem')
end if

end sub

0

Поделиться102007-01-06 20:21:35

Автор: TechNo
Администратор
Зарегистрирован: 2006-12-29
Приглашений: 0
Сообщений: 579
Уважение: +2
Позитив: 0
Провел на форуме:
1 день 13 часов
Последний визит:
2008-03-13 10:54:52

ЕЩЁ СПАРИНГ,ОН БОЛЕЕ РАБОЧИЙ,ЗАМЕНИТЕ АЙДИ ЧАРА ТОКА.

###################################################################
# #
# Sparring ver. 1.0 #
# #
###################################################################

VAR Char1='0x0031F301' # ID первого чара
VAR Char2='0x00385ABF' # ID второго чара
VAR MinLife=100 # минимальная жизнь

VAR TazikType='0x1008' # миска с водои
VAR BloodBndg='0x0E20' # крававый бинт

##################################################################
#
VAR Enemy, GO, STOP #
VAR GO1= 'GOO-1' #
VAR GO2= 'GOO-2' #
VAR STOP1='STOP-1' #
VAR STOP2='STOP-2' #
#
##################################################################

sub Start() #####################################################
uo.DeleteJournal()
if UO.GetSerial('self')==Char1 then
Enemy=Char2
GO=GO2
STOP=STOP2
else
Enemy=Char1
GO=GO1
STOP=STOP1
endif

uo.DeleteJournal()
wait(4000)
While not uo.InJournal(GO1) or not uo.InJournal(GO2)
uo.say(GO)
wait(3000)
wend

IF uo.InJournal('Ready') then
wait(3200)
Sparring()
else
uo.Say('Ready')
wait(5000)
Sparring()

end sub ########################################################

sub Sparring() #################################################

UO.Exec('warmode 1')
uo.DeleteJournal()
uo.DeleteJournal()
REPEAT
if uo.InJournal('apply bandages to self') then
StopWar()
else
wait(5000)
UO.Attack(Enemy)
end if
until uo.Life<=MinLife or uo.InJournal(STOP1) or uo.InJournal(STOP2) or uo.InJournal('apply bandages to self')
StopWar()

end sub ########################################################

sub StopWar() ##################################################

IF uo.InJournal(STOP1) or uo.InJournal(STOP2) then
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
Heling()
else

# While not uo.InJournal('apply bandages to self')
# UO.Say(STOP)
# UO.Exec("warmode 0")
# wait(2000)
# wend

UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(2000)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
wait(200)
UO.Say(STOP)
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
wait(200)
end if
Heling()

end sub ########################################################

sub Heling() ##################################################

UO.FindType('0x0E21','0x0000','backpack')
If UO.GetQuantity('finditem')<50 Then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType(TazikType)
UO.UseObject('finditem')
wait(1000)
Endif

while uo.Life<uo.STR
uo.SetArm('armset')
uo.disarm()
wait(200)
while uo.Life<uo.STR
uo.bandageself()
wait(3000)
UO.Exec("warmode 0")
wend
uo.arm('armset')
wait(2000)
wend

UO.Exec("warmode 0")
wait(200)

Start()

end sub ######################################################

0