Yoko

Code: Select all

sub ItemID()
   Var i = UO.SkillVal('Anatomy', 1)
   VAR shmot = '0x404C43AE' #ID âåùè
   Var ti = UO.SkillVal('Taste Identification', 1)
   Var ii = UO.SkillVal('Item Identification', 1)
   Var st = UO.SkillVal('Stealth', 1)
   uo.Exec('terminate Reconnector')
   wait(1000)
   uo.Exec('exec Reconnector')
   wait(1000)
   uo.Exec('terminate Food')
   wait(1000)
   uo.Exec('exec Food')
   wait(1000)
   
   While st < 1000
      UO.Press(114)
      Wait(1500)
      st = UO.SkillVal('Stealth', 1)
      UO.Print("Stealth "+STR(st))
   wend
   
   While i < 1000
      UO.Press(112)
      Wait(2500)
      i = UO.SkillVal('Anatomy', 1)
      UO.Print("Anatomi "+STR(i))
   wend
   
   while ti < 1000
      UO.WaitTargetObject(shmot)
      UO.UseSkill('Taste Identification')
      ti = UO.SkillVal('Taste Identification', 1)
      UO.Print("Taste Identification "+STR(ti))
      wait(3000)
   wend
   
   while ii < 1000
      UO.WaitTargetObject(shmot)
      UO.UseSkill('Item Identification')
      ii = UO.SkillVal('Item Identification', 1)
      UO.Print("Item Identification "+STR(ti))
      wait(3000)
   wend
   
   
   if ii == 1000 then
      UO.CloseUO()
   endif
end sub

sub Reconnector()
   var ReconnectTime, RFlag
   ReconnectTime = '0'
   RFlag = 1
   Repeat
      While (UO.ObjAtLayer('Bpack') == '')
         if RFlag Then
            ReconnectTime = MakeTime()
            RFlag = 0
         endif
         Wait(20000) # WorldSave Protection
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.Say('')
         Wait(3000)
         UO.LDblClick(357,164)
         UO.LClick(616,459)
         Wait(3000)
      WEnd
      Wait(3000)
      if (RFlag == 0) and (ReconnectTime <> '0') Then
         UO.Exec('terminate ItemID')
         wait(1000)
         UO.Exec('exec ItemID')
         wait(1000)
         UO.TextOpen()
         UO.TextPrint('Disconnected & Reconnected @ '+ReconnectTime)
         RFlag = 1
         ReconnectTime = '0'
      endif
   Until false
end sub

sub MakeTime()
   VAR D, T, Ret, i
   Ret = STR(UO.Time())
   T = ""
   For i = 0 To Len(Ret)
      T = Ret[Len(Ret)-i] + T
      If (I == 2) OR (I == 4) Then
         T = ":" + T
      EndIf
   Next
   Ret = STR(UO.Date())
   D = ""
   For i = 0 To Len(Ret)
      D = Ret[Len(Ret)-i] + D
      If (I == 2) OR (I == 4) Then
         D = "." + D
      EndIf
   Next
   Ret = T + " @ " + D
   RETURN Ret
end sub

sub Food()
var food = '0x160A'
   
   while 1 == 1   
   UO.UseType(food)
   wait (60000)
   wend
   
end sub