Yoko
http://forum.yoko.com.ua/

Фишинг
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13514		 Page 1 of 1
Author:  Dark Oligarh [ 2008-04-19 11:08:12 ]
Post subject:  Фишинг
Здраствуйте товарищи скриптеры,я обыскал форум,но почему-то не могу найти нужный скрипт на фишинг.Помогите кто-нибудь в поииске скрипта - чар ловил рыбку,карты,сеть не ловил,после того как на месте вокруг рыба заканчивалась он брал дагер и резал большую рыбу(сложенную в паке) на фишстейки :(


Играю на DRW :P
Author:  Incognito2008 [ 2008-04-21 07:47:01 ]
Post subject:  Re: Фишинг
Glock18 wrote:
Здраствуйте товарищи скриптеры,я обыскал форум,но почему-то не могу найти нужный скрипт на фишинг.Помогите кто-нибудь в поииске скрипта - чар ловил рыбку,карты,сеть не ловил,после того как на месте вокруг рыба заканчивалась он брал дагер и резал большую рыбу(сложенную в паке) на фишстейки :(

вот чё ты песд_ш всё на форуме есть , а на заказ тебе тут сурипт никто делать не будит чтобы то делал чтобы сё делал , ты даже не позволел себе поискать этот скрипт и не нашёл хотя он есть .... а ещё хочеш что он всё делал ) на тебе скрипт взятый с этого форума ,может быть добрый человек соизволит и поправит его так ка ктебе нужно ;)
sub Fish()
VAR Ms0 = "You can't see" ; не можем ловит здесь
VAR Ms1 = "You can't fish under the ship" ; не можем ловить здесь
VAR Ms2 = "You are too far away" ; далеко
VAR Ms3 = "There are no fish here" ; кончилось тут
VAR Ms4 = "You fish a while, but fail to catch anything" ; физл
VAR Ms5 = "You pull out" ; поймал что-то
VAR Ms6 = "Try fishing in water." ; не можем ловить здесь
VAR k, t, v, x, y
VAR MaxTime = 800
For y = -4 To 4
For x = -4 To 4
k = 0
repeat
If UO.Dead() Then
return
Endif
uo.DeleteJournal(ms0)
uo.DeleteJournal(ms1)
uo.DeleteJournal(ms2)
uo.DeleteJournal(ms3)
uo.DeleteJournal(ms4)
uo.DeleteJournal(ms5)
uo.DeleteJournal(ms6)
t = UO.Timer()
If UO.Waiting() Then
UO.CancelTarget()
Endif
UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
repeat
wait(100)
until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
k = k + 1
If UO.InJournal(ms5) Then
k = 0
Endif
If UO.Dead() Then
return
Endif
If UO.InJournal( ms5 ) Then
GetResultFish()
Endif
until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
If UO.Dead() Then
return
Endif
Next
Next
endsub

