Fishing - две лажи в скрипте, помогите найти.

SnOo13 · Post by **SnOo13** » 2007-01-17 13:22:24

sub fishing() 
var mx, my, mz, i, j 
uo.print('TbI Tynou` 6apaH kyda pbI6y kJIacTb?') 
uo.exec('addobject Bag') 
while uo.targeting() 
wait(100) 
wend 

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 
endif 


UO.Print("Now Fishing In: "+str(mx-i)+" "+str(my-j)) 
while not UO.InJournal("no fish here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("in water") 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype("0x0DBF") ;FishingPole 
if UO.dead() then 
return 
endif 
if UO.Weight>660 then 
return 
endif 
while not UO.InJournal("You pull") and not UO.InJournal("location") and not UO.InJournal("no fish") and not UO.InJournal("You fail") and not UO.InJournal("far away") and not UO.InJournal("in water") 
wait (100) 
if UO.InJournal("You pull") then 
UO.SetReceivingContainer('Bag') 
UO.findtype('0x09CC','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CD','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CE','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x09CF','0x0000','ground') ;fish 
UO.grab ('3','finditem') 
wait (200) 
UO.findtype('0x14EB','0x0000','ground') ;tattered map 
UO.grab ('1','finditem') 
wait (200) 
UO.UnSetReceivingContainer() 
end if 
wend 
wend 
UO.DeleteJournal() 
next 
next 
end sub

В общем вот скрипт, вроде работает нормально, но как только обловит все координаты от "6, 6" до "-6, -6", он останавливается - ну тупо скрипт вырубается... И еще одно, с подыманием рыбы, вроде подымает подымает... тут бамсь иногда пропускать начинает и не подымает... И еще пожалуйста, если кто в силе знаний темы как зделать, что бы подымало не определенные предметы, типо как рыба, карта и т.д. а все итемы которые находит под собой после того как что-то поймалось, с минимумом задержек что бы кто-то левый не украл со стороны... Огромное спасибо, за ранее помогщим мне в этом не легком деле!!!

И еще один вопрос, на сколько сложно зделать, что бы при заполненом паке рыбы чар шел к вендору, точнее находил его (он прямо на пристани) и прадовал ему улов (Шард ОЛДП - система Селла - Говоришь Sell появляется таргет, таргет на рыбу, появляется окошко у него постоянные координаты так-что кнопку "Ок" в окошке будет просто найти, задав координаты", если кому не сложно реализовать, буду очень признателен, либо взаимопомошь

SnOo13 · Post by **SnOo13** » 2007-01-17 13:23:30

Еще одно, скрипт был найден на вашем форуме, простите автора забыл подписать.

GAUHAR · Post by **GAUHAR** » 2007-01-17 13:48:32

Посмотри эту ссылку:
viewtopic.php?t=10920
Может подойдет.

SnOo13 · Post by **SnOo13** » 2007-01-17 16:27:12

К сожелению не подходит...
Топик всё еще актуален... Прошу помощи знающих.

Dominator · Post by **Dominator** » 2007-01-17 21:08:35

Мдаааа, я вот только недавно комут кидал в другой раздел - мне нужен скрипт раздел- скрипт на фишинг , млин могбы потрудиться и хотяб посмотреть первую страницу!
Лан неупрекаю вот сам скрипт с реконектором
там всё есть, а на вопрост если над чтот ещё подбирать отвечаю 2й раз (но не тебе а вообще) просто дописываеш Сам то что те нуно и добавляеш строки для подбора и Всё

Code: Select all

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

SnOo13 · Post by **SnOo13** » 2007-01-18 15:49:44

Спасибо за отзыв, конечно если бы я знал типы тех вещей которые могут выловится то я бы их дописал. Но там может и кожа выловится, куски разных арморов, сундуки, карты, руда, инги, реги, лошадь и т.д...

Nmy · Post by **Nmy** » 2007-01-18 15:54:34

SnOo13 wrote:Спасибо за отзыв, конечно если бы я знал типы тех вещей которые могут выловится то я бы их дописал. Но там может и кожа выловится, куски разных арморов, сундуки, карты, руда, инги, реги, лошадь и т.д...

*за шкафом* удочкой лошадь :lol:

Dominator · Post by **Dominator** » 2007-01-18 20:29:42

NMY wrote:
SnOo13 wrote:Спасибо за отзыв, конечно если бы я знал типы тех вещей которые могут выловится то я бы их дописал. Но там может и кожа выловится, куски разных арморов, сундуки, карты, руда, инги, реги, лошадь и т.д...

*за шкафом* удочкой лошадь

Ну ты и отмачалил :lol:

to SnOo13 - эээ ну пропустим слова, я даж и незнал что такое моно ивыловить что ты написал
ЗЫ а про типы я их сам и незнаю ,ен ты сам должен узнать, ктомуже я незнаю на каком шарде ты играеш

nerac · Post by **nerac** » 2007-01-18 23:37:26

Dominator wrote:
NMY wrote:
SnOo13 wrote:Спасибо за отзыв, конечно если бы я знал типы тех вещей которые могут выловится то я бы их дописал. Но там может и кожа выловится, куски разных арморов, сундуки, карты, руда, инги, реги, лошадь и т.д...

*за шкафом* удочкой лошадь

Ну ты и отмачалил

to SnOo13 - эээ ну пропустим слова, я даж и незнал что такое моно ивыловить что ты написал
ЗЫ а про типы я их сам и незнаю ,ен ты сам должен узнать, ктомуже я незнаю на каком шарде ты играеш

OLDP

SnOo13 · Post by **SnOo13** » 2007-01-19 18:19:56

Там можно коня выловить, я читал, отвечаю!

Dominator · Post by **Dominator** » 2007-01-19 19:59:48

SnOo13 wrote:Там можно коня выловить, я читал, отвечаю!

Ктож утопил коня ??? :wink:

помоему муму топили )