##################################################### ### Forensic Evaluation Script v. 1.03. ### ### ### ### Copyright & tested by cOoler on DRW Shard. ### ### ### ### Oficial DRW Shards site - http://www.drw.ru ### ##################################################### ##################################################### ### Инструкция по использованию и настройке. ### ##################################################### ### 1. Для работы этого скрипта ничего не нужно. ### ### 2. Описание подготовки к запуску скрипта. ### Запускаем скрипт и указать на мёртвое существо ### (человек или животное) курсором. ### ### 3. Скрипт простой и каких либо исправлений не требует. ##################################################### ### Конец инструкции. ### #####################################################
sub ForensicEvaluation() var count=0 uo.print('Please Change Dead Creature...') uo.exec('addobject ForensicAnimal') while uo.targeting() wait(100) wend UO.DeleteJournal() repeat uo.waittargetobject('ForensicAnimal') UO.Useskill('Forensic Evaluation') while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60 wait(35) count=count+1 wend wait(35) count=0 UO.DeleteJournal() until UO.Dead() end sub
Discussion:______________ http://yoko.netroof.net/forum/viewtopic.php?t=3567 Author or poster:_________ Dungeon [*HiCk*] dungeon_@mail.ru Tested on:_______________ Nova (http://nova-uo.com)
Must work:_______________ RunUO
Customization required:____ YES да (Set for place под место)
Description:______________ Оставляем чара в загоне например в Скара Бра где спавнятся коровы. Берем в руку какуюнить колотушку. Запускаем скрипт. Чар убивает корову и форенсит ее труп после пропадания трупа убивает следующую корову.
У первых трех переменных в скрипте написаны коментарии что в них класть если сервер НОВА то менять ничего ненужно.
Yoko comment:___________ none
________________________
################################### # Заходите в загон с коровами например в СкараБре # На кнопку F10 нужно забить команду AllNames в макросах уо # Убивает корову и форенсит труп пока он есть после убивает еще.
sub forens() telo = '0x2006' #Тайп Трупа target = '0x00E7' # тайп Убиваемого животного (Корова серая) targett = '0x00D8' # тайп Убиваемого животного (Корова черная) uo.exec("set finddistance 6") forens: if uo.life < uo.str - 30 then Uo.Say("GUARDS"); endif uo.findtype(telo,-1,"ground") if uo.findcount() > 0 then uo.waittargetobject("finditem") uo.UseSkill("Forensic Evaluation") wait(500) else uo.press(121) uo.findtype(target,-1,"ground") if uo.findcount() <= 0 then uo.findtype(targett,-1,"ground") endif if uo.findcount() > 0 then uo.Attack("finditem") endif wait(20000) endif goto forens end sub