Показать сообщение отдельно
Старый 29.12.2007, 00:55   #8
Гость
 
Сообщений: n/a
По умолчанию ВОПРОСИК У НОВИЧКА!2

это скрипт ворона - но я его переделал под своих двух чаров
1. запускаю л2пнх318 ставлю чара Glup
2. перехожу на вкладку дополнительно -> выполнить
3. в игре ZOPANKOK нажимаю 1 и 2 и даже в парти) И ничего не происходит(ПОЧЕМУУУУУ??????? поправте плиз)


var
IDPartyMember, IDAssistTarget, IDMy: String; //?? ????????? ? ?? ??? ??????? ? ??????????? ??
CoordglupX, CoordglupY, CoordglupZ :String; //?????????? ????
IDTargetForSpoil : String; //?? ?????????????? ????

procedure glupBeg;
begin
if (CoordglupX <> '') and (IDPartyMember <> '') then
begin
buf:=hstr('04') + IDPartyMember + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
buf:=hstr('04') + IDPartyMember + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
end;
end;

procedure glupAttack;
begin
if (CoordglupX <> '') and (IDAssistTarget <> '') then
begin
buf:=hstr('04') + IDAssistTarget + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
buf:=hstr('04') + IDAssistTarget + CoordglupX + CoordglupY + CoordglupZ + hstr('00');
SendToServerEX('Glup');
end;
end;

begin
if pck='' then exit;

if FromServer and (pck[1]=#$a7) then
begin
IDPartyMember:=pck[6] + pck[7] + pck[8] + pck[9];
end;

if FromServer and (pck[1]=#$29) then
if (pck[2]+pck[3]+pck[4]+pck[5]=IDPartyMember) then
begin

IDAssistTarget:= pck[6]+pck[7]+pck[8]+pck[9];
end;

if FromClient and (ConnectName='Glup') and (pck[1]=#$48) then
begin
CoordglupX:= pck[6] + pck[7] + pck[8] + pck[9];
CoordglupY:= pck[10] + pck[11] + pck[12] + pck[13];
CoordglupZ:= pck[14] + pck[15] + pck[16] + pck[17];
end;

if FromClient and (ConnectName='ZOPANKOK')and (pck[1]=#$38) then
if (pck[2]=#$31) and (pck[3]=#$00) then
begin

pck:='';

GlupBeg;
exit;
end;

if FromClient and (ConnectName='ZOPANKOK')and (pck[1]=#$38) then
if (pck[2]=#$32) and (pck[3]=#$00) then
begin
pck:='';
GlupAttack;
exit;
end;
end.
  Ответить с цитированием