помогите определить действие скрипта

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

помогите определить действие скрипта

Post by BoBBaH »

Code: Select all

Отличный скрипт на фишинг. Ловит: 1 тип трулек, 1 типпрайз, сети, а так же карты. Реколиится по 2м рункам полностью забитых рунами для ловли, 1 рунбука с 1 слотом домой, качает хайд, надо 2хауз сейфа или других сейфов таво типа. Спирит вроде не качает, скрипт будет доработан. Автор неизвестный, после доработки будет принадлежать гилде [Do3oP], так как все же здесь есть косяки, но не сильно действующие на ловлю, точнее в мешок для рыбок не скидывает рыбки, приходица возица, также будет доработан рес чара, но бомб и всякая хня подобного рода, а карты кидает по 200 в большие сумки.
#############################################
var book1='0x4015DF2C' #Рунбука 1 (Забитая рунами для ловли) 
var book2='0x4015DDE6' # 2-ая (Забитая рунами для ловли) 
var book3='0x40453217' # 3-ая (На первом месте руна к сейфам...остальные руны в этой рунбуке не используються) 
var seifformap1='0x4004B30E' # 1сейф 
var seifformap2='0x40295BD0' # 2-ой 
var recall='0x1F4C' # Тип реколов 
var meshok='0x0E75' # Тип простой сумочки(в неё карты складываться будут) 
var mapa='0x14EB' # Тип кладовой карты 
var Prize='0x0DD6' #Prize fish 
var rare='0x0DD6' #Truly rare fish 
var setka='0x0DCA' #An fishing net 
var symkaprize='0x40295BD0' #Сумочка для рыбок маленьких 
var ydochka='0x0DBF' # Тип удочки 
var time 


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() 
 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") or UO.InJournal("Prize") or UO.InJournal("rare") or UO.InJournal("net") then 
                  UO.findtype(mapa,'0x0000','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Prize,'0x01BB','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05FC','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0607','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0604','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05EF','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05E5','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05EA','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0600','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05ED','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0603','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05E0','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0601','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05E9','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05F6','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05FA','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0608','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05F0','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05F5','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05FB','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(setka,'0x07D5','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               end if 
               proverka() 
               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 
         UO.FindType(Prize, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',symkaprize) 
         CheckLag() 
         Wait(700) 
         UO.FindType(Prize,'-1','backpack') 
       wend 
         UO.FindType(rare, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',symkaprize) 
         CheckLag() 
         Wait(700) 
         UO.FindType(rare,'-1','backpack') 
       wend 
         UO.FindType(setka, '-1', 'backpack') 
       while UO.GetQuantity('finditem') > 0 
         UO.MoveItem('finditem','-1',seifformap2) 
         CheckLag() 
         Wait(700) 
         UO.FindType(setka,'-1','backpack') 
       wend 

endsub 

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

sub recharg(syndyk,kniga) 
 uo.useobject(syndyk) 
 uo.findtype(recall,'-1',syndyk) 
 wait(3000) 
 uo.moveitem('finditem','9','backpack') 
 wait(3000) 
 uo.UseObject(kniga) 
 wait(3000) 
 uo.Lclick(296,91) 
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<>255 
    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
удачи рыбаки 3 дня и фишинг гм сервер дрв
Last edited by BoBBaH on 2006-05-04 05:47:19, edited 3 times in total.
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

Ловит и юзает спирит :lol:
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

не только что именно ловит я не помню какие рыбки и как сети и описание не флудите плиз действительно надо :?
Top
Sanch
Posts: 308
Joined: 2005-07-17 15:30:52
Location: www.drw.ru

Post by Sanch »

Знаешь я вот то же хотел подправить чужой скрипт на мининг под свой шард, ничего не поняв написал свой, не зная в скриптинге ничего, уроки по скриптописанию + большое желание и стремление = 2 недели на все ушло, чар ходит, сгружает, копает, элемов убивает, от гмов и других чаров то же бегает отлично.
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

нашел я тот самый скрипт даже не знаю кто писал отличный в первом посте изменил там все готово) удачи рыбаловы
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

BoBBaH wrote:нашел я тот самый скрипт даже не знаю кто писал отличный в первом посте изменил там все готово) удачи рыбаловы
мой чей же еще =)
https://yoko.uokit.com/viewtopic.php?t=3462&highlight=
и у меня есть версия анти бомб и с ресом чара
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

за 300к каждое добавление скорее всего в твой скрипт ) а трули и вовсе на халяфку отдавать нудо за юзание и исправление скрипта автора )
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

