Выскакивает ошибка. Фишинг. Загляните, кому не лень...)

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Acc ^
Posts: 13
Joined: 2007-07-06 16:48:27
Location: DrW

Выскакивает ошибка. Фишинг. Загляните, кому не лень...)

Post by Acc ^ »

Вот такой скрипт.
Встаю у воды, запускаю GOGOGO и выскакивает ошибка.
Line 27: Variable undefined - X

Что делать нужно? Вписать координаты? :oops:

Code: Select all

var net='0x0DCA' # тип сети 
var fishrar='0x0DD6' # тип рар/приз рыбки 
var seifformap1='0x402AC9E3' # 1 сэйф 
var seifformap2='0x402AC9E3' # 2-ой 
var seifformap3='0x402AC9E3' # 3-ий(точнее сумка во втором) 
var meshok='0x0E76' # тип пустых мешков 
var mapa='0x14EB' # тип мапы нерасшифрованной 
var ydochka='0x0DBF' # тип удочки 
var time 
var MneKartMalo=1 # 1 - собираем рар и приз рыбку и сети 
var meshokfish='0x402E2453' # мешок для рар/приз рыбы 
var meshoknet='0x402E257B' #мешок для сетей 
var RuneToHome=1 ## - Номер руны Домой,по счёту в рунбуке.
var RuneToFishing=3 ## - Номер руны в место где копаем,по счёту в рунбуке.
var ExplosionPotionType ='0x0F0D'# защита от экспложенов 


################################################################
sub GOGOGO()
uo.Print('Viberi Runebook: ') 
uo.Exec('addobject Runebook 0x40029961') 
while uo.Targeting() 
wait(100) 
wend 

begin:
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()
GoToXY(x,y,0)
fish()


ToRecall()
goto begin
end sub

################################################################
sub otdelenie()
uo.exec("usetype 0x0DD6 0x01BB")
end sub

################################################################
sub fish()
hiding()
var i,j, isfishing 
var mx = UO.GetX('self') 
var my = UO.GetY('self') 
var mz = UO.GetZ('self') 
UO.DeleteJournal() 
repeat 
for i = mx-6 to mx+6 
for j = my-6 to my+6 
isfishing = 1 
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(251))
UO.Usetype(ydochka)
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(200) 
wend 

Savecheck()
proverka() 
UO.findtype(mapa,'-1','ground') 
UO.moveitem('finditem','-1','backpack')
UO.findtype(ExplosionPotionType,'-1','ground') 
UO.moveitem('finditem','-1','backpack')
if MneKartMalo==1 then 
#UO.findtype(net,'-1','ground') 
#UO.moveitem('finditem','-1',meshoknet)
if uo.injournal('Truly Rare') then
UO.findtype(fishrar,'-1','ground') 
UO.moveitem('finditem','-1',meshokfish)
uo.DeleteJournal()
endif
endif 
if UO.InJournal("out a fish") then 
isfishing = 0 
end if 
Info_Map()  
wend 
UO.DeleteJournal() 
next 
next 
until 1 
end sub 


################################################################
sub FastLootCheck() 
UO.DeleteJournal() 
wait(600) 
if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
CheckLag() 
endif 
end sub 

sub FarCheck()
if UO.InJournal("That is too far away") then
perezapysk()
wait(200)
UO.DeleteJournal()
endif
end sub

sub Savecheck()
if UO.InJournal("World data saved in") then
FarCheck()
endif
end sub

################################################################
sub NoTarget() 
if UO.Waiting() then 
UO.CancelTarget() 
endif 
end sub 

################################################################
sub pk() 
if CheckPK()==true then 
uo.say("guards") 
wait(1000) 
endif 
endsub 

################################################################
sub CheckPK() 
var m 
for m = 0 to 9 
if uo.getnotoriety(uo.journalserial(m)) > 1 then 
return true 
endif 
next 
return false 
end sub 

################################################################
sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

################################################################
sub hiding() 
UO.Warmode("0") 
while not UO.Hidden() 
UO.DeleteJournal() 
UO.UseSkill("Hiding") 
while NOT UO.InJournal("You") 
wait(100) 
wend 
wend 
end sub 

################################################################
sub proverka() 
if (uo.injournal("attacking") and uo.injournal("you")) then 
uo.say("guards") 
endif 
if uo.life<uo.str then 
uo.say("guards") 
endif 
pk() 
endsub 

################################################################
sub unload()
hiding() 
UO.FindType(mapa, '-1', 'backpack') 
while UO.GetQuantity('finditem') > 0 
UO.MoveItem('finditem','-1',seifformap1) 
CheckLag() 
Wait(700) 
UO.FindType(mapa,'-1','backpack') 
wend 
endsub 

################################################################
sub kolmap() 
var k 
var meshochek 
var maps 
uo.useobject(seifformap1) 
uo.findtype(mapa,'-1',seifformap1) 
wait(200) 
maps=uo.findcount() 
CheckLag() 
uo.print("vsego kart - "+Str(maps)) 
if maps>=150 then 
uo.useobject(seifformap2)
wait(1000)
uo.useobject(seifformap3)
wait(1000)
uo.findtype(meshok,'-1',seifformap3) 
meshochek=uo.getserial('finditem') 
uo.moveitem('finditem','1','backpack')
wait(2000)
k=0 
while k<>150 
UO.FindType(mapa,'0x0000',seifformap1) 
UO.MoveItem('finditem','1',meshochek) 
CheckLag() 
wait(800) 
k=k+1 
wend  
uo.findtype(meshok,'-1','backpack') 
CheckLag() 
uo.moveitem('finditem','1',seifformap2) 
endif 
endsub 

