Script for DETECT HIDDEN

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
SHIN
Posts: 6
Joined: 2005-01-05 14:31:35

Script for DETECT HIDDEN

Post 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.
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Re: Script for DETECT HIDDEN

Post 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 помогал копая невдалеке и недоумевая почему когда он киркой машет то из хайда выскакивает !!! :mrgreen:
Ну и без Спирита на ДРВ терь уже скрипты не модно писать !!!
Сделал дело - флуди смело !!!
SHIN
Posts: 6
Joined: 2005-01-05 14:31:35

Re: Script for DETECT HIDDEN

Post 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?
SHIN
Posts: 6
Joined: 2005-01-05 14:31:35

Post by SHIN »

This macro must launched from the pg that use hiding not from the man that must detect
SHIN
Posts: 6
Joined: 2005-01-05 14:31:35

Post 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?
SHIN
Posts: 6
Joined: 2005-01-05 14:31:35

Post 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
SHIN
Posts: 6
Joined: 2005-01-05 14:31:35

Post by SHIN »

press 123 is war/peace mode
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

Блин
Переведите кто нить плиз !!! Ничё не понял !!!
Сделал дело - флуди смело !!!
Sfagnum
Expert!
Posts: 1284
Joined: 2004-07-04 00:14:58
Contact:

Post by Sfagnum »

you must launch fo 1'st char sub Detect_Hidden() for 2'nd sub Hiding()
and that's all
autopilot
Posts: 57
Joined: 2004-07-25 05:16:04

Post by autopilot »

Блин асканелли ну и назвал ты тему ) Я поиску заипался искать )
Goggy
Posts: 291
Joined: 2004-11-07 01:22:35
Location: Черкассы
Contact:

Post by Goggy »

Мдя..... ну вы америкоцы и тупые.........
Асканели лутше бы ты незнал чё они тут напороли.....:)
такой бред несут хахаха!!!
Askaneli
Sphere expert
Posts: 1143
Joined: 2004-10-01 08:27:38
Location: Уфа

Post by Askaneli »

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

Я и не знаю !!!
Сделал дело - флуди смело !!!
Post Reply