Jump to content


Toggle shoutbox Chat Open the Shoutbox in a popup

Прямая связь с администрацией по скайпу: gods.dragon
@  Costesti : (10 June 2025 - 22:26) Артём закрой сервер толку от него ноль так как лаги бешеные ничего не сделать
@  Costesti : (10 June 2025 - 21:03) бля это у меня сервер только логает или у всех?
@  papasha : (10 June 2025 - 15:13) @Costesti da kanesna vvodit, uze dohuja obnov vishlo za 7 let poslednix!!
@  Costesti : (09 June 2025 - 18:34) Артём ты там нововведения водишь?
@  Costesti : (09 June 2025 - 18:31) Сервер работает?
@  Costesti : (31 May 2025 - 23:46) Шан комп меняй уже игру не тянет
@  Costesti : (31 May 2025 - 20:02) мда никому не нужен этот сервер
@  fr33 : (29 May 2025 - 14:07) shenahnan gnom
@  fr33 : (29 May 2025 - 14:07) gm zb!!!1 lagi ept
@  Costesti : (28 May 2025 - 22:43) и это опять и за сейвы
@  Costesti : (28 May 2025 - 22:43) Народ да у кого там номер Шана пускай чинит сервер
@  Costesti : (27 May 2025 - 21:38) Вопрос Крафтить молоко можно?
@  fr33 : (26 May 2025 - 17:33) gm blad chini lag
@  Costesti : (23 May 2025 - 22:37) Бешеные лаги
@  Costesti : (17 May 2025 - 22:54) Опять лаги на Сервере
@  fr33 : (12 May 2025 - 15:21) ble daite mne gm i zdelaju pvp vam
@  Mokasin : (12 May 2025 - 09:04) Puišiem nav garlaicīgi xDDD
@  Egoons : (10 May 2025 - 18:48) lanc 2025 gads jau, ara silts atkal. tas taa, infai
@  beatiful : (10 May 2025 - 10:14) griga pidar
@  fr33 : (08 May 2025 - 17:53) griga eta samij zoskj dalbaeb etam server

Photo

Fishing


  • Please log in to reply
28 replies to this topic

#21 wap

wap

    Guru

  • Members
  • 2609 posts
  • Gender:Male
  • Location:Необитаемый остров

Posted 22 September 2007 - 19:20

Интересно тогда почему скрипт для ИЗИ выкладывают в разделе с названием 'Инжект'.
Явно большие навыки в скриптинге...

Тут 2 скрипта. 1, как и должно быть, на инжект, 2 на изи, просто по теме выложен...
For flood and honour. Хорошо флудить - это тоже искусство. Forum - moderator. Ultima online - seer. UO XL server - player. WapVendor - в центральном здании рынка британии на сервере XL.

#22 S.A.D

S.A.D
  • Members
  • 3 posts

Posted 13 August 2008 - 12:36

Ребят а не моглибы вы подкорректировать что б когда елем он юзал команду .Arm а потом лутал и снова ловвил


Привет я пустил скрипт твой но потом мне пишет что я остоновил процесс потом заного вот так что делать?

#23 S.A.D

S.A.D
  • Members
  • 3 posts

Posted 13 August 2008 - 12:39

set %pole XHF
set %fish DQD_EQD_FQD_GQD_DMF_EQD_FQD_NSH_DPH_CUD
set %somabanka RLNRJMD

moving:
msg back$
wait 14s
msg stop$
gosub fishing
msg back$
wait 14s
msg stop$
gosub fishing
msg back$
wait 14s
msg stop$
gosub fishing
msg forward$
wait 45s
msg stop$
gosub fishing
wait 1s
goto moving

sub fishing
wait 5s
for %xx -5 5
{
for %yy -5 5
{
finditem %pole
set #LOBJECTID #FINDID
event macro 17 0
wait 2
target 5s
set #LTARGETX #CHARPOSX + %xx
set #LTARGETY #CHARPOSY + %yy
set #LTARGETKIND 3
event macro 22 0
wait 3
gosub proverka
}
}
return

