PickPickPick Суббота, 14.06.2025, 19:48
Приветствую Вас Гость | RSS
Главная | Каталог статей | Регистрация | Вход
Меню сайта


Категории раздела
Баги [34]
Сервера [0]

Наш опрос
Нужно ли выкладывать Install к играм на сайт?
[ Результаты · Архив опросов ]
Всего ответов: 29

Статистика
Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Статьи » Lineage » Баги [ Добавить статью ]
Наиболее полный список скриптов

Наиболее полный список скриптов

Cкрипты.
Block_gm:
//Блокируем RequestGMList
begin
if FromClient and (pck[1]=#$81) then pck:='';
end.

Admin_L2J:
//Set Builder
var
i:integer;
begin
if FromServer then if pck[1]=#$04 then
begin
i:=22;
ReadS(i);
i:=i+328;
buf:=pck;
WriteD(1,i);
pck:=buf;
end;
end.

Anit_Limit:
//Обход лимита 999 на покупку ;)
//Только магазины типа Magic Shop !!!
var
ICount,SCount,Add,i:integer;
ListID,ItemID:integer;
first:boolean=true;
max:integer=999;

const
hello='
Внимание!
'+
'

Скрипт применим только к магазинам, где за один раз '+
'возможно купить несколько различных предметов (Magic Shop и '+
'другие).

Установите в скрипте действующий на сервере '+
'лимит на покупку (переменная max)!
Значение по умолчанию:'+
' 999




' color="FF0000">[ hLaPEx ]
';

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(10);
WriteS('');
WriteS(msg);
SendToClient;
end;

begin
if FromServer then exit;
if (pck[1]=#$03) and (first) then
begin
first:=false;
buf:=#$0F;
WriteD(0);
WriteS(''+hello+'');
SendToClient;
end;
if pck[1]=#$1F then
begin
i:=2;
ListID:=ReadD(i);

if ReadD(i)<>1 then
begin
SendMsg('Используйте только один слот!');
exit;
end;
ItemID:=ReadD(i);
ICount:=ReadD(i);
SCount:=(ICount div max);
Add:=ICount mod max;
if Add>0 then inc(SCount);
if SCount>200 then
begin
SendMsg('Максимум '+IntToStr(200*max)+' штук!');
exit;
end;
buf:=#$1F;
WriteD(ListID);
WriteD(SCount);
for i:=1 to (ICount div max) do
begin
WriteD(ItemID);
WriteD(max);
end;
if Add>0 then
begin
WriteD(ItemID);
WriteD(Add);
end;
pck:=buf;
if SCount>1 then SendMsg('Пакет модифицирован ;)');
end;
end.

Auto_drop:
// скрипт дропа вещей. q2zx(c).
if _gAbsNumPkt = 1 then begin // Первый пакет, здесь один раз за всю сессию установим переменные...
Flag3:=0;
Flag2:=0;
Flag1:=0;
Flag4:=0;
Flag5:=0;
recv:=HPck('0F');
end;

if _gFromServ = true then begin
if _gbuff[3] = #$15 then begin // если 3 байты пакета равны 15
x:=copy(_gbuff,54,4);
y:=copy(_gbuff,58,4);
z:=copy(_gbuff,62,4);
WritelogH(x,y,z,#13,#10);
Flag1:=1;

end;
end;
_gOutBuff :=_gbuff;
Flag4:=0;
end;

if _gFromServ = true then begin
if _gbuff[3] = #$1B then begin
Buff :=_gbuff;
_gOutBuff :=_gbuff;
Flag3:=1;
Writelog('перехвачен _1B_ и записан в Buff',#13,#10);
end;
end;
if Flag1=1 and Flag2=1 and Flag3=1 then begin
for dp:=0 to 50 do begin
drop:=#$17+#$00+#$12+copy(Buff,(10+28*dp),4)+copy( Buff,(18+28*dp),4)+x+y+z;
if length(drop)=23 then begin
if gSys('EnSendS',drop) <> length(drop) then begin // пошлем пакет на сервер.
Writelog(' пакет не отослался! ');
end else begin
//Flag3:=1;
Writelog(length(drop),'дропнули');Writelog(#13,#10 );
end;
WritelogHexB(copy(Buff,(10+28*dp),4));Writelog(#13 ,#10);
WritelogHexB(copy(Buff,(18+28*dp),4));Writelog(#13 ,#10);
end else flag2:=0;
end;

end;
if _gFromServ = false then begin
if _gbuff[3] = #$03 then begin
Flag2:=1;
end;
end;

Char_info:
// Скрипт для вывода информации об игроках на сервере
// в User Tab: ник, раса, пол, класс.
// Автор: Furious
// Версия: 0.3

var
m:TMemo;
RaceID, SexID, ClassID, i: Integer;
Message, Name, Sex, Race, Class: String;

procedure Init;
begin
ShowTab;
m:=TMemo.Create(UserTab);
m.parent:=UserTab;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
end;

procedure Free;
begin
m.Free;
HideTab;
end;

begin
if FromServer and (pck[1]=#$03) then
begin
i:=22;
Name:=ReadS(i);
RaceID:=ReadD(i);
SexID:=ReadD(i);
ClassID:=ReadD(i);
case RaceID of
0:race:='Люди';
1:race:='Светлые эльфы';
2:race:='Темные эльфы';
3:race:='Орки';
4:race:='Гномы';
end;
case SexID of
0:sex:='Мужской';
1:sex:='Женский';
end;
case ClassID of
0:class:='H_Fighter';
1:class:='H_Warrior';
2:class:='H_Gladiator';
88:class:='H_Duelist';
3:class:='H_Warlord';
89:class:='H_Dreadnought';
4:class:='H_Knight';
5:class:='H_Paladin';
90:class:='H_PhoenixKnight';
6:class:='H_DarkAvenger';
91:class:='H_HellKnight';
7:class:='H_Rogue';
8:class:='H_TreasureHunter';
93:class:='H_Adventurer';
9:class:='H_Hawkeye';
92:class:='H_Sagittarius';
10:class:='H_Mage';
11:class:='H_Wizard';
12:class:='H_Sorceror';
94:class:='H_Archmage';
13:class:='H_Necromancer';
95:class:='H_Soultaker';
14:class:='H_Warlock';
96:class:='H_ArcanaLord';
15:class:='H_Cleric';
16:class:='H_Bishop';
97:class:='H_Cardinal';
17:class:='H_Prophet';
98:class:='H_Hierophant';
18:class:='E_Fighter';
19:class:='E_Knight';
20:class:='E_TempleKnight';
99:class:='E_EvaTemplar';
21:class:='E_SwordSinger';
22:class:='E_Scout';
23:class:='E_PlainsWalker';
101:class:='E_WindRider';
24:class:='E_SilverRanger';
102:class:='E_MoonlightSentinel';
25:class:='E_Mage';
26:class:='E_Wizard';
27:class:='E_SpellSinger';
103:class:='E_MysticMuse';
28:class:='E_ElementalSummoner';
104:class:='E_ElementalMaster';
29:class:='E_Oracle';
30:class:='E_Elder';
105:class:='E_EvaSaint';
31:class:='DE_Fighter';
32:class:='DE_PaulusKnight';
33:class:='DE_ShillienKnight';
106:class:='DE_ShillienTemplar';
34:class:='DE_BladeDancer';
107:class:='DE_SpectralDancer';
35:class:='DE_Assassin';
36:class:='DE_AbyssWalker';
108:class:='DE_GhostHunter';
37:class:='DE_PhantomRanger';
109:class:='DE_GhostSentinel';
38:class:='DE_Mage';
39:class:='DE_DarkWizard';
40:class:='DE_Spellhowler';
110:class:='DE_StormScreamer';
41:class:='DE_PhantomSummoner';
111:class:='DE_SpectralMaster';
42:class:='DE_ShillienOracle';
43:class:='DE_ShillienElder';
112:class:='DE_ShillienSaint';
44:class:='O_Fighter';
45:class:='O_Raider';
46:class:='O_Destroyer';
113:class:='O_Titan';
47:class:='O_Monk';
48:class:='O_Tyrant';
114:class:='O_GrandKhauatari';
49:class:='O_Mage';
50:class:='O_Shaman';
51:class:='O_Overlord';
115:class:='O_Dominator';
52:class:='O_Warcryer';
116:class:='O_Doomcryer';
53:class:='D_Fighter';
54:class:='D_Scavenger';
55:class:='D_BountyHunter';
117:class:='D_FortuneSeeker';
56:class:='D_Artisan';
57:class:='D_Warsmith';
118:class:='D_Maestro';
end;
Message:='Раса: '+race+', Пол: '+sex+', Класс: '+class+'.';
m.Lines.Add(Name+': '+Message);
end;
end.

Default:
procedure Init;
begin
//OnConnect
end;

procedure Free;
begin
//OnDisconnect
end;

begin
//OnRead
end.

GM_in_client:
//Права ГМа в Клиенте
var
pck48:string;
hidden:boolean;
p,i,x,y:integer;

procedure Init;
begin
hidden:=false;
pck48:='';
randomize;
end;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(2);
WriteS('hLaPEx');
WriteS(msg);
SendToClient;
end;

begin
if FromServer then if pck[1]=#$04 then
begin
p:=22;
ReadS(p);
p:=p+328;
buf:=pck;
WriteD(1,p);
pck:=buf;
end;
if FromServer then exit;
case ord(pck[1]) of
$1B:case ord(pck[2]) of
$05:
begin
SendMsg('Here I am ');
pck:=#$30;
hidden:=false;
end;
$06:
begin
if pck48='' then exit;
SendMsg('Invisible mode');
hidden:=true;
pck:=pck48;
i:=2;
x:=ReadD(i);
y:=ReadD(i);
x:=x+1000+round(random*200)-100;
y:=y+1000+round(random*200)-100;
buf:=pck;
WriteD(x,2);
WriteD(y,6);
pck:=buf;
end;
end;
$48:pck48:=pck;
$30:if hidden then pck:='';
end;
end.

Gm_in_client2:
//Set Builder
var
i:integer;
begin
if FromServer then if pck[1]=#$04 then
begin
i:=22;
ReadS(i);
i:=i+328;
buf:=pck;
WriteD(1,i);
pck:=buf;
end;
end.

Log_chat:
//Демонстрационный скрипт - вывод чата в TMemo
var
m:TMemo;
i:integer;
c:char;
msg,name:string;

procedure Init;
begin
ShowTab;
m:=TMemo.Create(UserTab);
m.parent:=UserTab;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
end;

procedure Free;
begin
m.Free;
HideTab;
end;

begin
if FromServer and (pck[1]=#$4A) then
begin
i:=10;
name:=ReadS(i);
msg:=ReadS(i);
if name='' then name:='SYSTEM';
m.Lines.Add(name+': '+msg);
end;
end.

Avadon_boots:
var
l,o:integer;
prodal:boolean;

procedure buy;
begin
buf:=#$A7;
WriteD(500);
WriteD(59);
WriteD(1);
prodal:=false;
SendToServer;
end;

procedure byp;
begin
buf:=#$21;
WriteS('menu_select?ask=-1&reply=8');
SendToServer;
end;

procedure sell;
begin
buf:=#$1E;
WriteD(l);//приписываю селлист ид
WriteD(1);
WriteD(o);//ид купленой вещички
WriteD(600);
WriteD(1);
prodal:=true;
SendToServer;
end;

BEGIN

if FromServer and (pck[1]=#$27) then
begin
if prodal=true then
buy;
end;

if FromServer and (pck[1]=#$27) then
begin
if prodal=false then
begin
o:=ReadD(38);
byp;
end;
end;

if FromServer and (pck[1]=#$10) then
begin
l:=ReadD(6);
sell;
end;

END.


Target_attacker:
// Автоматическое взятие в таргет атакующего вас игрока или моба
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Автор: Furious
// Версия: 0.4

var
Attacker, CharID, ObjectID, SocialID, Status: Integer;

procedure TargetAttacker(Attacker: Integer);
begin
buf:=#$04;
WriteD(Attacker);
SendToServer;
end;

begin
if FromServer and (pck[1]=#$04) then
CharID:=ReadD(18);
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case SocialID of
6:Status:=1;
end;
end;
if FromServer and (pck[1]=#$48) or (pck[1]=#$05) then
begin
Attacker:=ReadD(2);
ObjectID:=ReadD(6);
end;
if Status=1 then
begin
if (Attacker<>ObjectID) and (CharID=ObjectID) then TargetAttacker(Attacker);
Status:=0;
end;
end.

Target_radar:
/ Установка стрелки (радара) над чаром к цели, при использовании таргета
// Чтобы включить скрипт используйте в игре социальное действие - Yes
// Чтобы выключить скрипт используйте в игре социальное действие - No
// Автор: Furious
// Версия: 0.2

var
Attacker, SocialID, CorX, CorY, CorZ, Status: Integer;

procedure TargetRadar(CorX, CorY, CorZ: Integer);
begin
buf:=#$EB;
WriteD(0);
WriteD(1);
WriteD(CorX);
WriteD(CorY);
WriteD(CorZ);
SendToClient;
end;

procedure TargetRadarDrop;
begin
buf:=#$EB;
WriteD(2);
WriteD(1);
WriteD(0);
WriteD(0);
WriteD(0);
SendToClient;
end;

begin
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case SocialID of
6:Status:=1;
5:Status:=0 and TargetRadarDrop;
end;
end;
if Status=1 then
begin
if FromServer and (pck[1]=#$61) then
begin
CorX:=ReadD(6);
CorY:=ReadD(10);
CorZ:=ReadD(14);
TargetRadar(CorX, CorY, CorZ);
end;
end;
end.

Titul:
// rotate_title.pas
// вращение title персонажа v1.0b
// Идея B1a3e, реализация dmitry501
// каждую 1 сек title сдвигается на 1 символ влево
// Внимание! КЛ должен дать вам права на изменение title
// Вкл/выкл по Yes/No

var
name : string;
title : string;
i: integer;
tick : integer;
FirstSymbol : string;
Status,SocialID : integer;

procedure Init;
begin
name := '';
title := '';
Status := 0;
tick :=0;
end;

function Pause(Timewait: Integer):Boolean;
var
t : integer;
begin
result := false;
t := Round(Now()*86400);
if t > tick + Timewait then
begin
tick := t;
result := true;
end;
end;


begin
if FromClient and (pck[1]=#$1B) then
begin
SocialID:=ReadD(2);
case SocialID of
6:Status:=1;
5:Status:=0;
end;
end;

if (FromServer) and (pck[1]= #$15) then
begin
i:=2;
name := ReadS(i); //имя персонажа
i := i + 4;
title := ReadS(i) //title персонажа
end;

if (title='') or (Status=0) then exit;

if Pause(1) then
if Length(title)>1 then
begin
FirstSymbol := Copy(title, 1, 1);
Delete(title, 1, 1);
title := title + FirstSymbol;
buf:=#$55;
WriteS(name);
WriteS(title);
SendToServer;
end;
end.

//Использовать Yes/No
var
pck48:string;
hidden:boolean;
i,x,y:integer;

procedure Init;
begin
hidden:=false;
pck48:='';
randomize;
end;

procedure SendMsg(msg:string);
begin
buf:=#$4A;
WriteD(0);
WriteD(2);
WriteS('hLaPEx');
WriteS(msg);
SendToClient;
end;

begin
if FromServer then exit;
case ord(pck[1]) of
$1B:case ord(pck[2]) of
$05:
begin
SendMsg('Here I am ;)');
pck:=#$30;
hidden:=false;
end;
$06:
begin
if pck48='' then exit;
SendMsg('Invisible mode');
hidden:=true;
pck:=pck48;
i:=2;
x:=ReadD(i);
y:=ReadD(i);
x:=x+1000+round(random*200)-100;
y:=y+1000+round(random*200)-100;
buf:=pck;
WriteD(x,2);
WriteD(y,6);
pck:=buf;
end;
end;
$48:pck48:=pck;
$30:if hidden then pck:='';
end;
end.Использовать Yes/No
Категория: Баги | Добавил: Metal (05.01.2010)
Просмотров: 1163 | Комментарии: 7 | Рейтинг: 0.0/0
Всего комментариев: 6
18:44
[color=color_url - Welcome
Within our extensive portfolio you’ll find quotes from top carriers like Madison http://hdfclife.ma-jide.com/sitemap.html - HDFC life insurance online payment members cause to other people. The liability portion of your policy pays for both the cost of defending http://insurance.karou.jp/sitemap.html - Cheap travel insurance with medical condition explore your options, use our online services to get quotes from licensed agents. http://aetnalife.masa-mune.jp/sitemap.html - Aetna life insurance company online evidence of insurability

See you soon
18:11
[color=color_url - Best of the Web world
нуждается в вашей помощи. Помогите ему успешно достичь финиша на каждом этапе этой http://maadelaidarkova.hotbox.ru/online/Onlajn-igri-koshki.html - Онлайн игры кошки тут и в том, что для украшения собственных покоев королю так же придется неплохо http://restmestmificaso14.hotmail.ru/online/Igri-cherez-onlajn.html - Игры через онлайн Это простая и компактная онлайн флеш игра, в которой нужно перемещаться по уровням и http://restmestmificaso14.hotmail.ru/online....jn.html - Игра birds играть онлайн
Good luck
13:27
[color=color_url - Good day
Юноша стоял абсолютно голый посередине кухни. Его тело было белым и зовущим. Ему хотелось не отпускать владельца, и он прижался к его одежде голым телом. Мужчина, приобняв его за плечи, повёл на диван... http://keepbysemeansar.land.ru/gey-porno-kopilka.html - Гей порно копилка Паша стушевался и молчал, тупо глядя в телевизор и не зная, как ему себя вести в этой ситуации. http://ekonakovaamno.pochtamt.ru/gay/gey-porno-onlayn-18.html - Гей порно онлайн 18 В XIX в. американские медики с жаром боролись с мастурбацией. Битва шла в основном по двум фронтам - диета и физические ограничения. Мастурбаторам (независимо от пола) запрещали подливы, спиртные напитки, устрицы, соль, перец, рыбу, желе, шоколад, имбирное пиво и кофе, так как считалось, что они раздражают нервную систему и усиливают сексуальное желание. http://buchuketkclam.nm.ru/gay/potence-4-7.html - Порно гей белый и негр
Go to the guests
22:42
[color=color_url - Best web page just for you
Make-up: Beauty Amazon Your Amazon.co.uk Today's Deals Gift Cards Help http://frissettrelu.3web.me/theme.php?theme=acne-during-menopause.php - Acne During Menopause For other uses, see Skin (disambiguation). http://phoeponnu.host.sk/theme.php?theme=acne-medicine-pregnancy.php - Acne Medicine Pregnancy Blepharitis Article What is blepharitis? http://gowaxawi.comoj.com/theme.php?theme=como-quitar-el-acne.php - Como Quitar El Acne
See you later
13:39
[color=color_url - Good morning
processed diet, a sedentary lifestyle, excessive stress, lack of sleep or the harmful effects of pollution. http://pinapofu.zgr.name/theme.php?theme=crestor-maker.php - Crestor Maker predisposition to development of renal failure secondary to rhabdomyolysis developsMonitor liver function before starting http://koqopubi.youhost.com.ar/theme.p....ing.php - Crestor And Swelling Report Problems to the Food and Drug Administration reported for all statinsThe reports are generally nonserious, and http://pexawuda.zxq.ro/theme.php?theme=simvastatin-rosuvastatin.php - Simvastatin Rosuvastatin
We are waiting for you
06:16
Download Cutter, The http://www.vod.com.ua/skachat-film-teni-proshlogo-2128.html HD Тени прошлого 2005
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Вход на сайт

Поиск

Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz

    		•

    Copyright MyCorp © 2025