################################################################
sub Info_Map() 
uo.print("vsego kart v rukzake - "+Str(uo.count('0x14EB','0x0000'))) 
end sub 

################################################################
sub ToRecall()
RecallToHome()
wait(1000)
kolmap()
wait(1000)
unload() 
kolmap()
RecallToFishing() 
end sub 

################################################################
sub RecallToHome()
uo.Print('Prigaem domoi.') 
RunebookRecall(RuneToHome) 
end sub 

###############################################################
sub RecallToFishing()
uo.Print('Prigaem k rechke.') 
RunebookRecall(RuneToFishing) 
end sub 

################################################################
sub RunebookRecall(n)
var OldX,OldY,Time 
OldX=uo.GetX() 
OldY=uo.GetY() 
repeat 
uo.Exec('warmode 0') 
uo.UseObject('Runebook') 
CheckLag() 
uo.Lclick(135, n*15+55) 
CheckLag() 
Time=uo.Timer() 
repeat 
wait(500) 
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') or uo.InJournal('fizzles') or Time+200<uo.Timer() 
uo.DeleteJournal() 
until OldX<>uo.GetX() or OldY<>uo.GetY() or uo.Dead() or uo.InJournal('needs') 
end sub 

################################################################
sub GoToXY(x,y,prec) 
var ld=0,ldc=0 
var dx,dy 
var mx,my 
var ox,oy,mk,k 
#uo.print(">") 
#uo.track("1",str(x),str(y)) 
start: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if not ldc then 
uo.print(STR(dx)) 
end if 
if dx<3 then 
mk=70 
else 
mk=15 
end if 
ox=mx 
oy=my 
for k=1 to mk 
mx=UO.GetX() 
my=UO.GetY() 
if mx<>ox or my<>oy then 
goto sdidapl 
end if 
wait(10) 
next 
sdidapl: 
mx=UO.GetX() 
my=UO.GetY() 
dx=mx-x 
if dx<0 then 
dx=0-dx 
endif 
dy=my-y 
if dy<0 then 
dy=0-dy 
endif 
if dy>dx then 
dx=dy 
end if 
if dx<=prec then 
return 
end if 
if ld==dx then 
ldc=ldc+1 
if ldc>100 then 
uo.print("Can not reach location!") 
return 
end if 
else 
ld=dx 
end if 
if mx==x then 
if my==y then 
return 
endif 
if my>y then 
#UO.Print("UR") 
UO.Press(33) 
goto start 
endif 
#UO.Print("DL") 
UO.Press(35) 
goto start 
end if 
if mx<x then 
if my>y then 
#UO.Print("R") 
UO.Press(39) 
goto start 
endif 
if my==y then 
#UO.Print("DR") 
UO.Press(34) 
goto start 
endif 
#UO.Print("D") 
UO.Press(40) 
goto start 
end if 
if my<y then 
#UO.Print("L") 
UO.Press(37) 
goto start 
endif 
if my==y then 
#UO.Print("LU") 
UO.Press(36) 
goto start 
endif 
#UO.Print("U") 
UO.Press(38) 
goto start 
end sub

################################################################
sub lag_test()
;uo.print('CheckLag') 
uo.deletejournal() 
   uo.click('backpack') 
   repeat 
      wait(50) 
   until uo.InJournal("backpack") 
;uo.print('Ok!') 
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(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) 
perezapysk()
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 

################################################################
sub perezapysk()
uo.exec('terminate GOGOGO')
wait(10000)
RecallToFishing()
uo.exec('exec GOGOGO')
end sub
Top
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:
Contact Kynep

Re: Выскакивает ошибка. Фишинг. Загляните, кому не лень...)

Post by Kynep »

Code: Select all

begin: 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish() 
GoToXY(x,y,0) 
fish()
Вместо x и y нужно вписать координаты к местам ловли.
Top
Acc ^
Posts: 13
Joined: 2007-07-06 16:48:27
Location: DrW

Post by Acc ^ »

Я так и думал :oops:

А еще вопрос, можно сделать чтобы чар вставал в хайд если его раздетектили? :?:
Top
Millerbeer
Posts: 247
Joined: 2008-09-12 05:07:34

Post by Millerbeer »

Code: Select all

sub fish() 
hiding() 
var i,j, isfishing 
var mx = UO.GetX('self') 
var my = UO.GetY('self') 
var mz = UO.GetZ('self') 
UO.DeleteJournal() 
repeat 
for i = mx-6 to mx+6 
for j = my-6 to my+6 
isfishing = 1 
while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
UO.DeleteJournal()
вот в этом куске hiding() сверху из под sub убери, и засунь его вниз этого куска над UO.DeletJournal()
Top
Post Reply

Return to “Scripting Ore”