ฟอรั่มของบล็อก http://pssix.blogspot.com


แจกๆๆ พอดีไม่ได้ทำละ หาคนเอาไป พัฒณาต่อเกม แฟรี่แลนด์

Share

rolovely
PSsix Member Super Class II
PSsix Member Super Class II

PSsix Game Coder
จำนวนข้อความ : 193
ความนิยม : 24
เข้าร่วมเมื่อ : 15/10/2010
อายุ : 28
ที่อยู่ : THAILAND

แจกๆๆ พอดีไม่ได้ทำละ หาคนเอาไป พัฒณาต่อเกม แฟรี่แลนด์

ตั้งหัวข้อ by rolovely on 15/10/10, 05:04 pm

Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=..\games\FairyLand\Fairy.ico
#AutoIt3Wrapper_outfile=FAIRYLAND PLAY.exe
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=p
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
$Username = IniRead("DATA.ATP", "option", "User","")
$Password = IniRead("DATA.ATP", "option", "Pass","")
$w1 = IniRead("DATA.ATP", "option", "Walk1 X","")
$w2 = IniRead("DATA.ATP", "option", "Walk2 X","")
$w3 = IniRead("DATA.ATP", "option", "Walk3 X","")
$w4 = IniRead("DATA.ATP", "option", "Walk4 X","")
$w5 = IniRead("DATA.ATP", "option", "Walk5 X","")
$w6 = IniRead("DATA.ATP", "option", "Walk6 X","")
$w7 = IniRead("DATA.ATP", "option", "Walk1 Y","")
$w8 = IniRead("DATA.ATP", "option", "Walk2 Y","")
$w9 = IniRead("DATA.ATP", "option", "Walk3 Y","")
$w10 = IniRead("DATA.ATP", "option", "Walk4 Y","")
$w11 = IniRead("DATA.ATP", "option", "Walk5 Y","")
$w12 = IniRead("DATA.ATP", "option", "Walk6 Y","")
$HP = IniRead("DATA.ATP", "option", "HP","")
$SP = IniRead("DATA.ATP", "option", "SP","")

HotKeySet("{Esc}", "Esc2")
#include <IE.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <TreeviewConstants.au3>

Global $IE = _IECreateEmbedded()
Global $URL = $w3
Global $URL2 = $w4
#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("TSPLAY by http://autoit.smf4u.com/", 618, 418, 732, 300, BitOR($WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS))
$Button1 = GUICtrlCreateButton("เริ่ม", 8, 376, 83, 33, $WS_GROUP)
GUICtrlSetState($Button1,$GUI_HIDE)
$Label2 = GUICtrlCreateLabel("วิธีออกจากโปรแกรมทันที ให้กด ESC", 104, 376, 175, 17)
$GUIActiveX = GUICtrlCreateObj($IE, 8, 8, 603, 339)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

_IENavigate($IE, $URL)
_IELoadWait($IE)

While 1
$sHTML = _IEBodyReadHTML ($IE)
            If StringInStr($sHTML, "/index.php?action=logout") Then
                GUICtrlSetState($Button1,$GUI_SHOW)
                While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit

                Case $Button1
                MsgBox(0, "ผ่าน", "ล็อคอินเสร็จสิ้น เกิดถ้ามีแต่เสียงเพลงในเกม ให้ไปกดที่ตัวเกม แล้วรอสักครู่", 0)
WinActivate("FairyLand")
WinMove("FairyLand","",0,0)
Opt("SendKeyDelay", 1000)
Opt("SendKeyDownDelay", 100)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While 1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
_IENavigate($IE, $URL2)
_IELoadWait($IE)
    ;dead pet walk
    $dead = PixelGetColor(30, 35)
If $dead = 0xCED7DE Then
    Send("{F10}")
    Sleep(5000)
    MouseClick("Left",76, 607,20)
    Sleep(500)
    MouseClick("Left",257, 158,20)
    Sleep(500)
    MouseClick("Left",342, 313,20)
    Sleep(500)
    MouseClick("left",256, 195,20)
    Sleep(500)
    MouseClick("Left",342, 313,20)
    Sleep(3000)
    MouseClick("Left",720, 14,3)
    Exit
Else
    EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;HP
$1 = PixelGetColor($HP, 35)
if $1 = 0xCED7DE Then
    Send("{F12}")
Else
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;SP
$2 = PixelGetColor($SP, 47)
If $2 = 0xE7EBEF Then
    send("{F7}")
Else
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Walk
$w = PixelGetColor(524, 62)
if $w = 0x2959FF Then
Sleep(200)
    MouseClick("Left",$w1, $w7, 20)
    Sleep(200)
    MouseClick("Left",$w2, $w8, 20)
    Sleep(200)
    MouseClick("Left",$w3, $w9, 20)
    Sleep(200)
    MouseClick("Left",$w4, $w10, 20)
    Sleep(200)
    MouseClick("Left",$w5, $w11, 20)
    Sleep(200)
    MouseClick("Left",$w6, $w12, 20)
Else
    EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;atk
$a = PixelGetColor(366, 275)
if $a = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",355, 272,20)
Else
EndIf

$b = PixelGetColor(295, 328)
if $b = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",286, 323,20)
Else
EndIf

$c = PixelGetColor(210, 391)
if $c = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",213, 378,20)
Else
EndIf

$d = PixelGetColor(303, 214)
if $d = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",290, 207,20)
Else
EndIf

$e = PixelGetColor(220, 276)
if $e = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",218, 260,20)
Else
EndIf

$f = PixelGetColor(159, 322)
if $f = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",142, 316,20)
Else
EndIf

$g = PixelGetColor(363, 169)
if $g = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",360, 151,20)
Else
EndIf

$h = PixelGetColor(74, 385)
if $h = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",76, 371,20)
Else
EndIf

$i = PixelGetColor(438, 221)
if $i = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",429, 215,20)
Else
EndIf

$j = PixelGetColor(149, 438)
if $j = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",149, 438,20)
Else
EndIf

$k = PixelGetColor(274, 338)
if $k = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",283, 319,20)
Else
EndIf

$l = PixelGetColor(289, 223)
if $l = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",289, 223,20)
Else
EndIf

$m = PixelGetColor(143, 332)
if $m = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",144, 313,20)
Else
EndIf

$n = PixelGetColor(350, 284)
if $n = 0xFFFBFF Then
    send("{F5}")
    MouseClick("Left",354, 262,20)
Else
EndIf

$o = PixelGetColor(132, 446)
if $o = 0xFFFBFF Then
    Send("{F5}")
    MouseClick("Left",134, 426,20)
Else
    EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;auto login
$disconnect = PixelGetColor(526, 138)
If $disconnect = 0xDE5100 Then
    MouseClick("Left",332, 314,5)
    Sleep(5000)
Else
EndIf

$login = PixelGetColor(361, 292)
if $login = 0xADCFA5 Then
    Send($Username)
    Send("{TAb}")
    Send($Password)
    Send("{Enter}")
    Sleep(3000)
    MouseClick("Left",183, 246,30)
    Sleep(3000)
    MouseClick("Left",680, 525,30)
Else
    EndIf

WEnd

    EndSwitch
WEnd

                    Else
                    EndIf

        WEnd

Func Esc2()
    Exit
    EndFunc

    เวลาขณะนี้ 07/12/16, 12:54 am