Главная »
Форум » Форум » Вспомогательные программы
 Скрипт на Beggining, Stealing, помогите
Опции Открыть меню
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
6 августа 2013 15:34
Сообщение #1
Собственно вопрос, ест ьскрипт на Бегининг

sub Begging()
var fish = '0x097B'
uo.print('Whom you want grovel to?')
uo.exec('addobject Beg')
while uo.targeting()
  wait(200)
wend
uo.DeleteJournal()
While not uo.Dead()
  uo.waittargetobject('Beg')
  uo.usetype(fish)
  wait(500)
  uo.useskill('Begging')
  wait(5000)    
wend
end sub


но.... в силу того, что лимит на ворованное 2к +-, скрипт встает.... как обойти эту хрень??

на стилинг вообще нету)) поделитесь плиз)
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
6 августа 2013 15:41
Сообщение #2
как вариант вижу сбрасывать бабло в рядом стоящий мешок... может кто-нить дописать?
Сержант (570807)12 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
6 августа 2013 15:49
Сообщение #3
sub Beg()
VAR LastTimer
WHILE NOT UO.Dead()
     UO.DeleteJournal()
      LastTimer=UO.Timer()
       uo.waittargetobject(0x002B6A4C)
       UO.UseSkill ("Begging")
      repeat
        wait( 200 )
      until UO.InJournal("You put") or UO.Timer()>LastTimer+500
      wait(5000)
   uo.setreceivingcontainer(0x4050D0B1)
   uo.findtype(0x0EED,"-1",'Backpack')
   UO.Grab("0","finditem")
   wait(1000)



WEND
end sub

со стилингом ваще беда
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
6 августа 2013 15:52
Сообщение #4
uo.waittargetobject(0x002B6A4C)

это что?
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
6 августа 2013 15:52
Сообщение #5
uo.waittargetobject(0x002B6A4C)

ээ чар второй?

в моем попроще, чар таргетом выбирается

sub Begging()
var fish = '0x097B'
uo.print('Whom you want grovel to?')
uo.exec('addobject Beg')
while uo.targeting()
  wait(200)
wend
uo.DeleteJournal()
While not uo.Dead()
  uo.waittargetobject('Beg')
  uo.usetype(fish)
  wait(500)
  uo.useskill('Begging')
      wait(5000)
   uo.setreceivingcontainer(0x4062CFE8)
   uo.findtype(0x0EED,"-1",'Backpack')
   UO.Grab("0","finditem")
   wait(1000)
  wait(5000)    
wend
end sub


вот так по симпатичнее будет))) + мой жрёт
Сержант (570807)12 лет
Ranger
Сообщений: 318
Рег. 7.07.2012
6 августа 2013 15:53
Сообщение #6
да
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
7 августа 2013 00:10
Сообщение #7
Если не сложно, в сброс денег в мешок добавить такую фичу, чтоб он сбрасывал только тогда, когда наберет 1500гп...

реально ускорится прокачка...

тем кто собирается качать: скилл при минусовой карме не растет.... так-то
Младший Сержант (391499)11 лет
Ranger
Сообщений: 672
Рег. 28.03.2013
7 августа 2013 00:28
Сообщение #8
Begging - запускается персонажем, которым попрошайничаете.
Oligarch - запускается персонажем, у которого попрошайничаете.

Скрипт не тестировал.

sub Begging()
   UO.Print('Укажите контейнер для сбрасывания денег.')
   UO.AddObject('Container')
   While UO.Targeting()
      Wait(100)
   Wend

   UO.Print('У кого будем попрошайничать?')
   UO.AddObject('Oligarch')
   While UO.Targeting()
      Wait(100)
   Wend

   While not UO.Dead()
      UO.FindType('0x0EED', '-1', 'backpack')
      If UO.FindCount() >= 1500 Then
         UO.Set('quiet', '1')
         UO.SetReceivingContainer('Container')

         UO.Grab('-1', 'finditem')
         Wait(300)

         UO.UnsetReceivingContainer()
         UO.Set('quiet', '1')
      Endif

      Var LastTimer

      UO.DeleteJournal()
      UO.UseType('0x097B')
      UO.WaitTargetObject('Oligarch')
      UO.UseSkill('Begging')
      Repeat
         Wait(100)
      Until UO.InJournal('You put') or UO.Timer > LastTimer + 50
   Wend
End Sub

