Yoko

All sides of Injection
It is currently 2026-01-17 17:59:36

All times are UTC+02:00




Post new topic  Reply to topic  [ 2 posts ] 
Author Message
PostPosted: 2005-06-09 15:54:55 
Offline

Joined: 2005-04-21 18:29:21
Posts: 44
Сделал скрипт на майнинг. Нашёл гдето на форуме основу функции убегания при приходе пк или серых игроков и немного переделал. Подскажите как сделать чтобы чар реагировал только на пк игроков, а на серые ники не реагировал никак и дальше капал. Вот сообственно сама функция убегания :

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


Top
   
 Post subject:
PostPosted: 2005-06-09 16:04:34 
Offline

Joined: 2005-04-21 18:29:21
Posts: 44
Сам разобрался уже :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


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 2 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 10 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited