Вернуться   CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг
Войти через OpenID

Скриптинг Форум посвещенный созданию скриптов для L2PacketHack

Чат (Новых сообщений с момента вашего последнего визита нет)
Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.
 
Ответ
 
Опции темы Опции просмотра
Старый 02.06.2009, 15:36   #1
Пользователь
 
Аватар для z0mbie
 
Регистрация: 13.03.2009
Сообщений: 41
Сказал Спасибо: 26
Имеет 1 спасибку в 1 сообщении
z0mbie пока неопределено
Сообщение Рисунки символами в чате

Здраствуйте я хотел бы спрасить как сделать из этого скрипта чтоб можно было рисовать рисунки в чате типа:
____________$$$$$$$*$______$$$$$$$$$
__________$$$$$$$$$*$$$__$$$$$$$__$$$$
_________$$$$$$$$$$*$$$$$$$$$$$$$$__$$$
_________$$$$$$$$$$*$$$$$$$$$$$$$$__$$$
_________$$$$$$$$$$*$$$$$$$$$$$$$$__$$$
__________$$$$$$$$$*$$$$$$$$$$$$$__$$$
____________$$$$$$$*$$$$$$$$$$$$$$$$
_______________$$$$*$$$$$$$$$$$$$
_________________$$*$$$$$$$$$$$
___________________*_$$$$$$$
Вот и сам скрипт как его можно переделать?
Код:
const
     MaxMessages = 1000;
var
  m: TMemo;
  frm:TForm;
  penel: TPanel;
  etext:  tedit;
  button: tbutton;
  box   : TCheckBox;
  every : TEdit;
  _Name : TEdit;
  i: Integer;
  tm:TTimer;
  Message, Name: String;

procedure SendMs(Sender: TObject);
var
  Msg, Nm: String;
  dd: integer;
begin
  if etext.text<>'' then begin
    buf:=#$38;
    case etext.text[1] of
      '!': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=1;
        nm:='';
      end;
      '$': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=9;
        nm:='';
      end;
      '+': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=8;
        nm:='';
      end;
      '"': begin
        dd:=pos(' ', etext.text);
        Msg:=Copy(etext.text,dd+1,1000);
        nm:=Copy(etext.text,2,dd-3);
        dd:=2;
      end;
      '#': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=3;
        nm:='';
      end;
      '@': begin
        Msg:=Copy(etext.text,2,1000);
        dd:=4;
        nm:='';
      end;
      else begin
        Msg:=etext.text;
        dd:=0;
        nm:='';
      end;
    end;
    WriteS(Msg);
    WriteD(dd);
    if nm<>'' then WriteS(Nm);
    SendToServerEx(_Name.Text);
  end;
