[Скрипт] Дюп через склад [Архив]

c-lavr

01.04.2012, 23:10

наконец готов дюп)

1. Включаем скрипт до выбора перса.
2. Открываем склад и 1 раз нажимаем на ту вещь, которую хотите дюпнуть
2. В чате пишите команду don - начало дюпа
3. Как у вас в инвентаре наберется нужное количество дюпа, вводим команду в чат dof

Сам скрипт:

var
Timer:TTimer;
i,a:integer;
info,name,nah:string;
control:boolean;

procedure Init;
begin
a:=1;
nah:= HStr('16 00 54 D5 FF 22 00 00 00 00 00 00 00');
control:=false;
Timer:=TTimer.Create(nil);
Timer.OnTimer:=@OnTimer;
Timer.enabled:=false;
Timer.interval:=10000;
end;

procedure Free;
begin
Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
case a of
1:
begin
buf := nah+HStr('41 00 64 00 6D 00 69 00 6E 00 3A 00 20 00 12 04 3D 04 38 04 3C 04 30 04 3D 04 38 04 35 04 20 00 2C 00 32 04 30 04 48 04 4C 04 20 00 30 04 3A 04 3A 04 43 04 30 04 3D 04 42 04 20 00 37 04 30 04 31 04 3B 04 3E 04 3A 04 38 04 40 04 3E 04 32 04 30 04 3D 04 20 00 3F 04 3E 04 20 00 3F 04 40 04 38 04 47 04 38 04 3D 04 35 04 20 00 2D 00 20 00 14 04 4E 04 3F 04 20 00 32 04 35 04 49 04 35 04 39 04 00 00');
SendToClientEx(name);

Inc(a);
end;
2:
begin
buf := nah+HStr('41 00 64 00 6D 00 69 00 6E 00 3A 00 20 00 25 04 30 04 40 04 30 04 3A 04 42 04 35 04 40 04 38 04 41 04 42 04 38 04 3A 04 38 04 20 00 3F 04 35 04 40 04 41 04 3E 04 3D 04 30 04 36 04 30 04 20 00 3F 04 3E 04 3B 04 3D 04 3E 04 41 04 42 04 4C 04 4E 04 20 00 3E 04 31 04 3D 04 43 04 3B 04 35 04 3D 04 4B 04 00 00');
SendToClientEx(name);
buf:=info;
SendToClientEx(name);
Timer.interval:=80000;
Inc(a);
end;
3:
begin
buf := nah+HStr('43 00 4C 00 41 00 56 00 52 00 3A 00 20 00 21 04 20 00 3F 04 40 04 3E 04 48 04 35 04 34 04 48 04 38 04 3C 04 20 00 31 00 20 00 30 04 3F 04 40 04 35 04 3B 04 4F 04 29 00 29 00 29 00 20 00 3F 04 3E 04 3C 04 30 04 33 04 30 04 35 04 3C 04 20 00 48 04 43 04 42 04 38 04 42 04 4C 04 20 00 3D 04 30 04 34 04 20 00 34 04 40 04 43 04 33 04 38 04 3C 04 38 04 00 00');
SendToClientEx(name);
Timer.interval:=10000;
Timer.enabled:=false;
a:=1;
end;

end;
end;

begin

if FromClient and (ReadC(1) = $9F) then
name:=ConnectName;

if FromServer and (ReadC(1)=$01) then
begin
buf:='';
For i:= 1 to 13 do
buf:=buf+pck[i];
For i:= 14 to 50 do
if i=38 then
buf:=buf+HStr('01')
else buf:=buf+HStr('00');
For i:= 50 to 100 do
buf:=buf+pck[i];
For i:= 101 to Length(pck) do
buf:=buf+pck[i];;
info:=buf;
if control then
begin
sendtoClient;
pck:='';
end;
end;

if FromClient and control and (ReadC(1) = $CE) then
begin
buf := nah+HStr('10 04 39 04 2C 00 20 00 3D 04 35 04 20 00 42 04 40 04 3E 04 33 04 30 04 39 04 20 00 3C 04 35 04 3D 04 4F 04 00 00');
sendtoClient;
end;

if FromClient and (ReadC(1)=$B2) then
case ReadS(7) of
'don':
begin
control:=True;
Timer.enabled:=True;
pck:='';
end;
'dof':
begin
buf:=nah+HStr('43 00 4C 00 41 00 56 00 52 00 3A 00 20 00 10 04 20 00 32 04 3E 04 42 04 20 00 42 04 35 04 3F 04 35 04 40 04 4C 04 20 00 32 04 41 04 35 04 20 00 34 04 30 04 3D 04 3D 04 4B 04 35 04 20 00 3F 04 35 04 40 04 41 04 30 04 20 00 3F 04 3E 04 3B 04 3D 04 3E 04 41 04 42 04 4C 04 4E 04 20 00 43 04 3D 04 38 04 47 04 42 04 3E 04 36 04 35 04 3D 04 4B 04 20 00 2D 00 20 00 3F 04 40 04 3E 04 41 04 4C 04 31 04 30 04 20 00 30 04 34 04 3C 04 38 04 3D 04 3E 04 32 04 00 00 ');
sendtoclient;
pck:='';
end;
end;
end.

