Parrying, Tactics, weapon. Нужен скрипт.

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Swip
Posts: 5
Joined: 2006-06-08 15:51:51

Parrying, Tactics, weapon. Нужен скрипт.

Post by Swip »

Особенности шарда: Хилинг с бинта срывается при ударе. Есть ли у кого скрипт, позволяющий качаться некоторое время в бою, после чего отходить на несколько шагов для отхила и возвращаться снова на боевую позицию ? Если чар при этом будет еще и переодевать щиты на новые, буду совсем признателен :) Icq: 330732320
Top
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:
Contact Scripts Writer

Post by Scripts Writer »

Специальные скрипты, под специальные шарды, для специальных людей- WMZ.
Top
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

я недавно выкладывал два скрипта на спарринг и ищо там люди выкладывали, юзай поиск или лестай темы :!:
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

Вот тут что-то древнее завалялось. На двух чаров, с отходами через аддстеп. Один чар качает мейсу, второй фенсу. Комментариев в скрипте нет, так что разбирайся сам. Если мне память не изменяет, надо кинуть рядом с обоими чарами сумку какую-нибудь, прописать ее как склад, в нее кучу бинтов (чары будут добирать).

Code: Select all

sub attack_mf()
	; v.1.02b (c) Edred, 2005
	;
	VAR MyShield = '0x1B76'
	VAR MyMace = '0x13E3'
	VAR Bandag = '0x0E21' 
	VAR Sklad = '0x404E5494'
	VAR blbandag = '0x0E20'
	VAR warX = 1860
	repeat
		If UO.Life < 130 Then
			UO.Exec('bandageself') 
			wait(300)
			If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) <> MyShield Then
				UO.Equipt( 'Lhand', MyShield )
				repeat
					wait(100)
				until UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == MyShield
			Endif		
			If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> MyMace Then
				UO.Equipt( 'Rhand', MyMace )
				repeat
					wait(100)
				until UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == MyMace
			Endif		
			wait(2000)
		Endif
		If UO.Count( Bandag ) < 20 Then
UO.Print( 'TEST.1' )
			repeat
				UO.Exec( 'addstep 3' )
				wait(1000)
				CheckLag()
			until UO.GetX() > warX
			UO.Findtype( blbandag )
			If UO.FindCount() > 0 Then
				UO.MoveItem( 'finditem', 0, Sklad )
				wait(1000)
				CheckLag()
			Endif
			UO.Resend()
			UO.Findtype( bandag, -1, Sklad )
			If UO.FindCount() > 0 Then
				UO.Grab( '100', 'finditem' )
				wait(1000)
				CheckLag()
			Endif
			repeat
UO.Print( 'TEST.2' )
				UO.Exec( 'addstep 7' )
				wait(1000)
				CheckLag()
			until UO.GetX() == warX
		Endif
		If UO.Count( MyMace ) == 0 OR UO.Count( MyShield ) == 0 Then
UO.Print( 'TEST.3' )
			repeat
				UO.Exec( 'addstep 3' )
				wait(1000)
				CheckLag()
			until UO.GetX() > warX + 1
		Endif
		wait(1000)
	until UO.Dead()
endsub

sub attack_fen()
	; v.1.02b (c) Edred, 2005
	;
	VAR MyShield = '0x1B7B'
	VAR MyFenc = '0x0F51'
	VAR Bandag = '0x0E21' 
	VAR Sklad = '0x404E5494'
	VAR blbandag = '0x0E20'
	VAR warX = 1859
	repeat
		If UO.Life < 130 Then
			UO.Exec('bandageself') 
			wait(300)
			If UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) <> MyShield Then
				UO.Equipt( 'Lhand', MyShield )
				repeat
					wait(100)
				until UO.GetGraphic( UO.ObjAtLayer( 'Lhand' ) ) == MyShield
			Endif		
			If UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) <> MyFenc Then
				UO.Equipt( 'Rhand', MyFenc )
				repeat
					wait(100)
				until UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) == MyFenc
			Endif		
			wait(2000)
		Endif
		If UO.Count( Bandag ) < 20 Then
			repeat
				UO.Exec( 'addstep 7' )
				wait(1000)
				CheckLag()
			until UO.GetX() < warX
			UO.Findtype( blbandag )
			If UO.FindCount() > 0 Then
				UO.MoveItem( 'finditem', 0, Sklad )
				wait(1000)
				CheckLag()
			Endif
			UO.Resend()
			UO.Findtype( bandag, -1, Sklad )
			If UO.FindCount() > 0 Then
				UO.Grab( '100', 'finditem' )
				wait(1000)
				CheckLag()
			Endif
			repeat
				UO.Exec( 'addstep 3' )
				wait(1000)
				CheckLag()
			until UO.GetX() == warX
		Endif
		If UO.Count( MyFenc ) == 0 OR UO.Count( MyShield ) == 0 Then
			repeat
				UO.Exec( 'addstep 7' )
				wait(1000)
				CheckLag()
			until UO.GetX() > warX - 1
		Endif
		wait(1000)
	until UO.Dead()
