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

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

Я и не знаю !!!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/