ฟอรั่ม PSsix

Would you like to react to this message? Create an account in a few clicks or log in to continue.

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


2 posters

    เรื่อง เงือนไขต่างๆครับ

    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010

    เรื่อง เงือนไขต่างๆครับ Empty เรื่อง เงือนไขต่างๆครับ

    ตั้งหัวข้อ by flapjack 31/10/10, 09:48 am

    พอดีผม เขียนสคริป ที่ทำตามเงื่อนไขครับ แต่พอเขียนแล้วมันไม่เป็นไปตามที่คิดไว้

    สิ่งที่อยากจะเขียน
    - กด TAb
    - เจอแถบสี ให้กดตามที่สั่งเอาไว้
    **มีอยู่ 2 กรณี
    - แต่ถ้ายังเจอแถบสีอยู่ให้ กดตามที่สั่งเอาไว้(ตามข้อ2)
    - แต่ถ้าไม่เจอแถบสี ให้เริ่มใหม่ (วน)



    รายละเอียดของสคริป
    - จะกด ปุ่ม TAb ต่อเมื่อเจอหน้าต่างตัวนี้
    - แล้วไป Func ที่ attalk
    - เมื่อไป Func attalk ให้เจอสีตัวนี้ ให้กด 1 กับ 5
    - แล้วไป Func ที่ AI
    - เมื่อไป ถึง ให้เจอสีตัวนี้ แล้วไปที่ start


    Code:

    Func jai()
    WinActivate ('หน้าต่างตัวโปรแกรม')
    Return
    EndFunc


    Func start()

       jai()
       Send("{TAB}")
       Sleep  (500)
    attalk()

    EndFunc

    Func attalk()
    $Pixel = PixelGetColor(416,195)
    If $Pixel =0x1B2F3C Then
    While 1

    Send ("{1}")
    Sleep(800)

    Send("{5}")
    Sleep (1000)
    WEnd
    AI()

    $Pixel = PixelGetColor(416,195)
    ElseIf  $Pixel =0x1B2F3C Then
    attalk()


    EndIf

    EndFunc

    Func AI()
    $Pixel = PixelGetColor(416,195)
    If  Not $Pixel =0x1B2F3C Then
       
          
     start()
     
    EndIf
    EndFunc

    พอเขียนมาแล้ว
    มันไม่เริ่ม Func start ใหม่แต่มันทำงาน Func attalk เลย
    ผมเลยส่งสัยว่า
    - While เนี้ย เวลาโปรแกรมทำงานมันวน แต่มันจะทำคำสั่ง ถัดไปเปล่าครับ
    - if กับ ifnot ต่างกันตรง จริงหรือไม่จริง หรือเปล่าครับ
    - ส่วน ElseIf นี้มัน การตรวจสอบเงื่อนไข ใช่หรือเปล่าครับ

    ผู้รู้ช่วย ตอบด้วยนะครับ :cheers:
    aut
    aut
    PSsix Powerful Scripting Class
    PSsix Powerful Scripting Class


    PSsix Game Coder
    จำนวนข้อความ : 472
    ความนิยม : 126
    เข้าร่วมเมื่อ : 24/07/2010

    เรื่อง เงือนไขต่างๆครับ Empty Re: เรื่อง เงือนไขต่างๆครับ

    ตั้งหัวข้อ by aut 31/10/10, 06:43 pm

    ดูสคิปแล้ว พอโปรแกรมทำงานมาถึงบรรทัด while 1 มันก็จะวนส่ง 1 5 1 5 1 5 1 5 ไม่หยุด ไปไหนต่อไม่ได้


    While 1

    Send ("{1}")
    Sleep(800)

    Send("{5}")
    Sleep (1000)
    WEnd
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


    PSsix Moderator PSsix Master PSsix Game Coder
    จำนวนข้อความ : 314
    ความนิยม : 75
    เข้าร่วมเมื่อ : 05/10/2010

    เรื่อง เงือนไขต่างๆครับ Empty Re: เรื่อง เงือนไขต่างๆครับ

    ตั้งหัวข้อ by flapjack 31/10/10, 09:30 pm

    aut พิมพ์ว่า:ดูสคิปแล้ว พอโปรแกรมทำงานมาถึงบรรทัด while 1 มันก็จะวนส่ง 1 5 1 5 1 5 1 5 ไม่หยุด ไปไหนต่อไม่ได้


    While 1

    Send ("{1}")
    Sleep(800)

    Send("{5}")
    Sleep (1000)
    WEnd

    อ๋อ ถ้า While มันจะวนไม่ทำคำสั่งถัดไปใช่ไหมครับ
    *************************
    ขอบคุณมากครับ

      เวลาขณะนี้ 26/04/24, 09:32 pm