Да кому он нужен если от него клиент так колбасит? КТО ИСПРАВИТ ЧТОБЫ ЕГО НЕ ГЛЮЧИЛО (ЛЮБЫМИ МЕТОДАМИ ВПЛОТЬ ДО СМЕНЫ ВИНДОВСА ИЛИ СМЕНЫ ИНЖЕКТА - 5 ВМЗ
Это лишь маленькое вознаграждение за потраченное вами время
Заранее спасибо
ПСы: Пишите в асю 45250329
Code:
var XX = 0
var YY = 0
var XXX = 0
var YYY = 0
var inviz=0
var f
var i,j=0
var cpx=833
var timeoutcount=0
var pathteleport=4
var rc=0
var timeout=0
var tmpx=0
var tmpy=0
var tmpid=0
var pop=0
sub kop()
var posx = UO.Getx()
var posy = UO.Gety()
var Shagx = 0
var Shagy = 0
var tm = 0
var t = 0
var Napr = 1
XX=val(uo.getglobal("XXX"))
YY=val(uo.getglobal("YYY"))
Uo.Print("XX "+str(XX))
Uo.Print("YY "+str(YY))
Vikapivanie:
if UO.Weight > 700 then
Uo.Print("Ves nabran")
Goto Terminate
endif
uo.deletejournal()
tm=0
t=UO.lasttile(0)
uo.waittargettile(str(t),str(uo.GetX()),str(uo.GetY()),"0")
uo.usetype("0x0E85")
repeat
tm = tm + 500
Wait(500)
UO.Print(str(tm))
until uo.injournal("There is no ore") OR uo.injournal("You put") OR uo.injournal("Try mining") OR tm > 15000
if uo.injournal("There is no ore") OR uo.injournal("Try mining") OR uo.injournal("Iron") then
Goto Go
else
Goto Vikapivanie
endif
Goto Vikapivanie
Go:
if Shagy < (YY-1) and Shagy > -1 then
if (Shagx)==0 OR (Shagx-2)==0 OR (Shagx-4)==0 OR (Shagx-6)==0 OR (Shagx-8)==0 OR (Shagx-10)==0 OR (Shagx-12)==0 OR (Shagx-14)==0 OR (Shagx-16)==0 then
Shagy = Shagy + 1
endif
pop=0
repeat
pop=pop+1
UO.Print("ShagY "+str(Shagx))
UO.Print("Popitka "+str(pop))
if (Shagx)==0 OR (Shagx-2)==0 OR (Shagx-4)==0 OR (Shagx-6)==0 OR (Shagx-8)==0 OR (Shagx-10)==0 OR (Shagx-12)==0 OR (Shagx-14)==0 OR (Shagx-16)==0 then
UO.Press(35)
Wait(500)
CheckLag()
Wait(500)
UO.Print("GetY "+str(UO.GetY()))
else
UO.Press(33)
Wait(500)
CheckLag()
Wait(500)
UO.Print("GetY "+str(UO.GetY()))
endif
until UO.Gety() == posy+Shagy OR pop > 15
if pop > 15 then
Goto Terminate
endif
if (Shagx-1)==0 OR (Shagx-3)==0 OR (Shagx-5)==0 OR (Shagx-7)==0 OR (Shagx-9)==0 OR (Shagx-11)==0 OR (Shagx-13)==0 OR (Shagx-15)==0 then
Shagy = Shagy - 1
endif
else
UO.Print("SHAGx "+str(Shagx))
Shagx = Shagx + 1
if Shagx == XX then
Goto Terminate
endif
pop=0
repeat
pop=pop+1
UO.Print("ShagX "+str(Shagx))
UO.Print("Popitka "+str(pop))
UO.Press(34)
Wait(500)
CheckLag()
Wait(500)
until UO.Getx() == posx+Shagx OR pop > 15
if pop > 15 then
Goto Terminate
endif
if Shagy==(YY-1) then
Shagy= YY - 2
else
Shagy=0
endif
endif
Goto Vikapivanie
Terminate:
UO.Print("VSYO")
uo.setglobal("mine","0")
uo.exec(',terminate Podbir')
end sub
sub podbir()
repeat
if uo.injournal("found") then
UO.TextOpen()
UO.TextPrint('Подобрали!!!!!!!!!')
uo.findtype("0x19B9",-1,"ground")
if uo.findcount() > 0 then
Wait(500)
uo.moveitem('finditem',-1,'backpack')
endif
uo.findtype("0x19B8",-1,"ground")
if uo.findcount() > 0 then
Wait(500)
uo.moveitem('finditem',-1,'backpack')
endif
uo.findtype("0x19BA",-1,"ground")
if uo.findcount() > 0 then
Wait(500)
uo.moveitem('finditem',-1,'backpack')
endif
uo.findtype("0x19B7",-1,"ground")
if uo.findcount() > 0 then
Wait(500)
uo.moveitem('finditem',-1,'backpack')
endif
uo.deletejournal()
endif
Wait (500)
until UO.Dead()
end sub
sub alarm()
DIM RnID[10], RnX[10], RnY[10]
RnId[1]="0x409A7ADB"
RnId[2]="0x409A7EF2"
RnId[3]="0x402459EB"
RnId[4]="0x409A7EF0"
RnId[5]="0x409A7AD8"
RnId[6]="0x409A805A"
RnId[7]="0x409A7EF1"
RnId[8]="0x409A8058"
RnId[9]="0x409A7C3A"
RnId[10]="0x409A7CE6"
RnX[1]="10"
RnX[2]="15"
RnX[3]="10"
RnX[4]="9"
RnX[5]="11"
RnX[6]="4"
RnX[7]="11"
RnX[8]="15"
RnX[9]="12"
RnX[10]="20"
RnY[1]="5"
RnY[2]="7"
RnY[3]="4"
RnY[4]="6"
RnY[5]="4"
RnY[6]="16"
RnY[7]="6"
RnY[8]="4"
RnY[9]="7"
RnY[10]="4"
uo.setglobal("inv","0")
uo.setglobal("mine","0")
uo.deletejournal()
srt:
repeat
wait(100)
until not (trouble()) or uo.dead()
uo.exec("terminate kop")
uo.exec("terminate Podbir")
timeout=0
inviz=uo.getglobal("inv")
inviz=val(inviz)
uo.print("inviz is")
uo.print(str(inviz))
if inviz==1 then
uo.usetype(0x0F09)
endif
recall:
uo.deletejournal()
timeout=0
UO.cast("Recall")
uo.waittargettype("0x1F14")
repeat
timeout=timeout+500
wait(500)
uo.print(str(timeout))
uo.print(str(uo.getx()))
until uo.getx()==cpx or (timeout>5000) or uo.injournal("Unexpected target info")
uo.deletejournal()
if not uo.getx()==cpx then
goto recall
else
uo.say("i am AT HOME!")
endif
Wait(5000)
uo.waittargettype("0x1F14")
uo.useskill('Taste Identification')
Wait(5000)
uo.findtype(0x0F0E,-1,"mbp")
uo.moveitem('finditem',0,'regbag')
UO.findtype(0x19b9)
while UO.findcount()>0
UO.setReceivingcontainer('sunduk')
UO.findtype(0x19b9)
UO.moveitem('finditem',0,'sunduk')
wait (2500)
wend
UO.findtype(0x19b8)
while UO.findcount()>0
UO.setReceivingcontainer('sunduk')
UO.findtype(0x19b8)
UO.moveitem('finditem',0,'sunduk')
wait (2500)
wend
UO.findtype(0x19ba)
while UO.findcount()>0
UO.setReceivingcontainer('sunduk')
UO.findtype(0x19ba)
UO.moveitem('finditem',0,'sunduk')
wait (2500)
wend
timeout=0
if uo.count(0x0F09) < 2 then
uo.findtype(0x0F09,-1,"regbag")
uo.useobject("regbag")
wait(2500)
while uo.count(0x0F09)<3
uo.findtype(0x0F09,-1,"regbag")
uo.print(str(uo.findcount()))
uo.moveitem("finditem",0,"mbp")
wait(2500)
wend
endif
if uo.bp<10 or uo.bm<10 or uo.mr<10 then
uo.useobject("regbag")
wait(4000)
uo.findtype(0x0f7b,-1,"regbag")
uo.print(str(uo.findcount()))
uo.moveitem("finditem",str(15),"mbp")
wait(2000)
uo.findtype(0x0f7a,-1,"regbag")
uo.print(str(uo.findcount()))
uo.moveitem("finditem",str(15),"mbp")
wait(2000)
uo.findtype(0x0f86,-1,"regbag")
uo.print(str(uo.findcount()))
uo.moveitem("finditem",str(15),"mbp")
wait(5000)
endif
if uo.bp<8 or uo.bm<8 or uo.mr<8 then
goto regs
endif
if uo.mana < 40 then
while uo.mana < 40
Wait (1000)
wend
endif
uo.print("Teleporting")
pathteleport=pathteleport+1
if (pathteleport==11) then
pathteleport=1
uo.waittargettype("0x1f14")
wait(200)
uo.cast("Mark")
wait(5000)
endif
tmpx=RnX[pathteleport]
tmpy=RnY[pathteleport]
tmpid=RnId[pathteleport]
uo.setglobal("XXX",tmpx)
uo.setglobal("YYY",tmpy)
telep:
timeout=0
uo.cast("Recall",tmpid)
uo.deletejournal()
while uo.getx()==cpx and timeout<9000
timeout=timeout+500
wait(500)
uo.print(str(timeout))
wend
if uo.getx()==cpx then
goto telep
endif
uo.exec("exec kop")
uo.exec("exec Podbir")
uo.deletejournal()
goto srt
end sub
sub trouble()
if uo.injournal("lemental") then
uo.setglobal("inv","1")
uo.setglobal("mine","1")
uo.exec("exec ubig")
return false
else
var inv="skop"
var empty="Empty!!"
var str=""
var stnum=9
var i=0
var mine=0
mine=uo.getglobal("mine")
mine=val(mine)
if mine==0 then
uo.setglobal("mine","1")
uo.setglobal("inv","0")
return false
endif
for i=0 to stnum
str=uo.journal(i)
if str==inv then
uo.setglobal("inv","0")
return false
endif
if len(str)==0 then
str=empty
endif
if len(str) > 6 then
str=Left(str,7)
Endif
if detect(str)==true then
else
uo.setglobal("inv","1")
return false
endif
next
return true
endif
end sub
sub ubig()
UO.Press(34)
Wait(200)
UO.Press(34)
Wait(200)
UO.Press(34)
Wait(400)
UO.Press(34)
Wait(400)
UO.Press(34)
Wait(400)
UO.Press(34)
Wait(400)
UO.Press(34)
Wait(400)
UO.Press(33)
Wait(400)
UO.Press(33)
Wait(400)
UO.Press(33)
Wait(400)
end sub
sub detect(cutword)
if len(cutword) < 7 then
return false
else
Var ExitMesNum=19
Dim ExitMes[20]
ExitMes[1]='You put'
ExitMes[2]='There i'
ExitMes[3]='Try min'
ExitMes[4]='Where d'
ExitMes[5]='Select '
ExitMes[6]='Empty!!'
ExitMes[7]='TORMENT'
ExitMes[8]='You loo'
ExitMes[9]='You dam'
ExitMes[10]='You bro'
ExitMes[11]='You mus'
ExitMes[12]='Targeti'
ExitMes[13]='You are'
ExitMes[14]='Unexpec'
ExitMes[15]='Belochk'
ExitMes[16]='That is'
ExitMes[17]='Peacema'
ExitMes[18]='a backp'
ExitMes[19]='You hav'
Var J=False
Var I=1
For I=1 to ExitMesNum
If cutword==ExitMes[I] Then
J=True
EndIf
Next
RETURN J
Endif
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
UO.Exec('terminate all')
Wait(20000) # WorldSave Protection
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
Wait(20000)
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.TextOpen()
UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
UO.Exec('exec Alarm')
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
Register
Login
FAQ
Search