end;
procedure onNewCommand(obj:TObject;key:string);
var i:integer;
var symbol:Variant;
var after:string;
begin
     if (key[1]=#$0D) then begin
         SendMs(obj);
         symbol := etext.Text[1];
         after := '';
         if symbol = '#' then after := '#';
         if symbol = '!' then after := '!';
         if symbol = '@' then after := '@';
         if symbol = '$' then after := '$';
         etext.Text := after;
     end;
end;
procedure onTimer(Sender:TObject);
begin
  tm.Interval := StrToInt(every.Text);
  if box.checked = true then SendMs(Sender);
end;
procedure Init;
begin
  frm := TForm.Create(nil);
  frm.Caption := 'Chat';
  frm.BorderStyle := bsSizeable;
  frm.Position := poDesigned ;
  frm.Width:=400;
  frm.Height:=600;
  m:=TMemo.Create(frm);
  m.parent:=frm;
  m.align:=alClient;
  m.ReadOnly:=true;
  m.ScrollBars:=ssBoth;
  penel:=TPanel.Create(frm);
  penel.parent:=frm;
  penel.align:=alBottom;
  penel.height:=48;
  etext:=tedit.Create(penel);
  etext.parent:=penel;
  etext.align:=alTop;
  button:=tbutton.Create(penel);
  button.parent:=penel;
  button.top := etext.height;
  button.caption:='Send';
  button.onClick:=@SendMs;
  box := TCheckBox.Create(penel);
  box.parent := penel;
  box.Top := etext.height + 2;
  box.Left := button.width + button.left +2;
  box.Caption := 'Шторм через: ';
  every:=tedit.Create(penel);
  every.parent:=penel;
  every.Left := box.Left + box.Width;
  every.Top := button.top;
  every.Text := IntToStr(3000);
  tm := TTimer.Create(frm);
  tm.Interval := 1000;
  tm.Enabled := true;
  tm.OnTimer := @OnTimer;
  etext.OnKeyPress := @onNewCommand;
  _Name:=tedit.Create(frm);
  _Name.parent:=frm;
  _Name.align := alTop;
  _Name.Text := '';
  frm.Show;
end;

procedure SaveToFile(prefix:string);
var name:string;
begin
     name := prefix+'.'+ConnectName+'.'+DateToStr(Date)+'.'+TimeToStr(Time)+'.txt';
     while Pos(':',name) <> 0 do begin
           name[Pos(':',name)] := '-';
     end;
     m.Lines.SaveToFile(name);
end;

procedure Free;
begin
  SaveToFile('ChatLog');
  box.Free;
  every.Free;
  tm.Free;
  etext.Free;
  button.Free;
  penel.Free;
  m.Free;
  frm.Free;
end;



var tp:integer;
var ct:string;
var MessageCounter:integer;
begin
if _Name.Text = '' then _Name.Text := ConnectName;
if FromServer and (ConnectName = _Name.Text) and (pck[1]=#$4a) then
  begin
    i:=10;
    name:=ReadS(i);
    message:=ReadS(i);
    tp := ReadD(6);
    ct := '???';
    if tp = 0 then ct := 'GNR';
    if tp = 8 then ct := 'TRD';
    if tp = 3 then ct := 'PRT';
    if tp = 4 then ct := 'CLN';
    if tp = 9 then ct := 'ALY';

    ct := DateToStr(Date) + ' '+ TimeToStr(Time) + ', '+ ct;

    if name='' then name:='Объявление: ';
    m.Lines.Add('['+ct+'] '+Name+': '+message);

    if MessageCounter > MaxMessages then begin
       SaveToFile('Backup');
       //m.Lines.Add('BACKUPED');
       MessageCounter := 0;
    end;
    MessageCounter := MessageCounter+1;
  end;
end.
Добавлено через 16 часов 56 минут
Вот делал в клан чат т.к. в обычный неполучиться нада чтоб все заткнулись а то вручную делать долго и пока ты 1 строку делать будешь там докуя строк будет (


Добавлено через 2 часа 49 минут
Чё никто неможет переделать скрипт? мне хотябы чтоб вылазило несколько окошек чтоб я каждую строчку в окошко писал и отправлял всё по одному нажатию
__________________
Баги и читы для Lineage II ---> http://chiter.winbb.ru

Последний раз редактировалось z0mbie, 02.06.2009 в 15:36. Причина: Добавлено сообщение
z0mbie вне форума   Ответить с цитированием
Старый 04.06.2009, 13:16   #2
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Набросал на скорую руку для Грации

Цитата:
1.Как обычно правим NAME
2.Запускаем скрипт
3.В папке \scripts\picture.txt должен лежать файл с текстом или рисунком
4.загружаем командой в чате> load=picture
5.сообщаем в какой чат писать, командой в чате> dest=1 или chat=1 (0 - общий чат и т.д.)
6.запускаем на исполнение, командой в чате> start или run
7.экстренная остановка скрипта, командой в чате> stop
8.после вывода картинки скрипт останавливается сам.

put script and file, which you want to draw in chat then

1.Change NAME constant
2.Run script
3.In folder \scripts\ must be *.txt file? for example picture.txt
4.Load file with send to chat command> load=picture, where "picture" is filename with strings
5.Then we should set the chat type> dest=1 or chat=1 ,where 1 - is chat type
6.To start drawing in chat use command> start or run
7.To stop drawing use command> stop
8.After drawing all pictire/text script stop automaticaly.
picture.txt
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.JPG
Просмотров: 2139
Размер:	26.0 Кб
ID:	354  
Вложения
Тип файла: rar risuem_w_chat.rar (2.5 Кб, 308 просмотров)

Последний раз редактировалось NLObP, 01.08.2009 в 03:05. Причина: обновил скрипт
NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился 2 спасибками от:
Старый 04.06.2009, 13:31   #3
Пользователь
 
Аватар для z0mbie
 
Регистрация: 13.03.2009
Сообщений: 41
Сказал Спасибо: 26
Имеет 1 спасибку в 1 сообщении
z0mbie пока неопределено
По умолчанию

NLObP, респект спасибо огоромное ща буду тестить)
__________________
Баги и читы для Lineage II ---> http://chiter.winbb.ru

Последний раз редактировалось z0mbie, 04.06.2009 в 13:31. Причина: Добавлено сообщение
z0mbie вне форума   Ответить с цитированием
Старый 04.06.2009, 13:37   #4
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

z0mbie, смотри чтобы не забанили
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни


NLObP вне форума   Ответить с цитированием
За это сообщение NLObP нажился спасибкой от:
Старый 04.06.2009, 14:06   #5
Пользователь
 
Аватар для z0mbie
 
Регистрация: 13.03.2009
Сообщений: 41
Сказал Спасибо: 26
Имеет 1 спасибку в 1 сообщении
z0mbie пока неопределено
По умолчанию

Млин нифега невыходит, я ставлю галочку чтоб скрипт запустить и всё больше ничего не происходит
//nlobp:ты мое сообщение внимательно читал?

Добавлено через 24 минуты
Да читал тока я непонял как его запустить какой командой, то есть в чате писать load=picture ? или что?
__________________
Баги и читы для Lineage II ---> http://chiter.winbb.ru

Последний раз редактировалось z0mbie, 04.06.2009 в 14:06. Причина: Добавлено сообщение
z0mbie вне форума   Ответить с цитированием
Старый 04.06.2009, 14:33   #6
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

Код:
4.загружаем командой> load=picture
5.сообщаем в какой чат писать, командой> dest=0 (0 - общий чат и т.д.)
6.запускаем на исполнение> start или run
PS: на картинке видно команды запуска
PPS: можно после включения скрипта написать в чат run, картинка из picture.txt (файл по умолчанию) будет выводиться в общий чат
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни



Последний раз редактировалось NLObP, 04.06.2009 в 14:36.
NLObP вне форума   Ответить с цитированием
Старый 04.06.2009, 14:39   #7
Пользователь
 
Аватар для z0mbie
 
Регистрация: 13.03.2009
Сообщений: 41
Сказал Спасибо: 26
Имеет 1 спасибку в 1 сообщении
z0mbie пока неопределено
По умолчанию

Если чесно нифега непонял как ты загрузил командой
__________________
Баги и читы для Lineage II ---> http://chiter.winbb.ru
z0mbie вне форума   Ответить с цитированием
Старый 04.06.2009, 14:41   #8
Рыцарь
 
Аватар для NLObP
 
Регистрация: 25.02.2008
Адрес: г.Волгоград
Сообщений: 2,009
Сказал Спасибо: 1,285
Имеет 1,458 спасибок в 793 сообщенях
NLObP пока неопределено
По умолчанию

в чат пиши RUN

PS: Ты сообщение читал, как надо делать 1,2,3 и т.д?
PPS: пиши как ты его запускал, по шагам, а то разговор глухого со слепым.
__________________
| Для самых ленивый | Телепаты в отпуске |Мы работаем над этим |
Не умеешь - учись, не хочешь учиться - плати © Суровый Закон Жизни



Последний раз редактировалось NLObP, 04.06.2009 в 14:43.
NLObP вне форума   Ответить с цитированием
Старый 04.06.2009, 14:52   #9
Пользователь
 
Аватар для z0mbie
 
Регистрация: 13.03.2009
Сообщений: 41
Сказал Спасибо: 26
Имеет 1 спасибку в 1 сообщении
z0mbie пока неопределено
По умолчанию

Писал я в чат и RUN и .run и >run нифега неполучаеться)
__________________
Баги и читы для Lineage II ---> http://chiter.winbb.ru
z0mbie вне форума   Ответить с цитированием
Старый 04.06.2009, 15:16   #10
Местный
 
Аватар для Breadfan
 
Регистрация: 29.04.2008
Сообщений: 830
Сказал Спасибо: 80
Имеет 230 спасибок в 169 сообщенях
Breadfan пока неопределено
По умолчанию

а хроники то какие ?
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."

А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Breadfan вне форума   Ответить с цитированием
За это сообщение Breadfan нажился 2 спасибками от:
Ответ

  CoderX :: Forums > Lineage II > L2PacketHack > Скриптинг


Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 16:07.

vBulletin style designed by MSC Team.
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод: zCarot
Locations of visitors to this page
Rambler's Top100

Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!