[@wodewill]

Данный скрипт при запуске начинает вместо +1 +2 +3 руды капать руду +4
Вам больше ненадо ловить пакеты и посылать их..просто берёте капалку и встаете капать)
Запуск /Mine START
Останов /Mine STOP
Тип - FS
Скрипт для фришек 2.2.3(С обвязкой ФГ)

PHP код:

/ Скрипт копание +4 руды в шахте
// Запуск              /Mine START
// Останов             /Mine STOP
var start,stop,name,Charname,bodypart,dmgmsg,atkmsg1,atkmsg2,atkmsg3,FNameStat:string;
    PID,le,startl,stopl,namel,CharID:integer;
    flag:boolean;
    buf:string;
Procedure MsgInfo(msg : string);
begin
     gSys.EnSendC(FormatPck('%hhchhachahh',***91;$0027,$0A02,05,$0F3C,$0000,'***91;!***93;'+FStr(16),Length(msg) + 2,$203A,msg+#0,$0004,$0000***93;));

end;

procedure OnCreate;
begin

     le:=25;
     start:='START';
     startl:=length(start);
     stop:='STOP';
     stopl:=length(stop);
     name:='Mine';
     namel:=length(name);
     flag:=false;
end;

BEGIN
     if length(_gBuff) < 4 then exit;
     PID := GInt(_gBuff,5,2);
     if not (_gFromServ) then
     case PID of

           $0302: begin
                   if strcmp(copy(_gBuff,7,namel),name,) then
                   begin
                        if strcmp(copy(_gBuff,le,startl),start) then
                        begin
                             flag:=true;
                             MsgInfo('Mine +4 запущен');
                        end;
                        if strcmp(copy(_gBuff,le,stopl),stop) then
                        begin
                             flag:=false;

                             MsgInfo('Mine +4 остановлен');
                        end;
                        gBlockPacket;
                   end;
                  end;
           $010E: if flag then
                  begin
                   begin
                    buf:=copy(_gBuff,1,7)+HStr('11')+copy(_gBuff,9,14);
                   _gOutBuff:=buf;
                   end;
                  end;
     end;
   END. 


Оно же для серверов без обвязки ФГ(требует проверки)

PHP код:

// Скрипт копание +4 руды в шахте
// Запуск              /Mine START
// Останов             /Mine STOP
var start,stop,name,Charname,bodypart,dmgmsg,atkmsg1,atkmsg2,atkmsg3,FNameStat:string;
    PID,le,startl,stopl,namel,CharID:integer;
    flag:boolean;
    buf:string;
Procedure MsgInfo(msg : string);
begin
     gSys.EnSendC(FormatPck('%hchhacha',***91;$0A02,05,$0F3C,$0000,'***91;!***93;'+FStr(16),Length(msg) + 2,$203A,msg+#0***93;));

end;

procedure OnCreate;
begin

     le:=23;
     start:='START';
     startl:=length(start);
     stop:='STOP';
     stopl:=length(stop);
     name:='Mine';
     namel:=length(name);
     flag:=false;
end;

BEGIN
     if length(_gBuff) < 4 then exit;
     PID := GInt(_gBuff,3,2);
     if not (_gFromServ) then
     case PID of

           $0302: begin
                   if strcmp(copy(_gBuff,5,namel),name,) then
                   begin
                        if strcmp(copy(_gBuff,le,startl),start) then
                        begin
                             flag:=true;
                             MsgInfo('Mine +4 запущен');
                        end;
                        if strcmp(copy(_gBuff,le,stopl),stop) then
                        begin
                             flag:=false;

                             MsgInfo('Mine +4 остановлен');
                        end;
                        gBlockPacket;
                   end;
                  end;
           $010E: if flag then
                  begin
                   begin
                    buf:=copy(_gBuff,1,5)+HStr('11')+copy(_gBuff,7,99);
                   _gOutBuff:=buf;
                   end;
                  end;
     end;
   END. 


На некоторых серверах фикс.

[@santabarbara]

а как понять с обвязкой ФГ и без ?

и где робит ?

[@Ctac]

а скорость как при обычной копке?

[@wodewill]

Сообщение от fa_fa_fa

а как понять с обвязкой ФГ и без ?

и где робит ?

Например все фришки 2.2.3 имеют вначале на 2 и в конце на 4байта больше.
На сколько мне известно в 2.1.5 и 2.1.6 этих байт нету.

Добавлено через 13 секунд
Робит на 95% фришек.

Добавлено через 1 минуту
Добавил скрин.

Добавлено через 6 минут

Сообщение от ctac

а скорость как при обычной копке?

Да, скорость точна такая же как капаешь руду,

[@santabarbara]

где достать WPF ?

[@wodewill]

тут))

[@dark]

wodewill +30 постов

[@BlowUminD]

Сообщение от dark

wodewill +30 постов

За то что ТС нагло скопипастил скрипт из этой темы, не ставя копирайты. Какой там, он даже переменные

bodypart,dmgmsg,atkmsg1,atkmsg2,atkmsg3,FNameStat

неудосужился убрать. За замену одного байта давать 30 постов?

[@dark]

Сообщение от BlowUminD

За то что ТС нагло скопипастил скрипт из этой темы, не ставя копирайты. Какой там, он даже переменные

bodypart,dmgmsg,atkmsg1,atkmsg2,atkmsg3,FNameStat

неудосужился убрать. За замену одного байта давать 30 постов?

мда, наглый на*б

[@wodewill]

Сообщение от blowumind

За то что ТС нагло скопипастил скрипт из этой темы, не ставя копирайты. Какой там, он даже переменные

bodypart,dmgmsg,atkmsg1,atkmsg2,atkmsg3,fnamestat

неудосужился убрать. За замену одного байта давать 30 постов?

Сообщение от dark

мда, наглый на*б

Как бы...для всех работ испольюеться какойто "шаблон"
Как и в реальной жизни так и в интернете. Так же как и все.
Вы же не пересчитываете синусы всех углов при решение той или иной задачи, вы откроете таблицу брадиса. А в итогде будете указывать её как вспомогательную литературу?
Готовя еду вы сами выбираете какие продукты засунуть в то или иное блюдо?)
Делая моды для РФ никто не указывает -автора програмы,автора изначальных текстур.
Написав что то либо сказав вы же не ставите копирайты кирила и мифодия?

Сообщение от blowumind

За замену одного байта давать 30 постов?

Ты хочешь сказать что скрипт не рабочий? Или кто то уже выложил что то подобное ранее? Или ты считаешь что легче самому поймать пакет, переделать его.

И твой скрипт сделан без ФГ. Я же не выкладываю твой скрипт хотя я его тоже переписал для фришек 2.2.3 и успешно пользуюсь. Хоть и пришлось поковыряться, самому ловить все эти пакеты и на основе их и твоего скрипта делать свой.