Cũng hay , cấm auto cũng dc 
Viết bằng AutoIT nên bị mấy thằng ATVirus hiểu nhầm 
Mã nguồn mỡ
Tên chương trình : NosBot
Sreen Window mode : 800x600
Tự đánh - tự nhặt đồ
Tui level 12 ser 1
Phím Home bắt đầu
Phím Pause Break để đứng lại
Phím End để kết thúc
Nickname : imagine (online 6h chiều ->9h tối)
------------
HotKeySet("{Home}","start")
Hotkeyset("{END}","stop")
Hotkeyset("{PAUSE}","Pause")
Global $Paused
Global $Wait
if Not WinExists("Nostale") then
MsgBox(64, "NosBot", "You must be running Nostale")
Exit
EndIf
MsgBox(64, "NosBot", "Phím Home = Start, Phím End = Stop, Pause Break = Pause")
Wait()
Func start()
WinActivate ( 'Nostale' )
Sleep(500)
while 1
If PixelGetColor(140, 31) = 47616 Then
Rest()
Else
Target()
EndIf
WEnd
EndFunc
Func Target()
Send("{Space}")
Sleep(500)
if PixelGetColor(471, 95) = 14498062 Then
Send("{Space}")
Fight()
EndIf
EndFunc
Func Fight()
ToolTip("Nosbot: Fighting Monster ", 2, 0)
While PixelGetColor(471, 95) = 14498062
Sleep(500)
WEnd
ToolTip("Nosbot: Grabbing Item ", 2, 0)
Sleep(700)
Send("r")
Sleep(700)
Send("r")
Sleep(500)
EndFunc
Func Rest()
Sleep(500)
Send("t")
While PixelGetColor(242, 31) = 47616
Sleep(500)
WEnd
Sleep(250)
Send("t")
Sleep(500)
EndFunc
Func Pause()
$Paused = NOT $Paused
While $Paused
ToolTip("NosBot: Paused ", 2, 0)
Sleep (400)
WEnd
EndFunc
Func Wait()
$Wait = NOT $Wait
While $Wait
ToolTip("NosBot: Bam phim Home de khoi dong ", 2, 0)
Sleep (400)
WEnd
EndFunc
Func stop()
ToolTip("NosBot: Shutting Down ", 2, 0)
MsgBox(64, "NosBot", "Thanks for using NosBot, Made By La Chan Kiet.")
Exit
EndFunc
---------
___________________________
mấy bạn mỡ AutoIT lên chĩnh xữa gì thì chĩnh sau đó save file thành .a3u gùi chạy là ngon lành , ai hok bik gì về AutoIT thì pó tay nha , nếu BQT VNG duyệt cho post file lên thì tui post cho đỡ phiền
Game này giải tress , hok bạo lực , hình ảnh đẹp , kute ^^
![[L]at](/data/avatars/m/189/189088.jpg?1362551031){kind=avatar}