Sub GetResultFish()
; ------- улов -------
DIM Fish[18]
Fish[0] = '0x170B' ; сапоги
Fish[1] = '0x170F' ; тапки
Fish[2] = '0x170D' ; сандалии
Fish[3] = '0x1711' ; сапоги
Fish[4] = '0x09CC' ; тип рыбы 1
Fish[5] = '0x09CD' ; тип рыбы 2
Fish[6] = '0x09CE' ; тип рыбы 3
Fish[7] = '0x09CF' ; тип рыбы 4
Fish[8] = '0x0FC4' ; ракушка, тип 1
Fish[9] = '0x0FC5' ; ракушка, тип 2
Fish[10] = '0x0FC6' ; ракушка, тип 3
Fish[11] = '0x0FC7' ; ракушка, тип 4
Fish[12] = '0x0FC8' ; ракушка, тип 5
Fish[13] = '0x0FC9' ; ракушка, тип 6
Fish[14] = '0x0FCA' ; ракушка, тип 7
Fish[15] = '0x0FCB' ; ракушка, тип 8
Fish[16] = '0x0FCC' ; ракушка, тип 9
Fish[17] = '0x14ED' ; карта
VAR Razmer = 17 ; размер массива - 1
VAR Scissor = '0x0F9E' ; тип ножниц
VAR Bandag = '0x0E21' ; Тип бинтов
VAR i
; Ищем что у нас валяется под ногами, если надо перерабатываем
; и складируем в трюм. Потом введем всякие мешочки разные и ящички.
For i = 0 To Razmer
UO.FindType( Fish[i], '-1', 'ground' )
If UO.FindCount() > 0 Then
If i < 4 Then
; обувь
UO.WaitTargetObject( 'finditem' )
UO.UseType( Scissor )
Wait( 3000 )
UO.FindType( Bandag )
Endif
UO.Grab( '0', 'finditem' )
Wait( 2000 )
If i > 7 AND i < 17 Then
; ракушка
UO.UseObject( 'finditem' )
wait(1000)
Endif
Endif
Next
endsub
Author:  Incognito2008 [ 2008-04-21 07:47:26 ]
Post subject:  Re: Фишинг
Glock18 wrote:
Здраствуйте товарищи скриптеры,я обыскал форум,но почему-то не могу найти нужный скрипт на фишинг.Помогите кто-нибудь в поииске скрипта - чар ловил рыбку,карты,сеть не ловил,после того как на месте вокруг рыба заканчивалась он брал дагер и резал большую рыбу(сложенную в паке) на фишстейки :(

вот чё ты песд_ш всё на форуме есть , а на заказ тебе тут сурипт никто делать не будит чтобы то делал чтобы сё делал , ты даже не позволел себе поискать этот скрипт и не нашёл хотя он есть .... а ещё хочеш что он всё делал ) на тебе скрипт взятый с этого форума ,может быть добрый человек соизволит и поправит его так ка ктебе нужно ;)
sub Fish()
VAR Ms0 = "You can't see" ; не можем ловит здесь
VAR Ms1 = "You can't fish under the ship" ; не можем ловить здесь
VAR Ms2 = "You are too far away" ; далеко
VAR Ms3 = "There are no fish here" ; кончилось тут
VAR Ms4 = "You fish a while, but fail to catch anything" ; физл
VAR Ms5 = "You pull out" ; поймал что-то
VAR Ms6 = "Try fishing in water." ; не можем ловить здесь
VAR k, t, v, x, y
VAR MaxTime = 800
For y = -4 To 4
For x = -4 To 4
k = 0
repeat
If UO.Dead() Then
return
Endif
uo.DeleteJournal(ms0)
uo.DeleteJournal(ms1)
uo.DeleteJournal(ms2)
uo.DeleteJournal(ms3)
uo.DeleteJournal(ms4)
uo.DeleteJournal(ms5)
uo.DeleteJournal(ms6)
t = UO.Timer()
If UO.Waiting() Then
UO.CancelTarget()
Endif
UO.WaitTargetTile( '0', STR( UO.GetX() + x ), STR( UO.GetY() + y ), '251')
UO.UseObject( UO.GetSerial( UO.ObjAtLayer( 'Lhand' ) ) )
repeat
wait(100)
until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR ((t + MaxTime) < UO.Timer())
k = k + 1
If UO.InJournal(ms5) Then
k = 0
Endif
If UO.Dead() Then
return
Endif
If UO.InJournal( ms5 ) Then
GetResultFish()
Endif
until UO.InJournal(ms0) OR UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR (k > 6)
If UO.Dead() Then
return
Endif
Next
Next
endsub

Sub GetResultFish()
; ------- улов -------
DIM Fish[18]
Fish[0] = '0x170B' ; сапоги
Fish[1] = '0x170F' ; тапки
Fish[2] = '0x170D' ; сандалии
Fish[3] = '0x1711' ; сапоги
Fish[4] = '0x09CC' ; тип рыбы 1
Fish[5] = '0x09CD' ; тип рыбы 2
Fish[6] = '0x09CE' ; тип рыбы 3
Fish[7] = '0x09CF' ; тип рыбы 4
Fish[8] = '0x0FC4' ; ракушка, тип 1
Fish[9] = '0x0FC5' ; ракушка, тип 2
Fish[10] = '0x0FC6' ; ракушка, тип 3
Fish[11] = '0x0FC7' ; ракушка, тип 4
Fish[12] = '0x0FC8' ; ракушка, тип 5
Fish[13] = '0x0FC9' ; ракушка, тип 6
Fish[14] = '0x0FCA' ; ракушка, тип 7
Fish[15] = '0x0FCB' ; ракушка, тип 8
Fish[16] = '0x0FCC' ; ракушка, тип 9
Fish[17] = '0x14ED' ; карта
VAR Razmer = 17 ; размер массива - 1
VAR Scissor = '0x0F9E' ; тип ножниц
VAR Bandag = '0x0E21' ; Тип бинтов
VAR i
; Ищем что у нас валяется под ногами, если надо перерабатываем
; и складируем в трюм. Потом введем всякие мешочки разные и ящички.
For i = 0 To Razmer
UO.FindType( Fish[i], '-1', 'ground' )
If UO.FindCount() > 0 Then
If i < 4 Then
; обувь
UO.WaitTargetObject( 'finditem' )
UO.UseType( Scissor )
Wait( 3000 )
UO.FindType( Bandag )
Endif
UO.Grab( '0', 'finditem' )
Wait( 2000 )
If i > 7 AND i < 17 Then
; ракушка
UO.UseObject( 'finditem' )
wait(1000)
Endif
Endif
Next
endsub
Author:  Dark Oligarh [ 2008-04-21 09:37:12 ]
Post subject: 
Закройте пожалуйста тему,скрипт,который я искал вот он:
# Âåðñèÿ YokoInjection: 505.18 VeNdOr
# Sphere Server : v0.55i
# Âåðñèÿ êëèåíòà: 2.0.3
# Àâòîð: GAUHAR

