Yoko
http://forum.yoko.com.ua/

Injection + Perl
http://forum.yoko.com.ua/viewtopic.php?f=12&t=7198		 Page 21 of 22
Author:  omi4 [ 2008-10-15 19:25:47 ]
Post subject: 
У каждого языка есть назначение, перл на роль встроенного языка никогда не претендовал.

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

backpack + item или backpack - item
для всех бред, но тут то все поняли что написано
Author:  Grin [ 2008-10-15 19:36:25 ]
Post subject: 
перл выбирался с прикладной точки зрения:)
Очень много приходилось обрабатывать текста как журнал так и инфо гампы и тд:) перл как неьзя все это сжал до нельзя:) а какие там чудеса со словарями можно делать... ммм:)
Author:  omi4 [ 2008-10-16 18:15:18 ]
Post subject: 
Пробовал прилеплять инже кучу языков и язычков, нихрена не меняет это. Это же продемонстрировал пининжект.
Ну есть в Перле регулярные выражения и кучка команд для работы с текстом, принципиально то тоже самое. Куда большую свободу даст язык, заточенный на манипулирование всем как объектами. Причем он может быть и простым. Пример тому сфера с ее скриптами.
Author:  Destruction [ 2008-10-16 18:40:29 ]
Post subject: 
Эмм, UOX тоже неплохой пример.. получше сферы даже -)
Author:  admir [ 2008-12-12 18:02:25 ]
Post subject: 
Perl Супер язык. немного сложновато было разобратся в его регулярных выражениях. Но когда просек что к чему то код ужимался и упрощался в разы.
Я бы с удовольствием увидел Стелс клиент, инжект и изи уо на перле!
А главное быстрый парсер.

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

Единственное НО - крашило редко но регулярно.
Поэтому пришлось отказатся от него, ибо инжект работал больше суток а перл стабильно недотягивал :(
Author:  Sanch [ 2009-02-17 14:33:14 ]
Post subject: 
Кто нить может дать ссылку на нынешний форум по Pinject'у
Author:  korzh [ 2009-03-07 22:21:00 ]
Post subject: 
А кто пробовал играть на пинжекте на абисе? Фигня просто в регулярных крашах ( каждые 40-70 минут ) на пимитивных макросах, не говоря уже о каких-то более сложных вещах. Если кто-нибудь что-нибудь может посоветовать, было бы круто ;)
ЗЫ На пвп альфе все айс было
ЗЗЫ Даже и без макросов, просто крашит :(
Author:  Destruction [ 2009-04-08 00:56:40 ]
Post subject: 
Не работает.. Чего делать ? :)

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

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

Примерно такой скрипт:
Code:
sub main{
    uo::print("Hello World");
}


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

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

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

Help me please..
Author:  iRuLez [ 2009-09-26 13:36:13 ]
Post subject: 
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:
$ 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:
[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?
Author:  CuHTpoH [ 2009-10-03 17:18:35 ]
Post subject: 
народ, ктонить еще жив остался кто участвовал в проекте?
откликнитесь, подскажите почему процедуры не исполняются?
проблема такая же как у дестракшна
Author:  CuHTpoH [ 2009-10-08 18:59:34 ]
Post subject: 
все проблема определена и разрешена частично:
не загружается перловый скрипт.длл если используется 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
Author:  CuHTpoH [ 2009-12-06 02:27:24 ]
Post subject: 
ктонить еще юзает эту тему кроме меня? если есть у кого вопросы по перлу могу помочь, кое чо подучил

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

Unknown command: АБХЧПВГЛБРБРБРБР всякая дребедень, это если например вдавить кнопку с макром на пару сек, ну и краши после этого есессно..
Author:  CuHTpoH [ 2010-04-02 22:14:18 ]
Post subject:  Re: Injection + Perl
Продублирую, т.к. вся инфа разрознена..

Destruction wrote:
http://perl-inject.ultimasoft.ru/
Пользуйтесь.
Author:  Destruction [ 2010-04-08 00:03:02 ]
Post subject:  Re: Injection + Perl
CuHTpoH wrote:
Продублирую, т.к. вся инфа разрознена..

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

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

Удалять порядком надоело, фиксить лень.
Author:  Runer [ 2010-05-24 20:12:16 ]
Post subject:  Re:
Grin wrote:
Полнеценый Перл со всеми вытекающими последствиями;) (Хоть вирусы ньюбам пишите%))))

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



А как полноценный перл можно использовать в УО? Там же нет функций для УО, для передвижения предметов.
Author:  CuHTpoH [ 2010-08-12 18:56:37 ]
Post subject:  Re: Injection + Perl
там есть почти всё что нужно


а к http://perl-inject.ultimasoft.ru/ нет доступа:
phpBB : Critical Error
Could not connect to the database
Author:  Mirage [ 2010-08-14 22:25:54 ]
Post subject:  Re: Injection + Perl
видимо проект опять перестали поддерживать и Дестракшен хост забросил.
Author:  Blood Slayer [ 2010-12-14 01:03:06 ]
Post subject:  Re: Injection + Perl
Опять некрофилия, но все же.
1. перл не нравится изза - {}
2. перечитал про перл все тчо мог, не получается писать скрипты - дайте живой пример с описанием.
3. просто по фану - 1С:русс :) ЕслиДебит то кредит :)))

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

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


Было бы занятно посмотреть :)
Author:  Sirocco [ 2010-12-14 08:23:28 ]
Post subject:  Re: Injection + Perl
Code:
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:
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!");
   }
}
Author:  Mirage [ 2010-12-14 11:42:59 ]
Post subject:  Re: Injection + Perl
Вот так ИМХО нагляднее будет (если заработает :roll: )
Code:
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!");
         }
   }


А насчет русского
Blood Slayer wrote:
Было бы занятно посмотреть :)

у нас на форуме то безграмотно пишут. Как писать проги на языке у которого столько склонений спряжений и смысловых фразооборотов?
Нафига дофига нафигарили? Отфигачивайте нафиг!
Так что имхо уж лучше учить инглишь - пригодится общаться с буржуинами.
Page 21 of 22 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/