Simple simulation script error

[n4n0]

Hello, I'm trying to make a simple simulator, and here's the source code. I want it to loop as long as <5000 is rolled, and double $min each time, once it's >5000 I want it to add $min to $coins.

I keep getting this error: "\Sim.au3" (21) : ==> "Until" statement with no matching "Do" statement.:
Until $r > 5000"

 

Thanks in advance, any other tips are appreciated too.

expandcollapse popup

#cs "Sim.ini"- file
Global  $coins = 1000
Global  $min = 20
Global  $ratio = 1.95
#ce


#include "Sim.ini"
HotKeySet("{END}", ExitIt)

Coins()

Func Coins()
        Local $r
        Local $i = 1
        Do

        Do
            While 1
            If $r = Random(0, 9999, 1) < 5000 Then
            $coins -= $i * $min
            $i *= 2
            MsgBox(0, $coins, $i & "   " & $r)
            Else
            $coins += $min * $ratio
            ExitLoop
            EndIf
        Until $r > 5000



        Until $coins < 20 Or $coins > 1000
EndFunc

Func ExitIt()
        Exit
EndFunc

 

[Danp2]

Looks like you don't have a matching WEnd for the While.

[n4n0]

Oh yes, my bad :/ But even with WEnd it loops forever and doesn't factor in when $r > 5000.

[Danp2]

This line has issues:

If $r = Random(0, 9999, 1) < 5000 Then

Perhaps you meant:

$r = Random(0, 9999, 1)
If $r < 5000 Then

What game are you "simulating"? How will this code ultimately be used?

[n4n0]

This line has issues:

If $r = Random(0, 9999, 1) < 5000 Then

Perhaps you meant:

$r = Random(0, 9999, 1)
If $r < 5000 Then

What game are you "simulating"? How will this code ultimately be used?

I don't want to be advertising, but it's for a CS:GO gamble site and I want to check its legitness, here's the final, working script with expected 50% winrate, thank you for your help.

I sumbit the code if someone might find it useful to mess around with.

expandcollapse popup

#cs "Sim.ini"- file
Local    $coins = 1000
Local    $min = 20
Local    $ratio = 1.95
#ce

#include "Sim.ini"
#include <File.au3>
HotKeySet("{END}", ExitIt)

Coins()

Func Coins()
   Local $r
   Local $roll
   Local $win = 0
   Local $lose = 0

   Do
      Do
         Local $i = 1
         While 1
         Sleep(100)
         $r = Random(0, 9999, 1)
         $roll += 1
         If $r < 5000 Then
            $win += 1
         Else
            $lose += 1
            EndIf
         _FileWriteLog(@ScriptDir & "\Coins.log", "Coins = " & $coins & @TAB & $r & @TAB & $roll & @TAB & "W = " & $win & @TAB & "L = " & $lose & @TAB & "Win rate = " & $win / ($win + $lose) * 100)
         If $r > 5000 Then
            $coins -= $i * $min
            $i *= 2
         Else
            $coins += $i * $min * $ratio
            ExitLoop
         EndIf
      WEnd
      Until $r < 5000
   Until $coins < 20 Or $coins > 100000
EndFunc

Func ExitIt()
   Exit
EndFunc

 

[JohnOne]

Never realized that HotkeySet function parameter does not need to be string any more.

[n4n0]

Never realized that HotkeySet function parameter does not need to be string any more.

I am sort of new, how was it before? Curious.

[JohnOne]

The function name had quotes,

HotKeySet("{END}", "ExitIt")

but they're treated as first class objects now, so apparently don't need them.

Edited November 5, 2015 by JohnOne

[BrewManNH]

Wouldn't that execute the function when the HotKeySet was set, rather than setting the hotkey to the function, it runs the function and sets the hotkey to the return result of that function.

[JohnOne]

Nope.

HotKeySet("{Esc}", ExitIt)

While 3
WEnd

Func ExitIt()
    MsgBox(0, 0, 0)
    Exit
EndFunc   ;==>ExitIt

 

[n4n0]

Nope.

HotKeySet("{Esc}", ExitIt)

While 3
WEnd

Func ExitIt()
    MsgBox(0, 0, 0)
    Exit
EndFunc   ;==>ExitIt

 

While 3 and no sleep :/

[BrewManNH]

Nope.

Interesting