Yoko

Posted: **2009-04-21 20:04:23**

вот он скрипт :

sub taming()
var eda = '0x097B'
var palka ='0x0DF0'
var f
var h
        DIM reg[10]
        reg[0]=0x000820FA   #SA
        reg[1]=0x000F60FD
        reg[2]=0x0003416E
        reg[3]=0x0002E623
        reg[4]=0x000F56B7
        reg[5]=0x0002CE84
        reg[6]=0x00105467
        reg[7]=0x0002FD0B
        reg[8]=0x00064D1A
        reg[9]=0x000E87E8
  DIM llama[5]
        llama[0]=0x000F548E   #SA
        llama[1]=0x00107F1E
        llama[2]=0x000B0C06
        llama[3]=0x0003D3BC
        llama[4]=0x0007783C

while NOT UO.Dead()


    for f = 0 to 9
    UO.DeleteJournal()
   if UO.Count( eda ) > 0 then
      UO.FindType( eda )
      uo.MoveItem('finditem', '1', reg[f] )
      wait( 1000 )

   endif
     UO.WaitTargetObject(reg[f])
     UO.UseType("0x0DF0")
     while not  UO.InJournal('fail')and not UO.InJournal('seems') and not  UO.InJournal('already')and not UO.InJournal('remembers')
              if UO.InJournal('fail') then
      repeat
      wait(300)
      endif

        if UO.InJournal('seems')or UO.InJournal('already')or UO.InJournal('remembers') then
            
	        uo.say("all release")
	        wait(100)
	      
	    endif
	    
	  wend  
	  next

	uo.say("all release")
  uo.waittargetobject('0x400D0D39') 
uo.cast('Recall')
wait(10000)



     for h = 0 to 4
    UO.DeleteJournal()
   if UO.Count( eda ) > 0 then
      UO.FindType( eda )
      uo.MoveItem('finditem', '1', llama[h] )
      wait( 1000 )

   endif
     UO.WaitTargetObject(llama[h])
     UO.UseType("0x0DF0")
     while not  UO.InJournal('fail')and not UO.InJournal('It seems') and not  UO.InJournal('already')and not UO.InJournal('remembers')
      if UO.InJournal('fail') then
      repeat
      wait(300)
      endif

        if UO.InJournal('seems')or UO.InJournal('already')or UO.InJournal('remembers') then
           
	        uo.say("all release")
	        wait(100)
	       
	    endif
	   
	  wend  
	  next
	uo.say("all release")
uo.waittargetobject('0x400C91E3') 
uo.cast('Recall')
wait(10000)
wend 

end sub

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

Posted: **2009-04-23 13:15:21**

всем спасибо что никто не откликнулся ((((
вообщем решил проблему сам вот таким образом:

Code: Select all

sub asd()
var eda = '0x097B'
var palka ='0x0DF0'
var f
var h
         dim llama[6]
        llama[0]='0x00101183'   #SA
        llama[1]='0x000D027E'
        llama[2]='0x0008E352'
        llama[3]='0x000D2E43'
        llama[4]='0x000B6E68'
        llama[5]='0x0010916C'
for f = 0 to 5
 UO.DeleteJournal()
      
      if UO.Count( eda ) > 0 then
          UO.FindType( eda )
          uo.MoveItem('finditem', '1',llama[f])
          wait( 1000 )
              
      endif
      repeat
      UO.WaitTargetObject(llama[f])
      UO.UseType("0x0DF0")     
      UO.DeleteJournal()
      wait(200)
       
      while not UO.InJournal("fail|seems|already|remembers")
         wait(200)
      wend
      if UO.InJournal("seems|already|remembers") then           
	        uo.say("all release")
	        wait(100)
	        next
	  endif	
	  until UO.InJournal("seems|already|remembers")
	  wait(200)


end sub


############################################################## 

sub tam()
uo.print("ничинаем")
 while TRUE
    qwe()
 	uo.say("all release")
    uo.waittargetobject('0x400D0D39') 
    uo.cast('Recall')
    wait(10000)
    asd()
 	uo.say("all release")
    uo.waittargetobject('0x400C91E3') 
    uo.cast('Recall')
    wait(10000)
 wend 
end sub
 

##############################################################

sub qwe()
var eda = '0x097B'
var palka ='0x0DF0'
var f
var h
      dim lla[10]
      lla[0]='0x0007F4C5'   #SA
      lla[1]='0x0001B53E'
      lla[2]='0x0010B471'
      lla[3]='0x0001885E'
      lla[4]='0x00094711'
      lla[5]='0x000F779E'
      lla[6]='0x0006B0AA'
      lla[7]='0x00033B38'
      lla[8]='0x0004D327'
      lla[9]='0x000FEA8D'
for f = 0 to 9
 UO.DeleteJournal()
      
      if UO.Count( eda ) > 0 then
          UO.FindType( eda )
          uo.MoveItem('finditem', '1',lla[f])
          wait( 1000 )
              
      endif
      repeat
      UO.WaitTargetObject(lla[f])
      UO.UseType("0x0DF0")     
      UO.DeleteJournal()
      wait(200)
       
      while not UO.InJournal("fail|seems|already|remembers")
         wait(200)
      wend
      if UO.InJournal("seems|already|remembers") then           
	        uo.say("all release")
	        wait(100)
	        next
	  endif	
	  until UO.InJournal("seems|already|remembers")
	  wait(200)


end sub

ещё раз всем спасибо ....... скрипт работает на 2 загона когда в первом всез затамал реколится по руне в паке в другой загон и так по кругу + подкормка живности перед приручением . ID животину ищем сами и вставляем в масив )))

Yoko

помогите со скриптом на таминг

помогите со скриптом на таминг