Скрипты для UOForever.com

[bad_dog]

Буду потихоньку наполнять) Авось кому пригодится.

Стилинг
Хайд+Стелс

[bad_dog]

Стилинг.
Берем 2 сумки, ложим одну в одну, и внутрь еще что нибудь подходящее по весу, например яблоки.
00-30 Skill: 1 Apple
30-45 Skill: 2 Apples
45-55 Skill: 3 Apples
55-65 Skill: 4 Apples
65-75 Skill: 5 Apples
75-85 Skill: 6 Apples
85-95 Skill: 7 Apples
95-GM Skill: 8 Apples
У самого себя и игроков воровать нельзя пока не вступишь в гильдию воров находящуюся в БД. Поэтому скрипт такой)

Code: Select all

sub steal()
   var ouch, otkuda, i
   var bag='0x0E76'
   uo.findtype(bag,-1,'backpack')
   if uo.findcount() then
      otkuda=UO.GetSerial( 'finditem')
      uo.useobject('finditem')
      uo.findtype(bag,-1,otkuda)
      if uo.findcount() then
         ouch=UO.GetSerial( 'finditem')
      endif
   endif
   
   while true
      uo.findtype(bag,-1,'ground')
      if uo.findcount() then
         UO.MoveItem( 'finditem', 0, 'backpack')
      endif
      wait(1000)
      uo.findtype(bag,-1,'backpack')
      if uo.findcount() then
         UO.MoveItem( 'finditem', 0, 'ground', uo.getx(), (uo.gety()-1), uo.getz())
      endif
      wait(1000)
      uo.useobject('finditem')
      wait('1000')
      for i=0 to 10
         uo.waittargetobject(ouch)
         uo.useskill('Stealing')
         wait(2000)
         uo.findtype(bag,-1,'backpack')
         if uo.findcount() then
            uo.moveitem('finditem','1','otkuda')
         endif
         wait(9000)
      next
   wend
endsub

[bad_dog]

Хайд+Стелс (на сервере стелс начинает работать только с 80 хайда, стелс до его роста в 60 юзается отдельно)

Code: Select all

sub Hide_and_Stealth()
   while not uo.dead()
      Hide()
      uo.press(33)
      wait(500)
      uo.press(33)
      wait(500)
      Hide()
      uo.press(35)
      wait(500)
      uo.press(35)
      wait(500)
   wend
endsub
Sub Hide()
   var stealth=0
   hide: 
   while not uo.Hidden()
      stealth=0
      uo.Print('Try hiding...')
      uo.DeleteJournal()
      uo.UseSkill('Hiding')
      WaitForHide()
      wait(10500)
   wend
   wait(100)
   while stealth<>1 and uo.Hidden() and UO.SkillVal('Hiding', 1)>800 and UO.SkillVal('Stealth', 1)<600      
      while not uo.injournal("cliloc# 0x7ABCA")
         uo.Print('Try stealth...')
         uo.DeleteJournal()
         uo.UseSkill('Stealth')
         wait(10500)
         if uo.injournal("cliloc# 0x7ABCB") then
            stealth=0
         endif
         goto hide
      wend
      if uo.injournal("cliloc# 0x7ABCA") then
         stealth=1
      endif
   wend
end sub
Sub WaitForHide()
   var Text1="cliloc# 0x7A5F8" ;hide
   var Text2="cliloc# 0x7A5F9" ;fail
   for var i=0 to 100
      if uo.Journal(0)==Text1 then
         uo.setglobal('hiding',0)
         return 
      endif
      if uo.Journal(0)==Text2 then
         return 
      endif
      wait(100)
   next
end sub