function open_portal(x,y,z:single;kuda:string):boolean;
var
n:integer;
open_id:string;
begin
result:=false;
if kniga_paket='' then
begin
engine.leaveworld();
delay(20000);
engine.selectcharacter(1);
delay(20000);
//Script.Stop;
end;
if kniga_paket<>'' then
begin
n:= pos(StrToUtf8Hex(kuda),kniga_paket);
open_id:=copy(kniga_paket,n-12,8);
print open_id;
end;
 for i := Inv.count - 1 downto 0 do
          begin
            if (Inv.items(i).name = 'Книга порталов') then
              begin
              book_oid:=MemToHex(Inv.items(i).OID,4);
              book_group:=memtohex(Inv.items(i).group,1);
              book_skill:=MemToHex(Inv.items(i).Skillid,4);
              end;
          end;

x_kor_hex:=(copy(('0'+Copy(MEMTOHEX(round(x),SizeOf(dword)-2),3,2)+MEMTOHEX(round(x),SizeOf(dword)-3)+'0'),2+3,2))+(copy(('0'+Copy(MEMTOHEX(round(x),SizeOf(dword)-2),3,2)+MEMTOHEX(round(x),SizeOf(dword)-3)+'0'),2+1,2))+(copy(('0'+Copy(MEMTOHEX(round(x),SizeOf(dword)-2),3,2)+MEMTOHEX(round(x),SizeOf(dword)-3)+'0'),1,2));
y_kor_hex:=(copy(('0'+Copy(MEMTOHEX(round(y),SizeOf(dword)-2),3,2)+MEMTOHEX(round(y),SizeOf(dword)-3)+'0'),2+3,2))+(copy(('0'+Copy(MEMTOHEX(round(y),SizeOf(dword)-2),3,2)+MEMTOHEX(round(y),SizeOf(dword)-3)+'0'),2+1,2))+(copy(('0'+Copy(MEMTOHEX(round(y),SizeOf(dword)-2),3,2)+MEMTOHEX(round(y),SizeOf(dword)-3)+'0'),1,2));
z_kor_hex:=MemToHex(z-100,SizeOf(z-100)-0);

engine.sendtoserver(opcode+book_skill+'02'+MEMTOHEX(User.OID,SizeOf(dword)-1)+book_oid+book_group+'000000CD0F0000000000000000'+MEMTOHEX(User.OID,SizeOf(dword)-1)+'0102'+open_id+'0000000000'+x_kor_hex+'0000000000'+y_kor_hex+z_kor_hex+'00000000');
delay(15000);

for i:=0 to npcs.count-1 do
begin
if ( round(npcs(i).x)=round(x) ) and ( round(npcs(i).y) = round(y) ) and ( round(npcs(i).z) = round(z) ) and (npcs(i).Title=user.name)  then
begin
engine.sendtoserver('B300'+MemToHex(npcs(i).iterid,4));
print 'PRUG';
delay(100);
result:=true;
end;
end;

end;