Скиньте скрипт на Медитацию и Алхимию.
Лейтенант (3363492)13 лет
Urukhay
Сообщений: 780
Рег. 5.06.2010
7 июля 2010 16:15
Сообщение #1
Пожалуйста:)Будте так добры.
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 16:17
Сообщение #2

sub up.Meditation()
VAR msg1="In Nox"
VAR msg2="You are at peace."
VAR msg3="You lose your concentration."
repeat
uo.DeleteJournal()
uo.WaitTargetObject("self")
uo.Cast("Poison")
repeat
Wait(50)
until uo.InJournal(msg1)
uo.Warmode(0)
repeat
uo.DeleteJournal()
uo.UseSkill("Meditation")
repeat
Wait(50)
until uo.InJournal(msg2) or uo.InJournal(msg3)
until uo.InJournal(msg2)
until not uo.Ns or uo.Dead()

end sub

 

Береш много нс и стоишь )))


Frozen
7 июля 2010 16:21
Сообщение #3
только против яда ченить напяль :)
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 16:22
Сообщение #4

Причем тут яд?) Сначало посмотри скрипт внимательно а потом уже пиши.

 

Он кастует Пойзон! тут же его ФИЗЛИТ и медитирует. Не каких ядов на чара не проходит, хоть голый стой без бижы!

Лейтенант (3363492)13 лет
Urukhay
Сообщений: 780
Рег. 5.06.2010
7 июля 2010 16:23
Сообщение #5
Chekan,спс
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 16:23
Сообщение #6
+ АДЫН :)

Frozen
7 июля 2010 16:26
Сообщение #7
Chekan,хмм точно, хитро сделано. 
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 16:28
Сообщение #8
Ну так)

Frozen
7 июля 2010 16:35
Сообщение #9
А можно скрипт на  алхимию? Желательно такой, на котором кто-то её уже добил до гма) Спасибо.
Капитан (8069233)14 лет
Dragonstalker
Сообщений: 3333
Рег. 5.09.2009
7 июля 2010 16:35
Сообщение #10
хм, а под стелс такое можете замутить?
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 16:38
Сообщение #11

под стелс можно все:)

 

На алху самый легкий скрипт делал на уо пилоте.

 

Варил грейт агилку, пил ее. Варил, пил.

Капитан (8069233)14 лет
Dragonstalker
Сообщений: 3333
Рег. 5.09.2009
7 июля 2010 17:22
Сообщение #12
переведите, пжлст, этот срипт на медитацию под стелс

+ на спирит спик скрипт(кстати, он зачем нужен?) добавьте?
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 18:02
Сообщение #13

Спирит спик нужен только некросам, высасывать трупы.

 

Program SpiritSpeak;
var
TimeParser : TDateTime;
Begin

while not Dead do
begin
if Connected then
begin
TimeParser := Now
begin

UseSkill('Spirit Speak');
wait(50)
WaitJournalLine(Now, 'You stop|You fail|You channel|You lack|You establish|не удалось', 10000)
wait(500)
end;
if InJournalBetweenTimes('You channel',TimeParser,Now) >=0 then
begin
wait(300);
SetWarMode(true);
wait(300);
SetWarMode(false);
wait(300);
end;
end;
end;
End.

Лейтенант (3363492)13 лет
Urukhay
Сообщений: 780
Рег. 5.06.2010
7 июля 2010 21:02
Сообщение #14
Chekan,а с бинта ресать? Очень полезная примочка)
Сержант (527412)14 лет
Necromancer
Сообщений: 1240
Рег. 30.10.2009
7 июля 2010 21:07
Сообщение #15

waittargetground 0x2006; useobject _0x0E21

 

 


Frozen
7 июля 2010 21:23
Сообщение #16
sub main()
Var i
While not uo.dead()
uo.CancelMenu()
UO.waitmenu ('What sort of potion do you want to', 'Agility Potion')
uo.waittargettype('0x0F7B')
UO.usetype('0x0E9B')
wait(12000)
i=0
for i = 0 to 6
uo.waittargetobject('0x40EB1BE7')
uo.UseSkill('Taste Identification')
wait(1000)
next
UO.usetype('0x0E24')
wait(300)

wend

end sub

 

Алха + лоры, бутылка пьется раз в 16 сек, следотовательно есть время ченить покачать по пути :) Скажи какой лор вставить, вставлю если не надо качать лоры тогда такой скрипт

sub main()
Var i
While not uo.dead()
uo.CancelMenu()
UO.waitmenu ('What sort of potion do you want to', 'Agility Potion')
uo.waittargettype('0x0F7B')
UO.usetype('0x0E9B')
wait(16000)

UO.usetype('0x0E24')
wait(300)
wend

end sub

Капитан (8069233)14 лет
Dragonstalker
Сообщений: 3333
Рег. 5.09.2009
7 июля 2010 22:00
Сообщение #17
мадам и месью,  плизуа конструктуэ скрипта пот стелзуа?



sub up.Meditation()
VAR msg1="In Nox"
VAR msg2="You are at peace."
VAR msg3="You lose your concentration."
repeat
uo.DeleteJournal()
uo.WaitTargetObject("self")
uo.Cast("Poison")
repeat
Wait(50)
until uo.InJournal(msg1)
uo.Warmode(0)
repeat
uo.DeleteJournal()
uo.UseSkill("Meditation")
repeat
Wait(50)
until uo.InJournal(msg2) or uo.InJournal(msg3)
until uo.InJournal(msg2)
until not uo.Ns or uo.Dead()

end sub





мадлопт

Frozen
8 июля 2010 03:14
Сообщение #18
Ictli, а можно аналог без лоров, но с добором регов\бутылок с сундука? Спасибо.

Frozen
8 июля 2010 07:04
Сообщение #19
MaxHo,Конечно попожже скину, но вот токо зачем добор бутылок, если он пьет то что сварил? Мне 50шт хватило до ГМа качнуть.

Frozen
8 июля 2010 10:02
Сообщение #20
sub main()
var Cont='0x404F187C' #id сундука



While not uo.dead()
if uo.count('0x0F0E')<1 then
uo.print('Берем бутылки')
uo.useobject(cont)
uo.findtype('0x0F0E',0,cont)
UO.MoveItem('finditem','50')
endif
if uo.count('0x0F7B')<3 then
uo.print('Берем реги')
uo.useobject(cont)
uo.findtype('0x0F7B',0,cont)
UO.MoveItem('finditem','50')
endif
wait(50)
uo.CancelMenu()
UO.waitmenu ('What sort of potion do you want to', 'Agility Potion')
uo.waittargettype('0x0F7B')
UO.usetype('0x0E9B')
wait(16000)

UO.usetype('0x0E24')
wait(300)

wend

end sub

 

както так с добром бутылок и регов будет, если выдаст ошибку пиши, а то я не тестил.

Последние посетители (0):

 
Сейчас: 4 мая 2024 11:13