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

BoBBaH · Post by **BoBBaH** » 2006-05-01 16:39:14

Отличный скрипт на фишинг. Ловит: 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 дня и фишинг гм сервер дрв

BigMouseI · Post by **BigMouseI** » 2006-05-01 17:40:43

Ловит и юзает спирит :lol:

BoBBaH · Post by **BoBBaH** » 2006-05-01 17:45:40

не только что именно ловит я не помню какие рыбки и как сети и описание не флудите плиз действительно надо

Sanch · Post by **Sanch** » 2006-05-03 09:51:04

Знаешь я вот то же хотел подправить чужой скрипт на мининг под свой шард, ничего не поняв написал свой, не зная в скриптинге ничего, уроки по скриптописанию + большое желание и стремление = 2 недели на все ушло, чар ходит, сгружает, копает, элемов убивает, от гмов и других чаров то же бегает отлично.

BoBBaH · Post by **BoBBaH** » 2006-05-03 13:40:34

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

GimFlex · Post by **GimFlex** » 2006-05-04 06:03:28

BoBBaH wrote:нашел я тот самый скрипт даже не знаю кто писал отличный в первом посте изменил там все готово) удачи рыбаловы

мой чей же еще =)
viewtopic.php?t=3462&highlight=
и у меня есть версия анти бомб и с ресом чара

BoBBaH · Post by **BoBBaH** » 2006-05-04 11:37:21

ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу

Scripts Writer · Post by **Scripts Writer** » 2006-05-04 13:22:05

за 300к каждое добавление скорее всего в твой скрипт ) а трули и вовсе на халяфку отдавать нудо за юзание и исправление скрипта автора )

BigMouseI · Post by **BigMouseI** » 2006-05-04 13:24:59

BoBBaH wrote:ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу

Ещё чёта просит, чтобы ему нахаляву сделали и предлагает по бешеным ценам покупать у него карты

На ДРВ по 800 ГП за карту продают :lol:

Scripts Writer · Post by **Scripts Writer** » 2006-05-04 13:30:05

BigMouseI wrote:
BoBBaH wrote:ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу

Ещё чёта просит, чтобы ему нахаляву сделали и предлагает по бешеным ценам покупать у него карты На ДРВ по 800 ГП за карту продают

какую карту ) неразгаданную? -Фигня. Кажись карты 5 лвла в одно место продают по 1кк за 70 штук ) -по 15 к примерно гг.Вот тут выгода реальная

BoBBaH · Post by **BoBBaH** » 2006-05-04 13:41:32

блин я ща продаю карты на дрв по 310к но чувака в бан мне срочняк зароботок нужен а трульки и сети стоят дорого довольно я ему просто бизнес предложил епть и попросил доработать именно этот скрипт так как тот подлагивает и не очень удобен для меня

BigMouseI · Post by **BigMouseI** » 2006-05-04 14:48:11

You Must Die wrote:
BigMouseI wrote:
BoBBaH wrote:ты добавь в этот скрипт плиз если не трудно ресалку и антибомб и еще сделай чтобы я смог ввести еще + 2 типа для трули рар фишек а то их многа и если хочешь еслина дрв все еще игарешь по 300к покупай у меня 200тресуре мап в мешке! заранее спасибо а так же трули продам и прайз моя ася есть снизу

Ещё чёта просит, чтобы ему нахаляву сделали и предлагает по бешеным ценам покупать у него карты На ДРВ по 800 ГП за карту продают

какую карту ) неразгаданную? -Фигня. Кажись карты 5 лвла в одно место продают по 1кк за 70 штук ) -по 15 к примерно гг.Вот тут выгода реальная

Ну те кто покупают по 15к можно считать лохонувшимися...

BigMouseI · Post by **BigMouseI** » 2006-05-04 14:48:57

BoBBaH wrote:блин я ща продаю карты на дрв по 310к но чувака в бан мне срочняк зароботок нужен а трульки и сети стоят дорого довольно я ему просто бизнес предложил епть и попросил доработать именно этот скрипт так как тот подлагивает и не очень удобен для меня

Не знаю кому ты там толкаешь их по 1,5к за карту, но на форуме стабильно по 800 ГП люди берут...

GimFlex · Post by **GimFlex** » 2006-05-04 16:21:25

я по 5 гп стабильно брать могу :roll:

а если серьезно не охотца опять лепить все в одну кучку так что этим заниматься я не буду да и на дрв я щас поигрываю как любитель ностальгист :roll:

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

BoBBaH · Post by **BoBBaH** » 2006-05-04 18:43:34

мне этот отлично подходит тока можешь сказать 1 вещь? как мне вставить где var вставить еще типов трули рар фишей? а то там типов много а берется токо 1

GimFlex · Post by **GimFlex** » 2006-05-04 19:29:17

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')

Scripts Writer · Post by **Scripts Writer** » 2006-05-04 19:37:50

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

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

BoBBaH · Post by **BoBBaH** » 2006-05-04 19:51:05

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