Sorry your browser is not supported!

Query if any key relevant keys were pressed.
---\Case select for the last key pressed value
--------\within, query if the current key is correct.
--------------\Yes:
--------------\--\update last key pressed
--------------\--\set keypress timer to limit
--------------\No:
-----------------\set last key to zero
Constantly decrease the keypress timer
---\If the timer hits <= 0:
--------\set last keypress to 0.
--------\set keypress timer to 0.

SYNC ON
SYNC RATE 60
hold=0
cheats_mode=0

DO

//Debug Readout
CLS
PRINT STR$(pos)
PRINT STR$(debug_mode)
PRINT STR$(timeleft)
SYNC

//Timer
clicks=100
IF timeleft<0 THEN T=TIMER() : elapsed=(Timer()-T)/100
elapsed=(Timer()-T)/100
timeleft=clicks-elapsed

//Select Statement
IF SCANCODE()=0 THEN hold=0
SELECT INKEY$()
	
	CASE "w"
	IF pos=0 AND hold=0 THEN pos=1 : hold=1
	ENDCASE
	
	CASE "o"
	IF pos=1 AND hold=0 THEN pos=2 : hold=1
	ENDCASE
	
	CASE "r"
	IF pos=2 AND hold=0 THEN pos=3 : hold=1
	ENDCASE

	CASE "d"
	IF pos=3 AND hold=0 THEN pos=4 : hold=1
	ENDCASE
	
	CASE "p"
	IF pos=4 AND hold=0 THEN pos=5 : hold=1
	ENDCASE
	
	CASE "a"
	IF pos=5 AND hold=0 THEN pos=6 : hold=1
	ENDCASE
	
	CASE "s"
	IF pos=6 AND hold=0 THEN pos=7 : hold=1
	IF pos=7 AND hold=0 AND timeleft>0 THEN cheats_mode=1 : timeout=0 : pos=0
	ENDCASE
	
ENDSELECT

LOOP

END

passOk = 0
clear entry buffer

do
    cls
    
    word$ = entry$(1)
    checkword$ = right$(word$, 8)
    if checkword$ = "password"
        passOk = 1 - passOk
        clear entry buffer
    endif
    
    if passOk = 1
        rem show console or whatever
        print timer()
    endif
    
loop

remstart
           +-------------------------------+---+----+---+
           | nonZero Tutorials - Key Combo | = | [] | X |
           +-------------------------------+---+----+---+
           | Hypothetical scenario: You make a game and |
           | Your cheat code is "dark"                  |
           |                                            |
           |                                            |
           |                +--------+                  |
           |                |   OK   |                  |
           |                +--------+                  |
           +--------------------------------------------+
remend

// Constants - I have a file with proper friendly key names in my Functions Library but this'll do for now.
   #CONSTANT qkey       KEYSTATE(16)
   #CONSTANT dkey       KEYSTATE(32)
   #CONSTANT akey       KEYSTATE(30)
   #CONSTANT rkey       KEYSTATE(19)
   #CONSTANT kkey       KEYSTATE(37)
   #CONSTANT maxTMR     5000

// Setup
   SYNC RATE 60: SET DISPLAY MODE DESKTOP WIDTH(), DESKTOP HEIGHT(), 32

// Variables
   cheatFLAG = 0        ` <-- What track's your cheat code inout
   cheatTMR = maxTMR    ` <-- We'll be using this as our tracker
   gameTMR = 0          ` <-- We'll be assigning it later, just introducing it here.
                        `     This would represent your game's internal timer.



// Main
   WHILE qkey = 0
         CLS
         PRINT "Welcome! Press a combo (" + CHR$(34) + "dark" + CHR$(34) + ") to enable or q/esc to quit"
         gameTMR = TIMER()                            ` <-- Tracking the timer
         IF pressed = 0                               ` <-- Only check if previous key released
               pressed = (dkey + akey + rkey + kkey)  ` <-- Get TRUE/FALSE on keypress within sequence
               IF SCANCODE() > 0 AND pressed = 0      ` <-- Check for non-dark presses
                     cheatFLAG = 0                    `     Since this check only need be performed in this context we place it here
                     cheatTMR = 0
               ENDIF
         ENDIF
         IF pressed = 1                               ` <-- No multi-pressing!
               pressed = 2                            ` <-- Just set pressed flag to a number outside the condition-checks (namely 1 and 0)
               SELECT cheatFLAG                       ` <-- In DBPro, there's only support for numeric-value cases.
                     CASE 0
                           IF dkey = 1: cheatFLAG = 1: cheatTMR = maxTMR: ELSE: cheatTMR = 0: cheatFLAG = 0: ENDIF
                     ENDCASE
                     CASE 1
                           IF akey = 1: cheatFLAG = 2: cheatTMR = maxTMR: ELSE: cheatTMR = 0: cheatFLAG = 0: ENDIF
                     ENDCASE
                     CASE 2
                           IF rkey = 1: cheatFLAG = 3: cheatTMR = maxTMR: ELSE: cheatTMR = 0: cheatFLAG = 0: ENDIF
                     ENDCASE
                     CASE 3
                           IF kkey = 1: cheatFLAG = 4: cheatTMR = maxTMR: ELSE: cheatTMR = 0: cheatFLAG = 0: ENDIF
                     ENDCASE
               ENDSELECT
               IF cheatFLAG = 4
                     CheatConsole()
                     cheatFLAG = 0
                     cheatTMR = 0
               ENDIF
         ENDIF
         timelapse = TIMER() - gameTMR                         ` <-- Get the elapsed time
         cheatTMR = cheatTMR - timelapse                       ` <-- Subtract elapsed time from the cheat-timer
         IF cheatTMR <= 0: cheatFLAG = 0: cheatTMR = 0: ENDIF  ` <-- If time's up, cancel combo
         IF SCANCODE() = 0: pressed = 0: ENDIF                 ` <-- Do checking for keylift at end here
   ENDWHILE
   END

` ====================================================================================================================================


Function CheatConsole()
      PRINT "": PRINT "":
      PRINT "-------- Cheatz Console ---------------"
      INPUT "Enter a cheat to activate it >", inp$
      PRINT "Sorry, " + CHR$(34) + inp$ + CHR$(34) + " ain't available as there's no game!"
      PRINT ""
      PRINT "Press any key"
      WAIT KEY
EndFunction