l2pnx - Форум

l2pnx

DOS

Дата: Суббота, 13.06.2009, 14:46 | Сообщение # 1

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

Var
MyNick :string;
TitleList: TStringList;
Tim1: TTimer;
j,j2: integer;
procedure Init;
begin
MyNick:='DOS'; //Тут пишем свой ник!
TitleList:= TStringList.Create;

TitleList.Add('<<He 4uteP>>'); //Тут список перечисляемых титулов
TitleList.Add('<<eIIT>>'); //При необходимости можно добавить
TitleList.Add('xD'); //или удалить соответствующие строки
TiTleList.Add('IIpocto');
TitleList.Add('MegaBoy=))');

Tim1:=Ttimer.Create(nil);
Tim1.Interval:=1500; //Тут задаём скорость переключения, мс (1секунда = 1000мс)
Tim1.OnTimer:=@OnTimerProc;
Tim1.Enabled:=true;
j:=0;
j2:=TitleList.Count-1;
end;
procedure Free;
begin
Tim1.Enabled:=False;
Tim1.Free;
end;
Procedure OnTimerProc;
begin
SetTitle(TitleList[j]);
If j<j2 then j:=j+1
else j:=0;
end;
Procedure SetTitle(title:string);
begin
buf:=#$0B;
WriteS(MyNick);
WriteS(title);
SendToServer;
end;
begin
end.

Работал над этим DOS.

DOS

Дата: Суббота, 13.06.2009, 14:47 | Сообщение # 2

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

это был скрипт на анимированый титул,если кто-то не понял)

DOS

Дата: Суббота, 13.06.2009, 14:49 | Сообщение # 3

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

WriteS(Msg);
SendToClient;
end;

procedure TargetPK(ObjectID: Integer);
begin
buf:=#$04;
WriteD(ObjectID);
SendToServer;
end;

begin
if FromServer and (pck[1]=#$03) then
begin
i:=18;
ObjectID:=ReadD(i);
Name:=ReadS(i);
Karma:=ReadD(i+60);
if (Karma>0) then
begin
if Message=1 then SendMsg('PK с ником '+Name+' находится поблизости!');
if Target=1 then TargetPK(ObjectID);
end;
end;
if FromClient and (pck[1]=#$38) then
begin
Cvar:=ReadS(2);
case Cvar of
'pk_target 1':
begin
Target:=1;
SendMsg('Автоматическое взятие PK в цель включено!');
end;
'pk_target 0':
begin
Target:=0;
SendMsg('Автоматическое взятие PK в цель выключено!');
end;
'pk_msg 1':
begin
Message:=1;
SendMsg('Вывод сообщения в чат при обнаружении PK включено!');
end;
'pk_msg 0':
begin
Message:=0;
SendMsg('Вывод сообщения в чат при обнаружении PK выключено!');
end;
end;
end;
end.
Работал над этим DOS.

DOS

Дата: Суббота, 13.06.2009, 14:50 | Сообщение # 4

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

procedure DoorAction;
begin
buf:=#$4D;
WriteD(ObjectID);
WriteD(Status);
WriteD(0);
WriteD(1);
WriteD(0);
SendToClient;
end;

begin
if FromClient and (pck[1]=#$04) then
begin
ActionID:=ReadC(18);
if ActionID=1 then
begin
ObjectID:=ReadD(2);
ShowHTML;
end;
end;
if FromClient and (pck[1]=#$21) then
begin
Bypass:=ReadS(2);
case Bypass of
'open':Status:=0 and DoorAction;
'close':Status:=1 and DoorAction;
end;
end;
end.
Работал над этим DOS.
Этот скрипт открывает закрытые двери

DOS

Дата: Суббота, 13.06.2009, 14:50 | Сообщение # 5

Генералиссимус

Группа: Администратор

Сообщений: 709

Репутация: 102

Статус: Offline

Вот еще один.На мой взгляд самый удобный)
begin
if fromserver and (pck[1]=#$9F) then pck[22]:=#$00;
end.
Работал над этим DOS.