Yoko

Posted: **2005-06-14 18:26:12**

Я знаю что даную функцию можно найти в скриптах вроде майнинга, но дело в том что там используеться другой принцип - во всех добывающих скриптах функция использует проверку журнала на красные ники и если их находит то улетает. Я играю на Оскоме и у нас везде в шахтах ввели красных пауков и мне надо чтобы чар реколился в случае если его бьют(уменьшаеться хп, кастуються негативные спеллы и т.д.)

Хотел реализовать это таким образом:

Code: Select all

If uo.warmode() == 1 Then
If UO.Waiting() Then
UO.CancelTarget()
EndIf
uo.showjournal(10)
UO.Exec("usetype inviz")
UO.Exec('warmode 0')
UO.DeleteJournal()
RecallToHome()

Но почемуто даный фрагмент не срабатует

- может кто-нить помочь с такой функцией ?

Posted: **2005-06-14 22:25:36**

Code: Select all

If UO.Life < 150 OR UO.InJournal( 'Kal Vas Flam' ) OR UO.InJournal( 'Cor Por' ) Then
...
...
...
End If

Проверка на жизни чара и на каст магии повреждения (ФС и Кор-Пор. Имхо нет смысла вводить проверку на такие вещи как Харм и Лайт: быстее узнаешь о них по изминениям в ХП)

Posted: **2005-06-14 22:51:15**

В том то и прикол что на Оскоме чего тока не делают чтобы не дать майнеру улететь, кастуют всё подряд, кидают взрывы и одновременно стреляют с арбаля, бьют найтмаром и кастуют паралайз и т.д. Подскажите реально ли сделать типа как у меня с проверкой на вар режим тока чтобы работало ?

Posted: **2005-06-14 23:13:30**

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

Posted: **2005-06-15 19:04:19**

Тогда можно ли как-то в проверку на красные ники, добавить ещё чтобы проверяло кому принадлежит этот ник - игроку или нпс ???
Вот скрипт на проверку:

Code: Select all

var jor,ser,noto
for jor = 0 to 9
ser = uo.JournalSerial(jor)
noto = uo.GetNotoriety(ser)
If noto <> 1 and noto <> 0 and noto <> 3  Then
If UO.Waiting() Then
UO.CancelTarget()
EndIf
uo.showjournal(10)
UO.Exec("usetype inviz")
UO.Exec('warmode 0')
UO.DeleteJournal()
RecallToHome()

Posted: **2005-06-15 19:17:25**

Ищим вокруг себя чаров.
Проверяем их "Красность".
На монстров не будет реагировать, т.к. мы ищим только типы чаров.

Posted: **2005-06-16 09:19:05**

так а как искать имено чаров ?????

Posted: **2005-06-16 09:51:00**

Code: Select all

UO.FindType( '0x0190', '-1', 'ground' ) ; искать чаров Мужского типа
UO.FindType( '0x0191', '-1', 'ground' ) ; искать чаров Женского типа

Posted: **2005-06-16 22:01:09**

Примерно так делай:

Code: Select all

Sub ControlPK()
; Насчет ПК - будем сканировать вокруг в поисках типов. 
; Если появляется - прерываем копку, начинаем убегать и реколлимся на ходу.
;
	VAR MinDistance = val( UO.GetGlobal('MinEnemyDist') )
	VAR MaxDistance = val( UO.GetGlobal('MaxEnemyDist') )
	VAR PKchar1 = '0x0190'
	VAR PKchar2 = '0x0191'
	VAR PKCount = 0, PKSerial = ''
	VAR PKColor, PKDist, PKDistOld, i
	VAR GoOut = 0
	DIM ExcludeChar[5]
	ExcludeChar[0] = '...'
	ExcludeChar[1] = '...'
	ExcludeChar[2] = '...'
	ExcludeChar[3] = '...'
	ExcludeChar[4] = '...'
	;
	While NOT UO.Dead()
		UO.Ignore( 'self' )
		repeat
			wait(300)
			UO.FindType( PKchar1, '-1', '1' )
			PKCount = UO.FindCount()
			If PKCount == 0 Then
				UO.FindType( PKchar2, '-1', '1' )
				PKCount = UO.FindCount()
			Endif
			If PKCount > 0 Then
				PKSerial = UO.GetSerial( 'finditem' )
				For i = 0 to 5
					If PKSerial == ExcludeChar[i] Then
						UO.Ignore( 'finditem' )
						PKCount = 0
					Endif
				Next
			Endif
		until PKCount > 0
		; Нашли!
		PKDistOld = 15
		PKColor = UO.GetNotoriety( PKSerial )
		WriteLog( 'I found another char. Serial = ' + PKSerial + ', Notoriety = ' + str(PKColor), 0 )
............................................
[действия по обнаружении другого чара слопала цензура]
............................................

Posted: **2005-06-17 00:26:27**

спасибо
завтро с этого буду лепить под себя функцию

Posted: **2005-06-17 12:12:56**

Чтоб она подавилась, эта цензура

Yoko

Подправьте мини скрипт на рекол от пк

Подправьте мини скрипт на рекол от пк