Page 1 of 1
Автомат
Posted: 2005-06-15 09:13:52
by abas
Может ли быть такой скрипт ??если у мен 30 хп чтобы автоматом я рекалился домой.Или если в меня кидают бомбу и я нивижу чтобы овтоматом она поднялась?А если мана к примеру 15 чтобы пило автоматически??Если есть такие скрипты выложите тут ....
Posted: 2005-06-15 09:52:32
by flake
Code: Select all
sub Afftamat()
UO.Exec( 'set finddistance 2' )
Repeat
If UO.Life < 30 Then
UO.Cast( 'Recall', 'айди_руны' )
EndIf
If UO.Mana < 15 Then
UO.UseType( 'тип_бутылки', 'цвет_бутылки' )
EndIf
UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' )
If UO.FindCount() Then
While UO.FindCount()
UO.Grab( 'finditem' )
Wait( 600 )
UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' )
Wend
EndIf
Wait( 500 )
Until UO.Dead()
end sub
Posted: 2005-06-15 10:10:11
by abas
Спосибо за скрипт но я попробовал если у меня 12 нп он не рекалится дайте такой скрипт если меньше 30 то тогда рекол
Posted: 2005-06-15 10:17:05
by flake
Как так не рекалится? Вписал айди руны?
Posted: 2005-06-15 10:24:56
by abas
да
Code: Select all
sub Afftamat() -это забендил нажал ран функшен и начался граб некончаемый
UO.Exec( 'set finddistance 2' )
Repeat
If UO.Life < 30 Then
UO.Cast( 'Recall', '0x4175DC9E' )
EndIf
If UO.Mana < 15 Then
UO.UseType( 'тип_бутылки', 'цвет_бутылки' )
EndIf
UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' )
If UO.FindCount() Then
While UO.FindCount()
UO.Grab( 'finditem' )
Wait( 600 )
UO.FindType( 'тип_бомбы', 'цвет_бомбы', 'ground' )
Wend
EndIf
Wait( 500 )
Until UO.Dead()
end sub
[теги =( I'm]
Posted: 2005-06-15 10:27:40
by flake
Уууу....
Вставь везде нужные типы и цвета
И срочно иди читать учебники Едреда!
Posted: 2005-06-15 14:11:28
by Edred
В данном случае не поможет. Учебник может пригодиться только тому, кто "помогите написать", а не "дайте мне".
Posted: 2005-06-25 21:05:23
by Kinder Zurpraiz
ГЫ! Бывает, скрипт дадут, так ещо и обясняй типу куда записывать : )