BoBBaH wrote:ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу
:shock: :lol: :lol: Ещё чёта просит, чтобы ему нахаляву сделали и предлагает по бешеным ценам покупать у него карты :D :D :D :D :D На ДРВ по 800 ГП за карту продают :lol:
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

BigMouseI wrote:
BoBBaH wrote:ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу
:shock: :lol: :lol: Ещё чёта просит, чтобы ему нахаляву сделали и предлагает по бешеным ценам покупать у него карты :D :D :D :D :D На ДРВ по 800 ГП за карту продают :lol:
какую карту ) неразгаданную? -Фигня. Кажись карты 5 лвла в одно место продают по 1кк за 70 штук ) -по 15 к примерно гг.Вот тут выгода реальная
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

блин я ща продаю карты на дрв по 310к но чувака в бан мне срочняк зароботок нужен а трульки и сети стоят дорого довольно я ему просто бизнес предложил епть и попросил доработать именно этот скрипт так как тот подлагивает и не очень удобен для меня
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

You Must Die wrote:
BigMouseI wrote:
BoBBaH wrote:ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу
:shock: :lol: :lol: Ещё чёта просит, чтобы ему нахаляву сделали и предлагает по бешеным ценам покупать у него карты :D :D :D :D :D На ДРВ по 800 ГП за карту продают :lol:
какую карту ) неразгаданную? -Фигня. Кажись карты 5 лвла в одно место продают по 1кк за 70 штук ) -по 15 к примерно гг.Вот тут выгода реальная
Ну те кто покупают по 15к можно считать лохонувшимися...
Top
BigMouseI
Posts: 93
Joined: 2006-04-15 09:00:35

Post by BigMouseI »

BoBBaH wrote:блин я ща продаю карты на дрв по 310к но чувака в бан мне срочняк зароботок нужен а трульки и сети стоят дорого довольно я ему просто бизнес предложил епть и попросил доработать именно этот скрипт так как тот подлагивает и не очень удобен для меня
Не знаю кому ты там толкаешь их по 1,5к за карту, но на форуме стабильно по 800 ГП люди берут...
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

я по 5 гп стабильно брать могу :roll:
а если серьезно не охотца опять лепить все в одну кучку так что этим заниматься я не буду да и на дрв я щас поигрываю как любитель ностальгист :roll: так что мне карты не нужны
а чтоб не лагало и все четко работало попробуй у асканели купить он у него на рунках вроде у меня тоже есть на рунках но чет я его найти не могу как и много другого интересного :arrow:
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

мне этот отлично подходит тока можешь сказать 1 вещь? как мне вставить где var вставить еще типов трули рар фишей? а то там типов много а берется токо 1
Top
GimFlex
Expert!
Posts: 766
Joined: 2005-01-07 13:22:19
Contact:
Contact GimFlex

Post by GimFlex »

Code: Select all

                  UO.findtype(Rare,'0x05E9','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05F6','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05FA','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x0608','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05F0','ground') 
                  UO.moveitem('finditem','-1','backpack') 
               wait(200) 
                  UO.findtype(Rare,'0x05F5','ground') 
                  UO.moveitem('finditem','-1','backpack')
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Можно заменить массивом %)

Code: Select all

sub GetOn()
  var i
  var Rare=' type '
  DIM fish[6]
  
  uo.Set('finddistance','3')
  for i = 0 to 5
    uo.FindType(Rare,fish[i],'ground')
    uo.moveitem('finditem','-1','backpack')
    wait(500)
  next
end sub
Top
BoBBaH
Posts: 94
Joined: 2006-02-09 11:37:25
Contact:
Contact BoBBaH

Post by BoBBaH »

можно просто в начале скрипта дописать как там уже есть?
Top
Post Reply

Return to “Scripting Ore”