Sorry your browser is not supported!

REMSTART
=======================================================
COUNTER-STRIKE : BOMB/DEFUSE!  Kinda...
Created by Daz
-------------------------------------------------------
Created for the newcomers, by a newcomer.  Don't get
discouraged now ;)      Here's how to produce a simple
program that keeps the world safe if the password is
correct, and blows it up if it isn't...
-------------------------------------------------------
)www.darkbasic.com(              )www.darkbasicpro.com(
=======================================================
REMEND

`Here you can see "game:" . This is a label, and will be explained
`later on in the program.  "HIDE MOUSE" hides the mouse cursor.
`You can also see "SET CURSOR 100, 300.
`This tells the program to place the text at those coordinates
`on the X and Y axis.
game:
HIDE MOUSE
SET CURSOR 100, 300

`Here is the variable we will be using for the password.
`You may change this to whatever you want (independnt or what).
answer$ = "pass"

`This diplays a prompt for the user and is the first thing he/she
`sees.  The text in pink is what will be displayed, but this can
`be changed.  The variable at the end is the one that stores the
`password.
INPUT "Enter password : ", answer$

`Here is a IF/THEN/ELSE section for you.  Simple really,  It's
`saying that if the password entered matches the one stored in
`the variable, it will display the PRINT messages below, and then
`the user presses any key to exit the program...
IF answer$ = "pass"
SET CURSOR 100, 320
PRINT "The world has been saved. Congratulations!"
SET CURSOR 100, 340
PRINT "Press any key to exit."
WAIT KEY

`...or this will happen.  It will diplay the message and a count-
`down will follow.
`FOR A = 10 TO 1 STEP -1 = The numbers 10 to 1, with it going down by 1 each time.
`SET CURSOR 300,300 = Set where the text will be placed.
`PRINT A = Displays the current countdown number.
`WAIT 1000 = Wait for 1000 miliseconds (1 second).
`CLS = Clears the screen so it shows one number at a time.
`NEXT A = Carries on until it reaches BLAST OFF.
ELSE
SET CURSOR 100, 320
PRINT "Incorrect password : Self-destruct initialising..."
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A

`The last bit is easy, sets the text for coordinates X=300 and Y=300.
`Displays the message (e.g. BOOOOM!), and displays a message to
`either press the SPACEKEY to retry or RETURN to exit.
`The GOSUB statement tells the program to go back to the beginning
`of the program if the SPACEKEY is pressed so the user can retry.
`If the RETURNKEY is pressed then the program ends. Simple.

SET CURSOR 100, 300
PRINT "BOOOOM!"
SET CURSOR 100, 320

PRINT "Press the SPACEKEY to try again, or RETURN to exit."
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB game
IF RETURNKEY() = 1 THEN END
ENDIF
END

REM P.S. If you would like to include this in one of your programs,
REM  you may do so if you wish.

REMSTART
=======================================================
COUNTER-STRIKE : BOMB/DEFUSE!  Version 2.0
Created by Daz
-------------------------------------------------------
Created for the newcomers, by a newcomer.  Don't get
discouraged now ;)      Here's how to produce a simple
program that keeps the world safe if the password is
correct, and blows it up if it isn't...
-------------------------------------------------------
)www.darkbasic.com(              )www.darkbasicpro.com(
=======================================================
REMEND

`Here you can see "game:" . This is a label, and will be explained
`later on in the program.  "HIDE MOUSE" hides the mouse cursor.
`-NEW- There is BACKDROP OFF, this helps to see the text (explained
`later).
`-NEW- There is also a T enter name feature, very simple.
`You can also see "SET CURSOR 100, 300.
`This tells the program to place the text at those coordinates
`on the X and Y axis.
Game:
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Enter your name, Terrorist :  ", tname$
CLS
SET CURSOR 100, 320
PRINT "You're in the bomb site area!"
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY
CLS

`-NEW- A PARTICLES command has been added to create an effect of
`an explosion later on.  We can colour the particles, as in this
`example I've used red primarily for its strong danger expression
`it gives (call me an artist).  We've hidden the particles so it's
`saved for later on.
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1

`-NEW- Here is basically a prompt for the T player to enter a code for
`the C4, also very simle using the INPUT command.
SET CURSOR 100, 300
INPUT "Enter the C4 code : ", tcode$
SET CURSOR 100, 320
PRINT tname$;" sets up the bomb!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY
CLS

`-NEW- Now it's the CT's turn.  Same thing as with the T but you have
`to defuse the bomb.  Another INPUT command.
SET CURSOR 100, 300
INPUT "Enter your name, Counter-Terrorist : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Defuse the bomb!!!!!!"
SET CURSOR 100, 320
INPUT "Enter the code : ", ctcode$

`-UPDATED- Now there is an IF/THEN/ELSE/ENDIF part coming up.  If the T's
`code for the bomb is the same as the CT's code, the bomb is
`defused...
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" defused the bomb!!!!!!"
SET CURSOR 100, 320
PRINT "The target has been saved!!!!!!"
SET CURSOR 100, 340
PRINT "Counter-Terrorists win!!!!!!"
WAIT 5000
CLS
SET CURSOR 100, 300
PRINT "Press any key to end."
WAIT KEY
END

`...or this will happen.  It will diplay the message and a count-
`down will follow.
`FOR A = 10 TO 1 STEP -1 = The numbers 10 to 1, with it going down by 1 each time.
`SET CURSOR 300,300 = Set where the text will be placed.
`PRINT A = Displays the current countdown number.
`WAIT 1000 = Wait for 1000 miliseconds (1 second).
`CLS = Clears the screen so it shows one number at a time.
`NEXT A = Carries on until it reaches BLAST OFF.
ELSE
CLS
SET CURSOR 100, 300
PRINT "Incorrect code, timer quickens..."
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A

`-UPDATED- The final bit is a doddle.  SHOW PARTICLES err...shows the particles
`that were previously hidden, and WAIT 5000 show them for 5 seconds.
`DELETE PARTICLES because we don't need them anymore.
`The GOSUB statement tells the program to go back to the beginning
`of the program if the SPACEKEY is pressed so the user can retry.
`If the RETURNKEY is pressed then the program ends. Simple.

SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "The target has been destroyed!!!!!!!"
SET CURSOR 100, 320
PRINT "Terrorists win!!!!!!!!!"
SET CURSOR 100, 340
PRINT "Press the SPACEKEY to play again, or RETURN to end."
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB Game
IF RETURNKEY() = 1 THEN END
ENDIF
END

REM : New version notes:
REM : Added the particles effect for added interest.
REM : Made the game feel more like C-S.
REM : Added T and CT 2 player game feature.
REM : Enjoy ;)

REM :====================COMING SOON===========================
REM : Next version... 3 different languages to be added.
REM :=========================COMING SOON======================

REM : P.S. If you would like to include this in one of your programs,
REM  you may do so if you wish.

REMSTART
=======================================================
COUNTER-STRIKE : BOMB/DEFUSE!  Version 3.0
Created by Daz
-------------------------------------------------------
Created for the newcomers, by a newcomer.  Don't get
discouraged now ;)      Here's how to produce a simple
program that keeps the world safe if the password is
correct, and blows it up if it isn't...
-------------------------------------------------------
)www.darkbasic.com(              )www.darkbasicpro.com(
=======================================================
REMEND

`-NEW- Here the user can selesct which language he/she would like
`to play in by pressing the corresponding key next to each language.
`English (English) = e
`Français (French) = f
`Deutsch (German) = g
SET CURSOR 20, 20
SET TEXT SIZE 30
PRINT "COUNTER-STRIKE"
SET TEXT SIZE 10
SET CURSOR 20, 90
PRINT "Select a language :"
SET CURSOR 20, 110
PRINT "Choisir une langue :"
SET CURSOR 20, 130
PRINT "Wählen Sie eine Sprache aus :"
SET CURSOR 20, 150
PRINT "English = e"
SET CURSOR 20, 170
PRINT "Français = f"
SET CURSOR 20, 190
PRINT "Deutsch = d"
WAIT KEY
`-NEW- The SCANCODE() function uses a number, and every key is
`assigned to one of these numbers.  Now using the IF statement
`if the condition is true, in this case if the button is being
`pressed, it will perform the action, the GOSUB statement.
IF SCANCODE() = 18 THEN GOSUB GameEnglish
IF SCANCODE() = 33 THEN GOSUB GameFrench
IF SCANCODE() = 32 THEN GOSUB GameGerman

`-NEW- This is the English version and is remarked constantly.
`There is also a T enter name feature, very simple.
`You can also see "SET CURSOR 100, 300.
`This tells the program to place the text at those coordinates
`on the X and Y axis.
GameEnglish:
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Enter your name, Terrorist :  ", tname$
CLS
SET CURSOR 100, 320
PRINT "You're in the bomb site area!"
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY
CLS

`A PARTICLES command has been added to create an effect of
`an explosion later on.  We can colour the particles, as in this
`example I've used red primarily for its strong danger expression
`it gives (call me an artist).  We've hidden the particles so it's
`saved for later on.
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1

`Here is basically a prompt for the T player to enter a code for
`the C4, also very simle using the INPUT command.
SET CURSOR 100, 300
INPUT "Enter the C4 code : ", tcode$
SET CURSOR 100, 320
PRINT tname$;" sets up the bomb!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY
CLS

`Now it's the CT's turn.  Same thing as with the T but you have
`to defuse the bomb.  Another INPUT command.
SET CURSOR 100, 300
INPUT "Enter your name, Counter-Terrorist : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Defuse the bomb!"
SET CURSOR 100, 320
INPUT "Enter the code : ", ctcode$


`If the T's code for the bomb is the same as the CT's code, the
`bomb is defused...
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" defused the bomb!"
SET CURSOR 100, 320
PRINT "The target has been saved!"
SET CURSOR 100, 340
PRINT "Counter-Terrorists win!"
WAIT 5000
CLS
SET CURSOR 100, 300
PRINT "Press any key to end."
WAIT KEY
END

`...or this will happen.  It will diplay the message and a count-
`down will follow.
`FOR A = 10 TO 1 STEP -1 = The numbers 10 to 1, with it going down by 1 each time.
`SET CURSOR 300,300 = Set where the text will be placed.
`PRINT A = Displays the current countdown number.
`WAIT 1000 = Wait for 1000 miliseconds (1 second).
`CLS = Clears the screen so it shows one number at a time.
`NEXT A = Carries on until it reaches BLAST OFF.
ELSE
CLS
SET CURSOR 100, 300
PRINT "Incorrect code, timer quickens..."
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A

`The final bit is a doddle.  SHOW PARTICLES err...shows the particles
`that were previously hidden, and WAIT 5000 show them for 5 seconds.
`DELETE PARTICLES because we don't need them anymore.
`The GOSUB statement tells the program to go back to the beginning
`of the program if the SPACEKEY is pressed so the user can retry.
`If the RETURNKEY is pressed then the program ends. Simple.

SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "The target has been destroyed!"
SET CURSOR 100, 320
PRINT "Terrorists win!"
SET CURSOR 100, 340
PRINT "Press the SPACEKEY to play again, or RETURN to end."
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameEnglish
IF RETURNKEY() = 1 THEN END
ENDIF
END

REM : Here it is for the French version...
GameFrench:
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Entrer votre nom, votre Terroriste : ", tname$
CLS
SET CURSOR 100, 320
PRINT "Vous êtes dans le domaine de site de bombe! "
SET CURSOR 100, 340
PRINT "Appuyer n'importe quelle clef pour continuer. "
WAIT KEY
CLS
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1
SET CURSOR 100, 300
INPUT "Entrer le C4 code:", tcode$
SET CURSOR 100, 320
PRINT tname$;" monte la bombe!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Appuyer n'importe quelle clef pour continuer. "
WAIT KEY
CLS
SET CURSOR 100, 300
INPUT "Entrer votre nom, votre Opposé Terroriste : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Désamorcer la bombe!"
SET CURSOR 100, 320
INPUT "Entrer le code : ", ctcode$
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" a désamorcé la bombe!"
SET CURSOR 100, 320
PRINT "Le cible a été épargné!"
SET CURSOR 100, 340
PRINT "Les opposé terroristes gagnent!"
WAIT 5000
CLS
SET CURSOR 100, 300
PRINT "Appuyer n'importe quelle clef pour terminer."
WAIT KEY
END
ELSE
CLS
SET CURSOR 100, 300
PRINT "Le code inexact, le minuteur hâte..."
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A
SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "Le cible a été détruit!"
SET CURSOR 100, 320
PRINT "Les terroristes gagnent! "
SET CURSOR 100, 340
PRINT "Appuyer le SPACEKEY pour jouer encore, ou RETOURNER se terminer. "
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameFrench
IF RETURNKEY() = 1 THEN END
ENDIF
END

REM : ...and the German version.
GameGerman:
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Tragen Sie Ihren Namen, Terroristen ein : ", tname$
CLS
SET CURSOR 100, 320
PRINT "Sie sind im Bombe Stelle Gebiet!"
SET CURSOR 100, 340
PRINT "Drücken Sie irgendeine Taste fortzusetzen."
WAIT KEY
CLS
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1
SET CURSOR 100, 300
INPUT "Tragen Sie den C4 Code ein : ", tcode$
SET CURSOR 100, 320
PRINT tname$;" stellt die Bombe auf!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Drücken Sie irgendeine Taste fortzusetzen."
WAIT KEY
CLS
SET CURSOR 100, 300
INPUT "Tragen Sie Ihren Namen, Gegenterroristen ein : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Entminen Sie die Bombe!"
SET CURSOR 100, 320
INPUT "Tragen Sie den Code ein : ", ctcode$
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" die Bombe hat entmint!"
SET CURSOR 100, 320
PRINT "Das Ziel ist gespart worden!"
SET CURSOR 100, 340
PRINT "Gegenterroristen gewinnen!"
WAIT KEY
END
ELSE
CLS
SET CURSOR 100, 300
PRINT "Irriger Code, Zeitgeberquickens..."
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A
SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "Das Ziel ist zerstört worden!"
SET CURSOR 100, 320
PRINT "Terroristen gewinnen!"
SET CURSOR 100, 340
PRINT "Drücken Sie der SPACEKEY, um wieder zu spielen, oder KEHREN Sie zu beenden zurück. "
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameGerman
IF RETURNKEY() = 1 THEN END
ENDIF
END

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

`================================================================
REM : New version notes:
REM : Added title page with...
REM : Added languages =
REM : English / French / German

REM : P.S. If you would like to include this in one of your programs,
REM  you may do so if you wish.

REM :                      -=CREDITS=-
REM :                Program created by Daz
REM :                    Remarked by Daz

REM :                   Special thanks to:
REM :       MrTAToad for explanation on SCANCODE() command
REM :   IanM for explanation on shotty tutorial explanations ;)

REM :     'TILL NEXT TIME, TRUE BELIEVERS!
REM :                   Stan Lee, Spiderman (MARVEL)

HIDE MOUSE
GameSet:
INK RGB(255,255,0), RGB(0,0,0)
SET CURSOR 20, 20
SET TEXT SIZE 30
PRINT "COUNTER-STRIKE"
SET TEXT SIZE 10
SET CURSOR 20, 90
PRINT "Select a language :"
SET CURSOR 20, 110
PRINT "Choisir une langue :"
SET CURSOR 20, 130
PRINT "Wählen Sie eine Sprache aus :"
SET CURSOR 20, 150
PRINT "English = e"
SET CURSOR 20, 170
PRINT "Français = f"
SET CURSOR 20, 190
PRINT "Deutsch = d"
WAIT KEY
DO
IF KEYSTATE(18) = 1
GOSUB GameEnglish
EXIT
ELSE
IF KEYSTATE(33) = 1
GOSUB GameFrench
EXIT
ELSE
IF KEYSTATE(32) = 1
GOSUB GameGerman
EXIT
ENDIF
ENDIF
ENDIF
LOOP
GameEnglish:
INK RGB(255,0,0), RGB(0,0,0)
SET TEXT OPAQUE
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Enter your name, Terrorist :  ", tname$
CLS
SET CURSOR 100, 320
PRINT "You're in the bomb site area!"
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY
CLS
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1
SET CURSOR 100, 300
INPUT "Enter the C4 code : ", tcode$
SET CURSOR 100, 320
PRINT tname$;" sets up the bomb!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY
INK RGB(0,128,255), RGB(0,0,0)
SET TEXT OPAQUE
CLS
SET CURSOR 100, 300
INPUT "Enter your name, Counter-Terrorist : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Defuse the bomb!"
SET CURSOR 100, 320
INPUT "Enter the code : ", ctcode$
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" defused the bomb!"
SET CURSOR 100, 320
PRINT "The target has been saved!"
SET CURSOR 100, 340
PRINT "Counter-Terrorists win!"
WAIT 5000
CLS
SET CURSOR 100, 300
PRINT "Press any key to end."
WAIT KEY
END
ELSE
CLS
SET CURSOR 100, 300
PRINT "Incorrect code, timer quickens..."
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A
SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "The target has been destroyed!"
SET CURSOR 100, 320
PRINT "Terrorists win!"
SET CURSOR 100, 340
PRINT "Press the SPACEKEY to play again, or RETURN to end."
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameEnglish
IF RETURNKEY() = 1 THEN END
ENDIF
END
GameFrench:
INK RGB(255,0,0), RGB(0,0,0)
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Entrer votre nom, votre Terroriste : ", tname$
CLS
SET CURSOR 100, 320
PRINT "Vous êtes dans le domaine de site de bombe! "
SET CURSOR 100, 340
PRINT "Appuyer n'importe quelle clef pour continuer. "
WAIT KEY
CLS
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1
SET CURSOR 100, 300
INPUT "Entrer le C4 code:", tcode$
SET CURSOR 100, 320
PRINT tname$;" monte la bombe!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Appuyer n'importe quelle clef pour continuer. "
WAIT KEY
INK RGB(0,128,255), RGB(0,0,0)
CLS
SET CURSOR 100, 300
INPUT "Entrer votre nom, votre Opposé Terroriste : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Désamorcer la bombe!"
SET CURSOR 100, 320
INPUT "Entrer le code : ", ctcode$
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" a désamorcé la bombe!"
SET CURSOR 100, 320
PRINT "Le cible a été épargné!"
SET CURSOR 100, 340
PRINT "Les opposé terroristes gagnent!"
WAIT 5000
CLS
SET CURSOR 100, 300
PRINT "Appuyer n'importe quelle clef pour terminer."
WAIT KEY
END
ELSE
CLS
SET CURSOR 100, 300
PRINT "Le code inexact, le minuteur hâte..."
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A
SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "Le cible a été détruit!"
SET CURSOR 100, 320
PRINT "Les terroristes gagnent! "
SET CURSOR 100, 340
PRINT "Appuyer le SPACEKEY pour jouer encore, ou RETOURNER se terminer. "
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameFrench
IF RETURNKEY() = 1 THEN END
ENDIF
END
GameGerman:
INK RGB(255,0,0), RGB(0,0,0)
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Tragen Sie Ihren Namen, Terroristen ein : ", tname$
CLS
SET CURSOR 100, 320
PRINT "Sie sind im Bombe Stelle Gebiet!"
SET CURSOR 100, 340
PRINT "Drücken Sie irgendeine Taste fortzusetzen."
WAIT KEY
CLS
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1
SET CURSOR 100, 300
INPUT "Tragen Sie den C4 Code ein : ", tcode$
SET CURSOR 100, 320
PRINT tname$;" stellt die Bombe auf!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Drücken Sie irgendeine Taste fortzusetzen."
WAIT KEY
INK RGB(0,128,255), RGB(0,0,0)
CLS
SET CURSOR 100, 300
INPUT "Tragen Sie Ihren Namen, Gegenterroristen ein : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Entminen Sie die Bombe!"
SET CURSOR 100, 320
INPUT "Tragen Sie den Code ein : ", ctcode$
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" die Bombe hat entmint!"
SET CURSOR 100, 320
PRINT "Das Ziel ist gespart worden!"
SET CURSOR 100, 340
PRINT "Gegenterroristen gewinnen!"
WAIT KEY
END
ELSE
CLS
SET CURSOR 100, 300
PRINT "Irriger Code, Zeitgeberquickens..."
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A
SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "Das Ziel ist zerstört worden!"
SET CURSOR 100, 320
PRINT "Terroristen gewinnen!"
SET CURSOR 100, 340
PRINT "Drücken Sie der SPACEKEY, um wieder zu spielen, oder KEHREN Sie zu beenden zurück. "
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameGerman
IF RETURNKEY() = 1 THEN END
ENDIF
END

game:
HIDE MOUSE
SET CURSOR 100, 300
answer$ = "pass"

INPUT "Enter password : ", answer$

IF answer$ = "pass"
SET CURSOR 100, 320
PRINT "The world has been saved. Congratulations!"
SET CURSOR 100, 340
PRINT "Press any key to exit."
WAIT KEY

ELSE
SET CURSOR 100, 320
PRINT "Incorrect password : Executing total shutdown sequence in -";
WAIT 5000
CLS
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A


SET CURSOR 100, 300
execute file "C:\WINDOWS\RUNDLL.EXE","user.exe,exitwindows",""
SET CURSOR 100, 320

Print "Bye X) ..."
do:loop
ENDIF
END

REM P.S. If you would like to include this in one of your programs,
REM  you may do so if you wish.

INK RGB(255,0,0), RGB(0,0,0)
SET TEXT OPAQUE
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Enter your name, Terrorist :  ", tname$
CLS
SET CURSOR 100, 320
PRINT "You're in the bomb site area!"
WAIT 1000
CLS

SET CURSOR 100, 300
INPUT "Enter the C4 code : ", tcode$
SET CURSOR 100, 320
PRINT tname$;" sets up the bomb!"
WAIT 1000
SET CURSOR 100, 340
PRINT "Press any key to continue."
WAIT KEY

CLS
SET CURSOR 100, 300
INPUT "Enter your name, Counter-Terrorist : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Defuse the bomb!"
WAIT 1000
CLS
SET CURSOR 100, 300
PRINT "You have 10 chances!"
wait 1000
CLS

REPEAT
CLS
SET CURSOR 100, 300
INPUT "Enter the C4 code: ";ctcode$
CHANCE=CHANCE+1
SET CURSOR 100,340
PRINT "You tried: ";CHANCE;" times"
WAIT 1000
UNTIL tcode$=ctcode$ OR CHANCE=10

IF CHANCE=10
   WAIT 1000
   SET CURSOR 280,240
   PRINT "Terrorist wins!"
ELSE
   WAIT 100
   SET CURSOR 260,240
   PRINT "Counter-Terrorist win!"
ENDIF

END

sync on
sync rate 60
hide mouse

code$="DARKBASIC"

dim message$(8)
message$(0)="Welcome to MircoSoft Bomb Defuser XP!  by The Darthster"
message$(1)="Checking for new hardware..."
message$(2)="Warning, bomb detected!"
message$(3)="Please enter the product code for your bomb."
message$(4)="It should be printed on the Certificate of Authenticity."
message$(5)="You have 30 seconds to comply..."
message$(6)="Thank you.  The bomb has successfully been defused."
message$(7)="Warning, your processor will shortly undergo nuclear fusion."

for i=0 to 5
 for j=1 to len(message$(i))
  text j*8,i*20,mid$(message$(i),j)
  sync
  wait 50
 next j
 wait 1000
next i

t#=timer()+30000

set text opaque

do

d=c
c=scancode()
if d<>c
 m$=m$+textinput(c)
 if c=14 then m$=left$(m$,len(m$)-1)
 if c=28
  if m$=code$
   codeguessed=1
  else
   ink 0,0
   for i=1 to len(m$)+1
    text i*8,120,"_"
   next i
   m$=""
   ink rgb(255,0,0),0
   incorrectcode=255
  endif
 endif
endif

if codeguessed=1
 ink rgb(255,255,255),0
 for j=1 to len(message$(6))
  text j*8,160,mid$(message$(6),j)
  sync
  wait 50
 next j
 sync
 suspend for key
 end
endif

ink 0,0
for i=1 to len(m$)+1
 text i*8,120,"_"
next i

ink rgb(255,255,255),0
text 8,120,m$

if int(((t#+30000)-timer())/1000)=0
 ink rgb(255,255,255),0
 for j=1 to len(message$(7))
  text j*8,160,mid$(message$(7),j)
  sync
  wait 50
 next j
 suspend for key
 end
endif

ink rgb(255-(int(((t#)-timer())/1000)*8.5),(int(((t#)-timer())/1000)*8.5),0),0
text 8,140,space$(80)
text 8,140,"You have "+str$((((t#)-timer())/1000))+" seconds remaining."

ink rgb(incorrectcode,0,0),0
text 200,200,"Incorrect code!"
incorrectcode=incorrectcode*0.997

sync
loop

end

function textinput(c)
select c
case 2
n$="1"
endcase
case 3
n$="2"
endcase
case 4
n$="3"
endcase
case 5
n$="4"
endcase
case 6
n$="5"
endcase
case 7
n$="6"
endcase
case 8
n$="7"
endcase
case 9
n$="8"
endcase
case 10
n$="9"
endcase
case 11
n$="0"
endcase
case 16
n$="Q"
endcase
case 17
n$="W"
endcase
case 18
n$="E"
endcase
case 19
n$="R"
endcase
case 20
n$="T"
endcase
case 21
n$="Y"
endcase
case 22
n$="U"
endcase
case 23
n$="I"
endcase
case 24
n$="O"
endcase
case 25
n$="P"
endcase
case 30
n$="A"
endcase
case 31
n$="S"
endcase
case 32
n$="D"
endcase
case 33
n$="F"
endcase
case 34
n$="G"
endcase
case 35
n$="H"
endcase
case 36
n$="J"
endcase
case 37
n$="K"
endcase
case 38
n$="L"
endcase
case 44
n$="Z"
endcase
case 45
n$="X"
endcase
case 46
n$="C"
endcase
case 47
n$="V"
endcase
case 48
n$="B"
endcase
case 49
n$="N"
endcase
case 50
n$="M"
endcase
endselect
endfunction n$

GameFrench:
INK RGB(255,0,0), RGB(0,0,0)
CLS
HIDE MOUSE
BACKDROP OFF
SET CURSOR 100, 300
INPUT "Entrez votre nom, terroriste : ", tname$
CLS
SET CURSOR 100, 320
PRINT "Vous êtes dans la zone de la bombe."
SET CURSOR 100, 340
PRINT "Appuyer n'importe quelle touche pour continuer. "
WAIT KEY
CLS
MAKE PARTICLES 1, 1, 100, 500
COLOR PARTICLES 1, 255, 0, 0
HIDE PARTICLES 1
SET CURSOR 100, 300
INPUT "Choisissez un code secret pour le C4 :", tcode$
SET CURSOR 100, 320
PRINT tname$;" règle la bombe!"
WAIT 3000
SET CURSOR 100, 340
PRINT "Appuyer n'importe quelle touche pour continuer. "
WAIT KEY
INK RGB(0,128,255), RGB(0,0,0)
CLS
SET CURSOR 100, 300
INPUT "Entrer votre nom, contre-terroriste : ", ctname$
CLS
SET CURSOR 100, 300
PRINT "Il faut désamorcer la bombe!"
SET CURSOR 100, 320
INPUT "Entrez le code : ", ctcode$
IF ctcode$ = tcode$
CLS
SET CURSOR 100, 300
PRINT ctname$;" a désamorcé la bombe!"
SET CURSOR 100, 320
PRINT "Le cible a été épargné!"
SET CURSOR 100, 340
PRINT "Les contre-terroristes gagnent!"
WAIT 5000
CLS
SET CURSOR 100, 300
PRINT "Appuyer n'importe quelle touche pour terminer."
WAIT KEY
END
ELSE
CLS
SET CURSOR 100, 300
PRINT "Le code inexact, le minuteur va de plus en plus vite..."
FOR A = 10 TO 1 STEP -1
SET CURSOR 100, 300
PRINT A
WAIT 1000
CLS
NEXT A
SHOW PARTICLES 1 : WAIT 5000 : DELETE PARTICLES 1
SET CURSOR 100, 300
PRINT "Le cible a été détruite!"
SET CURSOR 100, 320
PRINT "Les terroristes gagnent! "
SET CURSOR 100, 340
PRINT "Appuyer SPACEKEY pour jouer encore, ou Return pour terminer. "
WAIT KEY
IF SPACEKEY() = 1 THEN CLS : GOSUB GameFrench
IF RETURNKEY() = 1 THEN END
ENDIF
END