From e57fbeee414636025b5bca16d22be7eb6f645293 Mon Sep 17 00:00:00 2001
From: thomas-senechal <44696378+thomas-senechal@users.noreply.github.com>
Date: Thu, 27 Jun 2019 02:05:05 +0200
Subject: [PATCH] examples: VCasino

---
 examples/VCasino/.gitignore |   1 +
 examples/VCasino/README.md  |  17 +++++
 examples/VCasino/VCasino.v  | 147 ++++++++++++++++++++++++++++++++++++
 3 files changed, 165 insertions(+)
 create mode 100644 examples/VCasino/.gitignore
 create mode 100644 examples/VCasino/README.md
 create mode 100644 examples/VCasino/VCasino.v

diff --git a/examples/VCasino/.gitignore b/examples/VCasino/.gitignore
new file mode 100644
index 0000000000..6b71e28f79
--- /dev/null
+++ b/examples/VCasino/.gitignore
@@ -0,0 +1 @@
+VCasino
\ No newline at end of file
diff --git a/examples/VCasino/README.md b/examples/VCasino/README.md
new file mode 100644
index 0000000000..a2a6a3d644
--- /dev/null
+++ b/examples/VCasino/README.md
@@ -0,0 +1,17 @@
+# VCasino
+VCasino is a very simple game made to learn V.
+
+# Compile and Run
+
+Use this to generate a binary and then launch the game.
+```bash
+v VCasino.v
+./VCasino
+```
+
+And this to compile and launch the game directly.
+```bash
+v run VCasino.v
+```
+
+Created by Thomas Senechal : https://github.com/thomas-senechal/VCasino
diff --git a/examples/VCasino/VCasino.v b/examples/VCasino/VCasino.v
new file mode 100644
index 0000000000..a147155cd3
--- /dev/null
+++ b/examples/VCasino/VCasino.v
@@ -0,0 +1,147 @@
+import rand
+import os
+
+const (HelpText = ' Usage:\t./VCasino\n
+ Description:\n  VCasino is a little game only made to learn V.\n')
+const (GDesc = '  The object of Roulette is to pick the number where the spinning ball will land on the wheel.
+   If your number is the good one, you\'ll get your bet x3.
+   If your number is the same color as the ball one, you\'ll get your bet /2.
+   Otherwise, you will lose your bet.\n')
+const (Odd = 'Red' Even = 'Black')
+
+struct options {
+    long_opt string
+    short_opt string
+}
+
+fn display_help() {
+    println(HelpText + GDesc)
+}
+
+fn option_parser() bool {
+    help := options{'--help', '-h'}
+    for i := 0; i < os.args.len; i++ {
+        if compare_strings(os.args[i], help.long_opt) == 0 || compare_strings(os.args[i], help.short_opt) == 0 {
+            display_help()
+            return true
+        }
+    }
+    return false
+}
+
+fn str_is_nbr(s string) bool {
+	for i := 0; i < s.len; i++ {
+        if !s[i].is_digit() {
+            return false
+        }
+    }
+    return true
+}
+
+fn get_bet_nbr() int {
+    mut bet_nbr := -1
+    for bet_nbr < 0 || bet_nbr > 49 {
+        println('Reminder: Odd numbers are red and even are black.')
+        println('Type the number you want to bet on (between 0 and 49):')
+		line := os.get_line().trim_space()
+        if line.len < 1 {
+            println('error: empty line.')
+            continue
+        }
+        if !str_is_nbr(line) {
+            println('error: $line is not a number.')
+            continue
+        }
+        bet_nbr = line.int()
+        if bet_nbr < 0 || bet_nbr > 49 {
+            println('error: $line is not between 0 and 49.')
+            bet_nbr = -1
+            continue
+        }
+    }
+    return bet_nbr
+}
+
+fn get_bet(money int) int {
+    mut bet := -1
+    for bet <= 0 || bet > money {
+        println('You\'ve $money V. Type in the amount of your bet:')
+		line := os.get_line().trim_space()
+        if line.len < 1 {
+            println('error: empty line.')
+            continue
+        }
+        if !str_is_nbr(line) {
+            println('error: $line is not a number.')
+            continue
+        }
+        bet = line.int()
+        if bet <= 0 {
+            println('error: $line is not heigher than 1.')
+            continue
+        } else if bet > money {
+            println('error: $line is not heigher than your money.')
+        }
+    }
+    return bet
+}
+
+fn run_wheel(bet_nbr int, bet int) int {
+    rand.seed()
+    winning_nbr := rand.next(50)
+    print('Roulette Wheel spinning... and stops on the number $winning_nbr which is a ')
+    if winning_nbr % 2 == 1 {
+        println(Odd)
+    } else {
+        println(Even)
+    }
+    if winning_nbr == bet_nbr {
+        bet *= 3
+        println('Congratulations! You get $bet V!')
+    } else if winning_nbr % 2 == bet_nbr % 2 {
+        bet /= 2
+        println('You bet the right color. You get $bet V!')
+    } else {
+        println('Sorry buddy. You lost $bet V!')
+        bet *= -1
+    }
+    return bet
+}
+
+fn is_broke(money int) bool {
+    if money <= 0 {
+        println('You\'broke, the game is over..')
+        return false
+    } else {
+        quit := options{'yes', 'y'}
+        println('You\'ve $money V. Do you want to quit the casino with your winnings? (y/n)')
+   	    line := os.get_line().trim_space().to_lower()
+        if compare_strings(line, quit.long_opt) == 0 || compare_strings(line, quit.short_opt) == 0 {
+            return false
+        }
+    }
+    return true
+}
+
+fn game_loop() {
+    mut can_play := true
+    mut money := 1000
+
+    println(GDesc)
+    println('You start the game with $money V.\n')
+    for can_play {
+        bet_nbr := get_bet_nbr()
+        bet := get_bet(money)
+        money += run_wheel(bet_nbr, bet)
+        can_play = is_broke(money)
+    }
+}
+
+fn main() {
+    if os.args.len >= 2 {
+        if option_parser() {
+            return
+        }
+    }
+    game_loop()
+}
\ No newline at end of file