HotKeySet("{F2}", "start")
HotKeySet("{F5}", "thoat")




$i=147;

$phong1=70
$phong2=73















HotKeySet("{F2}", "start")
HotKeySet("{F5}", "thoat")





;Acc phu 1   0x0
$acc2="gngacon12"
$pass2="Hanhphuc1@"



;Acc phu 2	55x25
$acc3="gngacon14"
$pass3="Hanhphuc1@"

;Acc chinh   110x50
$acc1="mrtrvdung1"
$pass1="chao$ngay$moi999"




$i=145;

$phong1=70
$phong2=73



















While (1)
sleep( 1000)
WEnd
Func start()





While ($i<2070)

	$i=$i+1

	if(mod($i,10000)==1) then

		loginacc($acc2,$pass2,0,0)    ;Login acc phu 1
		sleep(10000)
		loginacc($acc3,$pass3,55,25)    ;Login acc phu 2
		sleep(10000)
		loginacc($acc1,$pass1,110,50)    ;Login acc chinh

		sleep(50000)

	EndIf



;Phong game 1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	if(mod($i,50)==48) then
		activeacc(110,50)
		sleep(500)
		vaophong($phong1,110,50)   ; cho acc chinh vao giu phong
		sleep(3000)
		outacc(0,0);   thoat acc phu 1
		sleep(1000)
		send("{ENTER}")
		sleep(1000)
		loginacc($acc2,$pass2,0,0) ;  login acc phu 1
		sleep(3000)
		vaophong($phong1,0,0)   ; vao lai phong
		sleep(2000)
		ss(0,0)
		sleep(2000)
		ss(110,50)
		sleep(6000)  ;cho vao tran
		thoatgiamexp(110,50)    ;Thoat giam exp acc chinh
		sleep (3000)
	Else
		activeacc(110,50)
		sleep(500)
		vaophong($phong1,110,50)  ;Vao phong roi ss
		sleep(2000) ;cho vai giay vao phong
		ss(110,50)  ;SS acc chinh
		sleep(500)
		ss(0,0)    ;SS acc phu 1 start game
		sleep(1000)
		activeacc(110,50);    ;Active acc chinh
		sleep(6000)  ;cho vao tran
		thoatgiamexp(110,50)    ;Thoat giam exp acc chinh
		sleep (3000)
	EndIf

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@



;Phong game 1 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
	if(mod($i,50)==48) then
		activeacc(110,50)
		sleep(500)
		vaophong($phong2,110,50)   ; cho acc chinh vao giu phong
		sleep(3000)
		outacc(55,25);   thoat acc phu 2
		sleep(1000)
		send("{ENTER}")
		sleep(1000)
		loginacc($acc3,$pass3,55,25) ;  login acc phu 2
		sleep(3000)
		vaophong($phong2,55,25)   ; vao lai phong
		sleep(2000)
		ss(55,25)
		sleep(2000)
		ss(110,50)
		sleep(6000)  ;cho vao tran
		thoatgiamexp(110,50)    ;Thoat giam exp acc chinh
		sleep (3000)
	Else
		activeacc(110,50)
		sleep(500)
		vaophong($phong2,110,50)  ;Vao phong roi ss
		sleep(2000) ;cho vai giay vao phong
		ss(110,50)  ;SS acc chinh
		sleep(500)
		ss(55,25)    ;SS acc phu 1 start game
		sleep(1000)
		activeacc(110,50);    ;Active acc chinh
		sleep(6000)  ;cho vao tran
		thoatgiamexp(110,50)    ;Thoat giam exp acc chinh
		sleep (3000)
	EndIf

;@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@



	if(mod($i,150)==149) then
		outacc(110,50);   thoat acc phu 2
		sleep(1000)
		send("{ENTER}")
		sleep(1000)
		loginacc($acc1,$pass1,110,50) ;  login acc Chinh
	  sleep(3000)
	EndIf


WEnd

EndFunc


Func outacc($xmore=0,$ymore=0)
	MouseClick("left",(1001+$xmore),(11+$ymore),1,0)    ;Click vao nut thoat
	Sleep(2000)
	send("{ENTER}")

EndFunc

func activeacc($xmore=0,$ymore=0)
	MouseClick("left",(5+$xmore),(615+$ymore),1,0)
EndFunc

func ss($xmore=0,$ymore=0)
	activeacc($xmore,$ymore)
	sleep(1000)
	MouseClick("left",(950+$xmore),(500+$ymore),1,0)
EndFunc


func thoatgiamexp($xmore=0,$ymore=0)
   sleep(2000)
	MouseClick("left",(987+$xmore),(36+$ymore),1,0)
	sleep(1000)
	MouseClick("left",(987+$xmore),(36+$ymore),1,0)
	sleep(500)
	send("{ENTER}")
	sleep (500)
	send("{ENTER}")
EndFunc


func loginacc($u,$p,$xmore=0,$ymore=0)

   FileDelete( @UserProfileDir & "\GunnyPro.ini")
	MouseClick("left",40 ,680,1,0)
	sleep(1000)
	MouseClick("left",40 ,680,2,0) ; chay game tu icon tren desktop
	Sleep(4000)
	WinMove("","",$xmore,$ymore)
	sleep(1000)
	MouseClick("left",(595+$xmore),(255+$ymore),1,0)
	sleep(500)
	send($u)
	sleep(500)
	MouseClick("left",(595+$xmore),(310+$ymore),1,0)
	sleep(500)
	send($p)
	sleep(500)
	send("{TAB}")
	sleep(500)
	send("{HOME}")
	sleep(500)
	MouseClick("left",(730+$xmore),(285+$ymore),1,0)
	sleep(8000)
	send("ENTER")
	MouseClick("left",(730+$xmore),(285+$ymore),1,0)
	;sleep(1000)
	sleep(40000)
	activeacc($xmore,$ymore);
	sleep(1000)
	MouseClick("left",(600+$xmore),(200+$ymore),1,0)

EndFunc



func vaophong($phong,$xmore=0,$ymore=0)
	Send("{ESC}")
	Send("{ESC}")
	Send("{ESC}")
	Send("{ESC}")
	MouseClick("left",(635+$xmore) ,(510+$ymore),1,0)
	sleep(500+($i*2))
	MouseClick("left",(600+$xmore) ,(300+$ymore),1,0)
	sleep (300+($i*2))
	Send($phong)
	sleep( 500)
	MouseClick("left",(426+$xmore) ,(332+$ymore),1,0)
	sleep (300+$i)
	Send("32")
	Send("{ENTER}")
EndFunc

Func thoat()
exit
EndFunc