sub proverka
set %overtime #SCNT + 15
loop:
if #hits < #str
{
msg .arm $
msg .camp $
wait 15s
finditem ZLF
set #LOBJECTID #FINDID
event macro 17 0
wait 10
event macro 23 0
wait 6s
return
}
deletejournal
scanjournal 1
if There_are_no_ in #JOURNAL || Try_fishing_ in #JOURNAL || That_is_too in #JOURNAL || You_fail_to_catch_ in #JOURNAL || Fishing_has in #JOURNAL || #SCNT >= %overtime
return
if You_pull in #JOURNAL || seconds_before in #JOURNAL
{
wait 1s
return
}
goto loop


Я запустил этот скрипт когда запускаю идёт но сразу же пишет вы остоновили процесс что можно с этим делать?

#24 Unholy Messiah

Unholy Messiah

    Vorago

  • Members
  • 585 posts
  • Gender:Male
  • Location:Riga

Posted 13 August 2008 - 12:42

Я запустил этот скрипт когда запускаю идёт но сразу же пишет вы остоновили процесс что можно с этим делать?

Ты его на инжекте запускаешь? Скрипт с виду вполне рабочий
Только действиям счет, все слова пусты! Разделился весь мир - отвечай с кем ты?

#25 S.A.D

S.A.D
  • Members
  • 3 posts

Posted 13 August 2008 - 16:02

ДА на инже запускаю... он та ловт рибуу иногда.. но всё время пишет You Stop Fishing этого не пойма зачем он его останавливает

#26 Unholy Messiah

Unholy Messiah

    Vorago

  • Members
  • 585 posts
  • Gender:Male
  • Location:Riga

Posted 13 August 2008 - 16:37

Этот скрипт на EasyUO написан, я не знаю как ему вообще удаётся что-то ловить на инже :D
Только действиям счет, все слова пусты! Разделился весь мир - отвечай с кем ты?

#27 Banish

Banish

    Novice Player

  • Members
  • 103 posts
  • Gender:Male
  • Location:Ica

Posted 19 September 2008 - 21:30

Loozer padobnij skript no na +40% na fish mozh napisatj? :)

#28 Banish

Banish

    Novice Player

  • Members
  • 103 posts
  • Gender:Male
  • Location:Ica

Posted 19 September 2008 - 21:31

Пользуйтесь на здоровие =)

sub FISHING() 



DIM ULOVtype[7] 



ULOVtype[0] = '0x09CC' #fish1 



ULOVtype[1] = '0x09CD' #fish2 



ULOVtype[2] = '0x09CE' #fish3 



ULOVtype[3] = '0x09CF' #fish4 



ULOVtype[4] = 'UUF' #heal 



ULOVtype[5] = 'DMF' #ball 



ULOVtype[6] = 'RVH' #sos Tattered Treasure map 



VAR udochka = 'XHF' 



VAR nozh = '0x0F51' 



VAR NumTile = '6043' 



VAR MaxWeigth = UO.STR*4 



VAR i, x, y, k 



wait(200) 



UO.Equipt('Rhand', udochka) 



start: 



for x=-6 to 6 



for y=-6 to 6 



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")and not UO.InJournal("Try fishing elsewhere") 



k = 0 



if UO.Weight > MaxWeigth then 



goto finish 



endif 



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("Targeting Cancelled") then 



goto start 



endif 



wend 



#???????? ???? 



if UO.InJournal("You put") 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
Пользуйтесь на здоровие =)



shto on delaet v etom skripte mozhet ktonijt rozskazat?

#29 Stanislav

Stanislav

    Journeyman

  • Members
  • 93 posts
  • Gender:Male

Posted 22 January 2009 - 23:11

shto on delaet v etom skripte mozhet ktonijt rozskazat?


Кароче он то ловит, но недолго... вобщем приходитьса самому перебегать на дргое место или хотябы запускать его заного !!!




1 user(s) are reading this topic

0 members, 1 guests, 0 anonymous users