Script for DETECT HIDDEN
Moderators: Murderator+, Murderator
Script for DETECT HIDDEN
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.
Re: Script for DETECT HIDDEN
SHIN wrote: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.
Code: Select all
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 помогал копая невдалеке и недоумевая почему когда он киркой машет то из хайда выскакивает !!!

Ну и без Спирита на ДРВ терь уже скрипты не модно писать !!!
Сделал дело - флуди смело !!!
Re: Script for DETECT HIDDEN
Askaneli wrote:SHIN wrote: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.
Code: Select all
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?
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
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