P.S. Если рядом появляется администрация, то просто берем кого-угодно в таргет - и пакеты для администрации идут, как будто от того, кто в таргете

RideWheel

01.04.2012, 23:22

Ты гений!))
Спасибо!!!
Все работает!!)) В принцепе как и все твои скрипты)))

gear47

01.04.2012, 23:29

это ты так пошутил??? надеюсь это был розыгрыш !!!!!

Добавлено через 4 минуты
отличный дюп спасибо тебе большое..

Clark148811

01.04.2012, 23:35

на нью айон не пашет делаю все по интрукции

uridimus

01.04.2012, 23:39

спасибо клавр ура дюп

russkiyej

01.04.2012, 23:56

на аварсе моментально в бан ))

trojan666

02.04.2012, 00:42

ёж ты на аварсе пробовал?

VasyaKu

02.04.2012, 01:32

Давно ждали! Спасибо:bayan:

trojan666

02.04.2012, 01:42

неа на аварсе пашет ваше куллл

stefan11123

02.04.2012, 02:14

получил бан на аварсе

androshka

02.04.2012, 02:19

Пробовал на аварсе. Бана не получил, но и эффекта нету) Мб я команду неправильно ввожу) Подскажите)

stefan11123

02.04.2012, 02:27

тоже самое пробую но пишет ваш ак забанен за дюп перезахожу все нормально и никакого эфекта

c-lavr

02.04.2012, 02:34

попробуйте подождать сек 80

androshka

02.04.2012, 02:47

Все бестолку) Просто тупо ничего не происходит) (Аварс)

c-lavr

02.04.2012, 02:59

подожди пару мин и все будет

stefan11123

02.04.2012, 03:00

счас попробую 2 мин отпишусь сразу

shadowst

02.04.2012, 03:04

aion-krasno - пашет)

stefan11123

02.04.2012, 03:04

все пашет)

androshka

02.04.2012, 03:16

Такс ну над шуткой поржал от души:)

mrak1998

02.04.2012, 03:22

Все работает, спс за скрипт.

pekopeko94

02.04.2012, 03:38

А есть гайд как юзать подобные скрипты?)

tyrto

02.04.2012, 06:47

слыш ты шутникк нормальный бы лучше дюп сделал!

Boomer7711

02.04.2012, 07:41

Все пашет на ура))))))

•Fresh•

02.04.2012, 09:54

Ребят, дак стоит дюпать на аварсе? Или сразу в бан!?

tyrto

02.04.2012, 10:00

да это не дюп! это балобольство к 1 апреля

celsi

02.04.2012, 10:31

Клавр тебе не подходит ) я и не использовал но знаю что это шутка. + сегодня не 1 апрель а 2 )

priest.nrts

02.04.2012, 11:59

ха ха ха :D

massterr

02.04.2012, 12:01

а куда скрипт надо сувать а то я первый раз начал в айоне читерить

hromik

02.04.2012, 12:09

а куда скрипт надо сувать а то я первый раз начал в айоне читерить

автоматизация-скрипты-создать новый скрипт-названия скрипту-выделяешь всё и вместо того что там будет вставляешь этот, потом сохраняешь

да шутка прикольная, да подожди сек даже не 80, а 30-40:)

Mark_

02.04.2012, 14:09

Так это шутка или реально дюп скажите ТОЛЬКО честно пожалуйста!

c-lavr

02.04.2012, 16:08

через 10 сек после ввода команды don
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
через 20 сек
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
приввода команды dof
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
через 80 сек
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
а это если кого-то взять в таргет)
[Ссылки могут видеть только зарегистрированные и активированные пользователи]

Всех с прошедшим праздником:ban:

fakiron

02.04.2012, 17:17

Прикольно))на изжогу сел вчера нормально))
Жаль рабочего нету дюпика щас)

510145

02.04.2012, 18:04

Меня забанили за дюп((
всего лишь в кепа на х1 оделся

talala

02.04.2012, 21:36

Так это шутка или реально дюп скажите ТОЛЬКО честно пожалуйста!
Почувствуй адреналин. Попробуй сам.

•Fresh•

02.04.2012, 21:44

Почувствуй адреналин. Попробуй сам.

Талалалик, ай шутник...

c-lavr

03.04.2012, 13:26

Почувствуй адреналин. Попробуй сам.

после всех коментов (а он еще и продалжает спрашивать:hd:) я думаю у него адреналин заменится мокрым стулом:ban:

koks1`3

03.04.2012, 17:01

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

Vi-RuS-77

03.04.2012, 17:05

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

Этот скрипт нужно скопировать и вставить в прогу, тем полно поищи.

koks1`3

03.04.2012, 17:09

И ещо одно пожалуйсто кто знает как открыть л2пх на ЮА напишите пожалуйсто в личку.

c-lavr

03.04.2012, 18:16

на юа сейчас не как. Там лаунчер стоит - его снова обновили, жди когда его снова взломают (ищи тему от Puzer)

sadist815

08.04.2012, 01:02

ты реально гений)))))) все отлично пашит)))
кому помог ставте спасибку