how to fix this script

paulinho4life · Post by **paulinho4life** » 2006-06-02 18:08:59

I tried this macro but it doesnt detect when item identification = 100.0 and it get stucks in there.

how to fix that ?

############################################################
########################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

Nmy · Post by **Nmy** » 2006-06-02 18:12:49

bind key
Use Skill >> Item ID
wait for target
last target

run uoloop

paulinho4life · Post by **paulinho4life** » 2006-06-02 18:41:14

uoloop doesnt support more than 1 client and i need the whole macro. Can you really help it ?

Nmy · Post by **Nmy** » 2006-06-02 18:42:48

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

paulinho4life · Post by **paulinho4life** » 2006-06-02 18:46:44

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.

Nmy · Post by **Nmy** » 2006-06-02 20:14:36

hmm... ask Experts...

Destruction · Post by **Destruction** » 2006-06-07 15:52:24

See this line in the script:

Code: Select all

until uo.SkillVal('Item Identification') == 1000

Nmy · Post by **Nmy** » 2006-06-07 16:02:38

Destruction wrote:See this line in the script:
Code: Select all
until uo.SkillVal('Item Identification') == 1000 

nothing wrong with it ... maybe this will help:

Code: Select all

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

Destruction · Post by **Destruction** » 2006-06-11 17:57:31

This string use no real value of skill and it incorrect.