Yoko

Люди даитье пажалуста скрипт на пракачку боевих с 2их компах ПлиЗ. Шас в дрв нелзя качатса с 1 компа и не один из наиденех мне скриптоф чере поиск не работали. Каму есть такой скрипт помагите

П.С. прастьите за ашибки пишу через транслит

ну ПАЖАЛУСТА скриптик то полезний , не толко длья меня! =[
зделаитье харошое дело ктонить))

Тут многие с ДРВ, как я заметил ))) Но че-то некто не делится, видать боятся, потаму что накачаеся, вырастиш и будеш им люлей вешать... вот и боятся тебе скрипт довать для прокачки )))

ну ... наскоко я вирас... 3 года уже там играю. мне друга пракачать надо.

да проста жадний народ ))) всо денег надо )) а памоч не кто не хочет .

пипец млин...
тебе что все должны?

sub parring()
while not uo.dead()
if UO.Heal < UO.MaxHeal - 50 then
UO.UseType('_тут_тип_ГХ')
end if
wait(1000)
wend
end sub

Мда, я прям даже не узнал свой скрипт, маленькая поправочка

sub parring()
while not uo.dead()
if UO.Heal < UO.MaxHeal - 50 then
UO.UseType('_тут_тип_ГХ','_тут_цвет_ГХ')
end if
wait(1000)
wend
end sub

_________________
Сделал дело - флуди смело !!!

очередной эдишен наколеночный

А я качал вот таким

sub Hits()
while not uo.dead()
if uo.life<100 then
   uo.findtype(0x0f0e,0x09BB)
   uo.useobject('finditem')
   wait(6000)
endif
wait(200)
wend
end sub

И нежаловался

sub fight()


while 1
gotoxy(1817,802,0) # êîîðäèíàòû êóäà ïîäõîäèòü ê ïðîòèâíèêó
UO.usetype("0x1B77") # òèï ùèòà
uo.usetype("0x0EC2") # òèï îðóæèÿ
UO.Exec("attack 0x000AECD9") #àéäè 2-ãî ÷àðà
Repeat
wait (500)
if uo.injournal("destroyed")then
UO.usetype("0x0EC2") # òèï îðóæèÿ
uo.deletejournal()
endif
Until ((UO.GetHP("0x001AD865") <75)or (UO.GetHP("0x000AECD9") <100)) #
#æèçíè 1-ãî è 2-ãî ÷àðà
repeat
UO.Exec("warmode 0") # âûêëþ÷àåì âàð ìîä
UO.Press(35) # êîä êëàâèøè End
UO.Press(35) # êîä êëàâèøè End
until (uo.GetY() < 803)# êîîðäèíàòû ïî Y êóäà îòõîäèòü ÷òîáû ëå÷èòü(ñÿ)
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x000AECD9") # àéäè 2-ãî ÷àðà
wait(3500)
Until (UO.InJournal("need you"))
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x001AD865") # àéäè 1-ãî ÷àðà
wait(3500)
Until (UO.InJournal("need healing"))
wend
end sub

sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
#uo.print(">")
#uo.track("1",str(x),str(y))
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if not ldc then
uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if
ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>100 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
end if
if mx==x then
if my==y then
return
endif
if my>y then
#UO.Print("UR")
UO.Press(33)
goto start
endif
#UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
#UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
#UO.Print("DR")
UO.Press(34)
goto start
endif
#UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
#UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
#UO.Print("LU")
UO.Press(35)
goto start
endif
#UO.Print("U")
UO.Press(38)
goto start
end sub

sub Healing()
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)

UO.Arm('CWeapon')
end sub



скрипт ставиш на 1ом компе... 2ой чар становится рядом(2ому чару никаких скриптов ненадо)он сам лечит себя и противника сма подходит и отходит

sub fight()


while 1
gotoxy(1817,802,0) # координаты куда подходить к противнику
UO.usetype("0x1B77") # тип щита
uo.usetype("0x0EC2") # тип оружия
UO.Exec("attack 0x000AECD9") #айди 2-го чара
Repeat
wait (500)
if uo.injournal("destroyed")then
UO.usetype("0x0EC2") # тип оружия
uo.deletejournal()
endif
Until ((UO.GetHP("0x001AD865") <75)or (UO.GetHP("0x000AECD9") <100)) #
#жизни 1-го и 2-го чара
repeat
UO.Exec("warmode 0") # выключаем вар мод
UO.Press(35) # код клавиши End
UO.Press(35) # код клавиши End
until (uo.GetY() < 803)# координаты по Y куда отходить чтобы лечить(ся)
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x000AECD9") # айди 2-го чара
wait(3500)
Until (UO.InJournal("need you"))
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x001AD865") # айди 1-го чара
wait(3500)
Until (UO.InJournal("need healing"))
wend
end sub

sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
#uo.print(">")
#uo.track("1",str(x),str(y))
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if not ldc then
uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if
ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>100 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
end if
if mx==x then
if my==y then
return
endif
if my>y then
#UO.Print("UR")
UO.Press(33)
goto start
endif
#UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
#UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
#UO.Print("DR")
UO.Press(34)
goto start
endif
#UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
#UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
#UO.Print("LU")
UO.Press(35)
goto start
endif
#UO.Print("U")
UO.Press(38)
goto start
end sub

sub Healing()
UO.SetArm('CWeapon')
UO.Exec("bandageself")
wait(500)

UO.Arm('CWeapon')
end sub


ПОПРАВКА)

спасибо агромное за скрипт

скрипт конешно хароший , толко праверй иво , с первово раза нормально работает , патом когда он отходет 2 раз проста идьот пака не штонить иво не астановит например дерево или забор , питался каробку паставить на то место всеравно стоит и нечиво не делает. пажалуста ктото знает в чом проблема ?? подскажитье Плз!

Скрипт Непашет =(

_________________
Да поможет вам Литр , да сохронит вас Второй , во имя Стакана , Бутылки , и святого Огурца - Аминь!
Yoko Повер нах )