Yoko
http://forum.yoko.com.ua/

Как сделать так чтоб мыл бандажки??
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2590		 Page 1 of 1
Author:  ar [ 2005-01-12 12:09:08 ]
Post subject:  Как сделать так чтоб мыл бандажки??
Не знаю как сделать... а скрипт очень хороший... добавитьтолько хочеться чтоб бинты мыл...
Если кто может помагите... никак не соображу..
Всем примного благодарен, заранее спасибо!


sub fight()
while 1
gotoxy(1424,2525,0) # ?????????? ???? ????????? ? ??????????
UO.usetype("0x1B76") # ??? ????
uo.usetype("0x0EC2") # ??? ??????
UO.Exec("attack 0x002778F8") #???? 2-?? ????
Repeat
wait (500)
if uo.injournal("destroyed")then
UO.usetype("0x0EC2") # ??? ??????
uo.deletejournal()
endif
Until ((UO.GetHP("0x000066C7") <75)or (UO.GetHP("0x002778F8") <100)) #
#????? 1-?? ? 2-?? ????
repeat
UO.Exec("warmode 0") # ????????? ??? ???
UO.Press(35) # ??? ??????? End
UO.Press(35) # ??? ???????
gotoxy(1424,2526,0) # ?????????? ?? Y ???? ???????? ????? ??????(??)
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x002778F8") # ???? 2-?? ????
wait(3500)
Until (UO.InJournal("need you"))
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x000066C7") # ???? 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')
Author:  ar [ 2005-01-13 09:39:14 ]
Post subject: 
ну и не нада сам сделал ...
получается вот так


sub fight()

while 1
gotoxy(1424,2525,0) # координаты куда подходить к противнику
UO.usetype("0x1B76") # тип щита
uo.usetype("0x0EC2") # тип оружия
UO.waittargettype ("0x1008")
UO.usetype("0x0E20")
UO.Exec("attack 0x0014BA33") #айди 2-го чара
Repeat
wait (500)
if uo.injournal("destroyed")then
UO.usetype("0x0EC2") # тип оружия
uo.deletejournal()
endif
Until ((UO.GetHP("0x000066C7") <75)or (UO.GetHP("0x0014BA33") <100)) #
#жизни 1-го и 2-го чара
repeat
UO.Exec("warmode 0") # выключаем вар мод
UO.Press(35) # код клавиши End
UO.Press(35) # код клавиши
gotoxy(1424,2526,0) # координаты по Y куда отходить чтобы лечить(ся)
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x0014BA33") # айди 2-го чара
wait(3500)
Until (UO.InJournal("need you"))
UO.DeleteJournal()
Repeat
UO.Usetype("0x0E21") #Bandages
UO.Exec("waittargetobject 0x000066C7") # айди 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')
Author:  Diamond_ghost [ 2005-01-20 02:26:19 ]
Post subject: 
Он не рабочий.... а жаль....
Кому не сложно, посмотрите в чем дело.... пишет парс эррор в 154 строке
Author:  KrafteR [ 2005-01-20 02:31:37 ]
Post subject: 
Diamond_ghost wrote:
Он не рабочий.... а жаль....
Кому не сложно, посмотрите в чем дело.... пишет парс эррор в 154 строке

Млин ну отмечайте строки, а то может ошибка в запятой в этой строке, а искать пол дня.
Author:  KrafteR [ 2005-01-20 02:35:01 ]
Post subject: 
Diamond_ghost wrote:
Он не рабочий.... а жаль....
Кому не сложно, посмотрите в чем дело.... пишет парс эррор в 154 строке

А в данном случае допиши в конец
Code:
End sub
и возможно всё заработает.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/