Yoko

All sides of Injection
It is currently 2025-12-02 22:18:01

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 2
  [ 31 posts ]  Go to page 1 2 Next
  Print view Previous topic | Next topic 
Author Message
No***Name
PostPosted: 2006-09-15 13:51:11 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
дайте пожайлуста скрипт на фишинг по рунбукам с нововедениями под ДРВ :roll: :(
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-15 15:58:39 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Всё тоже самое только я убрал перезарядку рунбук подставляй свои ID.
Работает сам ловлю им.

Code:
### 
#Описание и настройка 
### 
#Скрипт настроен под дрв а точнее рунбука =) 
# 
#у чара в паке 3 рунбуки,  1 и 2 рунбуки забиты полностью 
#рунами к местам ловли, в 3 рунбуке 1 руна домой к сейфам. 
#Чар реколится по всем рункам в 1 рунбуке и рыбачет затем 
#портится к сейфам по 3 рунбуке выкладывает карты в первый 
#сэйф перезаряжает рунбук с помощью реколов которые лежат 
#во 2 сэйфе потом проверяет если в первом сэйфе >200 карт 
#берет из него мешок кидает туда 200 карт и перекладывает во 
#2 сэйф портится по 2 рунбуке и опять рыбачет портится назад 
#потом теже проверки, речардж, кушает фиш стэйками и опять 
#реколится по первой рунбуке и так циклично 
## 
#для правильной работы укажите все переменные ниже 
#!!! в первом сэйфе у вас лежат пустые мешки одного типа и 
#выловленные карты 
#!!! во втором сэйфе лежат реколы еда и наполненные картами 
#мешки 
## 
#проверки на пк нет так как сам скоко ловил пк не видел  да 
#и существует много место в гз где можно ловить. 
#удачи 8)                                                                        
#from Gim with smile 
#ЛОВЯТСЯ ТОЛЬКО КАРТЫ!!! 

var book1='0x4043FACF' #рунбука 1 
var book2='0x40296228' # 2-ая 
var book3='0x402CCE0F'  # 3 яя 
var seifformap1='0x40352324' # 1 сэйф 
var seifformap2='0x403506D7' # 2-ой 
var recall='0x1F4C' # тип рекола 
var meshok='0x0E76' # тип пустых мешков 
var mapa='0x14EB' # тип мапы нерасшифрованной 
var ydochka='0x0DBF' # тип удочки 
var time 
var tEat='0x097B' # тип еды(фишстэйки) 

sub main() 
var i 
 while not uo.dead() 
  for i=1 to 9 
   repeat 
     port(i,book1) 
     fish() 
   next 
  port(1,book3) 
  unload() 
  recharg(seifformap2,book1) 
  kolmap() 
  for i=1 to 9 
   repeat 
     port(i,book2) 
     fish() 
   next 
  port(1,book3) 
  unload() 
  recharg(seifformap2,book2) 
  kolmap() 
  ToEat() 
 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() 
hiding()  
var i,j, isfishing 
var   mx = UO.GetX('self') 
var   my = UO.GetY('self') 
var   mz = UO.GetZ('self') 
   UO.DeleteJournal() 
   repeat 
      for i = mx-6 to mx+6 
         for j = my-6 to my+6 
            isfishing = 1              
            while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
               UO.DeleteJournal() 
               UO.Waittargettile("1341", str(i), str(j), str(251)) 
               UO.Usetype(ydochka) 
               while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
                  wait(100) 
               wend 
               proverka() 
               if not UO.Hidden('self') then 
                  hiding() 
               end if 
               proverka() 
               if UO.InJournal("treasure") then 
                  UO.findtype(mapa,'0x0000','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               if UO.InJournal("out a fish") then 
                  isfishing = 0 
               end if 
            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 

sub unload() 
         hiding() 
         UO.FindType(mapa, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',seifformap1) 
         CheckLag() 
         Wait(700)                      
         UO.FindType(mapa,'-1','backpack') 
       wend 
endsub 

sub proverka() 
   if uo.injournal("attacking") and uo.injournal("you") then 
    uo.say("guards") 
   endif 
   if UO.Life<150 then 
    uo.say("guards") 
   endif 
endsub 

sub recharg(syndyk,kniga) 
wait(50)
endsub 

sub kolmap() 
 var k 
 var meshochek 
 uo.useobject(seifformap1) 
 uo.findtype(mapa,'-1',seifformap1) 
 if uo.findcount()>=200 then 
  uo.findtype(meshok,'-1',seifformap1) 
  meshochek=uo.getserial('finditem') 
  uo.moveitem('finditem','1','backpack') 
  k=0 
  while k<>200 
    UO.FindType(mapa,'0x0000',seifformap1) 
    UO.MoveItem('finditem','1',meshochek) 
    CheckLag() 
    wait(600) 
    k=k+1 
  wend 
  uo.findtype(meshok,'-1','backpack') 
  uo.moveitem('finditem','1',seifformap2) 
 endif 
endsub 

sub ToEat() 
   UO.UseObject(seifformap2) 
   UO.FindType(tEat,'0x0000',seifformap2) 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20','backpack') 
   end if 
   repeat      
      CheckLag() 
      uo.UseType(tEat) 
      while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
         wait(100) 
      wend 
   until uo.InJournal('too full') or UO.Dead() 
   UO.FindType(tEat, '0x0000','backpack') 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20',seifformap2)      
   end if 
end sub


Top
   
Reply with quote  
No***Name
 Post subject:
PostPosted: 2006-09-15 16:22:27 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
А тут убрана перзарядка :?:
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-15 16:49:59 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Долго не стал заморачиватся

Code:
sub recharg(syndyk,kniga) 
wait(50) 
endsub


Как видиш убрана.
Top
   
Reply with quote  
No***Name
 Post subject:
PostPosted: 2006-09-15 19:16:31 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
ZL_OY wrote:
Долго не стал заморачиватся

Code:
sub recharg(syndyk,kniga) 
wait(50) 
endsub


Как видиш убрана.

Спс :lol:
Top
   
Reply with quote  
GimFlex
 Post subject:
PostPosted: 2006-09-16 14:50:39 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
как фижу мои скриптом еще пользуются :)
Top
   
Reply with quote  
No***Name
 Post subject:
PostPosted: 2006-09-16 15:33:19 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
Злой лучше скажи скоко ты нем карт за ночь ловиш?
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-16 17:35:23 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Ну вот за сегоднюшнюю почти 400поймал
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-16 17:39:12 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Он иногда глючит т.к. очень быстро ест фишстейки иногда фаст лут срабатывает и скрипт останавливается.
Как помедленнее сделать незнаю
Top
   
Reply with quote  
<FaTe>
 Post subject:
PostPosted: 2006-09-16 17:44:35 
Offline
User avatar

Joined: 2006-09-15 18:16:29
Posts: 35
ZL_OY wrote:
Он иногда глючит т.к. очень быстро ест фишстейки иногда фаст лут срабатывает и скрипт останавливается.
Как помедленнее сделать незнаю

Code:
sub ToEat() 
   UO.UseObject(seifformap2) 
   UO.FindType(tEat,'0x0000',seifformap2) 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20','backpack') 
   end if 
   repeat      
      CheckLag() 
      uo.UseType(tEat) 
      while not uo.InJournal("can't") and not uo.InJournal('full') and not uo.InJournal('stuffed') and not uo.InJournal('hungry') and not uo.InJournal('satiated') and not UO.Dead() 
       wait(100) <<<<<<<
      wend 
   until uo.InJournal('too full') or UO.Dead() 
   UO.FindType(tEat, '0x0000','backpack') 
   if UO.FindCount() > 0 then 
      UO.MoveItem('finditem','20',seifformap2)      
   end if 
end sub

Значение вайт больше сделай.
Top
   
Reply with quote  
ZL_OY
 Post subject:
PostPosted: 2006-09-16 17:47:31 
Offline
User avatar

Joined: 2006-09-14 17:05:50
Posts: 12
Да не тупой -) пробовал уже но иногда всёравно... это он так же есть будет а просто перед тем как уберет задержка... а скрипт глючит именно когда чар голоден и он начинает много есть и срабатывает фастлут и всё скрипт встал
Top
   
Reply with quote  
No***Name
 Post subject:
PostPosted: 2006-09-16 18:00:08 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
а у меня такая фишка короче: когда в первом сейве набралось 200 карт он складывает их в мешок и кладет этот мешок в бекпак
Top
   
Reply with quote  
No***Name
 Post subject:
PostPosted: 2006-09-16 18:01:22 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
ZL_OY wrote:
Ну вот за сегоднюшнюю почти 400поймал

*мечтает о прежней ситеме вылавливания карт на дрв* :? :(
Top
   
Reply with quote  
Mguai
 Post subject:
PostPosted: 2006-09-16 21:06:33 
Offline
User avatar

Joined: 2004-06-18 09:03:31
Posts: 83
пацаны как на щот раскуристя ?

_________________
ОсКом...
ганджюбасим!
курим Травку!
Выпъйем ЙАДУ
Top
   
Reply with quote  
No***Name
 Post subject:
PostPosted: 2006-09-16 23:25:19 
Offline
User avatar

Joined: 2006-02-26 22:41:09
Posts: 90
Question wrote:
как фижу мои скриптом еще пользуются :)

Cкажи че нуно дописать что б он брал рар и приз рыбу и сети
Top
   
Reply with quote  
GimFlex
 Post subject:
PostPosted: 2006-09-17 11:21:24 
Offline
Expert!
User avatar

Joined: 2005-01-07 13:22:19
Posts: 766
No***Name wrote:
Question wrote:
как фижу мои скриптом еще пользуются :)

