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

Помогите немного подправить...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7039		 Page 1 of 1
Author:  kexwer [ 2006-03-19 15:17:32 ]
Post subject:  Помогите немного подправить...
Вот скрипт, при появлении ПК он реколиться домой , т.е. всё отлично, но если другой чар рядом выкопал элема то он реколиться домой :(
Можно сделать , так что бы, если в журнале надпись Elemental, то не реколился домой, а продолжал фнкцию, на атаку Элема....


Code:
sub ControlOfDanger() 
 
var Time,danger,Space 
Time=Time() 
Space=' '
while 1 
uo.DeleteJournal() 
while not uo.InJournal(':') 
wait(100) 
wend 
danger=uo.GetNotoriety(uo.JournalSerial(0)) 
if uo.InJournal('OOPS') then 
if ElementalKill==1 then 
uo.PlayWav(DisturbingSound)
uo.Exec('exec ElementalKill') 
end if 
if ElementalKill==0 then 
uo.Exec('exec RecallRune') 
end if 
end if 
if RecallPhysicalDanger==1 then 
if uo.InJournal('attacking you') then 
uo.GetStatus('uo.JournalSerial(0)') 
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0))) 
uo.TextOpen() 
uo.TextPrint('Вы были атакованы - '+uo.GetName(uo.JournalSerial(0)) +Space +Time) 
uo.Exec('exec RecallRune') 
end if 
end if 

if SeenDanger==1 then 
if Danger==6 and UO.JournalSerial(0) <> UO.GetSerial() then 
uo.GetStatus('uo.JournalSerial(0)') 
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0))) 
uo.TextOpen() 
uo.TextPrint('Рядом оказался ПК - '+uo.GetName(uo.JournalSerial(0)) +Space +Time) 
uo.Exec('exec RecallRune') 
end if 

if Danger==4 and UO.JournalSerial(0) <> UO.GetSerial() then 
uo.GetStatus('uo.JournalSerial(0)') 
uo.SetGlobal('name',uo.GetName(uo.JournalSerial(0))) 
uo.TextOpen() 
uo.TextPrint('Рядом оказался криминал - '+uo.GetName(uo.JournalSerial(0)) +Space +Time) 
uo.Exec('exec RecallRune') 
end if
if RecallBluePlayer==1 then 
if danger==1 and uo.JournalSerial(0)<>uo.GetSerial() then 
uo.Exec('exec RecallRune') 
end if 
end if 
wend 
end sub
Author:  Scripts Writer [ 2006-03-19 15:23:04 ]
Post subject: 
Code:
if uo.InJournal('attacking you') then 
if uo.InJournal('Elemental is attacking you')
end if


возможно так
Author:  kexwer [ 2006-03-19 15:36:29 ]
Post subject: 
You Must Die wrote:
Code:
if uo.InJournal('attacking you') then 
if uo.InJournal('Elemental is attacking you')
end if


возможно так



Лучше тогда так ;)
Code:
if uo.InJournal('attacking you') or uo.InJournal('Elemental')  then 
Что делать дальше...
end if

Но при атаке или появлении Элементаля он будет реколиться по руне...
А нужно, чтобы при uo.InJournal('Elemental') включал функцию Killelemental
Author:  Kynep [ 2006-03-19 16:27:07 ]
Post subject: 
kexwer wrote:
You Must Die wrote:
Code:
if uo.InJournal('attacking you') then 
if uo.InJournal('Elemental is attacking you')
end if


возможно так



Лучше тогда так ;)
Code:
if uo.InJournal('attacking you') or uo.InJournal('Elemental')  then 
Что делать дальше...
end if

Но при атаке или появлении Элементаля он будет реколиться по руне...
А нужно, чтобы при uo.InJournal('Elemental') включал функцию Killelemental


Попробуй поменять следующее:
Code:
danger=uo.GetNotoriety(uo.JournalSerial(0)) 
if uo.InJournal('OOPS') or uo.InJournal('Elemental') then 
if ElementalKill==1 then 
uo.PlayWav(DisturbingSound) 
uo.Exec('exec ElementalKill') 
end if
Author:  kexwer [ 2006-03-19 17:58:02 ]
Post subject: 
Спасибо...
Author:  Kynep [ 2006-03-19 18:10:39 ]
Post subject: 
kexwer wrote:
Спасибо...


Если работает... тогда не за что :D
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/