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

Scripts Writer · Post by **Scripts Writer** » 2011-05-31 10:12:04

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

Спасибо

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

Mirage · Post by **Mirage** » 2011-05-31 10:22:28

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

Scripts Writer · Post by **Scripts Writer** » 2011-05-31 10:46:11

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

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

Mirage · Post by **Mirage** » 2011-05-31 11:10:40

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

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

Kynep · Post by **Kynep** » 2011-06-08 13:50:13

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

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

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

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

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

Ooze · Post by **Ooze** » 2011-06-16 08:04:25

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 · Post by **Mirage** » 2011-06-16 08:44:52

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

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 · Post by **Ooze** » 2011-06-16 08:55:29

Mirage wrote:Если правильно понял то это
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 · Post by **Mirage** » 2011-06-16 09:52:59

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

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 · Post by **Kynep** » 2011-12-26 07:12:57

Всем привет!

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

снова на ДРВ..

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

Всем удачи!

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

ZeroDX · Post by **ZeroDX** » 2011-12-26 07:29:48

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

Kynep · Post by **Kynep** » 2011-12-26 15:28:43

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

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

Scripts Writer · Post by **Scripts Writer** » 2011-12-29 12:46:40

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

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

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

Всем удачи!

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

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

Mirage · Post by **Mirage** » 2011-12-29 15:43:28

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

Kynep · Post by **Kynep** » 2011-12-30 14:44:36

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

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

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

Бывает...

200790 · Post by **200790** » 2013-01-16 11:30:42

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

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 · Post by **Mirage** » 2013-01-16 13:33:36

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

200790 · Post by **200790** » 2013-01-16 18:46:47

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

Kynep · Post by **Kynep** » 2013-02-03 10:32:51

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

Sazabi · Post by **Sazabi** » 2013-05-06 15:27:33

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

Yoko

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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