Cкажи че нуно дописать что б он брал рар и приз рыбу и сети


ищи на форуме выкладывали уже
Top
   
Reply with quote  
discon
 Post subject:
PostPosted: 2006-09-22 15:32:39 
Offline

Joined: 2006-08-09 20:33:57
Posts: 34
No***Name wrote:
а у меня такая фишка короче: когда в первом сейве набралось 200 карт он складывает их в мешок и кладет этот мешок в бекпак


Пришли мне плиз свой, такой хороший скриптик..... ))) Discond@yandex.ru
Top
   
Reply with quote  
<FaTe>
 Post subject:
PostPosted: 2006-09-24 20:05:37 
Offline
User avatar

Joined: 2006-09-15 18:16:29
Posts: 35
No***Name wrote:
Cкажи че нуно дописать что б он брал рар и приз рыбу и сети

Code:
sub fish() 
hiding()  
var i,j, isfishing 
var   mx = UO.GetX('self') 
var   my = UO.GetY('self') 
var   mz = UO.GetZ('self') 
   UO.DeleteJournal() 
   repeat 
      for i = mx-6 to mx+6 
         for j = my-6 to my+6 
            isfishing = 1              
            while not UO.InJournal("no fish here") and not UO.InJournal("fishing in water") and isfishing 
               UO.DeleteJournal() 
               UO.Waittargettile("1341", str(i), str(j), str(251)) 
               UO.Usetype(ydochka) 
               while not UO.InJournal('You pull out') and not UO.InJournal('fail') and not UO.InJournal('no fish') and not UO.InJournal("fishing in water") 
                  wait(200) 
               wend 
               proverka() 
               if not UO.Hidden('self') then 
                  hiding() 
               end if 
               proverka() 
               if UO.InJournal("treasure") then 
                  UO.findtype(mapa,'0x0000','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               proverka()
               if UO.InJournal("Prize") then 
                  UO.findtype(fish,'0x01BB','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               proverka()
               if UO.InJournal("Truly") then 
                  UO.findtype(fish,'0x05EC','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               proverka()
               if UO.InJournal("Truly") then 
                  UO.findtype(fish,'0x05ED','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               proverka()
               if UO.InJournal("Truly") then 
                  UO.findtype(fish,'0x0607','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
                proverka()
               if UO.InJournal("Truly") then 
                  UO.findtype(fish,'0x0608','ground')  
                  UO.moveitem('finditem','-1','backpack')  
               end if 
               if UO.InJournal("out a fish") then 
                  isfishing = 0 
               end if 
            wend 
            UO.DeleteJournal() 
         next 
      next 
   until 1 
end sub

Вставь это вместо своего, я канеш хз я не скриптер, мож было и проше сделать но я так с горем пополам сделал, зато сам :P
И там можеш еше добавлять у меня трули рар фиш не все берет, там цвета можеш еше добавлять, но я сделал все основные.
Code:
sub unload() 
         hiding() 
         UO.FindType(mapa, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',seifformap1) 
         CheckLag() 
         Wait(700)                      
         UO.FindType(mapa,'-1','backpack')
         endif
          wend
         CheckLag()
         UO.FindType(fish, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',seifformap2)
         Wait(700)
         UO.FindType(fish,'-1','backpack')
         wend 
endsub

А это разгрузка, вставь вметсо своего, канеш может тоже намудрил чего, но опять же САМ сделал -)
И ЕЩЕ В НАЧАЛЕ СКРИПТА ПОСТАВЬ:
Code:
var fish='0x0DD6' # Тип рар рыбок

Вроде усе) :D
А скрипт канешна бодрый) я уже фишинг на 40 поднял и рыбок с картами до п..... наловил за часов 7-8. 8)
Top
   
Reply with quote  
discon
 Post subject:
PostPosted: 2006-09-25 09:30:41 
Offline

Joined: 2006-08-09 20:33:57
Posts: 34
<FaTe>, Пришли плиз уже рабочий собранный скрипт на DisconD@yandex.ru
Top
   
Reply with quote  
DokKor
 Post subject:
PostPosted: 2006-10-23 05:42:59 
Offline

Joined: 2006-02-04 14:57:35
Posts: 47
Да плиз, кто нить соберите нормальный скрипт, с лутом всех рыбок в пак. и нормальной системой кормления . :):( плиз.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 2
  [ 31 posts ]  Go to page 1 2 Next

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 8 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited