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

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
BbIDLO
Posts: 44
Joined: 2005-04-21 18:29:21

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

Post 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:
xzxzxz
BbIDLO
Posts: 44
Joined: 2005-04-21 18:29:21

Post 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
xzxzxz
Post Reply