Скрипт на фишинг (Дрв)

GimFlex · Post by **GimFlex** » 2006-10-23 06:05:54

я вот таким щас пользуюсь но он чисто под мои цели

собирает только рыбу

var book1='0x403DF607'  
var ydochka='0x0DBF' 
var time 

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub 

sub port(n,book) 
var oldX=UO.GetX() 
var oldY=UO.GetY() 
   NoTarget() 
   UO.UseObject(book) 
   FastLootCheck() 
   CheckLag() 
   UO.LClick(135, n*15+55) 
   time=UO.Timer() 
   Repeat 
     wait(500) 
   Until oldX<>UO.GetX() OR oldY<>UO.GetY() OR time+200<UO.Timer() 
end sub 

sub FastLootCheck() 
   UO.DeleteJournal() 
   wait(600) 
   if UO.InJournal("FastLoot") OR UO.InJournal("World save") then 
      CheckLag() 
   endif 
end sub 

sub NoTarget() 
   if UO.Waiting() then 
      UO.CancelTarget() 
   endif 
end sub 

sub fish()  
var mx, my, mz, i, j, k 
var spining='0x0DBF'
var ms1="no fish here"
var ms2="location"
var ms3="far away"
var ms4="in water"
var ms5="You pull"
var ms6="but fail"
var ms7="no fish"
var ms8="Unexpected"
dim fish[4]
fish[0]='0x09CC'
fish[1]='0x09CD'
fish[2]='0x09CE'
fish[3]='0x09CF'
hiding() 
mx = UO.GetX("self") 
my = UO.GetY("self") 
mz = UO.GetZ("self") 
UO.DeleteJournal()
repeat
for i = mx-6 to mx+6 
for j = my -6 to my+6 
while not UO.InJournal(ms1) and not UO.InJournal(ms2) and not UO.InJournal(ms3) and not UO.InJournal(ms4) and not UO.InJournal(ms8) 
UO.DeleteJournal() 
UO.Waittargettile("1341", str(i), str(j), str(mz)) 
UO.Usetype(spining)
while not UO.InJournal(ms5) and not UO.InJournal(ms2) and not UO.InJournal(ms7) and not UO.InJournal(ms6) and not UO.InJournal(ms3) and not UO.InJournal(ms4) and not UO.InJournal(ms8)  
wait (50)
for k = 0 to 3
UO.findtype(fish[k],'-1','ground')
if uo.findcount()>0 then
 UO.moveitem('finditem','all','backpack')
 wait(250)
endif
next
wend 
wend 
UO.DeleteJournal() 
next 
next 
until 1
end sub 


sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until UO.InJournal('backpack') 
endsub 

sub hiding()  
   UO.Warmode("0") 
   while not UO.Hidden() 
      UO.DeleteJournal() 
      UO.UseSkill("Hiding") 
      while NOT UO.InJournal("You") 
         wait(1000) 
      wend 
   wend  
end sub

DerMeister =) · Post by **DerMeister =)** » 2006-10-23 15:58:33

to YMD: Если удаляешь ругань, то удаляй всё под ноль!

Code: Select all

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub

ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.

GimFlex · Post by **GimFlex** » 2006-10-23 16:01:24

DerMeister =) wrote:to YMD: Если удаляешь ругань, то удаляй всё под ноль!
Code: Select all
sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub
ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.

омг шат ап плз не учи батьку...

Scripts Writer · Post by **Scripts Writer** » 2006-10-23 16:22:29

DerMeister =) wrote:to YMD: Если удаляешь ругань, то удаляй всё под ноль!
Code: Select all
sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub
ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.

Я удаляю ругань, но не удаляю твои посты. И ты впредь не удаляй моих замечаний ,которые по делу!
Стыдно чтоли стало за свои слова?

DerMeister =) · Post by **DerMeister =)** » 2006-10-23 16:25:50

You Must Die wrote:
DerMeister =) wrote:to YMD: Если удаляешь ругань, то удаляй всё под ноль!
Code: Select all
sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub
ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.
Я удаляю ругань, но не удаляю твои посты. И ты впредь не удаляй моих замечаний ,которые по делу!
Стыдно чтоли стало за свои слова?

Нет. Может я и перестарался, но "такое" работать не должно!

DerMeister =) · Post by **DerMeister =)** » 2006-10-23 16:26:44

Question wrote:
DerMeister =) wrote:to YMD: Если удаляешь ругань, то удаляй всё под ноль!
Code: Select all
sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub
ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.
омг шат ап плз не учи батьку...

Это ты то батька? Иди бутылки собирай

GimFlex · Post by **GimFlex** » 2006-10-23 16:31:58

DerMeister =) wrote:
You Must Die wrote:
DerMeister =) wrote:to YMD: Если удаляешь ругань, то удаляй всё под ноль!
Code: Select all
sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
 wend 
endsub
ЗЫ: Скрипт всё равно работать не может. А если работает, то только по причине тупого парсера => автор не понимает что он написал.
Я удаляю ругань, но не удаляю твои посты. И ты впредь не удаляй моих замечаний ,которые по делу!
Стыдно чтоли стало за свои слова?
Нет. Может я и перестарался, но "такое" работать не должно!

а ты проверь и извенись, все устал я от тебя, обьяснять тебе что то бесполезно

DerMeister =) · Post by **DerMeister =)** » 2006-10-23 16:38:30

Если что то работает, то это не значит что оно работает правильно!

GimFlex · Post by **GimFlex** » 2006-10-23 17:41:45

DerMeister =) wrote:Если что то работает, то это не значит что оно работает правильно!

ну хорошо хорошо я выложил просто то что работает и все

Scripts Writer · Post by **Scripts Writer** » 2006-10-23 19:41:42

Есть у кого вопросы по настройке и работе скрипта?
Здесь они рассматриваются. Всем у кого не получается настроить, или подредактировать-писать сюда. Здесь помогут.

Barlog · Post by **Barlog** » 2007-11-25 18:27:44

ребята если вам не сложно! соберите скрипт чтоб он ловил и выкладывал всё кроме простой рыбы и сеток! очень прошу!
допишите скрипт! я просто совсем ничего в скриптах не понимаю!