| Yoko http://forum.yoko.com.ua/ |
|
| Подскажите 1 строчку для скрипта http://forum.yoko.com.ua/viewtopic.php?f=20&t=4183 |
Page 1 of 1 |
| Author: | BbIDLO [ 2005-06-09 15:54:55 ] |
| Post subject: | Подскажите 1 строчку для скрипта |
Сделал скрипт на майнинг. Нашёл гдето на форуме основу функции убегания при приходе пк или серых игроков и немного переделал. Подскажите как сделать чтобы чар реагировал только на пк игроков, а на серые ники не реагировал никак и дальше капал. Вот сообственно сама функция убегания : 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 Но оно их почемуто либо не замечает вообще, либо на этих строчках скрипт прерываеться и выдаёт ошибку без номера строки с ошибкой. |
|
| Author: | BbIDLO [ 2005-06-09 16:04:34 ] |
| Post subject: | |
Сам разобрался уже Если кому интересно то нужно было всего-то в эту строчку 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 |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|