sub Oligarch()
   UO.Print('Укажите контейнер с которого брать деньги.')
   UO.AddObject('Container')
   While UO.Targeting()
      Wait(100)
   Wend

   While not UO.Dead()
      UO.FindType('0x0EED', '-1', 'Container')
      If UO.FindCount() > 0 Then
         UO.Set('quiet', '1')
         UO.SetReceivingContainer('Container')

         UO.Grab('-1', 'finditem')
         Wait(300)

         UO.UnsetReceivingContainer()
         UO.Set('quiet', '1')
      Else
         Wait(1000)
      Endif
   Wend
End Sub

Старший Лейтенант (5006416)15 лет
Администратор
Сообщений: 19675
Рег. 31.07.2009
8 августа 2013 10:26
Сообщение #9
Стилинг на макросе нельзя прокачать. Он используется только против монстров 2-10 уровня, при этом одного монстра можно ограбить только один раз. А если даже кто то изловчится придумать такой скрипт, то он будет нарушать правила добычи ресурсов.

--------------------
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
8 августа 2013 21:34
Сообщение #10
какие там ресурсы??? ты ж не приведешь домой огра и не насуешь ему в паки денег...
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
9 августа 2013 21:37
Сообщение #11
Выдает ошибку на эту строку -

Until UO.InJournal('You put') or UO.Timer > LastTimer + 50
Младший Сержант (391499)11 лет
Ranger
Сообщений: 672
Рег. 28.03.2013
9 августа 2013 22:07
Сообщение #12
Sergant, замени UO.Timer на UO.Timer()
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
9 августа 2013 23:27
Сообщение #13
Спасибо
Младший Сержант (391499)11 лет
Ranger
Сообщений: 672
Рег. 28.03.2013
10 августа 2013 01:11
Сообщение #14
Скрипт работает нормально?
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
10 августа 2013 11:41
Сообщение #15
Var LastTimer


Ошибка
Ефрейтор (215407)11 лет
Ranger
Сообщений: 193
Рег. 19.07.2013
10 августа 2013 12:28
Сообщение #16
и у олигарха... он кучки монет по мешку перекладывает..
Младший Сержант (391499)11 лет
Ranger
Сообщений: 672
Рег. 28.03.2013
10 августа 2013 14:17
Сообщение #17
Исправил.

Теперь попрошайка сразу скидывает деньги, как только выпросит.
Олигарх их сразу забирает.

sub Begging()
   UO.Print('Укажите контейнер для сбрасывания денег.')
   UO.AddObject('Container')
   While UO.Targeting()
      Wait(100)
   Wend

   UO.Print('У кого будем попрошайничать?')
   UO.AddObject('Oligarch')
   While UO.Targeting()
      Wait(100)
   Wend

   While not UO.Dead()
      UO.FindType('0x0EED', '-1', 'backpack')
      If UO.FindCount() Then
         UO.Set('quiet', '1')
         UO.SetReceivingContainer('Container')

         UO.Grab('-1', 'finditem')
         Wait(500)

         UO.UnsetReceivingContainer()
         UO.Set('quiet', '0')
      Endif

      Var LastTimer

      LastTimer = UO.Timer()

      UO.DeleteJournal()
      UO.UseType('0x097B')
      UO.WaitTargetObject('Oligarch')
      UO.UseSkill('Begging')
      Repeat
         Wait(100)
      Until UO.InJournal('You put') or LastTimer + 50 < UO.Timer()
   Wend
End Sub

sub Oligarch()
   UO.Print('Укажите контейнер с которого брать деньги.')
   UO.AddObject('Container')
   While UO.Targeting()
      Wait(100)
   Wend

   While not UO.Dead()
      UO.FindType('0x0EED', '-1', 'Container')
      If UO.FindCount() > 0 Then
         UO.Set('quiet', '1')
         UO.SetReceivingContainer('backpack')

         UO.Grab('-1', 'finditem')
         Wait(500)

         UO.UnsetReceivingContainer()
         UO.Set('quiet', '0')
      Else
         Wait(1000)
      Endif
   Wend
End Sub


P.S. Исправил еще раз (;
Лейтенант (3726577)10 лет
Dragonstalker
Сообщений: 42
Рег. 30.12.2013
13 октября 2014 08:33
Сообщение #18
а как просить по 300гп
Лейтенант (4548828)11 лет
Dragonstalker
Сообщений: 3319
Рег. 19.11.2013
13 октября 2014 09:05
Сообщение #19
Накачать скилл.
Лейтенант (3726577)10 лет
Dragonstalker
Сообщений: 42
Рег. 30.12.2013
14 октября 2014 13:14
Сообщение #20
У меня 100. А я видел как просят по 300
Последние посетители (0):

 
Сейчас: 24 ноября 2024 19:56


© The Best Ultima Online Shard Antares, 2004-2024