#########################################################################
# Ïðîñòîé ôèøèíã ñ ðàçäåëêîé ðûáû íà ôèøñòåéêè. #
# #
# ÎÏÈÑÀÍÈÅ: #
#  áåêïàêå ïåðñîíàæà äîëæíà áûòü óäî÷êà è íîæ (dagger). #
# Âûáèðàåì ìåñòî äëÿ ðûáàëêè. Çàïóñêàåì ñêðèïò FISHING(). #
# Âî âðåìÿ ðûáàëêè ïåðñîíàæ óõîäèò â õàéä è ëîâèò ðûáó â õàéäå, óëîâ #
# ñðàçó æå ñîáèðàåò â áåêïàê (ñîáèðàåìûé óëîâ íàõîäèòñÿ â ìàññèâå). #
# Íàáðàâ ìàêñèìàëüíûé âåñ óëîâà ïðèñòóïàåò ê ðàçäåëêå ðûáû íà #
# ôèøñòåéêè è ñíîâà ïðèñòóïàåò ê ëîâëå. #
# Ðûáà÷èò â öèêëå äî òåõ ïîð ïîêà íå áóäåò íàáðàí ìàêñèìàëüíûé âåñ. #
#-----------------------------------------------------------------------#
sub FISHING()
DIM ULOVtype[7]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
ULOVtype[4] = '0x0DD6' #Prize Fish
ULOVtype[5] = '0x0DD6' #Truly Rare Fish
ULOVtype[6] = '0x14EB' #Tattered Treasure map
VAR udochka = '0x0DBF'
VAR nozh = '0x13B9'
VAR NumTile = '6043'
VAR MaxWeigth = UO.STR*4
VAR i, x, y, k
wait(500)
UO.Equipt('Rhand', udochka)
start:
for x=-6 to 6
for y=-6 to 6
ToHide()
UO.Print("Ðûáà÷èì â òî÷êå: " + str(x) + " " + str(y))
UO.DeleteJournal()
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water")
k = 0
if UO.Weight > MaxWeigth then
goto finish
endif
ToHide()
UO.DeleteJournal()
UO.WaitTargetTile(NumTile, str(UO.GetX()+x), str(UO.GetY()+y), str(UO.GetZ()))
UO.UseType(udochka)
while not (UO.InJournal("in water") or UO.InJournal("far away") or UO.InJournal("but fail") or UO.InJournal("You pull") or UO.InJournal("no fish here") or UO.InJournal("location") or k==50)
k = k + 1
wait(200)
if UO.InJournal("Targeting Cancelled") then
goto start
endif
wend
#ñîáèðàåì óëîâ
if UO.InJournal("You pull") then
for i=0 to 6
UO.FindType(ULOVtype[i], '-1', 'ground')
UO.MoveItem('finditem')
wait(50)
next
endif
wend
next
next
finish:
UO.Print("Íàáðàí ìàêñèìàëüíûé âåñ óëîâà")
wait(1000)
#ðåæåì ðûáó
UO.Print("Ðåæåì ðûáó íà ôèø ñòåéêè")
for i=0 to 3
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(1000)
next
if UO.Weight < MaxWeigth-5 then
goto start
endif
UO.Print("Ðûáàëêà çàêîí÷èëàñü")
endsub

SUB ToHide()
while not UO.Hidden()
UO.WarMode(0)
UO.DeleteJournal()
UO.Print("Ïðÿ÷åìñÿ...")
UO.UseSkill('Hiding')
while not (UO.InJournal("You have hidden") or UO.InJournal("You can't seem"))
wait(100)
wend
wend
endsub
#-----------------------------------------------------------------------#
#########################################################################
Author:  Lopi [ 2008-07-01 21:26:30 ]
Post subject: 
Эй скрипты в коде выкладывать надо)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/