Page 2 of 3
Posted: 2007-01-05 21:51:25
by yxTbl
пацаны вы кн4н мозги респект вам , но я вапше в скриптах дятел =))
после расхаидивания сервер пишет You have been revealed
скрипт хайдица снова и астанавливаеца =\
перезапускаеца он тока без удачки в руке :Р
Posted: 2007-01-05 23:41:01
by DenjaGanjubass
pacani , nesluwajte uxti, ja emu potom gatovij scp skinu, na odnom serve igraem , no maza takaja,
1) tebja razxaidjilji, ti esli s pervova raza nezaxaidilsja, to scp stait i zdjot nadpisji "you cant seems to hide there" a u nas etova nepojevljajetsa, i scp prosto zdjot
2)vtoraja maza takaja, mnogaja riba s adinakovime tipami, toestj riba vrode vigledit odinakova a raznije imena, i scp razrezaet toljko 4astj vsi ribi, mozhno zdelatj wtob on eto razrezanije , xotjabi raza 2 provadil, ato razrezhet 4astj , i 4astj ostajotsa nerazrezanaja
Posted: 2007-01-05 23:51:39
by DenjaGanjubass
P.S. s ignorom i podnimaniem vewej vsjo OK ! (respekt NMY)
Posted: 2007-01-06 01:02:03
by GAUHAR
Функция выйдет из цикла ожидания сообщения от сервера по счетчику, если персонаж захайдился, а сообщения не было.
Code: Select all
SUB ToHide()
VAR k
while not UO.Hidden()
k = 0
UO.WarMode(0)
UO.DeleteJournal()
UO.Print("Прячемся...")
UO.UseSkill('Hiding')
while not (UO.InJournal("You have hidden") or UO.InJournal("You can't seem")) or not k == 25
k = k + 1
wait(200)
wend
wend
endsub
Должно резать всю рыбу одного типа:
Code: Select all
UO.Print("!_SLICING_FISH_!")
for i=0 to 3
UO.FindType(ULOVtype[i])
while UO.FindCount() > 0
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
UO.FindType(ULOVtype[i])
wend
next
Posted: 2007-01-06 01:22:32
by DenjaGanjubass
ne pacani, ne pomog ne updeit na haiding ne slaicing, vawe terj 1 ku4u razrezal i vsjo, sco ostanovilsja

Posted: 2007-01-06 01:30:22
by DenjaGanjubass
tam fiwka v tom , wto kagda on uspewno zaxaidilisja , vsjo okey, prodolzhaem delatj denjgi, a kogda on nezaxaidilsja, tagda ostanavlivaetsa, a ostanavlivaetsa potamu wto u nas na serve nepoevljajetsa nadpisji "you can't seems to hide there", takwto nado mesto etova 4oto dumatj,
Posted: 2007-01-06 01:51:02
by Nmy
Code: Select all
while not UO.Hidden()
UO.Warmode("0")
uo.print("Прячемся...")
UO.UseSkill("Hiding")
wait(4000)
wend
мне кажется надо на
да и вобше нелегко писать в окне форума, а так этот скрипт бы занял 3мин

