Yoko

All sides of Injection
It is currently 2017-11-20 05:48:28

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2008-09-22 13:08:59 
Offline

Joined: 2008-09-22 12:59:11
Posts: 5
Выдает ошибку "error in passer"

Code:
sub LegsBS() 
VAR Sunduk1=0x40188EAF ;Мешки инги (пустые)
VAR Sunduk2=0x40339B63 ;Складываем мешки с ногами
VAR IngCount=100 ;Остатток ингов в сундуке
VAR MaxItem=75 ; Колво ног в мешке
VAR Item,Exit=0,Meshok,IngName,i,Color
DIM Ing[17]

Ing[0]="Rusty"
Ing[1]="copper"
Ing[2]="Dull Copper"
Ing[3]="Old Copper"
Ing[4]="Bronze"
Ing[5]="Silver"
Ing[6]="Gold"
Ing[7]="Shadow"
Ing[8]="Rose"
Ing[9]="Agapite"
Ing[10]="Blood Rock"
Ing[11]="Verite"
Ing[12]="Valorite"
Ing[13]="Mytheril"
Ing[14]="Black Rock"
Ing[15]="Obsidian"
Ing[16]="Plutonium"

   UO.Print("Âûáåðè èíãè")
   UO.AddType('FullarmING')
   While UO.Targeting()
      wait(500)
   wend
   UO.DeleteJournal()
   Color=UO.GetColor('lasttarget')
   UO.Click('lasttarget')
   while NOT UO.InJournal("ngot") AND NOT UO.InJournal("Shadow")
      wait(500)
   wend

   for i=0 to 16
      If UO.InJournal(Ing[i]) then
         IngName=Ing[i]
         If IngName=="Shadow" then
            IngName="Shadow"
        endif
      endif
   next
   If IngName=="Bronze" then
      MessageBox("Èç ýòîé ðóäû êîâàòü íåëüçÿ")
      UO.Exec('terminate all')       
   endif

   while Exit<>1
      Item=0
      UO.UnsetCatchBag()
      repeat
         UO.FindType('0x0E76',-1,Sunduk1)
         If UO.GetQuantity('finditem')<1 then
            Exit=1
            goto End
         Else
            UO.Moveitem('finditem',1,Sunduk2)
            UO.DeleteJournal()
            UO.Click('finditem')
            wait(3000)
            while NOT UO.InJournal("items")
               wait(500)
            wend
         Endif
      until UO.InJournal("(0 items)")
        Meshok=UO.GetSerial('finditem')
      wait(1500)
      UO.SetCatchBag(Meshok)
      repeat
         If UO.Count('FullarmING',Color)<30 then
            UO.UnsetCatchBag()
            UO.FindType('FullarmING',Color,Sunduk1)
            If UO.GetQuantity('finditem')<IngCount then
               Exit=1
               goto End
            else
               UO.Grab('500','finditem')
               wait(1500)
               UO.SetCatchBag(Meshok)
            Endif
         Endif
         CheckLag()   
         UO.CancelMenu()
         UO.AutoMenu(IngName+' Plate','Platemail Legs')
         UO.AutoMenu(IngName+' Armor','Plate')
         UO.AutoMenu('Colored','Armor')
         UO.AutoMenu('Blacksmithing','Colored')
         UO.DeleteJournal()
         UO.UseType('FullarmING',Color)
         while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed")
           
         wend
         If UO.InJournal("You put") then
          wait(800)
            Item=Item+1
            UO.Print("Çàïîíåíèå ìåøêà: "+STR(Item)+" èç "+STR(MaxItem))
         Endif
      until Item==MaxItem
   End:
   wend
end sub


Top
   
 Post subject:
PostPosted: 2008-09-22 18:03:43 
Offline
User avatar

Joined: 2006-11-06 21:45:23
Posts: 137
Твоя просьба не в той теме, но .... попробуй хотябы поставить паузу между строк:
Code:
         while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") 
           
         wend


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


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:  
Powered by phpBB® Forum Software © phpBB Limited