Yoko

Posted: **2008-08-08 13:03:31**

Как сделать?
bow/kryss + shield/sword + shield

Posted: **2008-08-08 13:34:56**

проверками.
Если пусто - одеть лук
Если лук - одеть крис и щит
Если крис - одеть меч.

Posted: **2008-08-08 13:52:36**

Purgen wrote:проверками.
Если пусто - одеть лук
Если лук - одеть крис и щит
Если крис - одеть меч.

Незнаю я этих проверок я ваще нюб

Помоги плиз

Posted: **2008-08-08 15:38:48**

вчера написал

Code: Select all

sub Weap3()
uo.findtype("0x13B1", "backpack")
if uo.findcount()>0 then
UO.UseType('0x13B1')
wait(100)
else
UO.Findtype( '0x13B9' ) 
If UO.GetQuantity( 'finditem' ) > 0 Then 
UO.Exec("usetype 0x1B76")
UO.Exec("usetype 0x13B9")
else
UO.Findtype( '0x1400' ) 
If UO.GetQuantity( 'finditem' ) > 0 Then 
UO.Exec("usetype 0x1B76")
UO.Exec("usetype 0x1400")
else
UO.Findtype( '0x13FE' ) 
If UO.GetQuantity( 'finditem' ) > 0 Then 
UO.Exec("usetype 0x1B76")
UO.Exec("usetype 0x13FE")
else 
UO.Findtype( '0x0F5E' ) 
If UO.GetQuantity( 'finditem' ) > 0 Then 
UO.Exec("usetype 0x1B76")
UO.Exec("usetype 0x0F5E")
else 
UO.Findtype( '0x13B5' ) 
If UO.GetQuantity( 'finditem' ) > 0 Then 
UO.Exec("usetype 0x1B76")
UO.Exec("usetype 0x13B5")
else
end if
end if
end if
end if
end if
UO.Attack('laststatus') 
uo.waittargettype('laststatus') 
end sub

тут сворд, крис, лонгсворд, скимитар, катана

Posted: **2008-08-08 19:29:39**

lpushech wrote:вчера написал
тут сворд, крис, лонгсворд, скимитар, катана

Молодец

ЫЫЫЫ

Posted: **2008-08-09 11:00:58**

Kynep wrote:
lpushech wrote:вчера написал
тут сворд, крис, лонгсворд, скимитар, катана
Молодец ЫЫЫЫ

+1

Posted: **2008-08-09 14:56:25**

Code: Select all

sub Weap3()
	uo.findtype("0x13B1", "backpack")
	if uo.findcount()>0 then
		UO.UseType('0x13B1')
		wait(100)
	else
		UO.Findtype( '0x13B9' )
		If UO.GetQuantity( 'finditem' ) > 0 Then
			UO.Exec("usetype 0x1B76")
			UO.Exec("usetype 0x13B9")
		else
			UO.Findtype( '0x1400' )
			If UO.GetQuantity( 'finditem' ) > 0 Then
				UO.Exec("usetype 0x1B76")
				UO.Exec("usetype 0x1400")
			else
				UO.Findtype( '0x13FE' )
				If UO.GetQuantity( 'finditem' ) > 0 Then
					UO.Exec("usetype 0x1B76")
					UO.Exec("usetype 0x13FE")
				else
					UO.Findtype( '0x0F5E' )
					If UO.GetQuantity( 'finditem' ) > 0 Then
						UO.Exec("usetype 0x1B76")
						UO.Exec("usetype 0x0F5E")
					else
						UO.Findtype( '0x13B5' )
						If UO.GetQuantity( 'finditem' ) > 0 Then
							UO.Exec("usetype 0x1B76")
							UO.Exec("usetype 0x13B5")
						else
						end if
					end if
				end if
			end if
		end if
		UO.Attack('laststatus')
		uo.waittargettype('laststatus')
	end sub

А вы говорите молодец... Чего только вторая строка стоит -)

Posted: **2008-08-09 15:11:32**

Но работает же.

Yoko

Переключение между 3 оружиями на 1 кнопку

Переключение между 3 оружиями на 1 кнопку