Page 2 of 2
Posted: 2006-03-29 22:39:07
by Grin
Ребят таких скриптеров как вы надо както разскрипчивать;) читать конечно весело, но людей жалко чесное слово%)
Code: Select all
var anim=' ' ;тип животины
var band=' ' ;тип бинтов
var color=' ' ;цвет животны
sub veterinar()
uo.Set('finddistance','3')
uo.FindType(anim,color,'ground')
while uo.isNPC('finditem')
uo.WarMode(true)
uo.Attack('finditem')
while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3
wait(500)
wend
uo.WarMode(false)
while uo.GetHP('finditem') <> uo.GetMaxHP('finditem')
uo.waittargetobject('finditem')
uo.UseType(band)
wait(1000)
wend
wend
end sub
Posted: 2006-03-30 08:01:53
by Lasas
Grin wrote:Ребят таких скриптеров как вы надо както разскрипчивать;) читать конечно весело, но людей жалко чесное слово%)
Code: Select all
var anim=' ' ;тип животины
var band=' ' ;тип бинтов
var color=' ' ;цвет животны
sub veterinar()
uo.Set('finddistance','3')
uo.FindType(anim,color,'ground')
while uo.isNPC('finditem')
uo.WarMode(true)
uo.Attack('finditem')
while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3
wait(500)
wend
uo.WarMode(false)
while uo.GetHP('finditem') <> uo.GetMaxHP('finditem')
uo.waittargetobject('finditem')
uo.UseType(band)
wait(1000)
wend
wend
end sub
спасибо большое, только можно добавить в скрипт чтобы после хила животного чар брал в руки то что у него было
Posted: 2006-03-30 10:01:08
by Scripts Writer
Lasas wrote:Grin wrote:Ребят таких скриптеров как вы надо както разскрипчивать;) читать конечно весело, но людей жалко чесное слово%)
Code: Select all
var anim=' ' ;тип животины
var band=' ' ;тип бинтов
var color=' ' ;цвет животны
sub veterinar()
uo.Set('finddistance','3')
uo.FindType(anim,color,'ground')
while uo.isNPC('finditem')
uo.WarMode(true)
uo.Attack('finditem')
while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3
wait(500)
wend
uo.WarMode(false)
while uo.GetHP('finditem') <> uo.GetMaxHP('finditem')
uo.waittargetobject('finditem')
uo.UseType(band)
wait(1000)
wend
wend
end sub
спасибо большое, только можно добавить в скрипт чтобы после хила животного чар брал в руки то что у него было
замени на это:
Code: Select all
var anim=' ' ;тип животины
var band=' ' ;тип бинтов
var color=' ' ;цвет животны
sub veterinar()
uo.Set('finddistance','3')
uo.FindType(anim,color,'ground')
while uo.isNPC('finditem')
uo.WarMode(true)
uo.Attack('finditem')
while uo.GetHP('finditem') > uo.GetMaxHP('finditem')/3
wait(500)
wend
uo.WarMode(false)
while uo.GetHP('finditem') <> uo.GetMaxHP('finditem')
uo.waittargetobject('finditem')
uo.UseType(band)
wait(1000)
wend
sword()
wend
end sub
sub sword()
Var Svord='0x13FA' ;Тип оружия, используемый вами
Var Shield='0x1B76' ;Тип оружия, используемый вами
;UO.Equipt('Lhand',Shield)
;wait(1000)
UO.Equipt('Rhand',Svord)
wait(100)
end sub
Posted: 2006-03-30 13:29:31
by Lasas
Posted: 2006-03-30 13:38:01
by Kynep
А додумать тяжело???
Code: Select all
;UO.Equipt('Lhand',Shield)
;wait(1000)
Точку с запятой убери и все будет норм
Posted: 2006-03-30 16:20:20
by Scripts Writer
мля что не пост, так вопрос (( плохо пишу
Posted: 2006-03-30 16:42:42
by Grin
мягко сказано!;)
просто ужастно!!!
Posted: 2006-03-30 17:04:21
by Lasas
You Must Die wrote:мля что не пост, так вопрос (( плохо пишу
просто ты сделал
ты мне помог спасибо , но надо делать всё качественно!:)и так пасибо
Posted: 2006-07-23 18:20:09
by Alegarh
У меня не заработал ваш скрипт и я зделал свой.
Code: Select all
sub Veterinar()
while 1
UO.usetype("0x1B76") # Щит
uo.usetype("0x0EC4") # Оружие
UO.Exec("attack 0x002EE4E2") #Жертва
Repeat
wait (500)
if uo.injournal("destroyed")then
UO.usetype("0x0EC4") # Оружие
uo.deletejournal()
endif
Until (UO.GetHP("0x002EE4E2") <100) #проверка ХП у жертвы
repeat
UO.Exec("warmode 0")
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x002EE4E2") #Лечим жертву
wait(3500)
Until (UO.InJournal("Orn does not need you to heal or cure him."))
UO.DeleteJournal()
wend
end sub
sub Healing()
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)
UO.Arm('CWeapon')
end sub
Posted: 2006-07-24 13:06:58
by Scripts Writer
Все бы писали сами себе скрипты, и тогда бы обсуждали совсем другие вопросы...
Posted: 2006-07-26 11:21:48
by ZWERb
Мля я такую тему уже раз 5 видел!Ё ЮЗ СЕРЧ в следующий раз! А пока на тебе скрипт:
Code: Select all
####################################################################
############## D R W ############################
####################################################################
################### v 1.2b #################################
####################################################################
################# UNHOLY #####################################
####################################################################
var BandCL ='0x0E21' ; Тип чистых бинтов
var BandBL ='0x0E20' ; Тип грязных бинтов
var Moy ='0x40011782' ; ID Мойки
var GEPTBA ='0x003096A5' ; ID Жертвы
var Mech = '0x0F52' ; Тип Мечя
var Wit ='0x1B7A' ; тип Щита
;Ну вот пожалуй и все! Приступим!
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)
wait(500)
UO.Equipt('Lhand',Wit)
wait(500)
end if
uo.warmode(0)
CheckLag()
uo.attack(GEPTBA)
wait(1500)
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
Sub CheckLag()
DeleteJournal( 'backpack' )
UO.Click( 'backpack' )
repeat
wait(100)
until UO.InJournal( 'backpack' )
return
end sub
Sub DeleteJournal( string1 )
VAR nom = UO.InJournal( string1 )
If nom > 0 Then
UO.SetJournalLine( Nom - 1, 'string replaced' )
DeleteJournal( string1 )
Endif
endsub
Ты на нем еще и не плохо боевые подкачаеш=-) 100% работает! Я НА НЕМ КАЧАЛСЯ!
только вот щит он в руки не берёт 
а так всё работает