endsub

Sub DeleteJournal( string1 )
	VAR nom = UO.InJournal( string1 )
	If nom > 0 Then
		UO.SetJournalLine( Nom - 1, ' ' )
		DeleteJournal( string1 )
	Endif
endsub
;
; Проверка на лаги
; Идея - Savage
Sub CheckLag()
	DeleteJournal( 'backpack' )
	UO.Click( 'backpack' )
	repeat
		wait(100)
	until UO.InJournal( 'backpack' )
	return
end sub
Ни один скрипт не работает? Пора обновить [url=http://www.eof.nm.ru/FiLeS/uoloop.exe]Инжект[/url]...
Все работает, но хочется большего? Пора переходить на [url=http://stealth.od.ua/]стелс[/url]...
Top
ZWERb
Posts: 122
Joined: 2006-03-08 11:59:41

Post by ZWERb »

ой как вы все сложно завернули :?
Откуда такая больная привычка все усложнять?
я к примеру уже 2 день качаю на вотетом скрипте

Code: Select all

####################################################################
##############        D R W             ############################
####################################################################
###################  v 1.2b        #################################
####################################################################
#################   UNHOLY     #####################################
####################################################################


var BandCL ='0x0E21' ; Тип чистых бинтов
var BandBL ='0x0E20' ; Тип грязных бинтов
var Moy ='0x40011782' ; ID Мойки
var GEPTBA ='0x003CBC68' ; ID Жертвы
var Mech = '0x0EC2' ; Тип Мечя
var Wit ='0x1B73' ; тип Щита
;Ну вот пожалуй и все! Приступим!

Sub Main()
while 1 > 0
UO.Equipt('Rhand',mech)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
While uo.getHP(GEPTBA)> 100
if uo.life < 20 then
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
UO.Equipt('Lhand',Wit)
wait(500)
end if
uo.attack(GEPTBA)
wait(500)
wend
Bint()
wend
end sub 

Sub Bint()
while uo.GetHP(GEPTBA)<uo.GetMaxHP(GEPTBA)
uo.warmode(0)
UO.WaitTargetObject(GEPTBA)
UO.UseType(BandCL)
wait(3000)
wend
while uo.Life<uo.str
uo.warmode(0)
uo.bandageself()
wait(1000)
wend
UO.Equipt('Rhand',mech)
UO.Equipt('Lhand',Wit)
wait(500)
uo.warmode(0)
uo.useskill('Spirit Speak')
wait(1500)
UO.WaitTargetObject(Moy) 
UO.UseType(BandBL)
wait(1500)
end sub
Вот и все! можно в принцепе доделать и зделать еще проще... Но меня ламает!!!!
Все и так работает отлично!
СМЕРТЬ ФЛУДЕРАМ!
Top
Edred
Expert!
Posts: 2544
Joined: 2004-04-03 17:36:29
Location: Saint-Petersburg

Post by Edred »

ZWERb wrote:ой как вы все сложно завернули :?
Откуда такая больная привычка все усложнять?
Ты внимательно читал текст первого поста?
Особенности шарда: Хилинг с бинта срывается при ударе. Есть ли у кого скрипт, позволяющий качаться некоторое время в бою, после чего отходить на несколько шагов для отхила и возвращаться снова на боевую позицию ?
И где это в предложенном тобой скрипте?
Ни один скрипт не работает? Пора обновить [url=http://www.eof.nm.ru/FiLeS/uoloop.exe]Инжект[/url]...
Все работает, но хочется большего? Пора переходить на [url=http://stealth.od.ua/]стелс[/url]...
Top
BATA
Posts: 57
Joined: 2008-03-22 13:41:19

Post by BATA »

У МЕНЯ НЕ ОДИН СКРИПТ НЕ РАБОТАЕТ!!! Один не хилит другой пишит опасная команда ппц
Top
GAUHAR
Posts: 137
Joined: 2006-11-06 21:45:23

Post by GAUHAR »

По первому скрипту:
Edred wrote:Комментариев в скрипте нет, так что разбирайся сам.
По второму скрипту:

Code: Select all

While uo.getHP(GEPTBA)> 100
http://yoko.netroof.net/help/help.php?l ... item=GetHP
Особое внимание: выражается в абстрактных единицах[/u]
Top
Savage
Expert!
Posts: 1205
Joined: 2004-04-04 11:13:54
Location: Балаково, Саратовская обл.
Contact:
Contact Savage

Post by Savage »

https://yoko.uokit.com/viewtopic.php?p=33742#33742
Top
Post Reply

Return to “Scripting Ore”