เกมส์เป่ายิ้งชุบ (ฉบับง่าย)

[purexe]

สวัสดีครับผมเพิ่งมาบอร์ดนี้เป็นครั้งแรก ขอฝากตัวด้วย เกมส์ง่ายๆๆก่อนแล้วกันนะครับ

http://www.mediafire.com/?iyy053wxl7ap1p7

Code *-*
Autoit3

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
Global $a,$b,$mss
$Form1 = GUICreate("เป่ายิงชุบ", 180, 169, 192, 124)
$Button1 = GUICtrlCreateButton("ค้อน", 40, 24, 97, 25)
$Button2 = GUICtrlCreateButton("กระดาษ", 40, 64, 97, 25)
$Button3 = GUICtrlCreateButton("กรรไกร", 40, 104, 97, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$b=0
			_prowinlose()
			MsgBox(64,"ผลลัพธ์",$mss)
			Case $Button2
			$b=1
			_prowinlose()
			MsgBox(64,"ผลลัพธ์",$mss)
			Case $Button3
			$b=2
			_prowinlose()
			MsgBox(64,"ผลลัพธ์",$mss)
	EndSwitch
WEnd

Func _prowinlose()
	$mss=""
	$a=10
	While $a>2
	$a=Round(Random(0,3))
	WEnd
		if $a=0  Then
        $mss&="คอมพิวเตอร์ใช้ค้อน "
		ElseIf $a=1  Then
        $mss&="คอมพิวเตอร์ใช้กระดาษ "
		ElseIf $a=2 Then
        $mss&="คอมพิวเตอร์ใช้กรรไกร "
		EndIf

   if	$a=$b Then
		$mss&=@CRLF
		$mss&="ซึ่งคุณเสมอ"
    elseif	$b=1 And $a=0 Then
		$mss&=@CRLF
		$mss&="ซึ่งคุณเชนะ"
    elseif $b=2 And $a=1 Then
	$mss&=@CRLF
		$mss&="ซึ่งคุณเชนะ"
    elseif $b=0  and $a=2  Then
    $mss&=@CRLF
		$mss&="ซึ่งคุณเชนะ"
     elseif $a=1 And $b=0  Then
    $mss&=@CRLF
		$mss&="ซึ่งคุณแพ้"
    elseif $a=2 And $b=1 Then
		$mss&=@CRLF
		$mss&="ซึ่งคุณแพ้"
    elseif $a=0 And $b=2 Then
    $mss&=@CRLF
		$mss&="ซึ่งคุณแพ้"
		EndIf
	EndFunc

[abc46matee]

นำไปใช้กับ RPG maker ได้มั้ยครับ โค้ดนี้