konami_cave.txt

REM Boots as STORAGE, starts a game of cave in a text editor after konami code 
REM COMPATABILITY: 
REM DuckyScript 3.0

REM TARGET:
REM Any host that will reflect CAPSLOCK

REM DEPLOYMENT:
REM Plug in Ducky. To Start a game of cave:
REM Open PayloadStudio Console, notepad or text editor, make sure cursor is active there
REM Press the button on the Ducky
REM Press CAPSLOCK on the host machine lock 5 times
REM Press the Duck button to confirm and start game
REM Good luck!

ATTACKMODE STORAGE
LED_G
WAIT_FOR_BUTTON_PRESS
LED_OFF
ATTACKMODE HID STORAGE
LED_G
WAIT_FOR_CAPS_CHANGE
LED_OFF
WAIT_FOR_CAPS_CHANGE
LED_G
WAIT_FOR_CAPS_CHANGE
LED_OFF
WAIT_FOR_CAPS_CHANGE
LED_G
WAIT_FOR_CAPS_CHANGE
LED_R
WAIT_FOR_BUTTON_PRESS
LED_G

DEFINE RIGHT 0
DEFINE LEFT 1
DEFINE GAME_MAX_WIDTH 40
DEFINE GAME_SPEED 200 
VAR $mode = RIGHT
VAR $lock_state = FALSE
VAR $score = 0
VAR $running = TRUE
VAR $direction_changes = 0

VAR $D = 0
VAR $INPUT = 0
VAR $MOD = 0
VAR $P = FALSE
FUNCTION PRINTDIGIT()
    IF ($D == 0) THEN
        STRING 0
    ELSE IF ($D == 1) THEN
        STRING 1
    ELSE IF ($D == 2) THEN
        STRING 2
    ELSE IF ($D == 3) THEN
        STRING 3
    ELSE IF ($D == 4) THEN
        STRING 4
    ELSE IF ($D == 5) THEN
        STRING 5
    ELSE IF ($D == 6) THEN
        STRING 6
    ELSE IF ($D == 7) THEN
        STRING 7
    ELSE IF ($D == 8) THEN
        STRING 8
    ELSE IF ($D == 9) THEN
        STRING 9
    ELSE 
        STRING ?
    END_IF
END_FUNCTION
FUNCTION CONSUME()
    $D = 0
    WHILE ($INPUT >= $MOD)
        $D = ($D + 1)
        $INPUT = ($INPUT - $MOD)
    END_WHILE
    IF (($D > 0) || ($P == TRUE)) THEN
        $P = TRUE
        PRINTDIGIT()
    END_IF
END_FUNCTION
FUNCTION TRANSLATE_INT() 
    $P = FALSE
    IF ( $INPUT >= 10000) THEN
        $MOD = 10000
        CONSUME()
    END_IF
    IF (($INPUT >= 1000) || ($P == TRUE)) THEN
        $MOD = 1000
        CONSUME()
    END_IF
    IF (($INPUT >= 100) || ($P == TRUE)) THEN
        $MOD = 100
        CONSUME()
    END_IF
    IF (($INPUT >= 10) || ($P == TRUE)) THEN
        $MOD = 10
        CONSUME()
    END_IF()
    $D = $INPUT
    PRINTDIGIT()
    ENTER
END_FUNCTION
FUNCTION TRANSLATE_BOOL()
    IF ($INPUT == TRUE) THEN
        STRING TRUE
    ELSE IF ($INPUT == FALSE) THEN
        STRING FALSE
    ELSE 
        STRING ?
    END_IF
    ENTER
END_FUNCTION

VAR $CD = 3
FUNCTION COUNTDOWN()
	WHILE ( $CD > 0 )
		STRING .
		$CD = ($CD - 1)
		DELAY 1000
	END_WHILE
END_FUNCTION

FUNCTION ENSURE_CAPS_OFF()
	IF ($_CAPSLOCK_ON == TRUE) THEN
		CAPSLOCK
	END_IF
END_FUNCTION

FUNCTION init() 
    $_RANDOM_MIN = 9
    $_RANDOM_MAX = 19
    VAR $l_wall = $_RANDOM_INT
    $_RANDOM_MIN = 20 
    $_RANDOM_MAX = 29
    VAR $player = $_RANDOM_INT
    $_RANDOM_MIN = 30
    $_RANDOM_MAX = 40
    VAR $r_wall = $_RANDOM_INT
END_FUNCTION

