Injection + Perl

[omi4]

У каждого языка есть назначение, перл на роль встроенного языка никогда не претендовал.

конструкции языка затрачивают под задачи

backpack + item или backpack - item
для всех бред, но тут то все поняли что написано

[Grin]

перл выбирался с прикладной точки зрения:)
Очень много приходилось обрабатывать текста как журнал так и инфо гампы и тд:) перл как неьзя все это сжал до нельзя:) а какие там чудеса со словарями можно делать... ммм:)

[omi4]

Пробовал прилеплять инже кучу языков и язычков, нихрена не меняет это. Это же продемонстрировал пининжект.
Ну есть в Перле регулярные выражения и кучка команд для работы с текстом, принципиально то тоже самое. Куда большую свободу даст язык, заточенный на манипулирование всем как объектами. Причем он может быть и простым. Пример тому сфера с ее скриптами.

[Destruction]

Эмм, UOX тоже неплохой пример.. получше сферы даже -)

[admir]

Perl Супер язык. немного сложновато было разобратся в его регулярных выражениях. Но когда просек что к чему то код ужимался и упрощался в разы.
Я бы с удовольствием увидел Стелс клиент, инжект и изи уо на перле!
А главное быстрый парсер.

Скрипты частично остались у меня.
Примеры с патфайндом, трейсом и другие фишки.

Единственное НО - крашило редко но регулярно.
Поэтому пришлось отказатся от него, ибо инжект работал больше суток а перл стабильно недотягивал

[Sanch]

Кто нить может дать ссылку на нынешний форум по Pinject'у

[korzh]

А кто пробовал играть на пинжекте на абисе? Фигня просто в регулярных крашах ( каждые 40-70 минут ) на пимитивных макросах, не говоря уже о каких-то более сложных вещах. Если кто-нибудь что-нибудь может посоветовать, было бы круто
ЗЫ На пвп альфе все айс было
ЗЗЫ Даже и без макросов, просто крашит

[Destruction]

Не работает.. Чего делать ?

Сделал все, казалось бы - как положено.

В данный момент:
Практически оригинальный дистрибутив UO:Renaissance, чистый клиент 2.0.3, все файлы свалены в папку с UO (сначала пробовал сделать все нормально).

Примерно такой скрипт:

Code: Select all

sub main{
    uo::print("Hello World");
}

Жму на кнопку - ноль эмоций, в логе пусто... Вернее скрипт появляется в списке на долю секунды и тут же пропадает..

Кто-нибудь на XP x64 запускать пробовал ?

PS: Надо вам было все это делать, пока я фактически не играл в UO

Help me please..

[iRuLez]

i have try to install inj-perl undex linux, but i dont see tab of script ...see image
http://kallsu.altervista.org/injection_ ... isible.jpg
i have donwload all files in the first post of Grin. The files downloaded are:
- ActivePerl-5.10.0.1003-MSWin32-x86-285500.msi
- rtl60.zip (rtl60.bpl)
- script.zip (script.dll, config.ini)
- vlc60.zip (vlc60.bpl)

i have install ActivePerl-5.10.0.1003-MSWin32-x86-285500.msi under wine (versione is wine-1.0)
command for install is this:

Code: Select all

$ msiexec /i /home/sidus/Scrivania/ActivePerl-5.10.0.1003-MSWin32-x86-285500.msi

i have insert vlc60.bpl and rtl60.bpl into C:\windows\system32
script.dll into directory of injection
and config.ini put in directory of uo

confing.ini contains this

Code: Select all

[Func]
Trace=4875568
Pathfind=4679456
Uomacro=4666864
Tile=4231552
Help=4644304

Maybe downloaded files have been downloaded bad

vcl60.zip size is 1,3 MB
script.dll size is 311,0 kb
config.ini size is 84 byte
rtl60.zip size is 257,6 kB

Where is my error?
someone has try to install inj-perl undex linux?

[CuHTpoH]

народ, ктонить еще жив остался кто участвовал в проекте?
откликнитесь, подскажите почему процедуры не исполняются?
проблема такая же как у дестракшна

[CuHTpoH]

все проблема определена и разрешена частично:
не загружается перловый скрипт.длл если используется LowCPU написанный Грином.

Как уже писал Грин где то и когда, фактически, его патч прописывает в клиенте подрузку не стандартной advapi библиотеки а speedup.dll, которая грузит hook и т.д.

Поэтому нужно применить такие изменения по отношению к клиенту, которые бы не мешали работе перловому script.dll

Каково же было мое удивление, когда изучив изменения, сделанные мастерами с Абисса в стандартном клиенте 1.26.4a, я понял что они направлены на понижение нагрузки ЦПУ в этом клиенте, причем если воспользоваться дизассемблированием то можно самостоятельно применить данные изменения и к 1.26.4b.

К сожалению в клиенте 2.0.3 уже прилично отличается структура процедур, и там лично я не могу разобраться как понизить нагрузку. Про старшие клиенты я вообще молчу. Так что пока великие умы обитающие на этом форуме не помогут, довольствоваться перлом и в то же время низкой нагрузкой на проц могут те кто сидит на старом клиенте.