Posted: 2007-01-06 01:57:48
by Nmy
пробуем
Code: Select all
sub FISHING()
DIM ULOVtype[4]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
VAR udochka = '0x0DBF'
VAR nozh = '0x0F52'
VAR NumTile = '6043'
VAR MaxWeigth = 340
VAR i, x, y, k
wait(100)
UO.Equipt('Rhand', udochka)
start:
for x=-1 to 1
for y=-1 to 1
ToHide()
UO.Print("!_FISHING_IN_POINT_!: " + 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(100)
if UO.InJournal("you fail") then
goto start
endif
wend
if UO.InJournal("You put") then
UO.Set('finddistance','0') #
UO.Ignore('self')
UO.FindType('-1', '-1', 'ground')
while UO.FindCount()
if uo.GetGraphic('finditem') <> '0x0C2C' and uo.GetGraphic('finditem') <> '0x0DD6' and uo.GetGraphic('finditem') <> '0x1CEF' and uo.GetGraphic('finditem') <> '0x1CF0' and uo.GetGraphic('finditem') <> '0x0E31' and uo.GetGraphic('finditem') <> '0x1717' and uo.GetGraphic('finditem') <> '0x0007' and uo.GetGraphic('finditem') <> '0x0008' and uo.GetGraphic('finditem') <> '0x0009' and uo.GetGraphic('finditem') <> '0x0010' then
UO.MoveItem('finditem')
wait(200)
else
uo.ignore('finditem')
endif
UO.FindType('-1', '-1', 'ground')
wend
endif
wend
next
next
finish:
UO.Print("!_MAX_WEIGHTH_!")
wait(100)
UO.Print("!_SLICING_FISH_!")
for i=0 to 3
uo.findtype(ULOVtype[i])
while uo.FindCount()
UO.WaitTargetObject('finditem')
UO.UseType(nozh)
wait(200)
uo.findtype(ULOVtype[i])
wend
next
if UO.Weight < MaxWeigth-5 then
goto start
endif
UO.Print("!_FISHING_FINISHES_!")
endsub
SUB ToHide()
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding ...")
UO.UseSkill("Hiding")
wait(4000)
wend
endsub
Posted: 2007-01-06 11:14:14
by yxTbl
NMY wrote:пробуем
Code: Select all
sub FISHING()
DIM ULOVtype[4]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
VAR udochka = '0x0DBF'
VAR nozh = '0x0F52'
VAR NumTile = '6043'
VAR MaxWeigth = 340
VAR i, x, y, k
wait(100)
UO.Equipt('Rhand', udochka)
start:
for x=-1 to 1
for y=-1 to 1
ToHide()
UO.Print("!_FISHING_IN_POINT_!: " + 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(100)
if UO.InJournal("you fail") then
goto start
endif
wend
if UO.InJournal("You put") then
UO.Set('finddistance','0') #
UO.Ignore('self')
UO.FindType('-1', '-1', 'ground')
while UO.FindCount()
if uo.GetGraphic('finditem') <> '0x0C2C' and uo.GetGraphic('finditem') <> '0x0DD6' and uo.GetGraphic('finditem') <> '0x1CEF' and uo.GetGraphic('finditem') <> '0x1CF0' and uo.GetGraphic('finditem') <> '0x0E31' and uo.GetGraphic('finditem') <> '0x1717' and uo.GetGraphic('finditem') <> '0x0007' and uo.GetGraphic('finditem') <> '0x0008' and uo.GetGraphic('finditem') <> '0x0009' and uo.GetGraphic('finditem') <> '0x0010' then
UO.MoveItem('finditem')
wait(200)
else
uo.ignore('finditem')
endif
UO.FindType('-1', '-1', 'ground')
wend
endif
wend
next
next
finish:
UO.Print("!_MAX_WEIGHTH_!")
wait(100)
UO.Print("!_SLICING_FISH_!")
for i=0 to 3
uo.findtype(ULOVtype[i])
while uo.FindCount()
UO.WaitTargetObject('finditem')
UO.UseType(nozh)
wait(200)
uo.findtype(ULOVtype[i])
wend
next
if UO.Weight < MaxWeigth-5 then
goto start
endif
UO.Print("!_FISHING_FINISHES_!")
endsub
SUB ToHide()
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding ...")
UO.UseSkill("Hiding")
wait(4000)
wend
endsub
хайдит , при расхайдинге хайдица , и дальше ловит , но рыбу резать отказываеца

Posted: 2007-01-06 12:12:45
by DenjaGanjubass
slicing vawe perestal workatj, pomoimu nado prosto zdelatj , wtob on povtoril razrezanije 2 raza i vsjo
Posted: 2007-01-06 13:06:26
by GAUHAR
10 раз повторит разрезание рыбы одного типа. Скорость соответствующая.
Code: Select all
UO.Print("Режем рыбу на фиш стейки")
for i=0 to 3
for k = 1 to 10 # 10 повторов.
if UO.Waiting() then
UO.CancelTarget()
endif
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
next
next
Posted: 2007-01-06 13:29:52
by yxTbl
GAUHAR wrote:10 раз повторит разрезание рыбы одного типа. Скорость соответствующая.
Code: Select all
UO.Print("Режем рыбу на фиш стейки")
for i=0 to 3
for k = 1 to 10 # 10 повторов.
if UO.Waiting() then
UO.CancelTarget()
endif
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
next
next
таргетинг канцелд \ но итхем фоунд
Posted: 2007-01-06 14:59:35
by GAUHAR
Вопрос он рыбу то всю режет?
Вот, это код не будет давать сообщения: таргетинг канцелд \ но итем фоунд.
Code: Select all
UO.Print("Режем рыбу на фиш стейки")
for i=0 to 3
for k = 1 to 10 # 10 повторов.
if UO.Waiting() then
UO.CancelTarget()
endif
if UO.Count(ULOVtype[i]) then
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
endif
next
next
Posted: 2007-01-06 15:31:13
by yxTbl
у меня он вапше рыбу нережет =))))
если я правильно понял то код должен уже был стать вот таким
Code: Select all
sub FISHING()
DIM ULOVtype[4]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
VAR udochka = '0x0DBF'
VAR nozh = '0x0F52'
VAR NumTile = '6043'
VAR MaxWeigth = 780
VAR i, x, y, k
wait(100)
UO.Equipt('Rhand', udochka)
start:
for x=-1 to 1
for y=-1 to 1
ToHide()
UO.Print("!_FISHING_IN_POINT_!: " + 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(100)
if UO.InJournal("you fail") then
goto start
endif
wend
if UO.InJournal("You put") then
UO.Set('finddistance','0') #
UO.Ignore('self')
UO.FindType('-1', '-1', 'ground')
while UO.FindCount()
if uo.GetGraphic('finditem') <> '0x0C2C' and uo.GetGraphic('finditem') <> '0x0DD6' and uo.GetGraphic('finditem') <> '0x1CEF' and uo.GetGraphic('finditem') <> '0x1CF0' and uo.GetGraphic('finditem') <> '0x0E31' and uo.GetGraphic('finditem') <> '0x1717' and uo.GetGraphic('finditem') <> '0x0007' and uo.GetGraphic('finditem') <> '0x0008' and uo.GetGraphic('finditem') <> '0x0009' and uo.GetGraphic('finditem') <> '0x0010' then
UO.MoveItem('finditem')
wait(200)
else
uo.ignore('finditem')
endif
UO.FindType('-1', '-1', 'ground')
wend
endif
wend
next
next
finish:
UO.Print("!_MAX_WEIGHTH_!")
wait(100)
UO.Print("!_SLICING_FISH_!")
UO.Print("Ðåæåì ðûáó íà ôèø ñòåéêè")
for i=0 to 3
for k = 1 to 10 # 10 ïîâòîðîâ.
if UO.Waiting() then
UO.CancelTarget()
endif
if UO.Count(ULOVtype[i]) then
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
endif
next
next
if UO.Weight < MaxWeigth-5 then
goto start
endif
UO.Print("!_FISHING_FINISHES_!")
endsub
SUB ToHide()
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding ...")
UO.UseSkill("Hiding")
wait(4000)
wend
endsub
Posted: 2007-01-06 15:48:14
by GAUHAR
yxTbl wrote:у меня он вапше рыбу нережет =))))
если я правильно понял то код должен уже был стать вот таким
Все верно.
Я сдаюсь. У меня все работает с любым внесенным изменением в код.
Posted: 2007-01-06 16:03:39
by yxTbl
GAUHAR wrote:yxTbl wrote:у меня он вапше рыбу нережет =))))
если я правильно понял то код должен уже был стать вот таким
Все верно.
Я сдаюсь. У меня все работает с любым внесенным изменением в код.
всеравно пишет : таргетинг канцелд \ но итем фоунд.
может ему нада написать серийник дагера каторым резать рыбу ?
Posted: 2007-01-06 16:54:15
by DenjaGanjubass
Code: Select all
sub FISHING()
DIM ULOVtype[4]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
VAR udochka = '0x0DBF'
VAR nozh = '0x0F52'
VAR NumTile = '6043'
VAR MaxWeigth = 340
VAR i, x, y, k
wait(100)
UO.Equipt('Rhand', udochka)
start:
for x=-1 to 1
for y=-1 to 1
ToHide()
UO.Print("!_FISHING_IN_POINT_!: " + 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(100)
if UO.InJournal("you fail") then
goto start
endif
wend
if UO.InJournal("You put") then
UO.Set('finddistance','0')
UO.Ignore('self')
UO.FindType('-1', '-1', 'ground')
while UO.FindCount()
if uo.GetGraphic('finditem') <> '0x0C2C' and uo.GetGraphic('finditem') <> '0x0DD6' and uo.GetGraphic('finditem') <> '0x1CEF' and uo.GetGraphic('finditem') <> '0x1CF0' and uo.GetGraphic('finditem') <> '0x0E31' and uo.GetGraphic('finditem') <> '0x1717' and uo.GetGraphic('finditem') <> '0x0C16' and uo.GetGraphic('finditem') <> '0x0C1F' and uo.GetGraphic('finditem') <> '0x0C1B' and uo.GetGraphic('finditem') <> '0x1D9F' and uo.GetGraphic('finditem') <> '0x1F5D' and uo.GetGraphic('finditem') <> '0x1DA2' and uo.GetGraphic('finditem') <> '0x1CDD' and uo.GetGraphic('finditem') <> '0x1CE1' and uo.GetGraphic('finditem') <> '0x19AB' and uo.GetGraphic('finditem') <> '0x1F3C' and uo.GetGraphic('finditem') <> '0x0E3E' and uo.GetGraphic('finditem') <> '0x1086' and uo.GetGraphic('finditem') <> '0x0EB2' then
UO.MoveItem('finditem')
wait(200)
else
uo.ignore('finditem')
endif
UO.FindType('-1', '-1', 'ground')
wend
endif
wend
next
next
finish:
UO.Print("!_MAX_WEIGHTH_!")
wait(100)
UO.Print("!_SLICING_FISH_!")
for i=0 to 3
for k = 1 to 5 # 5 ïîâòîðîâ.
if UO.Waiting() then
UO.CancelTarget()
endif
if UO.Count(ULOVtype[i]) then
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
endif
next
next
UO.Print("!_FISHING_FINISHES_!")
endsub
SUB ToHide()
while not UO.Hidden()
UO.Warmode("0")
uo.print("!_HIDING_!")
UO.UseSkill("Hiding")
wait(4000)
wend
endsub
kr4 pacani, muziki, s podbiranijem nuzhinh itemov vsjo ok, s haidingom toze vsjo ok, teperj rezka - ja postavil wtob on delal 5 povtorov a on kagda porezet, srazu idjot na finish, tam nado gdeto pribavitj poxodu eto
Code: Select all
if UO.Weight < MaxWeigth-5 then
goto start
ja konewno cenju vawe terpenije, i znaju kak ja vas zae...
Posted: 2007-01-06 16:56:57
by DenjaGanjubass
p.s. v dannij moment rezet zame4ateljno vsju ribu, toka vot opjatj lovitj vtoroi raz nexo4et

Posted: 2007-01-06 17:36:21
by yxTbl
DenjaGanjubass wrote:Code: Select all
sub FISHING()
DIM ULOVtype[4]
ULOVtype[0] = '0x09CC' #fish1
ULOVtype[1] = '0x09CD' #fish2
ULOVtype[2] = '0x09CE' #fish3
ULOVtype[3] = '0x09CF' #fish4
VAR udochka = '0x0DBF'
VAR nozh = '0x0F52'
VAR NumTile = '6043'
VAR MaxWeigth = 340
VAR i, x, y, k
wait(100)
UO.Equipt('Rhand', udochka)
start:
for x=-1 to 1
for y=-1 to 1
ToHide()
UO.Print("!_FISHING_IN_POINT_!: " + 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(100)
if UO.InJournal("you fail") then
goto start
endif
wend
if UO.InJournal("You put") then
UO.Set('finddistance','0')
UO.Ignore('self')
UO.FindType('-1', '-1', 'ground')
while UO.FindCount()
if uo.GetGraphic('finditem') <> '0x0C2C' and uo.GetGraphic('finditem') <> '0x0DD6' and uo.GetGraphic('finditem') <> '0x1CEF' and uo.GetGraphic('finditem') <> '0x1CF0' and uo.GetGraphic('finditem') <> '0x0E31' and uo.GetGraphic('finditem') <> '0x1717' and uo.GetGraphic('finditem') <> '0x0C16' and uo.GetGraphic('finditem') <> '0x0C1F' and uo.GetGraphic('finditem') <> '0x0C1B' and uo.GetGraphic('finditem') <> '0x1D9F' and uo.GetGraphic('finditem') <> '0x1F5D' and uo.GetGraphic('finditem') <> '0x1DA2' and uo.GetGraphic('finditem') <> '0x1CDD' and uo.GetGraphic('finditem') <> '0x1CE1' and uo.GetGraphic('finditem') <> '0x19AB' and uo.GetGraphic('finditem') <> '0x1F3C' and uo.GetGraphic('finditem') <> '0x0E3E' and uo.GetGraphic('finditem') <> '0x1086' and uo.GetGraphic('finditem') <> '0x0EB2' then
UO.MoveItem('finditem')
wait(200)
else
uo.ignore('finditem')
endif
UO.FindType('-1', '-1', 'ground')
wend
endif
wend
next
next
finish:
UO.Print("!_MAX_WEIGHTH_!")
wait(100)
UO.Print("!_SLICING_FISH_!")
for i=0 to 3
for k = 1 to 5 # 5 ïîâòîðîâ.
if UO.Waiting() then
UO.CancelTarget()
endif
if UO.Count(ULOVtype[i]) then
UO.WaitTargetType(ULOVtype[i])
UO.UseType(nozh)
wait(200)
endif
next
next
UO.Print("!_FISHING_FINISHES_!")
endsub
SUB ToHide()
while not UO.Hidden()
UO.Warmode("0")
uo.print("!_HIDING_!")
UO.UseSkill("Hiding")
wait(4000)
wend
endsub
kr4 pacani, muziki, s podbiranijem nuzhinh itemov vsjo ok, s haidingom toze vsjo ok, teperj rezka - ja postavil wtob on delal 5 povtorov a on kagda porezet, srazu idjot na finish, tam nado gdeto pribavitj poxodu eto
Code: Select all
if UO.Weight < MaxWeigth-5 then
goto start
ja konewno cenju vawe terpenije, i znaju kak ja vas zae...
у меня нехочет резать =)))
чем ты режеш ? купер дагером ?
Posted: 2007-01-06 17:47:58
by DenjaGanjubass
samo saboi
