NexxGen писал(а):Наименование: Mafia [NexxGen] v. 3.4.2
Размер: 257. кб
Ссылка: http://depositfiles.com/files/5374400
Зеркало: http://www.sendspace.com/file/7t1n8b
Комментарий:
- Отказ от " Решена проблема с использованием в нике символа "]" " (v 3.4) походу именно из-за этого глючило по черному
Народ флудит командой !топ 100, можно как то решить проблему? Было бы неплохо чтобы бот менял приветствие в канале, например как викторина скифа
Приветствие..
==============================================
Лучшие нашей сети:
1.
2.
3.
4......
Paradox писал(а):Народ флудит командой !топ 100, можно как то решить проблему? Было бы неплохо чтобы бот менял приветствие в канале, например как викторина скифа
Приветствие..
==============================================
Лучшие нашей сети:
1.
2.
3.
4......
Сделаю ограничение на "топ"...
Пытался работать с приветствием канала, почемуто не реагирует на перевод строки...кто знает подскажите
Z182712747589 и R377043131694 — для поддержки энтузиазма на добровольных началах))
О. Я уже собирался делать откат до версии 3.2. 3.3 тоже разочек зациклилась. Да и багов хватало. Приваты не закрывало и каналы крыво создавало... Теперь всё отлично. Пока почти всё устраивает (кроме оформления) Народу игра очень нравится. Посоянно играют, а мне как всегда - хочется её нормально оформить, а хз как.
function privet(kan, st: string): string;
var
ln: string[4];
begin
Result:=chr(62)+#0#0#0;
ln:=chr(Length(kan))+#0#0#0;
Result:=Result+ln+kan;
ln:=chr(Length(st))+#0#0#0;
Result:=Result+ln+st;
end;
procedure TForm1.Button4Click(Sender: TObject);
var f1: TextFile;
ss, buff: string;
begin
AssignFile(f1,'Mafia.txt');
Reset(f1);
ss := '';
while not Eof(f1) do
begin
Readln(f1,buff);
ss := ss+buff+#13#10;
end;
UDP1.SendText(privet(Edit1.Text, ss));
end;
все дело в переполнении строки, попробуй вот так для начала. Потом поймешь
......
procedure TForm1.Button4Click(Sender: TObject);
var f1: TextFile;
ss, buff: string[250];
......
.....
NexxGen, спасибо за канал "логово-nnnnn"!
Плохо что бот не умеет приглашать в канал мафов ((( ....еслиб было так чудесно из привата мафу по ссылочке щелкнуть - и ты в логове...
Можно ли для удобства список мафов и нумерацию остальных игроков также выводить в канал "логово"? раз уж оттуда голосовать можно
function ln(s: string): integer;
var k: cardinal;
hex: string;
begin
hex:='';
for k:=length(s) downto 1 do
hex:=hex+IntToHex(ord(s[k]),2);
Result:=StrToInt('$'+hex);
end;
function Nm(dec: integer): string; // Функция формирования длины строки
var s: string;
i: byte;
begin
Result:='';
s:=inttohex(dec,8);
for i:=8 downto 1 do
if i mod 2 <> 0 then
Result:=Result+chr(StrToInt('$'+(copy(s,i,2))));
end;
function SMessage(ch,text: string): string;
begin
Result:=Nm(62);
Result:=Result+Nm(Length(ch))+ch+Nm(Length(text))+text;
end;
procedure PREVED;
var
iFileHandle: Integer;
iFileLength: Integer;
iBytesRead: Integer;
Buffer: PChar;
ut2:string;
i3:integer;
begin
iFileHandle := FileOpen('file.txt', fmOpenRead);
iFileLength := FileSeek(iFileHandle,0,2);
FileSeek(iFileHandle,0,0);
Buffer := PChar(AllocMem(iFileLength + 1));
iBytesRead := FileRead(iFileHandle, Buffer^, iFileLength);
FileClose(iFileHandle);
for i3 := 0 to iBytesRead-1 do
begin
ut2:= ut2+Buffer[i3];
end;
UDP1.SendText(SMessage(chan,ut2));
FreeMem(Buffer);
end;
Последний раз редактировалось dv 16:49, 16.05.2008, всего редактировалось 5 раз.
Дополнения для CommFort
Адрес чата: chat.telered.ru
dv писал(а):// читаем весь файл и швыряем его в канал
С этим проблем нет, проблемы с приветствием
подправил предыдущий пост
Тоже самое получаетцо...
Modesty писал(а):все дело в переполнении строки, попробуй вот так для начала. Потом поймешь
......
procedure TForm1.Button4Click(Sender: TObject);
var f1: TextFile;
ss, buff: string[250];
......
.....
пробовал через AnsiString эффект практически такой же
Z182712747589 и R377043131694 — для поддержки энтузиазма на добровольных началах))
Народу игра очень нравится. Посоянно играют, а мне как всегда - хочется её нормально оформить, а хз как.
