Advertisement
Guest User

Untitled

a guest
Oct 13th, 2017
64
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 0.69 KB | None | 0 0
  1. $GUI = GUICreate("Age of War [AutoIt Var Editing]", 670, 560, -1, -1)
  2. $oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
  3. $oGameGUI = GUICtrlCreateObj($oGame, 10, 10, 650, 450)
  4. With $oGame
  5.     .bgcolor = "#000000"
  6.     .Movie = "C:\Documents and Settings\FAST\Dokumenter\roulette.swf"
  7.     .Loop = True
  8.     .ScaleMode = 2
  9.     .wmode = "Opaque"
  10. EndWith
  11.  
  12. $Money = GUICtrlCreateInput("Score", 10, 470, 100, 20)
  13. $SetMoney = GUICtrlCreateButton("Set Score", 120, 468, 100)
  14.  
  15. GUISetState()
  16. While 1
  17.     $nMsg = GUIGetMsg()
  18.     Select
  19.     Case $nMsg = -3
  20.         Exit
  21.     Case $nMsg = $SetMoney
  22.         $Read_Money = GUICtrlRead($Score)
  23.         $oGame.SetVariable("cash", $Score)
  24.      EndSelect
  25. WEnd
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement