Часть вторая (продолжение, т.к. в один пост - не влез): Оффтоп
delphi Код:
//Start Part II
if fromserver and (pck[1]=#$08) then begin
idx:=StrtoHex(pck[2])+StrtoHex(pck[3])+StrtoHex(pck[4])+StrtoHex(pck[5]);
try
name:='OID: '+idx;
SendMsg('Удаляем '+GetValue(name));
CharName.Delete(CharName.IndexOfName(name));
name:='Профессия основы: '+idx;
CharName.Delete(CharName.IndexOfName(name));
name:='Клан: '+idx;
CharName.Delete(CharName.IndexOfName(name));
name:='Титул: '+idx;
CharName.Delete(CharName.IndexOfName(name));
name:='CoordX: '+idx;
CharName.Delete(CharName.IndexOfName(name));
name:='CoordY: '+idx;
CharName.Delete(CharName.IndexOfName(name));
name:='CoordZ: '+idx;
CharName.Delete(CharName.IndexOfName(name));
CharName.SaveToFile(MyFileName);
except
end;
//end;
end;
if fromserver and (pck[1]=#$32) and (MyOID<>ReadD(18)) then MyOID:=ReadD(18);
if fromserver and (pck[1]=#$22) and (MyOID=ReadD(2)) then begin //При приходе пакета
SendMsg('Очистка лога'); // TeleportToLocation - полная очистка лога
CharName.Clear; //для избавления от "хвостов"
CharName.SaveToFile(MyFileName);
end;
end.
Вдогонку:
Такого рода лог ведется: Оффтоп
OID: C87D2048=Атилла
Профессия основы: C87D2048=Sword Muse
Клан: C87D2048=35
Титул: C87D2048=@
CoordX: C87D2048=146443
CoordY: C87D2048=-56114
CoordZ: C87D2048=-2776
OID: E56D4148=Stoum
Профессия основы: E56D4148=Warlock
Клан: E56D4148=103
Титул: E56D4148=Kamikaze team
CoordX: E56D4148=147838
CoordY: E56D4148=-55370
CoordZ: E56D4148=-2728 Формат лога: <Параметр>: <ОИД перса, которому принадлежит> = <значение параметра>. Онлайн сервера - 1к примерно (с торговыми ботами) - по гирану бег без лагов. Еслиб знать на кой ляд оно вообще надо - ТЗ так сказать, иметь - было бы легче.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 29.08.2010 в 08:08.
|