PDA

: 駪غ (Ѻ)



purexe
1st December 2011, 17:21
ʴդѺҺ촹繤á ͽҡǴ ͹ǡѹФѺ

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
28th December 2011, 17:29
Ѻ RPG maker ¤Ѻ 鴹