Скрипт заточки одной стопкой блесок, одного предмета.

[kpa9pt]

Вдруг кому понадобиться.

PHP код:

//Script Авто заточки одного предмета блесками до нужного уровня.
//FAQ:
//Вписываем имя, нажимаем соц. действие Victory и включаеться запись пакетов: юзаем точку, выбираем предмет, жмём точить.
//Выключаем соц. действием Advance запись пакетов.
//Соц. действием Yes включаеться автозаточка этой стопкой точек, этого предмета до нужного уровня. Соц. действие No останавливает скрипт.

//Created by JealouS 06.09.12

const
    name='name';
    Enchant=16;
var
    CurrentEnch
        :integer;
    stepOFEnch:integer;
    UseItem,SelectItem,EnchantItem
        :string;
    recordb:boolean; 
    Timer01:TTimer;   
procedure Init; //Вызывается при включении скрипта
begin
    CurrentEnch:=0;
    stepOFEnch:=0;
    UseItem:='';
    SelectItem:='';
    EnchantItem:='';
    recordb:=false;;
    
    Timer01:=TTimer.Create(nil);
    Timer01.OnTimer:=@OnTimer01;
    Timer01.enabled:=false;
    Timer01.interval:=2000;
end;

procedure Free; //Вызывается при выключении скрипта
begin
    Timer01.enabled:=false;
end;

procedure MsgSend(Msg:string);
    begin
        buf:=#$4A;
        WriteD(0);
        WriteD(10);
        WriteS('');
        buf:=buf+#$FF#$FF#$FF#$FF;
        WriteS(Msg);
        SendToClientEx(Name);    
    end;

procedure OnTimer01(Sender:Tobject);
    begin
        while CurrentEnch<Enchant do
            begin
                case stepOfEnch of
                    0:
                        begin
                            SendPacket(UseItem);
                            inc(stepOfEnch);
                        end;
                    1:
                        begin
                            SendPacket(SelectItem);
                            inc(stepOfEnch);
                        end;
                    2:
                        begin
                            SendPacket(EnchantItem);
                            inc(stepOfEnch,-2);
                        end;
                end;
            
                exit;
            end;
        MsgSend('Поход точнулось');
        Timer01.enabled:=false;    
    end;

procedure SendPacket(packet:string);
    begin
        buf:=packet;
        SendToServerEx(name);
    end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
    if fromclient and (connectname=name) then
        begin
            case pck[1] of
                #$56:
                    begin
                        case Readd(2) of
                            13://Social action Victory
                                begin
                                    recordb:=true;
                                    MsgSend('Запись пакетов включена');
                                    pck:='';
                                end;
                            14://Social action Advance
                                begin
                                    recordb:=false; 
                                    MsgSend('Запись пакетов выключена');
                                    pck:='';
                                end;
                            24://Social action Yes
                                begin
                                    stepOfEnch:=0;
                                    Timer01.enabled:=true;
                                    MsgSend('Авто точение включено');
                                    pck:='';                                        
                                end;
                            25://Social action No
                                begin
                                    stepOfEnch:=0;
                                    Timer01.enabled:=false;
                                    MsgSend('Авто точение выключено'); 
                                    pck:='';                                   
                                end;
                        end;
                    end;
                #$19:
                    begin
                        if recordb then
                            begin
                                UseItem:=pck;
                                MsgSend('Заточка определена');
                            end;
                    end;
                #$D0:
                    begin
                        if recordb then
                            begin
                                SelectItem:=pck;
                                MsgSend('Предмет выбран');
                            end;
                    end;
                #$5F:
                    begin
                        if recordb then
                            begin
                                EnchantItem:=pck;
                                if (UseItem<>'') and (SelectItem<>'') then
                                    begin                                
                                        MsgSend('Готов точить');
                                    end
                            end;                        
                    end;
            end;
        end; 
    if fromserver and (connectname=name) then
        begin
            case pck[1] of
                #$87:
                    begin
                        case Readd(2) of
                            0:
                                begin
                                    CurrentEnch:=CurrentEnch+1;
                                end;                            
                            3:
                                begin
                                    CurrentEnch:=0;
                                end;
                        end;
                    end;
            end;
        end;   
end.