ฟอรั่ม 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

    สอบถามRandom

    avatar
    TideStyle
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามRandom Empty สอบถามRandom Empty
    จำนวนข้อความ : 10
    ความนิยม : 0
    เข้าร่วมเมื่อ : 24/03/2013

    สอบถามRandom Empty สอบถามRandom

    ตั้งหัวข้อ by TideStyle 27/03/13, 12:55 pm

    สมมุติว่าเรากำหนดค่า
    $search = pixelsearch(0,10,0,10,0x000000)
    $w = send("w")
    $a = send("a")
    $s = send("s")
    $d = send("d")

    เราจะตั้งให้มีการRandom $w,$a,$s,$d ยังไงครับ
    และเมื่อเจอสีใน $search แล้วหยุดการRandom
    $w = send("w")
    $a = send("a")
    $s = send("s")
    $d = send("d")

    ขอบคุณครับ
    flapjack
    flapjack
    PSsix Member Super Class III
    PSsix Member Super Class III


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

    สอบถามRandom Empty Re: สอบถามRandom

    ตั้งหัวข้อ by flapjack 27/03/13, 08:59 pm

    Code:

    #RequireAdmin

    Dim $array[4]
    $array[0] =  "w"
    $array[1] =  "a"
    $array[2] =  "s"
    $array[3] =  "d"

    While 1
    $search = pixelsearch(0,10,0,10,0x000000)
    If Not @error Then
          ConsoleWrite("Stop: "&@CRLF)
       Else

                  Send($array[Random(0,3,1)])

       EndIf
    Sleep(1000)
    WEnd

    ประมาณนี้เปล่่าครับ
    avatar
    TideStyle
    สมาชิกทั่วไป
    สมาชิกทั่วไป


    สอบถามRandom Empty สอบถามRandom Empty
    จำนวนข้อความ : 10
    ความนิยม : 0
    เข้าร่วมเมื่อ : 24/03/2013

    สอบถามRandom Empty ขอบคุณครับ

    ตั้งหัวข้อ by TideStyle 29/03/13, 06:36 pm

    flapjack พิมพ์ว่า:
    Code:

    #RequireAdmin

    Dim $array[4]
    $array[0] =  "w"
    $array[1] =  "a"
    $array[2] =  "s"
    $array[3] =  "d"

    While 1
    $search = pixelsearch(0,10,0,10,0x000000)
    If Not @error Then
          ConsoleWrite("Stop: "&@CRLF)
       Else

                  Send($array[Random(0,3,1)])

       EndIf
    Sleep(1000)
    WEnd

    ประมาณนี้เปล่่าครับ

    ขอบคุณมากครับ

      เวลาขณะนี้ 27/04/24, 03:57 am