грубо говоря примерно так мб:
delphi Код:
if !ImAgr and recieve(MyTargetSelected) then curtarget:=id(MyTargetSelected);
....
if ImAgr then SaveCurTarget:=curtarget;
.....
If !ImAgr and SaveCurTarget<>0 then Target(SaveCurTarget);SaveCurTarget=0;
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 26.08.2011 в 13:29.
|