Yoko
http://forum.yoko.com.ua/

how to fix this script
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7846		 Page 1 of 1
Author:  paulinho4life [ 2006-06-02 18:08:59 ]
Post subject:  how to fix this script
I tried this macro but it doesnt detect when item identification = 100.0 and it get stucks in there.

how to fix that ?

Code:
############################################################
########################drw.ru##############################
############################################################
############################################################                                                                       
# Если кто то играет на хорошем конекте                    #
#  Или по локальной сети, то можно и постоять,покачаться =)#
#                                                          #
############################################################
############################################################
#                                                          #
# Указываем вещи для прокачки.                             #
# Указываем животное для Animal Lore                       #
# (Если у вас на шарде это не запрещено)На том же животном #
# качаем Evaluating Intell)                                #
# Так же указываем еду на которой качать Taste Ident и что #
# что будем перекусывать.                                  #
# added:                                                   #
# Hiding,Detect Hiding, Tracking, Spirit Speak, Stelth     #
############################################################
; 8.03.06
; msg- msg12 - сообщения
;
; Формула задающая время между использованием скилов, следующая:
;
; if uo.InJournal(waiting) then
;   forskill= forskill + 500
; end if
;                 v 1.0
;          created & tested on
;  Shard Dragon World by Goldberg[PaDoHkU]
;
#############################################################
sub eating()
var w = 750                  # Задержка между кликами по еде, когда голодны
var food='0x09D1'            # Тип еды которую кушаем
var i
if uo.InJournal('You are hungry') then
for i = 0 to 10
uo.findtype('food',-1,'backpack')
uo.UseObject('food')
wait(w)
i = i + 1
next
endif
uo.DeleteJournal()
end sub

sub bla()
 
  Var msg='Its made'               # Удачное сообщение при использовании скила Item Ident
  Var msg2='You cannot'            #Неудачное сообщение при использовании скила Item Ident
  Var msg3='it is'                 # Удачное сообщение при использовании скила Animal Lore
  Var msg4='You cannot'            #Неудачное сообщение при использовании скила Animal Lore
  Var msg5='Attack'                # Удачное сообщение при использовании скила Arms Lore
  Var msg6='You cannot'            #Неудачное сообщение при использовании скила Arms Lore
  Var msg7='Looks'                 # Удачное сообщение при использовании скила Evalution Intell
  Var msg8='cannot say'            #Неудачное сообщение при использовании скила Evalution Intell
  Var msg9='You see: Horse'        # Удачное сообщение при использовании скила Anatomy
  Var msg10='You cannot'           #Неудачное сообщение при использовании скила Anatomy
  Var msg11='It tastes'            # Удачное сообщение при использовании скила Taste Ident
  Var msg12='substance.'           #Неудачное сообщение при использовании скила Taste Ident
  VAR fizzle = 'You fail your attempt' # Удачное сообщение при использовании скила Spirit Speak
  VAR success = 'You establish a connection' #Неудачное сообщение при использовании скила Spirit Speak
  Var waiting='You must wait'      # Слишком быстро используем Skill
  Var forskill=2000                # Время для использования скилов( генерируется автоматически )
  VAR mod = UO.WarMode(), num      # Don't touch
  VAR trak = 3000                  # Время нужное для использования скила Tracking

  Uo.Print('Select an item')
  Uo.exec('addobject Item')
  while uo.targeting()
    Wait(100)
  Wend
  Uo.Print('Select an animal')
  Uo.exec('addobject animal')
  while uo.targeting()
    Wait(100)
  Wend
  Uo.Print('Select something to eat(For skill)')
  Uo.exec('addobject taste')
  while uo.targeting()
    Wait(100)
  Wend
  Uo.Print('Select something to eat')
  Uo.exec('addobject eda')
  while uo.targeting()
    Wait(100)
  Wend
  repeat
    repeat
      Uo.WaitTargetObject('Item')
      Uo.UseSkill('Item Identification')
      Wait(forskill)
        if uo.InJournal(waiting) then
          forskill = forskill + 500
        end if
    Until uo.InJournal(msg) or uo.InJournal(msg2)
  CheckLag()
  eating()
  until uo.SkillVal('Item Identification') == 1000
  repeat
    uo.DeleteJournal()
    uo.WaitTargetObject('animal')
    uo.UseSkill('Animal Lore')
    Wait(forskill)
      repeat
        if uo.InJournal(waiting) then
          forskill = forskill + 500
        end if
      CheckLag()
      Until uo.InJournal(msg3) or uo.InJournal(msg4)
    CheckLag()
    eating()
  until uo.SkillVal('Animal Lore') == 1000
  repeat
    repeat
      Uo.WaitTargetObject('Item')
      Uo.UseSkill('Arms Lore')
      Wait(forskill)
        if uo.InJournal(waiting) then
          forskill = forskill + 500
        end if
    Until uo.InJournal(msg5) or uo.InJournal(msg6)
  CheckLag()
  eating()
  until uo.SkillVal('Arms Lore') == 1000
   repeat
    uo.WaitTargetObject('animal')
    uo.UseSkill('Evaluating Intelligence')
    Wait(forskill)
      repeat
        if uo.InJournal(waiting) then
          forskill = forskill + 500
        end if
      CheckLag()
      Until uo.InJournal(msg7) or uo.InJournal(msg8)
    CheckLag()
    eating()
  until uo.SkillVal('Evaluating Intelligence') == 1000
  repeat
    uo.WaitTargetObject('animal')
    uo.UseSkill('Anatomy')
    Wait(forskill)
      if uo.InJournal(waiting) then
        forskill = forskill + 500
      end if
    CheckLag()
    eating()
  until uo.SkillVal('Anatomy') == 1000
  repeat
    uo.WaitTargetObject('taste')
    uo.UseSkill('Taste Identification')
    Wait(forskill)
      if uo.InJournal(waiting) then
        forskill = forskill + 500
      end if
    CheckLag()
    eating()
  until uo.SkillVal('Taste Identification') == 1000
  repeat
     UO.WarMode( 0 )
      uo.DeleteJournal()
        repeat
       uo.DeleteJournal()
        UO.UseSkill( 'Spirit Speak' )
          repeat
           wait(50)
           until UO.InJournal('msg13') OR UO.InJournal('msg14')
       CheckLag()
        until UO.InJournal( success )
      UO.WarMode( mod )
     eating()
  until uo.SkillVal('Spirit Speak') == 1000
  repeat
    uo.AutoMenu("Tracking","Players")
    uo.UseSkill('Tracking')
    wait(trak)
    eating()
  until uo.SkillVal('Tracking') == 1000
  UO.DeleteJournal()
  repeat
    UO.UseSkill('Detect Hidden')
    wait(forskill)
      if uo.InJournal(waiting) then
        forskill = forskill + 500
      end if
    wait(forskill)
    eating()
  until uo.SkillVal('Detect Hidden') == 1000
  repeat
    UO.UseSkill('Detect Hidden')
    wait(forskill)
      if uo.InJournal(waiting) then
        forskill = forskill + 500
      end if
    wait(forskill)
    eating()
  until uo.SkillVal('Detect Hidden') == 1000
  repeat
    UO.UseSkill('Hiding')
    wait(forskill)
      if uo.InJournal(waiting) then
        forskill = forskill + 500
      end if
    wait(forskill)
    eating()
  until uo.SkillVal('Hiding') == 1000
