Page 1 of 1

Подскажите 1 строчку для скрипта

Posted: 2005-06-09 15:54:55
by BbIDLO
Сделал скрипт на майнинг. Нашёл гдето на форуме основу функции убегания при приходе пк или серых игроков и немного переделал. Подскажите как сделать чтобы чар реагировал только на пк игроков, а на серые ники не реагировал никак и дальше капал. Вот сообственно сама функция убегания :

Sub AttackToRecall()
var jor,ser,noto
for jor = 0 to 9
ser = uo.JournalSerial(jor)
noto = uo.GetNotoriety(ser)
If UO.InJournal("You see: Alligator") or UO.InJournal("You see: Mynah") or UO.InJournal("Horse") or UO.InJournal("You see: Eagle") or UO.InJournal("You see: Jungle Bird") or UO.InJournal("You see: Bull Frog") or UO.InJournal("You see: Brown Bear") or UO.InJournal("You see: Dire Wolf") or UO.InJournal("You see: Rat") or UO.InJournal("You see: Earth Spider") Then
UO.Exec('terminate AttackToRecall')
EndIf
If noto <> 1 and noto <> 0 or UO.InJournal("An Ex Por") or UO.InJournal("In Hur Jux Ylem") or UO.InJournal("hits you") Then
If UO.Waiting() Then
UO.CancelTarget()
EndIf
uo.showjournal(10)
UO.Exec("usetype inviz")
UO.Exec('warmode 0')
UO.DeleteJournal()
RecallToHome()
ToHide()
DropOre()
UO.TextOpen()
UO.TextPrint("BAC ATAKOBAL PK !!!")
If UO.Dead() Then
UO.TextPrint("You are dead :(")
return
Else
UO.TextPrint("BbI CBALuLu OT PK :)")
EndIf
Wait(1000)
CheckReg()
Wait(1000)
Keg()
Wait(1000)
ToEat()
Wait(1000)
Mine()
EndIf
Next
End Sub



Мне это надо чтобы не срабатывал на всяких там нпсишек типа птичек и т.д.
Пробывал это решить добавив вот эти строчки:

If UO.InJournal("You see: Alligator") or UO.InJournal("You see: Mynah") or UO.InJournal("Horse") or UO.InJournal("You see: Eagle") or UO.InJournal("You see: Jungle Bird") or UO.InJournal("You see: Bull Frog") or UO.InJournal("You see: Brown Bear") or UO.InJournal("You see: Dire Wolf") or UO.InJournal("You see: Rat") or UO.InJournal("You see: Earth Spider") Then
UO.Exec('terminate AttackToRecall')
EndIf

Но оно их почемуто либо не замечает вообще, либо на этих строчках скрипт прерываеться и выдаёт ошибку без номера строки с ошибкой. :roll:

Posted: 2005-06-09 16:04:34
by BbIDLO
Сам разобрался уже :lol:
Если кому интересно то нужно было всего-то в эту строчку
If noto <> 1 and noto <> 0 or UO.InJournal("An Ex Por") or UO.InJournal

("In Hur Jux Ylem") or UO.InJournal("hits you") Then

добавить

noto <> 3