28 replies to this topic

[Loozer]

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

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

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

[kr3c]

Уважение! :thumbup: Спасибо за скрипт

[Fredrro]

Script very nice ) a nemog bi ti dabavit shtobe posle tago kak on vso oblovit praplival na paru tailof vperod i zanova lavil ?

[Game Over]

nexotel soszdovat novuju temu , sobsna , nuzhen scp na fishing , shtobi lovil vokrug sibe esli vilazit monster , srazu odivajet sword i kolbasit ego i srazu pod nogi campfire lozhit , kto sobrozhajet v skriptinge , namutite takoj skript , nefpadlek a to nadojelo za ekranom sidet i smotret ( da kstati isio esli mozhno srazu podnimal esli vipadit pandora armor treasure nu i tak dalije ) , budu o4 blagodaren : :thumbright:

[FakeGod]

Game Over, убивать и лутить монстров оффлайн запрещено правилами...

[Game Over]

Game Over, убивать и лутить монстров оффлайн запрещено правилами...

da ja ponimaju no mne nadojelo sidet i smotret kak on ribu lovit , daze film neposmotrish normalno , mne nado shtobi on sam ego ubil xotiab))

[FakeGod]

Ну тогда готовься сидеть в тюрьме если попадёшься...

[Game Over]

Ну тогда готовься сидеть в тюрьме если попадёшься...

nu a kak na mininge on kopajet , mne takze nado , esli tam mob vilizit uo migat na4ila ili 4enit v etom rode , a to u minia monster vilazit , a etot tormoz stoit dalshe lovit..

[Dida]

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

[_FANAT_]

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

[_FANAT_]

я на этом скрипте рыбычу , отлично работает вылезает монстр он его убивает ставит camp , сам плавает а вы спокойно спите ! если вы вариор нече не меняйте если вы арчер то поменяйте команду ( msg .arm $ на команду msg .arm bow $ )

[Dolja]

а как он тебе рыбы выбрасывают из бекпека? А вобще етот скрипт на изи.

[_FANAT_]

ето на изи рыба на полу вещи в бекпек

[Dida]

Блин протсо я ловлю на инже и кто знает вставьте в ппервый скрипт одевание оружия

[_FANAT_]

так скачать изию.уо скрипт нормальный я уже поставил ... её найти легко

[Dida]

Я запустил изи зашел чаром всавил твой скрипт и он у меня протсо стоит )

[_FANAT_]

хех странно я и щас стою рыбачу мож у тебя изи версия старая хз а ты удочку взял ? а то малали

[Dida]

Всё что надо взял изи с качен с офицального сайта

[Allower]

а как он тебе рыбы выбрасывают из бекпека? А вобще етот скрипт на изи.

Видно сразу, у тебя большие навыки в скриптинге.

[Hakuno]

а как он тебе рыбы выбрасывают из бекпека? А вобще етот скрипт на изи.

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