UO.DeleteJournal()
  repeat
    UO.UseSkill('Stealth')
    wait(forskill)
      if uo.InJournal(waiting) then
        forskill = forskill + 500
      end if
    wait(forskill)
    eating()
  until uo.SkillVal('Stealth') == 1000
end sub

sub eating()
var w = 750
var food='0x09D1'
var i
if uo.InJournal('You are hungry') then
for i = 0 to 10
uo.findtype('food',-1,'backpack')
uo.UseObject('food')
wait(w)
i = i + 1
next
endif
uo.DeleteJournal()
end sub

sub CheckLag()
if uo.injournal("World is saving now...") then
repeat
wait(50)
until uo.injournal("World save")
end if
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal("backpack")
end sub
Author:  Nmy [ 2006-06-02 18:12:49 ]
Post subject: 
bind key
Use Skill >> Item ID
wait for target
last target

run uoloop
Author:  paulinho4life [ 2006-06-02 18:41:14 ]
Post subject: 
uoloop doesnt support more than 1 client and i need the whole macro. Can you really help it ?
Author:  Nmy [ 2006-06-02 18:42:48 ]
Post subject: 
guys telling that this script works normaly... maybe you have old version of injection ? check this:
http://yoko.com.ua/Injection.zip

owerwrite your injection.dll file
Author:  paulinho4life [ 2006-06-02 18:46:44 ]
Post subject: 
thats not the problem, i use yoko injection 505.18.

what their version ?

the script works, but it doesnt go to following skill when the first skill = 100.0. So the script gets stuck at just one skill.
Author:  Nmy [ 2006-06-02 20:14:36 ]
Post subject: 
hmm... ask Experts...
Author:  Destruction [ 2006-06-07 15:52:24 ]
Post subject: 
See this line in the script:
Code:
until uo.SkillVal('Item Identification') == 1000
Author:  Nmy [ 2006-06-07 16:02:38 ]
Post subject: 
Destruction wrote:
See this line in the script:
Code:
until uo.SkillVal('Item Identification') == 1000


nothing wrong with it ... maybe this will help:
Code:
until uo.SkillVal('Item Identification') >= 999

'Couse sometimes injection thinks that you have 99.9 but skills shows that you have 100.0 its like +/- 0.1 that injection could make mistake
Author:  Destruction [ 2006-06-11 17:57:31 ]
Post subject: 
This string use no real value of skill and it incorrect.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/