Yoko

I need a script for INJECTION YOKO that allow a PG hiding and when someone discover him from the hiding, we RE-HIDE. He must hide only if will be discovered not continuos hide.

sub Detect_Hidden()
Var i=0 
repeat
i=i+1
cheklag()
uo.UseSkill('Detect Hidden')
uo.deletejournal()
repeat
wait(10) 
until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
if i==50 then
i=0
cheklag()
uo.useskill("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
uo.usetype('0x09BB')
wait(1000)
end if
until uo.Dead() 
end sub

sub Hiding()
repeat
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Hiding...") 
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") 
wend
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub 

Сам разберёшься, не шарю как по вашему обьяснить что есть это !!!
sub Detect_Hidden() для чара что качает детект
sub Hiding() для чара который рядышком стоит, ну мне ещё Sfagnum помогал копая невдалеке и недоумевая почему когда он киркой машет то из хайда выскакивает !!!
Ну и без Спирита на ДРВ терь уже скрипты не модно писать !!!

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

sub Detect_Hidden()
Var i=0 
repeat
i=i+1
cheklag()
uo.UseSkill('Detect Hidden')
uo.deletejournal()
repeat
wait(10) 
until UO.InJournal("You can see nothing hidden there.") or UO.InJournal("You find")
if i==50 then
i=0
cheklag()
uo.useskill("Spirit Speak")
uo.deletejournal()
repeat 
wait(10)
until UO.InJournal("You establish a connection to the netherworld.") or UO.InJournal("You fail your attempt at contacting the netherworld.")
uo.usetype('0x09BB')
wait(1000)
end if
until uo.Dead() 
end sub

sub Hiding()
repeat
while not UO.Hidden() 
UO.Warmode("0") 
uo.print("Hiding...") 
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.") 
wend
until uo.dead()
end sub

sub cheklag()
uo.deletejournal()
uo.click('backpack')
repeat
wait(10)
until uo.InJournal("backpack")
end sub 

Seems not work for the follow reason:

1) No main sub found
2) If i launch one of the sub found in YOKO, it says FUCTION NOT FOUND
3) Strange messages that does not appear in my shard

Any suggestions?

This macro must launched from the pg that use hiding not from the man that must detect

Maybe these are the two parts of a macro: 1 is for hidden player and the other for detector player. But changing SUB HIDING with SUB MAIN it says FUNCTION NOT FOUND anyway..why?

sub Hiding()
repeat
while not UO.Hidden()
UO.Warmode("0")
uo.print("Hiding...")
UO.UseSkill("Hiding")
UO.DeleteJournal()
Repeat
Wait(10)
Until UO.InJournal("You have hidden yourself well") or UO.InJournal("You can't seem to hide here.")
wend
until uo.dead()
end sub

changed to sub main(), if hiding fail, he don't re try to rehide. The macro would be something like this:

sub main()

Repeat
UO.Useskill ("Hiding")
UO.deletejournal ()
Uo.Press(123)
Repeat
wait (1000)
Until UO.injournal ("You have hidden yourself well")
Uo.Press(123)
#wend
if UO.InJournal ("You can't seem to hide here") then
UO.Useskill ("Hiding")
UO.deletejournal ()
Uo.Press(123)
Repeat
wait (1000)
Until UO.injournal ("You have hidden yourself well")
#wend
If UO.injournal ("You have been discovered!") then
Uo.Press(123)
UO.Useskill ("Hiding")
UO.deletejournal ()
Uo.Press(123)
Repeat
wait (1000)
Until UO.injournal ("You have hidden yourself well")
wend
end sub

This macro of course does not work

press 123 is war/peace mode

Блин
Переведите кто нить плиз !!! Ничё не понял !!!

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

you must launch fo 1'st char sub Detect_Hidden() for 2'nd sub Hiding()
and that's all

Блин асканелли ну и назвал ты тему ) Я поиску заипался искать )

Мдя..... ну вы америкоцы и тупые.........
Асканели лутше бы ты незнал чё они тут напороли.....
такой бред несут хахаха!!!

Я и не знаю !!!

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