Nazwa forum

Const
Cap = '0';
   // Od jakiego capa ma sie wylogowac/wlaczyc alarm
Logout = '1';
   // Jesli 1 wyloguje po zniknieciu "battle mode"
   // Jesli 2 wywali z gry wyloguje po 1 min tzw. "forced logout"
   // Jesli 3 zagrany zostanie wlacznoy alarm
Sound = 'C:\Windows\Media\notify.wav';
   // Plik z alarmem (musi by� .wav)
Sec = '1';
   // Po ilu sec od osi�gni�cia expa ma wylogowa�/co ile sec ma by� w��cznay alarm

Begin
While not Terminated Do
  Begin
   UpdateWorld;
   Sleep(1000);
   If(Self.Capacity <= Cap) Then
    Begin
     Sleep(Sec*1000);
     If Logout = 1 Then Self.Logout(False);
     If Logout = 2 Then Self.Logout(True);
     If Logout = 3 Then PlaySound(Sound);
    End;
  End;
  exit;
End;