Вывод OutGame бота из игры. И вопросы по процедурам NoFree..

[Sher]

кстати после выполнения

             buf:=LogOutOk;
             SendToClient; //сказать клиенту, что логаут разрешен

клиент просто схопывается - это у всех так или стоит поискать грабли? хотя персонаж остается в игре и проч...

[ratvier]

клиент просто схопывается - это у всех так или стоит поискать грабли?

так и надо :D

[Sher]

Сообщение от ratvier

так и надо :D

хм.... мож знаите способ чтоб например 1 окном завести нескольких чаров) т.е. что несхлопывалось)

[scorpio818]

Сообщение от Sher

хм.... мож знаите способ чтоб например 1 окном завести нескольких чаров) т.е. что несхлопывалось)

C->S: 09=Logout
S->C: 7E=LogOutOk
Это полный выход, пример использования выше.

Чтобы клиент не схлопывался, думаю, следует копать в сторону вот этих пакетов:
C->S: 46=RequestRestart
S->C: 5F=RestartResponse
Тогда ты попадешь в окно выбора чаров и сможешь перелогиниться другим акком.

[Sher]

до этого этапа я дошел да там одно и тоже шлетно но далее идет пакет с инфой о чаре и нада чтото отсылать) т.е. какбы понятно что но... что буит если я ченить фиксированное буду слать в этот момет - клиент не застрелится? :) сорри попробовать вчера не смог бу сеня вечерком пробовать)

[tiranosaur]

//монитор, показывает хп\мп\вес\имя
//мспользуется в процессах когда нужно nofreeondisconect
//ну или когда вам захочется//тестировался на l2c6 alpha
//v0.1b - первая версия
//v0.2b - изменет алгоритм принудительного обновления
//(c)metalFan
const
name = 'Luda' ;
//Warning! Не поставишь имя - вылетишь из игры! xD
var frm: TForm; m: TMemo; Button: TButton; MaxHP,CurHP,MaxMP,CurMP,CurLoad,MaxLoad,i: integer;
CharName: string;
procedure Init;
begin
//формочка
frm := TForm.Create(nil);
frm.Caption := 'Info by metalFan v0.2b';
frm.BorderStyle := bsDialog;
frm.Position := poScreenCenter;
frm.Width:=250;frm.Height:=125;
frm.OnClose := @FormClose;
m:=TMemo.Create(frm);
m.parent:=frm;
m.align:=alClient;
m.ReadOnly:=true;
m.ScrollBars:=ssBoth;
Button := TButton.Create(frm);
Button.Parent := frm;
Button.Caption := 'Refresh';
Button.Left := 125;
Button.Top := 15;
Button.onClick := @ForceUpdate;
frm.show;
end;

//закрываем формочку
procedure free;
begin
m.free;
Button.Free;
frm.free;
end;
//принудительное обновление
procedure ForceUpdate;
begin buf:=Hstr('6e');
SendToServerEx(name);

end;

//(c)NLObP скажи нет случайному закрытию формы
procedure FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caNone;
end;
procedure OnDisconnect(WithClient: Boolean); //Вызывается при установке соединения
begin
NoFreeOnClientDisconnect;
NoFreeOnServerDisconnect;
end;
//думалка
begin
if FromServer and (ConnectName=name) and (pck[1]=#$32) then begin
i:=22; CharName:=ReadS(i); i:=i+48; MaxHP:=ReadD(i); CurHP:=ReadD(i); MaxMP:=ReadD(i); CurMP:=ReadD(i); i:=i+4; CurLoad:=ReadD(i); MaxLoad:=ReadD(i);
//выводим на экран это дело
m.lines.add('Name ' + CharName);
m.lines.add('Health ' + inttostr(CurHP) +'\' + inttostr(MaxHP));
m.lines.add('Mana ' + inttostr(CurMP)+'\' + inttostr(MaxMP));
m.lines.add('Load ' + inttostr(CurLoad)+'\' + inttostr(MaxLoad)); end;
end.

подскажите пжл в версии 3,4,1,83 работает а в версиях 3,5,28,151 и выше нет? в чем проблема? ошибка выделена красным

[alexteam]

они по другому называюццо.
в редакторе ctrl+space
и за useforconnectname почитай.. в хелпе..

[tiranosaur]

СПС СПС СПС СПС ))))))) Огромое Спс

Добавлено через 24 минуты
А почему то разрушается коннект. добавление NoCloseFrameAfterDisconnect; не помогло.

[alexteam]

а причем тут фрейм ?

[tiranosaur]

на всякий пожарный. заменил
NoCloseClientAfterServerDisconnect;
NoCloseServerAfterClientDisconnect;
NoCloseFrameAfterDisconnect;
фиг. отключается.((( вырубаю клиент через диспетчер задач.