Posted: 2006-11-11 05:27:00
Только вот кол-во элементов массива 4 зделай, а не 5
smi wrote:Слушайте а как вставлять такое поле в форум Code: ????
Code: Select all
[code]Может быть вот так? -)Page 2 of 2
Posted: 2006-11-11 08:31:43
Posted: 2006-11-11 20:03:22
Вот что у меня вышло и работает отлчно;)
Гуру инжекта, подскажите мне плс теперь как в этот скрипт добавить чтоб он ресал еще по другому слову,и чтобы отвечал на эти слова тем кого в списке нет;))
Code: Select all
sub main()
var jrnl, i, p_len = 5 ; êîëè÷åñòâî èãðîêîâ, â ñïèñêå
var phrase = "Îáêàñòóé ìåíÿ äåòêà!" ; ôðàçà, íà êîòîðóþ ðåàãèðóåì.
DIM players[6]
; Ñïèñîê ID èãðîêîâ, íà êîòîðûõ âåøàåì îáêàñò.
players[0] = '0x012E40A6'; Smiter
players[1] = '0x00B380AC'; Malvin
players[2] = '0x0051D929'; Eagle
players[3] = '0x016F1491'; Pixel
players[4] = '0x0050E47B'; Baron fon tarkin
repeat
jrnl = uo.inJournal(phrase);
if jrnl then
for i=0 to p_len-1
if uo.journalserial(jrnl-1) == players[i] then
obkast.do(uo.journalserial(jrnl-1))
endif
next
uo.setjournalline(jrnl-1, '')
endif
wait(200)
until false
uo.DeleteJournal()
end sub
Sub obkast.do(serial)
uo.cast('Protection', serial)
Wait(2000)
uo.cast('Bless', serial)
wait(50)
uo.DeleteJournal()
end subPosted: 2006-11-11 20:10:48
Code: Select all
sub obkast()
###############
var keyword = 'обкаст' ; слово на которое реагировать
var refreshtime = 0.5 ; время проверки сообщений в журнале в сек
##############
var i, t=0
Dim a[5]
# серийники
a[0]='0x0000000'
a[1]='0x0000000'
a[2]='0x0000000'
a[3]='0x0000000'
a[4]='0x0000000'
repeat
if uo.injournal(keyword) then
for i=0 to 4
if uo.journalserial(uo.injournal(keyword))==a[i] then
repeat
uo.findtype('0x0000',-1,'ground') #тип трупа
if uo.findcount() and uo.getserial('finaitem')==a[i] then
uo.cast('Resurrection','finditem') #спелл
uo.deletejournal()
end if
until uo.findcount()==0
else
t=t+1
end if
next
if t==5 then
uo.msg('Пшел нах')
uo.deletejournal()
end if
wait(refreshtime*1000)
until uo.dead()
end sub