FUNCTION check_input()
    VAR $changed = FALSE
    IF ($_CAPSLOCK_ON != $lock_state) THEN
        $lock_state = $_CAPSLOCK_ON
    	$direction_changes = ($direction_changes + 1)
        IF ($mode == RIGHT) THEN
            $mode = LEFT
        ELSE
            $mode = RIGHT
        END_IF
    END_IF
END_FUNCTION

FUNCTION end_game()
        LED_R
        $running = FALSE
END_FUNCTION

FUNCTION move_walls()
    $_RANDOM_MIN = 0
    $_RANDOM_MAX = 100
    VAR $CHANCE = $_RANDOM_INT

    IF ($CHANCE > 45) THEN
        IF ($l_wall < GAME_MAX_WIDTH) THEN
            $l_wall = ($l_wall + 1)
            REM STRING l+
        END_IF
    ELSE
        IF ($l_wall > 0) THEN
            $l_wall = ($l_wall - 1)
            REM STRING l-
        ELSE
            $l_wall = ($l_wall + 1)
        END_IF
    END_IF

    $CHANCE = $_RANDOM_INT
    IF ($CHANCE > 45) THEN
        IF ($r_wall > 0) THEN
            $r_wall = ($r_wall - 1)
            REM STRING r-
        END_IF
    ELSE
        IF ($r_wall < GAME_MAX_WIDTH) THEN
            $r_wall = ($r_wall + 1)
            REM STRING r+
        ELSE
            $r_wall = ($r_wall - 1)
        END_IF
    END_IF
    REM ENTER
END_FUNCTION

FUNCTION move_player()
    IF ($mode == RIGHT) THEN
        IF ($player < GAME_MAX_WIDTH) THEN
            $player = ($player + 1)
        END_IF
    ELSE IF ($mode == LEFT) THEN
        IF ($player > 0) THEN
            $player = ($player - 1)
        END_IF
    END_IF
END_FUNCTION

FUNCTION draw()
	IF (($player <= $l_wall) || ($player >= $r_wall)) THEN
		end_game()
        STRING BONK
        RETURN 0
    END_IF

    VAR $l_inside_whitespace = (($player - $l_wall) - 1)
    VAR $r_inside_whitespace = (($r_wall - $player) - 1)
    IF ($l_wall > 1) THEN
        VAR $l_outside_whitespace = ($l_wall - 1)
        WHILE ($l_outside_whitespace > 0)
            SPACE
            $l_outside_whitespace = ($l_outside_whitespace - 1)
        END_WHILE
    END_IF 
    STRING |
    WHILE ($l_inside_whitespace > 0)
        SPACE
        $l_inside_whitespace = ($l_inside_whitespace - 1)
    END_WHILE
    IF ($mode == RIGHT) THEN
        STRING >
    ELSE IF ($mode == LEFT) THEN
        STRING <
    END_IF
    WHILE ($r_inside_whitespace > 0)
        SPACE
        $r_inside_whitespace = ($r_inside_whitespace - 1)
    END_WHILE
    STRING |
    ENTER
    $score = ($score + 1)
    RETURN 0
END_FUNCTION

FUNCTION run()
    check_input()
    move_walls()
    check_input()
    move_player()
    check_input()
    draw()
END_FUNCTION

FUNCTION play_cave()
	WHILE TRUE
		ENSURE_CAPS_OFF()
		$score = 0
		LED_G
		ENTER
	 	STRING Game Starting in 3s
		$CD = 3
		COUNTDOWN()
		ENTER
		STRING GOOD LUCK!
		ENTER
		ENTER
	    init()
	    WHILE ($running == TRUE) 
	        DELAY GAME_SPEED
	        run()
	    END_WHILE
		ENSURE_CAPS_OFF()
		ENTER
		STRING Left wall 
		$INPUT = $l_wall
		TRANSLATE_INT()
		STRING Right wall:
		$INPUT = $r_wall
		TRANSLATE_INT()
		STRING Player position:
		$INPUT = $player
		TRANSLATE_INT()
		STRING GAME OVER. SCORE: 
		$INPUT = $score
		TRANSLATE_INT()
		STRING Player Moves: 
		$INPUT = $direction_changes
		TRANSLATE_INT()
		DELAY 1000
		STRING Press CAPS to play again.
		WAIT_FOR_CAPS_CHANGE
		$running = TRUE
		DELAY 100
    END_WHILE 
END_FUNCTION

BUTTON_DEF
	end_game()
END_BUTTON

play_cave()