Page 1 of 1
Script for DETECT HIDDEN
Posted: 2005-01-05 14:34:09
by SHIN
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
Posted: 2005-01-05 14:44:21
by Askaneli
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
Posted: 2005-01-05 19:36:01
by SHIN
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?
Posted: 2005-01-05 19:36:45
by SHIN
This macro must launched from the pg that use hiding not from the man that must detect
Posted: 2005-01-05 19:43:35
by SHIN
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?
Posted: 2005-01-05 20:50:12
by SHIN
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
Posted: 2005-01-05 20:50:50
by SHIN
press 123 is war/peace mode
Posted: 2005-01-10 06:40:38
by Askaneli
Блин
Переведите кто нить плиз !!! Ничё не понял !!!
Posted: 2005-01-10 10:11:37
by Sfagnum
you must launch fo 1'st char sub Detect_Hidden() for 2'nd sub Hiding()
and that's all
Posted: 2005-01-31 03:30:11
by autopilot
Блин асканелли ну и назвал ты тему ) Я поиску заипался искать )
Posted: 2005-01-31 05:12:09
by Goggy
Мдя..... ну вы америкоцы и тупые.........
Асканели лутше бы ты незнал чё они тут напороли.....
такой бред несут хахаха!!!
Posted: 2005-01-31 06:25:19
by Askaneli
Goggy wrote:Мдя..... ну вы америкоцы и тупые.........
Асканели лутше бы ты незнал чё они тут напороли.....
такой бред несут хахаха!!!
Я и не знаю !!!