Quote: "Your string will be case sensitive so under the input add
cheat$=lower$(cheat$)
Also its is not wise to use cls and input in FPSC."
You missed the most important flaw Hockeykid.. He's trying to do this entire thing in ONE IF sequence, which means he only gets to run his cheat code when he continuesly holds keystate 21 down, and inputs godmode every frame.. A more sensible way of creating a cheat system would be something like this:
Declare this at the top of your code.
#CONSTANT CHEAT_GODMODE = 0
Declare this under the Array section
Global Dim Cheats(100) as Integer
Place this inside your game loop
If KeyState(21)
CLS
Input ">> ", Cheat$
Cheat$ = Lower$(Cheat$)
If Cheat$ = "irtehgodznao"
Cheats(CHEAT_GODMODE) = 1
EndIf
EndIf
And put this elsewhere in your code, preferably at the end of your game loop so it will update after the damage calculations etc.
If Cheats(CHEAT_GODMODE) = 1 'God Mode
player(1).health=999
EndIf
Note that it is NOT recommended to use CLS and Input, nor Wait.. They make the screen turn black, and freeze the entire game. You're better off writing your own Input function with some of the features DBP provides you with, it has a neat buffer for keyboard input for example which you can manipulate for this.
I wrote this without having DBP installed so my bad if there's any syntax errors in it.
EDP Map Editor[2D]
