Дайте плиз скипт на вары
Moderators: Murderator+, Murderator
Дайте плиз скипт на вары
Дайте плиз скипт на вары в спарринге на 2-х чаров.
Re: Дайте плиз скипт на вары
cita wrote:Дайте плиз скипт на вары в спарринге на 2-х чаров.
От Savage:
Забиваешь сериал чаров и в путь
Code: Select all
sub sreset()
UO.SetEasyUO(80,"1")
UO.SetEasyUO(90,"1")
end sub
sub sparring()
VAR Char1='0x0001D165'
VAR Char2='0x0007D9E4'
VAR Enemy, ESelf, EEnemy
VAR Weapon, Shield, WpnType, ShldType
VAR TazikType='0x1008',BloodBndg='0x0E20'
VAR MinLife=60
if UO.GetSerial('self')==Char1 then
Enemy=Char2
EEnemy=90
ESelf=80
else
Enemy=Char1
EEnemy=80
ESelf=90
endif
Weapon=UO.ObjAtLayer('Rhand')
If Weapon<>"" Then
WpnType=UO.GetGraphic(Weapon)
Endif
Shield=UO.ObjAtLayer('Lhand')
If Shield<>"" Then
ShldType=UO.GetGraphic(Shield)
Endif
UO.SetEasyUO(ESelf,"0")
while NOT UO.Dead()
repeat
wait(500)
until UO.GetEasyUO(ESelf)=="0" AND UO.GetEasyUO(EEnemy)=="0"
UO.Exec("warmode 1")
UO.Attack(Enemy)
while UO.Life>=MinLife AND UO.GetEasyUO(EEnemy)=="0"
wait(100)
wend
UO.SetEasyUO(ESelf,"1")
UO.Exec("warmode 0")
wait(1000)
UO.Exec("warmode 0")
;-------- Большая стирка, если у вас этого нет, вырезать.
UO.FindType('0x0E21','0x0000','backpack')
If UO.GetQuantity('finditem')<20 Then
UO.FindType('0x0E20','0x0000','backpack')
UO.WaitTargetType(TazikType)
UO.UseObject('finditem')
wait(1000)
Endif
;-------- Большая стирка, если у вас этого нет, вырезать.
while UO.Life<UO.Str
UO.DeleteJournal()
UO.BandageSelf()
Repeat
wait(500)
Until UO.InJournal('put') OR UO.InJournal('help') OR UO.InJournal('cure')
wend
If Shield<>"" Then
UO.Equipt('Lhand',ShldType)
wait(2000)
Endif
If Weapon<>"" Then
UO.Equipt('Rhand',WpnType)
wait(2000)
Endif
UO.UseSkill('Spirit Speak')
wait(3000)
UO.SetEasyUO(ESelf,"0")
wend
end sub
Со слов Йоко хватит:
а по славам Savage:
Code: Select all
REGEDIT4
[HKEY_CURRENT_USER\Software\EasyUO]
"*0"="TEST"
а по славам Savage:
Code: Select all
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\EasyUO]
"WndData.Top"=dword:00000148
"WndData.Left"=dword:000000d1
"WndData.Height"=dword:0000015d
"WndData.Width"=dword:00000300
"WndData.Split"=dword:0000006d
"WndData.InitDir"=""
"WndData.StayOnTop"=dword:00000000
"WndData.PauseKey"=dword:0000000c
"WndData.PauseContinue"=dword:00000000
"Toolbar.Standard"=dword:00000001
"Variables.Show"=dword:00000000
"Variables.Standard"=dword:00000001
"Variables.User"=dword:00000000
"Variables.Defined"=""
"*99"="0"
"*1"="0"
"*0"="0"
"*2"="0"
cita wrote:Сделал я как говорили, токо не хрена не вышло:(
Теря кода я пишу ,sparring мне пишет что нету такой команды...
Мож проше обьясниш как пользоваться этим изи?
Как пользоватся изи сам не знаю, но этот скрипт работает.
Ставишь чаров друг напротав друга (в плотную) загружаешь скрипт обоим, на одном запускаешь sreset потом sparring.
Если запускаешь из УО, то писать надо ,exec sparring
)) vsje rabotaet