- Klavius http://www.klavius.pun.pl/index.php - Skrypty http://www.klavius.pun.pl/viewforum.php?id=1 - Logowanie 10 min po restarcie serwa http://www.klavius.pun.pl/viewtopic.php?id=21 |
rafek1241 - 2008-11-21 18:09:44 |
Loguje po restarcie serwa Kod:const Account = 'xxxxxx'; Password= 'xxxxxx'; Character = 'xxxxxx'; World= 'xxxxxx'; Ip = ''; ServerSave = '08:58: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; |