Sorry your browser is not supported!

select scancode()
  case 1:rem Escape key
         endcase
  case 67:rem Probably not the f key
          gosub french
          endcase
  case 69:rem not the e key either
          gosub english
          endcase
endselect

a$=ucase$(inkey$())
select a$
 case "E" : gosub english
            endcase
 case "F" : gosub french
endcase

do
   if scancode()=30
      print "A Key pressed"
   else
      if scancode()=32
         print "D Key pressed"
      endif
   endif
   sync
loop

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
GameSet:
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 KEYSTATE(18) = 1
GOSUB GameEnglish
IF KEYSTATE(33) = 1
GOSUB GameFrench
IF KEYSTATE(32) = 1
GOSUB GameGerman
ELSE
GOSUB GameSet
ENDIF
ENDIF
ENDIF

`-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)

IF KEYSTATE(18) = 1
   GOSUB GameEnglish
else
   IF KEYSTATE(33) = 1
      GOSUB GameFrench
   else
      IF KEYSTATE(32) = 1
         GOSUB GameGerman
      else
         goto GameSet
      endif
   endif
endif

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

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
GameSet:
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"

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

`-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.

HIDE MOUSE
GameSet:
INK RGB(0,0,0), RGB(255,255,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(0,0,0), RGB(255,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,0,0), RGB(0,128,255)
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:
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
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

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(0,0,0), RGB(255,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,0,0), RGB(0,128,255)
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:
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
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