depth charge game initial rust implementation

31_Depth_Charge/rust/Cargo.lock

@@ -0,0 +1,7 @@
+# This file is automatically @generated by Cargo.
+# It is not intended for manual editing.
+version = 3
+
+[[package]]
+name = "rust"
+version = "0.1.0"

31_Depth_Charge/rust/Cargo.toml

@@ -0,0 +1,6 @@
+[package]
+name = "rust"
+version = "0.1.0"
+edition = "2021"
+
+[dependencies]

31_Depth_Charge/rust/src/main.rs

@@ -0,0 +1,132 @@
+use std::io::Write;
+
+/** DEPTH CHARGE GAME 
+ * https://github.com/marquesrs/basic-computer-games/blob/main/31_Depth_Charge/depthcharge.bas
+ * Direct conversion from BASIC to Rust by Pablo Marques (marquesrs).
+ * No additional features or improvements were added. As a faithful translation, 
+ * many of the code here are done in an unrecommended way by today's standards.
+ * 03/03/25
+*/
+
+fn input(msg: &str) -> String {
+    print!("{}", msg);
+    let _ =std::io::stdout().flush().unwrap();
+    let mut input = String::new();
+    std::io::stdin().read_line(&mut input).unwrap();
+    return input.trim().to_uppercase();
+}
+
+fn main() {
+    // 2 PRINT TAB(30);"DEPTH CHARGE"
+    // 4 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+    // 6 PRINT: PRINT: PRINT
+    print!("{}", format!("{}{}\n{}{}\n\n\n\n",
+        " ".repeat(29),
+        "DEPTH CHARGE",
+        " ".repeat(14),
+        "CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY"
+    ));
+
+    // 20 INPUT "DIMENSION OF SEARCH AREA";G: PRINT
+    let mut g = input("DIMENSION OF SEARCH AREA");
+
+    // 30 N=INT(LOG(G)/LOG(2))+1
+    let mut n = INT(LOG(G)/LOG(2)) + 1;
+
+    // 40 PRINT "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER"
+    // 50 PRINT "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE.  YOUR"
+    // 60 PRINT "MISSION IS TO DESTROY IT.  YOU HAVE";N;"SHOTS."
+    // 70 PRINT "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A"
+    // 80 PRINT "TRIO OF NUMBERS -- THE FIRST TWO ARE THE"
+    // 90 PRINT "SURFACE COORDINATES; THE THIRD IS THE DEPTH."
+    // 100 PRINT : PRINT "GOOD LUCK !": PRINT
+    print!("{}", format!("{}{}{}{}{}{}{}{}{}",
+        "YOU ARE THE CAPTAIN OF THE DESTROYER USS COMPUTER\n",
+        "AN ENEMY SUB HAS BEEN CAUSING YOU TROUBLE.  YOUR\n",
+        "MISSION IS TO DESTROY IT.  YOU HAVE",
+        n,
+        "SHOTS.\n",
+        "SPECIFY DEPTH CHARGE EXPLOSION POINT WITH A\n",
+        "TRIO OF NUMBERS -- THE FIRST TWO ARE THE\n",
+        "SURFACE COORDINATES; THE THIRD IS THE DEPTH.\n",
+        "\nGOOD LUCK !\n"
+    ));
+
+    'main: loop {
+        // 110 A=INT(G*RND(1)) : B=INT(G*RND(1)) : C=INT(G*RND(1))
+        let mut a = INT(G*RND(1));
+        let mut b = INT(G*RND(1));
+        let mut c = INT(G*RND(1));
+
+        // 120 FOR D=1 TO N : PRINT : PRINT "TRIAL #";D; : INPUT X,Y,Z
+        let mut x;
+        let mut y;
+        let mut z;
+        for d in 1..=n {
+            print!("\nTRIAL #{}", d);
+            x = input("X: ");
+            y = input("X: ");
+            z = input("X: ");
+            // 130 IF ABS(X-A)+ABS(Y-B)+ABS(Z-C)=0 THEN 300
+            if i32::abs(x-a) + i32::abs(y-b) + i32::abs(z-c) == 0 {
+                // 300 PRINT : PRINT "B O O M ! ! YOU FOUND IT IN";D;"TRIES!"
+                // 400 PRINT : PRINT: INPUT "ANOTHER GAME (Y OR N)";A$
+                print!("{}", format!("{}{}{}{}{}",
+                    "\n",
+                    "B O O M ! ! YOU FOUND IT IN",
+                    d,
+                    "TRIES!\n",
+                    "\n\n"
+                ));
+                let a = input("ANOTHER GAME (Y OR N): ");
+                // 410 IF A$="Y" THEN 100
+                if a == "Y" {
+                    continue 'main;
+                }
+                else {
+                    // 420 PRINT "OK.  HOPE YOU ENJOYED YOURSELF." : GOTO 600
+                    print!("OK. HOPE YOU ENJOYED YOURSELF.");
+                    break 'main; 
+                }
+            }
+        
+            // 140 GOSUB 500 : PRINT : NEXT D
+            subroutine(x, y, z, a, b, c);
+            println!();
+        }
+        // 200 PRINT : PRINT "YOU HAVE BEEN TORPEDOED!  ABANDON SHIP!"
+        // 210 PRINT "THE SUBMARINE WAS AT";A;",";B;",";C : GOTO 400
+        print!("{}", format!("{}{}{}{}{}{}{}",
+            "\nYOU HAVE BEEN TORPEDOED! ABANDON SHIP!\n",
+            "THE SUBMARINE WAS AT ",
+            a,
+            ",",
+            b,
+            ",",
+            c 
+        ));
+    }
+    // 600 END
+}
+
+// 500 PRINT "SONAR REPORTS SHOT WAS ";
+// 510 IF Y>B THEN PRINT "NORTH";
+// 520 IF Y<B THEN PRINT "SOUTH";
+// 530 IF X>A THEN PRINT "EAST";
+// 540 IF X<A THEN PRINT "WEST";
+// 550 IF Y<>B OR X<>A THEN PRINT " AND";
+// 560 IF Z>C THEN PRINT " TOO LOW."
+// 570 IF Z<C THEN PRINT " TOO HIGH."
+// 580 IF Z=C THEN PRINT " DEPTH OK."
+// 590 RETURN
+fn subroutine(x: i32, y: i32, z:i32, a:i32, b:i32, c:i32) {
+    print!("SONAR REPORTS SHOT WAS ");
+    if y>b { print!("NORTH"); };
+    if y<b { print!("SOUTH"); };
+    if x>a { print!("EAST"); };
+    if x<a { print!("WEST"); };
+    if y!=b || x!=a { print!(" AND"); };
+    if z>c { print!(" TOO LOW."); };
+    if z<c { print!(" TOO HIGH."); };
+    if z==c { print!(" DEPTH OK."); };
+}