Yoko

All sides of Injection
It is currently 2017-11-18 17:51:52

All times are UTC+02:00




Post new topic  Reply to topic  [ 222 posts ]  Go to page Previous 17 8 9 10 11 12 Next
Author Message
PostPosted: 2011-05-31 10:12:04 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Mirage wrote:
Да ради бога - лодырничайте.
Я поправил ссылке в списке на первой странице темы - чтобы вели на скрипты а не страницы.

Спасибо :)

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


Top
   
PostPosted: 2011-05-31 10:22:28 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
Оззи - админ шарда - молодец, усидчиво собрал неплохой сервак.
У меня все не хватает терпения :(

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2011-05-31 10:46:11 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Mirage wrote:
Оззи - админ шарда - молодец, усидчиво собрал неплохой сервак.
У меня все не хватает терпения :(

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


Top
   
PostPosted: 2011-05-31 11:10:40 
Offline
User avatar

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

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

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2011-06-08 13:50:13 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1347
Location: г. Старый Оскол
Mirage wrote:
Я поправил ссылке в списке на первой странице темы - чтобы вели на скрипты а не страницы.


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

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

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


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


Top
   
PostPosted: 2011-06-16 08:04:25 
Offline

Joined: 2011-05-03 10:42:43
Posts: 11
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


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


Top
   
PostPosted: 2011-06-16 08:44:52 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
Если правильно понял то это

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


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

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2011-06-16 08:55:29 
Offline

Joined: 2011-05-03 10:42:43
Posts: 11
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


Top
   
PostPosted: 2011-06-16 09:52:59 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
Тут идет проверка на сообщение в журнале
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) ; сменить на /
и контролировать число.

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2011-12-26 07:12:57 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1347
Location: г. Старый Оскол
Всем привет!

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

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

Всем удачи!

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


Top
   
PostPosted: 2011-12-26 07:29:48 
Offline
User avatar

Joined: 2006-12-08 10:51:50
Posts: 707
Location: Москва
Не пробовал писать на питоне? Очень удобный язык


Top
   
PostPosted: 2011-12-26 15:28:43 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1347
Location: г. Старый Оскол
ZeroDX wrote:
Не пробовал писать на питоне? Очень удобный язык


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


Top
   
PostPosted: 2011-12-29 12:46:40 
Offline

Joined: 2005-04-19 18:00:29
Posts: 2259
Location: Московская область
Kynep wrote:
Всем привет!

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

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

Всем удачи!

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


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


Top
   
PostPosted: 2011-12-29 15:43:28 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
Оно бывает накатывает - сел как то в выходные, на шарде где играл года 2 назад зарегался и потерялся на 8 часов подряд. :?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2011-12-30 14:44:36 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1347
Location: г. Старый Оскол
Scripts Writer wrote:
Куп, что же ты опять с собой делаешь :)


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

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


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


Top
   
PostPosted: 2013-01-16 11:30:42 
Offline

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


Top
   
PostPosted: 2013-01-16 13:33:36 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2754
Location: Иваново
координаты то точек вбиты свои?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"


Top
   
PostPosted: 2013-01-16 18:46:47 
Offline

Joined: 2013-01-15 15:24:07
Posts: 20
Тема закрыта.спасибо.


Top
   
PostPosted: 2013-02-03 10:32:51 
Offline
Expert!
User avatar

Joined: 2006-02-07 08:51:40
Posts: 1347
Location: г. Старый Оскол
Кто сказал что тема закрыта? Рановато ее еще закрывать. :lol:


Top
   
PostPosted: 2013-05-06 15:27:33 
Offline

Joined: 2007-10-30 11:58:13
Posts: 17
Location: Asia
Да, давайте продолжим...


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 222 posts ]  Go to page Previous 17 8 9 10 11 12 Next

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
Powered by phpBB® Forum Software © phpBB Limited