Yoko

All sides of Injection
It is currently 2024-03-28 15:42:07

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
 Post subject: Фишинг
PostPosted: 2012-05-09 13:15:28 
Offline

Joined: 2008-05-13 17:04:26
Posts: 66
Народ есть хороший скриптик на фишинг но он отключается после того как выловит все вокруг себя можно ли добавить в скрипт чтобы он после того как все выловит делал несколько шагов или переходил к следующему тайлу??Спасибо.
Code:
sub Fishing() 
var mX, mY, mZ, i, j
var f
var a=0
####################
### Ìåíþ/Options ###
####################
#########################################################################
###
var TryToHide=0 ## 1 - Âêëþ÷èòü óõîä(ïåðåä ëîâëåé) â õàéä, 0 - âûêëþ÷èòü.
###
var TakeFish=1 ## 1 - Âêëþ÷èòü ñáîð îáû÷íîé ðûáû, 0 - âûêëþ÷èòü.
###
var TakeMaps=1 ## 1 - Âêëþ÷èòü ñáîð êàðò, 0 - âûêëþ÷èòü.
###
var TakeRareFish=1 ## 1 - Âêëþ÷èòü ñáîð ðàðíîé ðûáû, 0 - âûêëþ÷èòü.
###
var TakePrizeFish=1 ## 1 - Âêëþ÷èòü ñáîð ïðèç ðûáû, 0 - âûêëþ÷èòü.
###
var MaxWeight=430 ## - Âåñ ïðè êîòîðîì ñêðèïò âûêëþ÷èòüñÿ.
###
#########################################################################
###################
### Ìàññèâ ðûáû ###
###################
dim Fish[6]
Fish[0]=0x09CC 
Fish[1]=0x09CD 
Fish[2]=0x09CE 
Fish[3]=0x09CF
Fish[4]=0x14EB
Fish[5]=0x0DD6
Fish[6]=0x0DD6




Beginning:
uo.Set('finddistance','6')
mX = uo.getX("self")
mY = uo.getY("self")
mZ = uo.getZ("self")
uo.DeleteJournal()
for i = mX-6 to mX+6
for j = mY-6 to mY+6 
if uo.Dead() then
return
end if

if TryToHide==1 then
ToHide()
end if

uo.Print("Ñåé÷àñ ëîâèì: "+str(mx-i)+" "+str(my-j))

while not uo.InJournal("You pull") and not uo.InJournal("in water") and not uo.InJournal("no fish") and not uo.InJournal("far away")
uo.DeleteJournal()
uo.Waittargettile("1341", str(i), str(j), str(mZ))
uo.Usetype('0x0DBF')
if uo.Dead() then
return
end if
if uo.Weight>MaxWeight then
wait(4000)
goto Beginning
end if
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

if a>0 then
uo.print(STR(a))
end if

if TakeFish==1 then
uo.Print('Ñîáèðàåì ðûáó.')
for f=0 to 3
uo.FindType(Fish[f],"-1","ground")
if uo.Count(Fish[2])> 0 then
a= a+1
end if
uo.MoveItem("finditem","1","Fishs")
wait(200)
next
end if

if TakeMaps==1 then
uo.Print('Ñîáèðàåì êàðòû.')
for f=4 to 4
uo.FindType(Fish[f],"-1","ground")
uo.MoveItem("finditem","-1","Maps")
wait(200)
next
end if

if TakeRareFish==1 then
uo.Print('Ñîáèðàåì ðàð ðûáó.')
for f=5 to 5
uo.FindType(Fish[f],"-1","ground")
uo.MoveItem("finditem","-1","RareFish")
wait(200)
next
end if

if TakePrizeFish==1 then
uo.Print('Ñîáèðàåì ïðèç ðûáó.')
for f=6 to 6
uo.FindType(Fish[f],"-1","ground")
uo.MoveItem("finditem","-1","PrizeFish")
wait(200)
next
end if
 
end if
wend
wend
uo.DeleteJournal()
next
next
end sub

sub ToHide()
while not uo.Hidden()
uo.Exec('warmode 0')
uo.Print('Ïûòàåìñÿ óéòè â õàéä...')
uo.DeleteJournal()
uo.UseSkill('Stealth')
wait(4100)
wend
wait(100)
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 all')
;UO.Exec('exec autoload')
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

sub rasklad()
  var map='0x14EB'
  uo.Exec('addobject meshok')
  while uo.Targeting()
    wait(100)
  wend
  uo.FindType(map,'-1','backpack')
  while uo.FindCount()
    uo.FindType(map,'-1','backpack')
    uo.moveitem('finditem','1','meshok')
    wait(500)
  wend
end sub


Top
   
 Post subject: Re: Фишинг
PostPosted: 2012-05-09 13:23:20 
Offline
User avatar

Joined: 2009-03-21 10:03:06
Posts: 164
Location: Одесса-Мама
Берешь любую ходилку из scripting ore и пишешь примерно следующие:
Пока жив (через while)
-подойти к первой точке(х,у)
-рыбачить
-подойти к следующей точке(х,у)
-рыбачить
-подойти к следующей точке(х,у)
-...
wend

_________________
Спасибо всем, у кого учился!

Меня трудно найти, легко потерять, и невозможно забыть. Я - рабочий исходник!


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 19 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited