[Помогите!] Сбор

[Mr.Phoenix]

Здравствуйте, есть рабочии скрипты\читы на прокачку сбора? (Энерго\Эфиро кинезы)

На сервер 2.7.

Если да, то киньте пожалуйста сылку.


С меня спасибка и весы.

[god666dead]

Цитата: Сообщение от Mr.Phoenix Здравствуйте, есть рабочии скрипты\читы на прокачку сбора? (Энерго\Эфиро кинезы) На сервер 2.7. Если да, то киньте пожалуйста сылку. С меня спасибка и весы.

http://zhyk.ru/forum/showpost.php?p=...0&postcount=71

[Mr.Phoenix]

Цитата: Сообщение от god666dead http://zhyk.ru/forum/showpost.php?p=...0&postcount=71

Сообщение форума
Сообщение не существует или не указан идентификатор (номер). Если вы уверены, что использовали правильную ссылку, свяжитесь с администрацией

Вот это мне выдаёт при переходе по вашей сылки.

[happytorn]

Цитата: Сообщение от Mr.Phoenix Здравствуйте, есть рабочии скрипты\читы на прокачку сбора? (Энерго\Эфиро кинезы) На сервер 2.7. Если да, то киньте пожалуйста сылку. С меня спасибка и весы.

Активируется эмоцией улыбка

var 
IdRes,i,b:integer;

begin
//проверяем пакет
    if FromClient  then
    case pck[1] of
//узнаем иди ресурса
    #$ce: 
         begin   
            IdRes:=readD(6);
        end;
        //ловим пакет на эмоцию улыбка
    #$c2: 
         begin
            if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
                begin 
                 b:=IdRes;  
                 //собираем пакет и при каждом повторении к иди ресурса добавляем 1
                 For i:=1 to 30 do  
                 begin 
                    buf:=hstr('CE 00 57 6D FF');
                    writed(b);
                    buf:=buf+#$00;
                    sendtoserver; 
                    buf:=hstr('BA 00 57 79 FF 00 00 00 00');
                    sendtoserver; 
                    b:=b+1; 
                 end;
                 
                end; 
            
        end;

  
    end;
end.

[Mr.Phoenix]

Цитата: Сообщение от happytorn Активируется эмоцией улыбка var IdRes,i,b:integer; begin //проверяем пакет if FromClient then case pck[1] of //узнаем иди ресурса #$ce: begin IdRes:=readD(6); end; //ловим пакет на эмоцию улыбка #$c2: begin if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then begin b:=IdRes; //собираем пакет и при каждом повторении к иди ресурса добавляем 1 For i:=1 to 30 do begin buf:=hstr('CE 00 57 6D FF'); writed(b); buf:=buf+#$00; sendtoserver; buf:=hstr('BA 00 57 79 FF 00 00 00 00'); sendtoserver; b:=b+1; end; end; end; end; end.

Можно по подробней, что он собирает и к какому ресурсу садится и тд?

Я включил его. Подошёл в альтгарде к ресурсу Конидэ, нажал улыбка. 0 реакции.

[happytorn]

Цитата: Сообщение от Mr.Phoenix Можно по подробней, что он собирает и к какому ресурсу садится и тд? Я включил его. Подошёл в альтгарде к ресурсу Конидэ, нажал улыбка. 0 реакции.

Сначала возьми в таргет любой ресурс,а затем уже нажимай эмоцию.

[Mr.Phoenix]

Цитата: Сообщение от happytorn Сначала возьми в таргет любой ресурс,а затем уже нажимай эмоцию.

Делал так. Взял в таргет Кониде. Нажал эмоцию. В пакетники выскочили пакеты,но сбор не идёт и не прокачивается.

[happytorn]

Цитата: Сообщение от Mr.Phoenix Делал так. Взял в таргет Кониде. Нажал эмоцию. В пакетники выскочили пакеты,но сбор не идёт и не прокачивается.

На каком сервере тестил?Уровень мастерства соответствует собираемому ресурсу?Я только что проверял на aion1,собирает без проблем.

[Mr.Phoenix]

Цитата: Сообщение от happytorn На каком сервере тестил?Уровень мастерства соответствует собираемому ресурсу?Я только что проверял на aion1,собирает без проблем.

Сервер местный(Томский) Фактори, его в ммотопе нету. Сборка там стоит Кнайтов 2.7.

[happytorn]

Цитата: Сообщение от Mr.Phoenix Сервер местный(Томский) Фактори, его в ммотопе нету. Сборка там стоит Кнайтов 2.7.

Посмотри в пакетнике какой пакет идет при взятии в таргет(должно начинаться на CE) и пакет на сам сбор(должно начинаться на BA). И напиши сюда оба пакета.

[deyvel]

anyone know the 3.0 packets for this script?

var
IdRes,i,b:integer;

begin

if FromClient then
case pck[1] of

#$ce:
begin
IdRes:=readD(6);
end;

#$c2:
begin
if pck=HStr('C2 00 57 61 FF 15 1C 00 00 00 00 00') then
begin
b:=IdRes;

For i:=1 to 500 do
begin
buf:=hstr('CE 00 57 6D FF');
writed (b);
buf:=buf+#$00;
sendtoserver;
buf:=hstr('BA 00 57 79 FF 00 00 00 00');
sendtoserver;
b:=b+1;
end;

end;

end;

end;

end.