То, что ищут многие...

[Scripts Writer]

Да ради бога - лодырничайте.
Я поправил ссылке в списке на первой странице темы - чтобы вели на скрипты а не страницы.

Спасибо

2Я кстати сейчас на Forest Wars играю, не плохой шард

[Mirage]

Оззи - админ шарда - молодец, усидчиво собрал неплохой сервак.
У меня все не хватает терпения

[Scripts Writer]

Оззи - админ шарда - молодец, усидчиво собрал неплохой сервак.
У меня все не хватает терпения

Угу, единственное что расстраивает, это отсутствие возможности продавать изделия хотя бы по себестоимости (нпсам). Т.е. всё добывается в игре исключительно для использования (руда, дерево, бутылки)

[Mirage]

Гдето давно видел систему торговли (приближенную в официальной помоему) - вендор алхимик продавал 1 пустую бутылку и пару регов за 10 золотых (суммарно условно)
покупал 10 готовых зелий за 13 золотых каждое
После покупал еще несколько зелий по 10 золотых каждое
После говорил что у него и так много ДАННОГО товара - либо ждите пока реализуется либо продавайте другой.
Причем такие вендоры были обычные НПС в городских лавках. Весьма доставляла такая система.
ИМХО так был смысл скупать и крафтить небольшие порции товаров, игрок после действия в игре оказывался в плюсе, не было смысла делать мегалитические крафтовые скирпты на тонны продукции.

Хотя каждый мутит свой огород, конечно.

[Kynep]

Я поправил ссылке в списке на первой странице темы - чтобы вели на скрипты а не страницы.

Вообще-то так и было изначально... я даже помню как сам это все делал, каждый пост со скриптом смотрел и вписывал адрес... и Скрипту рассказывал как это делается, чтоб он свои посты писал...

Видать после смены движка - полетело все...

2Я кстати сейчас на Forest Wars играю, не плохой шард

А я даже не хочу начинать, времени отнимает не мало, а у меня его сейчас нет.

[Ooze]

Code: Select all

sub resurct()
var tBandage = '0x0E21'
   if UO.Count(tBandage) < 20 then 
   UO.Print("HE4EM PECATb")
         return 
   end if 
VAR i,k,CharX,CharY,MyX,MyY,Char
DIM Player[8]

Player[0]='0x0011325C' ;SVOLOCH(P)
Player[1]='0x0005A98F' ;KadP(P)
Player[2]='0x0010023D' ;BEPMYT(p)
Player[3]='0x000FF1CB' ;MaTpOc(p)
Player[4]='0x000F5BAF' ;Kulibin(p)
Player[5]='0x001FF6A2' ;Hipirion (A)
Player[6]='0x000B0F2A' ;GooD(p)
Player[7]='0x001681C0' ;Marinka(p)
#Player[8]='0x0009F5A8' ;
#Player[9]='0x0005AC39' ;?ey (Aiaaeun)
#Player[10]='0x00040AAC' ;Nea (Aiaaeun)
#Player[11]='0x001F79B8' ;
#Player[12]='0x0004F642' ;
#Player[13]='0x000C91FF' ;

   UO.FindType('0x0192',-1,'ground')
   Char=0
   If UO.FindCount()>0 Then
      For k=1 to UO.FindCount()
         UO.FindType('0x0192',-1,'ground')
         For i=0 to 7
            MyX=UO.GetX()
            MyY=UO.GetY()
            CharX=UO.GetX(Player[i])
            CharY=UO.GetY(Player[i])
            If Player[i]==UO.GetSerial('finditem')AND Uo.GetDistance("finditem")<=1 Then
               Char=Player[i]
            Else
               UO.Ignore('finditem','on')
            EndIf
         Next
      Next
   EndIf
   If Char<>0 Then
      UO.SetArm('CWeapon')
      UO.WaitTargetObject(Char)
      UO.UseType('0x0E21')
      UO.Print("?anno?aeo!!!")
      wait(500)
         UO.Exec("bandageself")
      wait(500)
      UO.Arm('CWeapon')
   Else
      UO.Print("A?iaa ana ?eau!!!")
   EndIf
   UO.IgnoreReset()
end sub

Скрипт класс, только одно но, юзает одни бинты и зачем бинты на себя? можно этот скрипт сделать что бы на человека кидал ГХ потом бинт, а на себя ГХ после юза бинта на того кого ресал?

[Mirage]

Если правильно понял то это

Code: Select all

If Char<>0 Then
   UO.SetArm('CWeapon')
   UO.WaitTargetObject(Char)
   UO.UseType('0x0E21')
   UO.Print("?anno?aeo!!!")
   wait(500)
   UO.Exec("bandageself")
   wait(500)
   UO.Arm('CWeapon')
