Yoko
http://forum.yoko.com.ua/

То, что ищут многие...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7187
Page 9 of 12

Author:  Scripts Writer [ 2011-05-31 10:12:04 ]
Post subject:  Re: То, что ищут многие...

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

Спасибо :)

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

Author:  Mirage [ 2011-05-31 10:22:28 ]
Post subject:  Re: То, что ищут многие...

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

Author:  Scripts Writer [ 2011-05-31 10:46:11 ]
Post subject:  Re: То, что ищут многие...

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

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

Author:  Mirage [ 2011-05-31 11:10:40 ]
Post subject:  Re: То, что ищут многие...

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

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

Author:  Kynep [ 2011-06-08 13:50:13 ]
Post subject:  Re: То, что ищут многие...

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


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

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

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


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

Author:  Ooze [ 2011-06-16 08:04:25 ]
Post subject:  Re: То, что ищут многие...

Code:
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


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

Author:  Mirage [ 2011-06-16 08:44:52 ]
Post subject:  Re: То, что ищут многие...

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

Code:
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:
   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


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

Author:  Ooze [ 2011-06-16 08:55:29 ]
Post subject:  Re: То, что ищут многие...

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

Code:
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:
   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:
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

Author:  Mirage [ 2011-06-16 09:52:59 ]
Post subject:  Re: То, что ищут многие...

Тут идет проверка на сообщение в журнале
Code:
      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:
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) ; сменить на /
и контролировать число.

Author:  Kynep [ 2011-12-26 07:12:57 ]
Post subject:  Re: То, что ищут многие...

Всем привет!

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

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

Всем удачи!

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

Author:  ZeroDX [ 2011-12-26 07:29:48 ]
Post subject:  Re: То, что ищут многие...

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

Author:  Kynep [ 2011-12-26 15:28:43 ]
Post subject:  Re: То, что ищут многие...

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


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

Author:  Scripts Writer [ 2011-12-29 12:46:40 ]
Post subject:  Re: То, что ищут многие...

Kynep wrote:
Всем привет!

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

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

Всем удачи!

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


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

Author:  Mirage [ 2011-12-29 15:43:28 ]
Post subject:  Re: То, что ищут многие...

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

Author:  Kynep [ 2011-12-30 14:44:36 ]
Post subject:  Re: То, что ищут многие...

Scripts Writer wrote:
Куп, что же ты опять с собой делаешь :)


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

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


Бывает... :oops:

Author:  200790 [ 2013-01-16 11:30:42 ]
Post subject:  Re: То, что ищут многие...

Скрипт на спарринг. При запуске почему то чар пытаеться уйти в сторону?? хотя данные напарника вбиты.
по идее этот скрипт атакует а когда мало хп у меня или у напарника он отходит и лечит?
Code:
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

Author:  Mirage [ 2013-01-16 13:33:36 ]
Post subject:  Re: То, что ищут многие...

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

Author:  200790 [ 2013-01-16 18:46:47 ]
Post subject:  Re: То, что ищут многие...

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

Author:  Kynep [ 2013-02-03 10:32:51 ]
Post subject:  Re: То, что ищут многие...

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

Author:  Sazabi [ 2013-05-06 15:27:33 ]
Post subject:  Re: То, что ищут многие...

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

Page 9 of 12 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/