home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 January / PCWELT_1_2006.ISO / pcwsoft / autoit-v3-setup.exe / Examples / Random.au3 < prev    next >
Encoding:
Text File  |  2005-01-18  |  904 b   |  34 lines
  1. ;Flip of coin
  2. If Random() < 0.5 Then  ; Returns a value between 0 and 1.
  3.     $msg = "Heads. 50% Win"
  4. Else
  5.     $msg = "Tails. 50% Loss"
  6. Endif
  7. MsgBox(0,"Coin toss", $msg )
  8.  
  9.  
  10. ;Roll of a die
  11. msgBox(0, "Roll of die", "You rolled a " & Random(1, 6, 1) )
  12.  
  13.  
  14. ;In the middle of a stock market simulation game
  15. $StockPriceChange = Random(-10, 10, 1)  ; generate an integer between -10 and 10
  16. $StockPrice = $StockPrice + $StockPriceChange
  17. If $StockPriceChange < 0 Then
  18.     MsgBox(4096, "Stock Change", "Your stock dropped to $" & $StockPrice)
  19. ElseIf $StockPriceChange > 0 Then
  20.     MsgBox(4096, "Stock Change", "Your stock rose to $" & $StockPrice)
  21. Else
  22.     MsgBox(4096, "Stock Change", "Your stock stayed at $" & $StockPrice)
  23. Endif
  24.  
  25.  
  26. ;Random letter
  27. If Random() < 0.5 Then
  28.     ;Capitals
  29.     $Letter = Chr(Random(Asc("A"), Asc("Z"), 1))
  30. Else
  31.     ;Lower case
  32.     $Letter = Chr(Random(Asc("a"), Asc("z"), 1))
  33. Endif
  34.