Я выкладываю ссылку на клиент 1.26.4а с абисса (с единственным изменением - подгружается не abyss.dll а стандартная advapi.dll), в котором сделаны следующие обнаруженные мной изменения по сравнению со стандартным клиентом 1.26.4a:
1) мультклиент
2) толкает чаров если стамина = дексе или стамина > дексы (на ФВ например тотал рефреш может дать стамины больше чем дексы, и можно толкнуть ~3 человек подряд)
3) понижение нагрузки на процессор почти до нуля
4) подмена версии в экране логина под 1.26.4b (хз влияет ли это на отправку версии на сервер или нет, лучше продолжайте юзать галку version в инжекте чтоб не спалили)
Еще раз повторю, с ним можно запустить PERL script.dll с низкой загрузкой CPU.

Внимание!!! У кого то может не работать Perl с версией клиента ниже 2.0.3 или с инжектом выше 312!!!

ссылка: http://ifolder.ru/14392744
пароль: fuckslyboots

[CuHTpoH]

ктонить еще юзает эту тему кроме меня? если есть у кого вопросы по перлу могу помочь, кое чо подучил

Тока вот раздражают эти хреновы ошибки типа

Unknown command: АБХЧПВГЛБРБРБРБР всякая дребедень, это если например вдавить кнопку с макром на пару сек, ну и краши после этого есессно..

[CuHTpoH]

Продублирую, т.к. вся инфа разрознена..

http://perl-inject.ultimasoft.ru/
Пользуйтесь.

[Destruction]

Продублирую, т.к. вся инфа разрознена..

http://perl-inject.ultimasoft.ru/
Пользуйтесь.

Еще бы там не только спамеры отписывались.

Удалять порядком надоело, фиксить лень.

[Runer]

Полнеценый Перл со всеми вытекающими последствиями;) (Хоть вирусы ньюбам пишите%))))

Стабильность (Все ошибка будут на совести только родного интерпритатора перла);)

А как полноценный перл можно использовать в УО? Там же нет функций для УО, для передвижения предметов.

[CuHTpoH]

там есть почти всё что нужно


а к http://perl-inject.ultimasoft.ru/ нет доступа:
phpBB : Critical Error
Could not connect to the database

[Mirage]

видимо проект опять перестали поддерживать и Дестракшен хост забросил.

[Blood Slayer]

Опять некрофилия, но все же.
1. перл не нравится изза - {}
2. перечитал про перл все тчо мог, не получается писать скрипты - дайте живой пример с описанием.
3. просто по фану - 1С:русс ЕслиДебит то кредит ))

Вот по пункту номер 3, думаю былобы больше зверей которые использовали инжект, если бы там были все на русском. Ну к примеру:

Code: Select all

саб тест()
Параметр =''
Если Уо.НаЗемлеНайдено( Параметр ) то
       Уо.Использовать(Параметр)
КонецУсловия
КонецСаб

Было бы занятно посмотреть

[Sirocco]

Code: Select all

sub drinkrefresh() {
   $RefresType = 0x0F0B;
   $RefreshColor = 0x0000;
   if (uo::stamina() eq uo::dex()) { 
      uo::print(" !!! -= Refresh already =- !!! ");
      return;
   }
   uo::findtype($RefresType,$RefreshColor,'my');
   if (uo::getquantity('finditem')) {
      uo::usetype($RefresType,$RefreshColor);
      uo::print("Drink Refresh!");
   } else {
      uo::print("Refresh is Out!");
   }
}

Code: Select all

sub castlast() {
   $scroll = $_[0];
   $magic = $_[1];
   $target = $_[2];
   uo::findtype($scroll,-1,'my');
   if (uo::getquantity('finditem')) {
      uo::waittargetobject($target);
      uo::useobject('finditem');
      uo::print("#Scroll " . $magic . "#");
   } else {
      uo::cast($magic,$target);
      uo::print("#Spell " . $magic . "#");
   }
}

sub scroll_poison() {
   $target = 'laststatus';
   $sPoison = 0x1F40 ; # Тип Poison скролов
   if (!uo::poisoned($target)) {
      &castlast($sPoison,'Poison',$target);
   } else {
      uo::print("Character already poisoned!");
   }
}

[Mirage]

Вот так ИМХО нагляднее будет (если заработает )

Code: Select all

sub drinkrefresh()
   {
   $RefresType = 0x0F0B;
   $RefreshColor = 0x0000;
   if (uo::stamina() eq uo::dex()) 
      {
      uo::print(" !!! -= Refresh already =- !!! ");
      return;
      }
      uo::findtype($RefresType,$RefreshColor,'my');
      if (uo::getquantity('finditem')) 
         {
         uo::usetype($RefresType,$RefreshColor);
         uo::print("Drink Refresh!");
         }
      else 
         {
         uo::print("Refresh is Out!");
         }
   }

А насчет русского

Было бы занятно посмотреть

у нас на форуме то безграмотно пишут. Как писать проги на языке у которого столько склонений спряжений и смысловых фразооборотов?
Нафига дофига нафигарили? Отфигачивайте нафиг!
Так что имхо уж лучше учить инглишь - пригодится общаться с буржуинами.