Else

надо заменить на это

Code: Select all

   If Char<>0 Then
      UO.SetArm('CWeapon')
      uo.cast('название каста',Char) 
      wait(5000) ; пауза для каста заклинания
      UO.WaitTargetObject(Char)
      UO.UseType('0x0E21')
      UO.Print("?anno?aeo!!!")
      wait(500)
      uo.cast('название каста','self') 
      wait(500)
      UO.Arm('CWeapon')
   Else

Бинты на себя ХЗ зачем - видимо особенность шарда.
Лечилка и оздоровлялка бинтами сделана для экономии ресурсов. Бинты есть всегда и тоннами, а для каста нужна мана и реагерты.

[Ooze]

Если правильно понял то это

Code: Select all

If Char<>0 Then
   UO.SetArm('CWeapon')
   UO.WaitTargetObject(Char)
   UO.UseType('0x0E21')
   UO.Print("?anno?aeo!!!")
   wait(500)
   UO.Exec("bandageself")
   wait(500)
   UO.Arm('CWeapon')
Else

надо заменить на это

Code: Select all

   If Char<>0 Then
      UO.SetArm('CWeapon')
      uo.cast('название каста',Char) 
      wait(5000) ; пауза для каста заклинания
      UO.WaitTargetObject(Char)
      UO.UseType('0x0E21')
      UO.Print("?anno?aeo!!!")
      wait(500)
      uo.cast('название каста','self') 
      wait(500)
      UO.Arm('CWeapon')
   Else

Бинты на себя ХЗ зачем - видимо особенность шарда.
Лечилка и оздоровлялка бинтами сделана для экономии ресурсов. Бинты есть всегда и тоннами, а для каста нужна мана и реагерты.

1. ну например упал "напарник" я подлетаю юзаю кнопку на него ГХ и тут же бинт, парень встает с половиной ХП

2. если не сложно поправте этот скрипт, не как не могу добится что бы он полные кеги в сундук убирал

Code: Select all

sub main()
 var kegg="0x1940"
 var text="You add charge to the storage area of the keg [25/75]"

 repeat
 if uo.count(kegg)<1 then
 uo.findtype(kegg,'-1','0x53A1F699')
 uo.moveitem('finditem',1,'backpack')
 endif
 wait(500)
 if UO.Count('0x0F7A')<1 then 
 UO.FindType('0x0F7A',-1,'0x53A1F699')
 UO.Grab('5','finditem') 
 wait(1000) 
 end if
 UO.WaitMenu("Select a potion to make","(2)") 
 UO.WaitTargetType('0x0F7A')
 UO.UseType('0x0E9B')
 wait(16000)
 uo.DeleteJournal()
 uo.findtype('0x1940','-1','backpack') 
 uo.setcatchbag('finditem')
 wait(1000)
 uo.findtype('0x0F0B','-1','backpack')
 uo.grab('0','finditem') 
 wait(1000)
 uo.unsetcatchbag()
 wait(1000)
 if uo.injournal('You add charge to the storage area of the keg [25/75]') then
 uo.findtype(kegg,'-1','backpack')
 uo.moveitem('finditem',1,'0x53A1F698')
 wait(2000)
 uo.DeleteJournal()
 endif
 until (1 == 0)
 end sub

[Mirage]

Тут идет проверка на сообщение в журнале

Code: Select all

      if uo.injournal('You add charge to the storage area of the keg [25/75]') then
         uo.findtype(kegg,'-1','backpack')
         uo.moveitem('finditem',1,'0x53A1F698')
         wait(2000)
         uo.DeleteJournal()
      endif

Либо проверяй свое сообщение либо можно отловить последние символы и перевести их в цифры.

Можно определять конду предмета (лопаты например - Лопата [50]).
Вот таким скриптом можно надпись в квадратных скобках преобразовать в цифры

Code: Select all

sub ItemCond()
   var name, ob = '0x40E34CC4', X=50
   UO.TextOpen()
   UO.TextClear()
   uo.DeleteJournal( )
   UO.Click( ob )
   wait(1000)
   name = UO.GetName( ob )
   name = explode (name, '[', 1)
   name = explode (name, ']', 0)
   if val(name) == X then
      UO.TextPrint( name )
   else
      UO.TextPrint( 'чето не так' )
   endif
endsub 
Sub explode( string, pattern, num )
   var i, counter = 0, entry = 0
   for i=0 to strlen( string ) -strlen( pattern )
      if mid( string, i, strlen( pattern ) ) == pattern then
         counter = counter + 1
         if num == counter-1 then
            return mid( string, entry, i-entry )
         endif
         entry = i + strlen( pattern )
      endif
   next
   if entry == 0 then
      return false
   endif
   return mid( string, entry, strlen(string)-entry )
