Help Fisheng

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
oleg382363
Posts: 10
Joined: 2008-02-25 14:32:59

Help Fisheng

Post by oleg382363 »

Вот полазил по сайту нашол скрипт на фишинг но там нет килл элементов и всякой такой хрени помагити дописать чтоб он кагда вылазил элементал врал лук и атачил его или чтоб проста брал его и кастер под ноги разжегал плиз если нисложно

ВОТ САМ СКРИПТ

sub Fishing()
var mX, mY, mZ, i, j
var f
var a=0
####################
### Меню/Options ###
####################
#########################################################################
###
var TryToHide=1 ## 1 - Включить уход(перед ловлей) в хайд, 0 - выключить.
###
var TakeFish=0 ## 1 - Включить сбор обычной рыбы, 0 - выключить.
###
var TakeMaps=1 ## 1 - Включить сбор карт, 0 - выключить.
###
var TakeRareFish=0 ## 1 - Включить сбор рарной рыбы, 0 - выключить.
###
var TakePrizeFish=0 ## 1 - Включить сбор приз рыбы, 0 - выключить.
###
var MaxWeight=500 ## - Вес при котором скрипт выключиться.
###
#########################################################################
###################
### Массив рыбы ###
###################
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(40000) # WorldSave Protection
UO.Say('')
Wait(13000)
UO.Say('')
Wait(13000)
UO.Say('')
Wait(13000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(13000)
WEnd
Wait(13000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
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
Top
oleg382363
Posts: 10
Joined: 2008-02-25 14:32:59

Post by oleg382363 »

Неужели никто помоч неможет :(
Top
Incognito2008
Posts: 50
Joined: 2008-03-24 18:18:53
Contact:
Contact Incognito2008

Re: Help Fisheng

Post by Incognito2008 »

oleg382363 wrote:Вот полазил по сайту нашол скрипт на фишинг но там нет килл элементов и всякой такой хрени помагити дописать чтоб он кагда вылазил элементал врал лук и атачил его или чтоб проста брал его и кастер под ноги разжегал плиз если нисложно

ВОТ САМ СКРИПТ

sub Fishing()
var mX, mY, mZ, i, j
var f
var a=0
####################
### Меню/Options ###
####################
#########################################################################
###
var TryToHide=1 ## 1 - Включить уход(перед ловлей) в хайд, 0 - выключить.
###
var TakeFish=0 ## 1 - Включить сбор обычной рыбы, 0 - выключить.
###
var TakeMaps=1 ## 1 - Включить сбор карт, 0 - выключить.
###
var TakeRareFish=0 ## 1 - Включить сбор рарной рыбы, 0 - выключить.
###
var TakePrizeFish=0 ## 1 - Включить сбор приз рыбы, 0 - выключить.
###
var MaxWeight=500 ## - Вес при котором скрипт выключиться.
###
#########################################################################
###################
### Массив рыбы ###
###################
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(40000) # WorldSave Protection
UO.Say('')
Wait(13000)
UO.Say('')
Wait(13000)
UO.Say('')
Wait(13000)
UO.LDblClick(357,164)
UO.LClick(616,459)
Wait(13000)
WEnd
Wait(13000)
if (RFlag == 0) and (ReconnectTime <> '0') Then
UO.Exec('terminate main')
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

-
плиз будиш папе с мамой говорить , все ловят этим скриптом и все убивают руками , я про посетителй ;)
Top
Purgen
Posts: 187
Joined: 2005-04-04 18:23:12

Post by Purgen »

2Incognito2008 : здесь не тебе решать что кому говорить.
Неможешь помочь - не трать время себя и других на твои сообщения.
Автору сего топа уже респект за то, что хоть что-то искал и нашёл, ане создал тему "Памагите! ЭлементЫ убивают! ААА! ЫЫЫ!"
Top
oleg382363
Posts: 10
Joined: 2008-02-25 14:32:59

Post by oleg382363 »

:)
Last edited by oleg382363 on 2008-04-09 16:13:10, edited 1 time in total.
Top
oleg382363
Posts: 10
Joined: 2008-02-25 14:32:59

Post by oleg382363 »

Я непроста искал а весь форум облазил

Вот чтота нашол но это с мининга можно както переделать или нет ?
и куда там вставить лучши ?

sub digitstay(MaxWeight,MaxDistance,KillElemental,BaseX,BaseY)
VAR x,y,z='0',TileNum='1339'
VAR Last=0, LastTimer
VAR MaxTimer=110

For x=-MaxDistance to MaxDistance
For y=-MaxDistance to MaxDistance
Repeat
CheckLag()
Del('There is nothing|elsewhere|location|You cannot|Region|Elemental|attacking you|You stop')

dig:
UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
UO.UseType('0x0E85')

LastTimer=UO.Timer()

Repeat
wait(500)
until UO.InJournal('There is nothing|elsewhere|location|You cannot|Region|Elemental|attacking you|You stop') OR LastTimer+250<UO.Timer() OR uo.life < uo.str

If UO.InJournal('Elemental|attacking you') or uo.life < uo.str then
If KillElemental=='Yes' Then
KillElem()
Endif
Endif

If UO.InJournal('you stop') then
UO.UseType('0x0E85')
GoTo dig
Endif

If UO.Weight>=MaxWeight then
unloadore()
Endif
Until UO.InJournal('There is nothing|location|Region|You cannot|elsewhere') OR LastTimer+250<UO.Timer()
Next
Next
end sub
Top
Post Reply

Return to “Scripting Ore”