Yoko

работа только от эксперта этого форума!

задачу то опиши - может и новички помогут

Mirage wrote:задачу то опиши - может и новички помогут

1) оском, имеется дракон, в менб драка устанавливается тайлы на которые он плюет! надо сделать так что бы рпи нажатии разных кнопок дран плювал на раные тайлы!
2) что бы пил вамп автоматов кровь с пола и что бы не вылетал клиент при этом.
и немного простых скриптов!

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

кровь типо так?

Mirage wrote:

Code: Select all

sub dblood()
	Dim B[5]
	var a
	B[1]=0x122E
	B[2]=0x122A
	B[3]=0x122C
	B[4]=0x122D
	B[5]=0x122B
	uo.set('finddistance','3')
	Repeat
		for a=1 to 5
			UO.FindType(B[a],"-1","ground")
			if UO.FindCount("finditem")>0 and UO.GetDistance("finditem")<=3 then
				UO.UseObject("finditem")
				wait(300)
			end if
		next
	Until UO.Dead()
end sub

кровь типо так?

Типа, ну что бы не вылетал чар с игры и не тормозила ультима

Легко. Убери цикл Repeat - Until UO.Dead(). А то вопрос уровня "как ездить на машине и не попасть в аварию".
Автономные циклы = зло. Хоткеи в 99% случаях рулят над автономками.

Mirage wrote:

Code: Select all

sub dblood()
	Dim B[5]
	var a
	B[1]=0x122E
	B[2]=0x122A
	B[3]=0x122C
	B[4]=0x122D
	B[5]=0x122B
	uo.set('finddistance','3')
	Repeat
		for a=1 to 5
			UO.FindType(B[a],"-1","ground")
			if UO.FindCount("finditem")>0 and UO.GetDistance("finditem")<=3 then
				UO.UseObject("finditem")
				wait(300)
			end if
		next
	Until UO.Dead()
end sub

кровь типо так?

прогони скрипт через второю строку своей подписи

ну яж бесплатно...
+ это какой то набросок из старинного архива.

Усё исправлено.

Mirage wrote:ну яж бесплатно...

в "бесплатно" можно и shutdown - s -t 00 запихнуть

Mirage wrote:
ну яж бесплатно...
+ это какой то набросок из старинного архива.

Усё исправлено.

Заплатить не проблема, главное мне нужно все в комплексе и не выпрашивать у каждого, а дать ТЗ, мне его выполнят, я заплачу.
Кто тут отважный скриптер?))