SoTZone Gaming Portal

Code: Select all

login=vasya
password=123
LobbyPath=C:\Program Files\Darkfall\Lobby.exe

Window_TXT = Darkfall Online
IfWinExist, %Window_TXT%
{
 Goto, Check
 return
}

Login:
#NoEnv
SendMode Input
;SetWorkingDir %A_ScriptDir%
#SingleInstance force
Process, Priority, , HIGH
SetMouseDelay, 0
SetWinDelay, 0
SetControlDelay, 0
spamclick=1
checkforredbar=1
Run, %LobbyPath%
Window_TXT = Darkfall End User License
Winwait , %Window_TXT%
WinActivate , %Window_TXT%
WinwaitActive , %Window_TXT%
ControlClick, Button1, %Window_TXT%
Window_TXT = Darkfall 1.0.
Winwait , %Window_TXT%
ControlSetText, Edit1, %login%, %Window_TXT%
ControlSetText, Edit2, %password%, %Window_TXT%
ControlClick, Static1, %Window_TXT%
Winwait , %Window_TXT%, Patching completed, 120
If ErrorLevel
{
 IfWinExist, %Window_TXT%
 {
  Winactivate ;, %Window_TXT% 
  ;Winwaitactive , %Window_TXT%
  PixelGetColor, pixcolor, 165,155 ,RGB
  if pixcolor != 0x000A22
  {
   ControlClick, Static2, %Window_TXT%
   Goto, Login
   return
  }
  Clear()
  Goto, Login
 }
 Clear()
 Goto, Login
}
ControlClick, Static5, %Window_TXT%
sleep 200
ControlClick, Static19, %Window_TXT%

SlotReady=0
While SlotReady=0
{
  slottxt =You have a login slot, press play
  Winwait , %Window_TXT%, %slottxt% ,2,
  if ErrorLevel
  {
    if spamclick=1
    {
      if checkforredbar=1
      { 
         Winactivate , %Window_TXT%
         Winwaitactive , %Window_TXT%
         PixelGetColor, pixcolor, 301,165 ,RGB
         if pixcolor != 0xFF1222
         {
           ControlClick, Static19, %Window_TXT%
           sleep 100
           ControlClick, Static19, %Window_TXT%
         }
       }
       else
       {
         ControlClick, Static19, %Window_TXT%
         sleep 100
         ControlClick, Static19, %Window_TXT%
       }
     }
   }
 else
 SlotReady=1
}
ControlClick, Static6, %Window_TXT%
Check:
Window_TXT = Darkfall
Winwait , %Window_TXT%, server , 1
While Errorlevel
{
 Window_TXT = Darkfall
 Winwait , %Window_TXT%, server , 5
}
WinActivate
ControlClick, Button1, %Window_TXT%
sleep 2000
Window_TXT = Darkfall End User License
WinKill, %Window_TXT% , , 0

Clear()
Goto, Login

Clear()
{
sleep, 1000

Window_TXT = Darkfall
While WinExist("%Window_TXT%")
{
 WinKill, %Window_TXT% , , 0
}

Window_TXT = Darkfall End User License
While WinExist("%Window_TXT%")
{
 WinKill, %Window_TXT% , , 0
}

Window_TXT = Darkfall 1.0.
While WinExist("%Window_TXT%")
{
 WinKill,%Window_TXT% , , 0
}

Window_TXT = Darkfall Online
While WinExist("%Window_TXT%")
{
 WinKill, %Window_TXT% , , 0
}
return
}