Добро пожаловать на la2shara. У нас на фруме вы найдёте м...

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1
1

Разные скрипты (Сюда буду выкладывать скрипты для La2phx)

Разные скрипты

Vasia

Дата: Среда, 02.06.2010, 20:18 | Сообщение # 1

Vasek

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

Сообщений: 91

Награды: 3

Репутация: 120

Статус: Offline

Скрипт для отображения CP/HP вместо титула, работает на серверах где приходит статусапдейт перса

Code

Var
CurHP,MaxHP,CurCP,MaxCP,CurMP,MaxMP,objID: integer;

procedure Init;
begin

end;

procedure StatusUpdate;
var
   i: integer;
begin
   for i:=0 to ReadD(6)-1 do begin
     case pck[i*8+10] of
       #$09: CurHP:=ReadD(i*8+14);
       #$0A: MaxHP:=ReadD(i*8+14);
       #$0B: CurMP:=ReadD(i*8+14);
       #$0C: MaxMP:=ReadD(i*8+14);
       #$21: CurCP:=ReadD(i*8+14);
       #$22: MaxCP:=ReadD(i*8+14);
     end;
   end;
end;

procedure Free;
begin

end;

procedure OnConnect(WithClient: Boolean);
begin

end;

procedure OnDisonnect(WithClient: Boolean);
begin

end;

begin
    if fromserver and (pck[1]=#$18) then
       begin
          StatusUpdate;
          objID:=ReadD(2);

          buf:=#$CC;
          WriteD(objID);
          WriteS('CP:'+inttostr(CurCP)+'  HP:'+inttostr(CurHP));
          SendToClient;

       end;

end.

Vasia

Дата: Среда, 02.06.2010, 20:19 | Сообщение # 2

Vasek

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

Сообщений: 91

Награды: 3

Репутация: 120

Статус: Offline

Скрипт на авто-заточку скиллов.

Code

const
    nik='xxxxx';
    Enchant=13;

var
    SubID, SkillID, SkillLvl, CurrEnch: integer;

procedure Init; //Вызывается при включении скрипта
begin

end;

procedure OnTimer01(Sender: TObject);
begin

end;

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

procedure OnConnect(WithClient: Boolean); //Вызывается при установке соединения
begin

end;

procedure OnDisonnect(WithClient: Boolean); //Вызывается при потере соединения
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
     if FromServer and (pck[1]=#$62) then case pck[2] of
         #$A0:   //точнулся
                 if CurrEnch<Enchant then
                    begin
                      CurrEnch:=CurrEnch+1;
                      Buf:=#$D0;
                      WriteH(SubID);
                      WriteD(SkillID);
                      WriteD(SkillLvl+CurrEnch);
                      SendToServerEx(nik);
                    end;
         #$A1:   //не точнулся
              begin
                      CurrEnch:=1;

                      Buf:=#$D0;
                      WriteH(SubID);
                      WriteD(SkillID);
                      WriteD(SkillLvl+CurrEnch);
                      SendToServerEx(nik);

              end;
     end;

     if FromClient and (pck[1]=#$D0) then
         begin
            SubID:=ReadH(2);
            SkillID:=ReadD(4);
            SkillLvl:=ReadD(8)-1;
            CurrEnch:=1;
         end;
end.

6e36aweHHblu

Дата: Понедельник, 09.08.2010, 18:10 | Сообщение # 3