No replies to this topic

[IGROK23]

sub kamp()
wait (30000)
UO.AutoMenu ('Camping', 'campfire')
UO.UseType( 0x0DE1 )
wend
wend
end sub


sub Stealth()
var i=1
repeat
for i=1 to 8
if not uo.hidden() then
UO.DeleteJournal()
UO.UseSkill("Hiding")
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You have") or UO.InJournal("You can")
end if
uo.press(35)
uo.press(35)
uo.press(35)
uo.press(35)
wait(200)
next
for i=1 to 8
if not uo.hidden() then
UO.DeleteJournal()
UO.UseSkill("Hiding")
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You have") or UO.InJournal("You can")
end if
uo.press(33)
uo.press(33)
uo.press(33)
uo.press(33)
wait(200)
next
Wait(100)
until UO.Dead()
end sub

sub Reconnect()

var ReconnectTime,rflag

ReconnectTime='0'

rflag=1

repeat

while (uo.ObjAtLayer('Bpack')=='')

if rflag then

ReconnectTime=Time()

rflag=0

end if

wait(30000)

uo.Say('112') #Аккаун

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.TextOpen()

uo.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)

rflag=1

ReconnectTime='0'

end if

until false

end sub

sub Time()

var Date,nTime,uTime,i

uTime=str(uo.Time())

nTime=''

for i=0 to Len(uTime)

nTime=uTime[Len(uTime)-i]+nTime

if (i==2) or (i==4) then

nTime=':'+nTime

end if

next

uTime=str(uo.Date())

Date=''

for i=0 to Len(uTime)

Date=uTime[Len(uTime)-i]+Date

if (i==2) or (i==4) then

Date='.'+Date

end if

next

uTime=nTime+' @ '+Date

return uTime

end sub