เกร็ดความรู้:สร้างเกมส์ด้วย Autoit

[sak2005]

ทำเกมส์ แข่งม้า ด้วย Autoit ..แต่ไม่ได้สนับสนุนให้นำไปเล่นการพนันกันนะครับ
เพราะรู้ๆกันอยู่ว่า..การพนันเป็นสิ่งไม่ดี ไม่ควรเข้าไปเกี่ยวข้อง อาจทำให้เสียคนได้
ดั่งโบราณว่า..'ไฟใหม้บ้านยังเหลือที่ดิน ..แต่ถ้าเล่นการพนัน จะไม่เหลืออะไรเลย'
...........................................
คุณสมบัติของคนที่ไม่ควรเล่นการพนัน
1.โกงไม่เป็น ไม่รู้จักวิธีโกง หรือ รู้ไม่เท่าทัน กลโกงของผู้อื่น
2.มีภรรยา-บุตร หรือ พ่อแม่ ที่ต้องรับภาระเลี้ยงดู
3.มีฐานะยากจน หาเช้ากินค่ำ มีหนี้สิน เงินเดือนชักหน้าไม่ถึงหลัง

ใครที่คิดว่ามีความสุขกับการเล่นพนัน.. คิดผิดแล้วครับ
เพราะการพนัน ไม่เคยทำให้ใครร่ำรวยหรือได้ดีแม้แต่คนเดียว

---------------------------------------------------------

#NoTrayIcon
#include <GUIConstants.au3>

  Example()

Func Example()

   Local $a, $b, $c

	GUICreate("Race horse game", 330, 220, -1, 300)
	$Button1 = GUICtrlCreateButton("Start", 135, 140, 70, 28)
	GUICtrlCreateLabel("", 333, 0, 1, 120, 5)
	GUICtrlCreateLabel("[ห้ามเล่นพนัน]", 135, 180, 70, 50)
	GUICtrlCreateLabel("การเล่นพนัน เป็นสิ่งที่ผิดกฏหมาย โปรดเตือนบุตรหลานของท่าน", 15, 200, 350, 50)
	GUICtrlCreateLabel("1", 1, 5, 20, 20)
	GUICtrlCreateLabel("2", 1, 50, 20, 20)
	GUICtrlCreateLabel("3", 1, 100, 20, 20)
	$n1 = GUICtrlCreateIcon(@WindowsDir & "\cursors\horse.ani", -1, 0, 0, 32, 32)
	$n2 = GUICtrlCreateIcon(@WindowsDir & "\cursors\horse.ani", -1, 0, 40, 32, 32)
    $n3 = GUICtrlCreateIcon(@WindowsDir & "\cursors\horse.ani", -1, 0, 80, 32, 32)

	GUISetState(@SW_SHOW)

While 1
	  $nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			GUICtrlSetState($Button1, $GUI_DISABLE)
	While $a < 300 and $b < 300 and  $c < 300
          $a = $a + Int(Random(0, 1) + 0.5)
		  $b = $b + Int(Random(0, 1) + 0.5)
		  $c = $c + Int(Random(0, 1) + 0.5)
          GUICtrlSetPos($n1, $a, 5)
		  GUICtrlSetPos($n2, $b, 45)
		  GUICtrlSetPos($n3, $c, 90)
		Sleep(20)
    WEnd

   If ($a > $b) And ($a > $c) Then
	  MsgBox(4096, "", "horse1..WIN")
	  GUICtrlSetState($Button1, $GUI_ENABLE)
	  $a = 0
	  $b = 0
	  $c = 0

   ElseIf ($b > $a) And ($b > $c) Then
	      MsgBox(4096, "", "horse2..WIN")
	      GUICtrlSetState($Button1, $GUI_ENABLE)
          $b = 0
          $c = 0
          $a = 0
   ElseIf ($c > $a) And ($c > $b) Then
          MsgBox(4096, "", "horse3..WIN")
	      GUICtrlSetState($Button1, $GUI_ENABLE)
          $c = 0
          $a = 0
          $b = 0
   EndIf
	EndSwitch
WEnd
EndFunc

------------------------------------------------------------

Download:

[ba5nanas]

ตัวนี้ผมใช้ ทำ auto install อยู่