endsub

В твоем случае нужно в строках
name = explode (name, '[', 1)
name = explode (name, ']', 0) ; сменить на /
и контролировать число.

[Kynep]

Всем привет!

Я вернулся... что-то потянуло поиграть... снова на ДРВ..

Теперь пишу под Стелс, сюда, в скором времени, выложу все написанное мной для Инжекта, под шард ДРВ, в период игры.
Если найду время...

Всем удачи!

З.Ы, часть скриптов есть на моей страничке, http://coop.myftp.org/scripts/

[ZeroDX]

Не пробовал писать на питоне? Очень удобный язык

[Kynep]

Не пробовал писать на питоне? Очень удобный язык

Нет, до питона пока не добрался. Сейчас плотно Стелсовский Паскаль осваиваю.

[Scripts Writer]

Всем привет!

Я вернулся... что-то потянуло поиграть... снова на ДРВ..

Теперь пишу под Стелс, сюда, в скором времени, выложу все написанное мной для Инжекта, под шард ДРВ, в период игры.
Если найду время...

Всем удачи!

З.Ы, часть скриптов есть на моей страничке, http://coop.myftp.org/scripts/

Куп, что же ты опять с собой делаешь

[Mirage]

Оно бывает накатывает - сел как то в выходные, на шарде где играл года 2 назад зарегался и потерялся на 8 часов подряд.

[Kynep]

Куп, что же ты опять с собой делаешь

Даже боюсь представить...

Оно бывает накатывает - сел как то в выходные, на шарде где играл года 2 назад зарегался и потерялся на 8 часов подряд.

Бывает...

[200790]

Скрипт на спарринг. При запуске почему то чар пытаеться уйти в сторону?? хотя данные напарника вбиты.
по идее этот скрипт атакует а когда мало хп у меня или у напарника он отходит и лечит?

Code: Select all

sub Training()
var bandage='0x0E21' # Тип бинтов
var washing='0x4043B210' # Тип корыта
var bloody='0x0E20' # Тип кровавых бинтов
# Спаринг 1.00.
  uo.AddObject('opponent')
  while uo.Targeting()
    wait(100)
  wend
  while not uo.Dead()
    if uo.GetHp('opponent') <> uo.GetMaxHp('opponent') then
      uo.WarMode(false)
      Walk(4321,3774)
      while uo.GetHp('opponent') <> uo.GetMaxHp('opponent')
        uo.WaitTargetObject('opponent')
        uo.UseType(bandage)
        wait(3500)
        uo.GetHp('opponent')
      wend
    end if
    if uo.GetHp('self') <> uo.GetMaxHp('self') then
      uo.WarMode(false)
      Walk(4321,3774)
      while uo.GetHp('self') <> uo.GetMaxHp('self')
        uo.WaitTargetObject('self')
        uo.UseType(bandage)
        wait(3500)
      wend
      uo.WaitTargetObject(washing)
      uo.UseType(bloody)
      wait(750)
    end if 
    uo.WarMode(true)
    Shield()   
    uo.Attack('opponent')
    wait(500)
    Walk(4321,3775)
    while (uo.GetHp('opponent') > uo.GetMaxHp('opponent')/2) && (uo.Life > 100)
      wait(500)
    wend
  wend
end sub
   
sub Shield()
  var shield='0x1B76'
  uo.FindType(shield,'-1','backpack')
  if uo.FindCount() then
    uo.UseObject('finditem')
  end if
end sub

sub Walk(x,y)
go:
while not uo.getX() == x || not uo.getY() == y
if not uo.getX() == x then
if uo.getX() > x then
uo.press(36)
else
uo.press(34)
endif
endif
if not uo.getY() == y && uo.getX() == x then
if uo.getY() > y then
uo.press(33)
else
uo.press(35)
endif
endif
checklag()
wend
checklag()
if not uo.getX() == x || not uo.getY() == y then
goto go
endif
endsub 

sub CheckLag() 
if uo.Waiting()>0 then 
uo.Exec('canceltarget') 
end if 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
while uo.injournal('backpack') 
uo.setJournalLine(uo.Injournal('backpack')-1,'is Empty!') 
wend 
end sub 

[Mirage]

координаты то точек вбиты свои?

[200790]

Тема закрыта.спасибо.

[Kynep]

Кто сказал что тема закрыта? Рановато ее еще закрывать.

[Sazabi]

Да, давайте продолжим...