Yoko

All sides of Injection
It is currently 2024-03-29 17:43:51

All times are UTC+02:00




Post new topic  This topic is locked, you cannot edit posts or make further replies.  [ 6 posts ] 
Author Message
 Post subject: Помогите ......
PostPosted: 2006-03-30 13:55:11 
Offline
User avatar

Joined: 2006-03-28 07:55:10
Posts: 19
Здрасти помогите плз зделать скрипт каторый просто ловит рубы вокруг плота плывет останавливается опять ловит вокруг плота и так бесконечно...ПОМОГИТЕ ПОЖАЛУЙСТА


Top
   
 
 Post subject:
PostPosted: 2006-03-30 16:19:09 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
возьми обычный скрипт на фишинг и добавь плыть вперёд...


Top
   
 
 Post subject:
PostPosted: 2006-03-30 17:24:40 
Offline
Expert!
User avatar

Joined: 2004-07-04 00:14:58
Posts: 1284
мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!


Top
   
 
 Post subject:
PostPosted: 2006-03-30 19:26:17 
Offline
User avatar

Joined: 2006-03-28 07:55:10
Posts: 19
А скинь плз?а там я уже добавлю :?:


Top
   
 
 Post subject:
PostPosted: 2006-03-30 20:48:29 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
Поправить сообщения на свои тут:
until UO.InJournal("Try fishing|You pull out|You fish a while|There are no|Âû|Serpent")

и тут:
until UO.InJournal("Try fishing|There are no|Serpent")

В первом случае все сообщения при которых закончился процесс ловли, во вторм, все при которых ловить нечего :)
Code:
sub Fishing()
   While True
      FishAround(700,6,UO.GetX(),UO.GetY())
      UO.Say('Unfurl Sail')
      wait(20000)
      UO.Say('Stop')
   Wend
end sub


sub FishAround(MaxWeight,MaxDistance,BaseX,BaseY)
   VAR x,y,z='0',TileNum='0'
   VAR Last=0,LastTimer
   VAR FishingPole='0x0DBF'

   For x=-MaxDistance to MaxDistance
      For y=-MaxDistance to MaxDistance
         Repeat
            CheckLag() ; deleting journal
            ToHide()
            
            UO.WaitTargetTile(TileNum,STR(UO.GetX()+x),STR(UO.GetY()+Y),z)
            UO.UseType(FishingPole)


            repeat
               wait(300)
            until UO.InJournal("Try fishing|You pull out|You fish a while|There are no|Âû|Serpent")

            if UO.InJournal('treasure map') then
               UO.WaitTargetGround('0x14EB')
               wait(1000)
               UO.Grab('all')
            endif

            if UO.Weight>=MaxWeight then
               unloadmap()
            endif
         until UO.InJournal("Try fishing|There are no|Serpent")
      Next
   Next
end sub


sub decode()
   VAR Exit
   UO.AddObject('MapContainer')
   UO.Print("V kakoy meshok skladivat`?")
   While UO.Targeting()==2
      wait(500)
   Wend
   
   Exit=0
   While Exit<>1
      UO.FindType('0x14EB',-1,'backpack')
      If UO.GetQuantity('finditem')>0 Then
         UO.UseObject('finditem')
;         wait(2000)
         CheckLag()
         UO.MoveItem('finditem',1,'MapContainer')
         wait(1000)
      Else
         Exit=1
      Endif
   Wend
end sub


#==============================================================
#  tohide() - try hidding char. When char lose HP, drink inviz
#             potion if it found in backpack
#
#  Journal has been deleted!!!
#--------------------------------------------------------------
sub tohide()
   while NOT UO.Hidden()
      UO.DeleteJournal()
      UO.FindType('0x0F0E','0x0631','my')

      if UO.Life<UO.STR/2 AND UO.GetQuantity('finditem')>0 then
         UO.UseType('0x0F0E','0x0631') ; inviz potion
         UO.Exec('warmode 0')
         wait(2000)
      else
         UO.Exec('warmode 0')
         UO.UseSkill('Stealth')
         repeat
            wait(50)
         until UO.InJournal('You have hidden') OR UO.InJournal('seem to hide') OR UO.InJournal('preoccupied')
      endif
   wend
end sub


#==============================================================
#  CheckLag() - click on backpack and awaiting "backpack"
#               message in journal.
#
#  Journal has been deleted!!!
#--------------------------------------------------------------
sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')

   repeat
      wait(500)
   until UO.InJournal('backpack')
end sub







Top
   
 
 Post subject:
PostPosted: 2006-03-30 23:46:07 
Offline
Junior Expert
User avatar

Joined: 2004-06-24 22:08:56
Posts: 3220
Sfagnum wrote:
мля МОДЕРЫ! какого хера этот топик тут делает с таким названием?!?!?!

Меня ждёт. :roll:


Top
   
 
Display posts from previous:  Sort by  
Post new topic  This topic is locked, you cannot edit posts or make further replies.  [ 6 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 9 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