Temat: Szukasz skryptu? Zajrzyj tutaj!

const
  Account = 'xxxxxx'; 
  Password= 'xxxxxx';
  Character = 'xxxxxx';
  World= 'xxxxxx';
  Ip = '';
  ServerSave = '08:00:00'

begin
  while not terminated do
  begin
    if TimeToStr(Now) = 'ServerSave-00:10:00' then
      begin
        Self.Logout(True);
        Sleep(3000000);
        Self.Login(Account, Password, Character, World, Ip);
        Sleep(15000);
    UpdateWorld;
    Self.Backpack.Open;
    Sleep(2000)
    UpdateWorld;
    for x := 0 to Self.Containers.Container[0].Count do
    begin
      if x >= Self.Containers.Container[0].Count then Break;
      if Self.Containers.Container[0].Item[x].Properties.Container then
      begin
        Self.Containers.Container[0].Item[x].OpenInNewWindow;
        Sleep(2000);
      end;
        Sleep(1000);
        exit;
      end;
    Sleep(100);
  end;
Sleep(500);
end;
end;

32445
32101
15
6
32415
32100
15
6
32392
32100
15
6
32404
32120
15
6
32405
32137
15
6
32403
32151
15
6
32409
32169
15
6
32416
32184
15
6
32417
32161
15
6
32406
32159
15
6
32409
32136
15
6
32427
32125
15
6

const
   FISHID = 3578;
   CAP = 1000;
   mX = 1030;
   mY = 996;
   mZ = 7;
   
function GoToPos(x,y,z:integer):boolean;
var
    i:integer;
begin
    return:=false;
    self.moveto(x,y,z);
    for i:=0 to 10 do
    begin
       if (self.x=x) and (self.y=y) and (self.z=z) then
       begin
          return := true;
          exit;
       end;
       sleep(500);   
    end; 
end;   

procedure isMailbox;
var
   x,y,z:integer;
begin
   updateworld;
   result:=true;
   for x:=0 to 14 do
   begin     
      for y:=0 to 10 do
      begin
         for z:=0 to screen.tile[x][y].count-1 do
         begin     
            if screen.tile[x][y].item[z].properties.mailbox=true then exit;
         end;
      end;
   end;
   result := false;
end;
   
function findparcel : integer;
var
   i:integer;
begin
   result := -1;
   for i:=0 to self.Containers.Container[0].Count -1 do
      if self.containers.container[0].item[i].id = 3503 then result := i;
end;

procedure sendparcel;
var
   x,y,z:integer;
begin
   for x:=0 to 14 do
   begin     
      for y:=0 to 10 do
      begin
         for z:=0 to screen.tile[x][y].count-1 do
         begin     
            if screen.tile[x][y].item[z].properties.mailbox=true then
            begin
              // self.say('X='+inttostr(x)+'; Y='+inttostr(y)+'; Z='+inttostr(z)+'; ID='+inttostr(screen.tile[x][y].item[z].ID));
               if findparcel >=0 then
               begin   
                  self.containers.container[0].item[findparcel].movetoground(self.x+(x-7),self.y+(y-5),self.z,1);
                  exit;
               end;
            end;     
         end;
      end;
   end;
end;

var
   x,i:integer;
begin
   updateworld;   
   if self.capacity < CAP then
   begin
      for i:=0 to self.Containers.Container[0].Count -1 do
      begin
         updateworld;
         if self.containers.container[0].item[i].id = FISHID then
         begin
            if findparcel >-1 then
            begin
               self.containers.container[0].item[i].movetocontainer(self.containers.container[0],findparcel,0);
               sleep(1000);
               i:=-1;
               
            end               
            else begin
               self.displaytext('Nie znaleziono parcela!');
               exit;
            end;         
         end;
         if i >= self.Containers.Container[0].Count -1 then break;
      end;
      updateworld;
      for i:=1 to 5 do
      begin
         if GoToPos(mX,mY,mZ) then break;
      end;
      if not isMailBox then
      begin
         self.displaytext('Nie znaleziono mail boxa!');
         exit;
      end;
     
      sendparcel;
   end;
end;