Computer can always know what you wrote!

Author

Message

Dodic

18

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 26th Nov 2005 16:01

Link

this is a simple app in witch you enter a number and then computer try to find out what it is without reading string you wrote.

+ Code Snippet

start:
print "this app is made to crack keys (only in this app , not for use) "
print "please , write your password (in numbers-3 characters MAX)"

input sifra

cls
print "good , now please input on witch speed do you wan`t"
print "this program to work (speed of trying numbers - write (from 1 to 70)"
input s                                                                        
sync rate  s
cls
print "great , now press a key to START ..."
suspend for key
do
set cursor 0,60
sifra2=rnd(999)
sifra3=rnd(999)
sifra4=rnd(999)
sifra5=rnd(999)
print sifra2
print sifra3
print sifra4
print sifra5
cls

if sifra2=sifra or sifra2=sifra or sifra3=sifra or sifra4=sifra or sifra5=sifra then print "victory , your key was:", sifra2 : sleep 6000 : goto start:
loop

http://dodica.proboards75.com/index.cgi
first 20 are mods. i have 9 sofar.

Back to top

Profile PM Email

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 26th Nov 2005 21:58

Link

Quote: "this is a simple app in witch you enter a number and then computer try to find out what it is without reading string you wrote."

Yup... it doesn't read a string it reads an integer. It's impossible to have a program that can do that without checking the user input in some way.

When a program is called an application... it's usually called that because it's useful in some way.

Back to top

Profile PM Email

garyt

19

Years of Service

User Offline

Joined: 4th Jul 2005

Location:

Posted: 28th Nov 2005 19:50

Link

ok so as grog says this app isn't exactly usefull, but fun anyway, so i took it on and made it a little better, plus ur coding was wrong and so sometimes it actually returned the wrong value!

so here u go, try this...

+ Code Snippet

DIM SIFRA(5)
SET DISPLAY MODE 800,600,32

start:
CENTER TEXT 400,280, "this app is made to crack keys (only in this app , not for use) "
CENTER TEXT 400,300, "please , write your password (in numbers-3 characters MAX)"

SET CURSOR 400,320
input sifra

cls
CENTER TEXT 400,280, "good , now please input the speed you wan`t"
CENTER TEXT 400,300, "this program to work at ->speed of trying numbers, (from 1 to 70)"
SET CURSOR 400,320
input s
sync rate  s
cls
CENTER TEXT 400,280, "great , now press a key to START ..."
suspend for key
do
sifra(1)=rnd(999)
sifra(2)=rnd(999)
sifra(3)=rnd(999)
sifra(4)=rnd(999)
sifra(5)=rnd(999)

FOR X =1 TO 5
CENTER TEXT 400,(200+(20*X)), STR$(SIFRA(X))
NEXT X
cls

FOR X = 2 TO 5
if sifra(X)=sifra
CENTER TEXT 400,280,"victory, your key was:"
CENTER TEXT 400,300,STR$(sifra(X))
sleep 6000
CLS
goto start
ENDIF
NEXT X
loop

The reason santa is so jolly is because he knows where all the bad girls live.

Back to top

Profile PM

smallg

Valued Member

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location: steam

Posted: 8th Dec 2005 23:26

Link

also i made this game which would go well here...

`HANGMAN, STARTED 07/12/05
GOSUB SETUP : DO : `MAIN MENU SCREEN (WHERE USER CHOOSES WORD)
GOSUB MAIN_MENU : SYNC : LOOP
`******************************************************************************************************************
WORD1:
LENGTH=7
`SPLIT WORD UP AND DRAW A LINE UNDER EACH LETTER (NOTE; X=SCREEN LENGTH)
LETTER1$="H" : LINE X/2-55,300,X/2-65,300
LETTER2$="A" : LINE X/2-35,300,X/2-45,300
LETTER3$="N" : LINE X/2-15,300,X/2-25,300
LETTER4$="G" : LINE X/2-05,300,X/2+05,300
LETTER5$="M" : LINE X/2+15,300,X/2+25,300
LETTER6$="A" : LINE X/2+35,300,X/2+45,300
LETTER7$="N" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD2:
LENGTH=7
`SPLIT WORD UP
LETTER1$="S" : LINE X/2-55,300,X/2-65,300
LETTER2$="P" : LINE X/2-35,300,X/2-45,300
LETTER3$="I" : LINE X/2-15,300,X/2-25,300
LETTER4$="D" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="E" : LINE X/2+15,300,X/2+25,300
LETTER6$="R" : LINE X/2+35,300,X/2+45,300
LETTER7$="S" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD3:
LENGTH=7
`SPLIT WORD UP
LETTER1$="T" : LINE X/2-55,300,X/2-65,300
LETTER2$="R" : LINE X/2-35,300,X/2-45,300
LETTER3$="A" : LINE X/2-15,300,X/2-25,300
LETTER4$="I" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="N" : LINE X/2+15,300,X/2+25,300
LETTER6$="E" : LINE X/2+35,300,X/2+45,300
LETTER7$="R" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD4:
LENGTH=7
`SPLIT WORD UP
LETTER1$="T" : LINE X/2-55,300,X/2-65,300
LETTER2$="R" : LINE X/2-35,300,X/2-45,300
LETTER3$="A" : LINE X/2-15,300,X/2-25,300
LETTER4$="C" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="T" : LINE X/2+15,300,X/2+25,300
LETTER6$="O" : LINE X/2+35,300,X/2+45,300
LETTER7$="R" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD5:
LENGTH=7
`SPLIT WORD UP
LETTER1$="C" : LINE X/2-55,300,X/2-65,300
LETTER2$="A" : LINE X/2-35,300,X/2-45,300
LETTER3$="N" : LINE X/2-15,300,X/2-25,300
LETTER4$="D" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="L" : LINE X/2+15,300,X/2+25,300
LETTER6$="E" : LINE X/2+35,300,X/2+45,300
LETTER7$="S" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD6:
LENGTH=7
`SPLIT WORD UP
LETTER1$="C" : LINE X/2-55,300,X/2-65,300
LETTER2$="U" : LINE X/2-35,300,X/2-45,300
LETTER3$="S" : LINE X/2-15,300,X/2-25,300
LETTER4$="T" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="A" : LINE X/2+15,300,X/2+25,300
LETTER6$="R" : LINE X/2+35,300,X/2+45,300
LETTER7$="D" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD7:
LENGTH=7
`SPLIT WORD UP
LETTER1$="K" : LINE X/2-55,300,X/2-65,300
LETTER2$="I" : LINE X/2-35,300,X/2-45,300
LETTER3$="T" : LINE X/2-15,300,X/2-25,300
LETTER4$="C" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="H" : LINE X/2+15,300,X/2+25,300
LETTER6$="E" : LINE X/2+35,300,X/2+45,300
LETTER7$="N" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD8:
LENGTH=7
`SPLIT WORD UP
LETTER1$="W" : LINE X/2-55,300,X/2-65,300
LETTER2$="A" : LINE X/2-35,300,X/2-45,300
LETTER3$="S" : LINE X/2-15,300,X/2-25,300
LETTER4$="H" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="I" : LINE X/2+15,300,X/2+25,300
LETTER6$="N" : LINE X/2+35,300,X/2+45,300
LETTER7$="G" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
`**************************
`**START OF SUB FUNCTIONS**
`**************************
HANG:
IF GUESS=1 THEN LINE X/2+200,500,X/2+300,500 : `GROUND
IF GUESS=2 THEN LINE X/2+225,500,X/2+225,400 : `PILLAR
IF GUESS=3 THEN LINE X/2+225,400,X/2+275,400 : LINE X/2+275,400,X/2+275,410 : `TOP
IF GUESS=4 THEN CIRCLE X/2+275,420,10 : `HEAD
IF GUESS=5 THEN LINE X/2+275,430,X/2+275,460 : `BODY
IF GUESS=6 THEN LINE X/2+275,430,X/2+265,440 : `RIGHT ARM
IF GUESS=7 THEN LINE X/2+275,430,X/2+285,440 : `LEFT ARM
IF GUESS=8 THEN LINE X/2+275,460,X/2+265,475 : `RIGHT LEG
IF GUESS=9 THEN LINE X/2+275,460,X/2+285,475 : `LEFT LEG
IF GUESS=10 THEN INK RGB(200,20,20),RGB(0,0,0) : LINE X/2+250,500,X/2+295,500 : `ADD BLOOD
RETURN
`-----------------------------------------------------------------------------------------------------------------
LOST:
CLS : SYNC : INK RGB(255,255,255),RGB(0,0,0)
FOR LOST=1 TO 100
SET CURSOR X/2,280 : PRINT "U LOST"
SYNC : NEXT LOST : END : RETURN
`------------------------------------------------------------------------------------------------------------------
WIN:
IF CORRECT=LENGTH AND GUESS<1 THEN CHEAT=1 : `CHECKS IF PLAYER HAS CHEATED
CLS : INK RGB(255,255,255),RGB(0,0,0)
FOR CORRECT=1 TO 100 : CENTER TEXT X/2,280,"U WIN"
`IF PLAYER HAS PLAYED BEFORE (I.E. IF THEY GET NO LETTERS WRONG) THEN IT SAYS THEY HAVE PLAYED BEFORE
IF CHEAT=1 THEN CENTER TEXT X/2,300,"BUT U'VE PLAYED BEFORE!!!"
SYNC : NEXT CORRECT : CLS : GOSUB MAIN_MENU : RETURN
`------------------------------------------------------------------------------------------------------------------
MAIN_MENU:
LIVES=10 : GUESS=0 : CORRECT=0 : DO
`DISPLAYS LIST OF AVAILABLE WORDS/GAMES
CENTER TEXT X/2,350,"PRESS 1,2,3,4,5,6,7 OR 8 TO SELECT A WORD"
`CHECKS WHICH ONE PLAYER CHOOSES AND STARTS THAT GAME, WAIT IS SO THAT INPUT NUMBER IS NOT MISTAKEN AS A GUESS
IF INKEY$()="1" THEN CLS : WAIT 500 : GOTO WORD1
IF INKEY$()="2" THEN CLS : WAIT 500 : GOTO WORD2
IF INKEY$()="3" THEN CLS : WAIT 500 : GOTO WORD3
IF INKEY$()="4" THEN CLS : WAIT 500 : GOTO WORD4
IF INKEY$()="5" THEN CLS : WAIT 500 : GOTO WORD5
IF INKEY$()="6" THEN CLS : WAIT 500 : GOTO WORD6
IF INKEY$()="7" THEN CLS : WAIT 500 : GOTO WORD7
IF INKEY$()="8" THEN CLS : WAIT 500 : GOTO WORD8
SYNC : LOOP : RETURN
`------------------------------------------------------------------------------------------------------------------
GUESS:
INPUT GUESS$ : `ALLOW USER TO GUESS A LETTER
IF LEN(GUESS$)>1 THEN GUESS$=LEFT$(GUESS$,1) : `MAKE SURE ONLY FIRST LETTER IS ENTERED IS GUESSED
GUESS$=UPPER$(GUESS$) : RETURN : `MAKE SURE GUESS IS IN CAPITALS (OTHERWISE LETTERS WONT MATCH)
`------------------------------------------------------------------------------------------------------------------
INFO:
INK RGB(255,255,255),RGB(0,0,0) : SET CURSOR X/2,500
CENTER TEXT X/2,0,"U HAVE "+STR$(LIVES)+" LIVES TO GUESS THE WORD"
CENTER TEXT X/2,20,"PLEASE ENTER A LETTER TO GUESS AND PRESS ENTER"
CENTER TEXT X/2-200,80,"LETTERS GUESSED SO FAR"
RETURN
`------------------------------------------------------------------------------------------------------------------
SETUP:
SET DISPLAY MODE 1024,768,32 : X=1024 : `SET SCREEN RESOLUTION, AND STORE SCREENS X LENGTH
SYNC ON : HIDE MOUSE : INK RGB(255,255,255),RGB(0,0,0) : RETURN
`------------------------------------------------------------------------------------------------------------------
MATCHING_LETTERS_FOR_7_LETTER_WORD:
`CHECK IF GUESS MATCHES ANY OF THE LETTERS AND DISPLAY IT IN IT'S CORRECT PLACE
IF GUESS$=LETTER1$ THEN CENTER TEXT X/2-60,280,LETTER1$ : INC CORRECT
IF GUESS$=LETTER2$ THEN CENTER TEXT X/2-40,280,LETTER2$ : INC CORRECT
IF GUESS$=LETTER3$ THEN CENTER TEXT X/2-20,280,LETTER3$ : INC CORRECT
IF GUESS$=LETTER4$ THEN CENTER TEXT X/2-0 ,280,LETTER4$ : INC CORRECT
IF GUESS$=LETTER5$ THEN CENTER TEXT X/2+20,280,LETTER5$ : INC CORRECT
IF GUESS$=LETTER6$ THEN CENTER TEXT X/2+40,280,LETTER6$ : INC CORRECT
IF GUESS$=LETTER7$ THEN CENTER TEXT X/2+60,280,LETTER7$ : INC CORRECT
RETURN
`------------------------------------------------------------------------------------------------------------------
INCORRECT_GUESS_FOR_7_LETTER_WORD:
`CHECK IF GUESS DOESN'T MATCH ANY OF THE LETTERS AND ISN'T BLANK
IF GUESS$<>LETTER1$ AND GUESS$<>LETTER2$ AND GUESS$<>LETTER3$ AND GUESS$<>LETTER4$
IF GUESS$<>LETTER5$ AND GUESS$<>LETTER6$ AND GUESS$<>LETTER7$ AND GUESS$<>""
`DISPLAY THE INCORRECT LETTER
INC GUESS : SET CURSOR 200+(GUESS*20),100 : PRINT GUESS$
ENDIF : ENDIF : RETURN
`------------------------------------------------------------------------------------------------------------------
`******************************************************************************************************************
PLAY_GAME:
DO : GOSUB INFO : GOSUB GUESS
GOSUB MATCHING_LETTERS_FOR_7_LETTER_WORD : GOSUB INCORRECT_GUESS_FOR_7_LETTER_WORD : GOSUB HANG
IF GUESS>LIVES-1 THEN GOSUB LOST
IF CORRECT=LENGTH THEN GOSUB WIN
SYNC : LOOP : RETURN
`******************************************************************************************************************

+ Code Snippet

`HANGMAN, STARTED 07/12/05
GOSUB SETUP : DO : `MAIN MENU SCREEN (WHERE USER CHOOSES WORD)
GOSUB MAIN_MENU : SYNC : LOOP
`******************************************************************************************************************
WORD1:
LENGTH=7
`SPLIT WORD UP AND DRAW A LINE UNDER EACH LETTER (NOTE; X=SCREEN LENGTH)
LETTER1$="H" : LINE X/2-55,300,X/2-65,300
LETTER2$="A" : LINE X/2-35,300,X/2-45,300
LETTER3$="N" : LINE X/2-15,300,X/2-25,300
LETTER4$="G" : LINE X/2-05,300,X/2+05,300
LETTER5$="M" : LINE X/2+15,300,X/2+25,300
LETTER6$="A" : LINE X/2+35,300,X/2+45,300
LETTER7$="N" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD2:
LENGTH=7
`SPLIT WORD UP
LETTER1$="S" : LINE X/2-55,300,X/2-65,300
LETTER2$="P" : LINE X/2-35,300,X/2-45,300
LETTER3$="I" : LINE X/2-15,300,X/2-25,300
LETTER4$="D" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="E" : LINE X/2+15,300,X/2+25,300
LETTER6$="R" : LINE X/2+35,300,X/2+45,300
LETTER7$="S" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD3:
LENGTH=7
`SPLIT WORD UP
LETTER1$="T" : LINE X/2-55,300,X/2-65,300
LETTER2$="R" : LINE X/2-35,300,X/2-45,300
LETTER3$="A" : LINE X/2-15,300,X/2-25,300
LETTER4$="I" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="N" : LINE X/2+15,300,X/2+25,300
LETTER6$="E" : LINE X/2+35,300,X/2+45,300
LETTER7$="R" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD4:
LENGTH=7
`SPLIT WORD UP
LETTER1$="T" : LINE X/2-55,300,X/2-65,300
LETTER2$="R" : LINE X/2-35,300,X/2-45,300
LETTER3$="A" : LINE X/2-15,300,X/2-25,300
LETTER4$="C" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="T" : LINE X/2+15,300,X/2+25,300
LETTER6$="O" : LINE X/2+35,300,X/2+45,300
LETTER7$="R" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD5:
LENGTH=7
`SPLIT WORD UP
LETTER1$="C" : LINE X/2-55,300,X/2-65,300
LETTER2$="A" : LINE X/2-35,300,X/2-45,300
LETTER3$="N" : LINE X/2-15,300,X/2-25,300
LETTER4$="D" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="L" : LINE X/2+15,300,X/2+25,300
LETTER6$="E" : LINE X/2+35,300,X/2+45,300
LETTER7$="S" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD6:
LENGTH=7
`SPLIT WORD UP
LETTER1$="C" : LINE X/2-55,300,X/2-65,300
LETTER2$="U" : LINE X/2-35,300,X/2-45,300
LETTER3$="S" : LINE X/2-15,300,X/2-25,300
LETTER4$="T" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="A" : LINE X/2+15,300,X/2+25,300
LETTER6$="R" : LINE X/2+35,300,X/2+45,300
LETTER7$="D" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD7:
LENGTH=7
`SPLIT WORD UP
LETTER1$="K" : LINE X/2-55,300,X/2-65,300
LETTER2$="I" : LINE X/2-35,300,X/2-45,300
LETTER3$="T" : LINE X/2-15,300,X/2-25,300
LETTER4$="C" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="H" : LINE X/2+15,300,X/2+25,300
LETTER6$="E" : LINE X/2+35,300,X/2+45,300
LETTER7$="N" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
WORD8:
LENGTH=7
`SPLIT WORD UP
LETTER1$="W" : LINE X/2-55,300,X/2-65,300
LETTER2$="A" : LINE X/2-35,300,X/2-45,300
LETTER3$="S" : LINE X/2-15,300,X/2-25,300
LETTER4$="H" : LINE X/2-5,300 ,X/2+5 ,300
LETTER5$="I" : LINE X/2+15,300,X/2+25,300
LETTER6$="N" : LINE X/2+35,300,X/2+45,300
LETTER7$="G" : LINE X/2+55,300,X/2+65,300
GOSUB PLAY_GAME
`******************************************************************************************************************
`**************************
`**START OF SUB FUNCTIONS**
`**************************
HANG:
IF GUESS=1 THEN LINE X/2+200,500,X/2+300,500 : `GROUND
IF GUESS=2 THEN LINE X/2+225,500,X/2+225,400 : `PILLAR
IF GUESS=3 THEN LINE X/2+225,400,X/2+275,400 : LINE X/2+275,400,X/2+275,410 : `TOP
IF GUESS=4 THEN CIRCLE X/2+275,420,10 : `HEAD
IF GUESS=5 THEN LINE X/2+275,430,X/2+275,460 : `BODY
IF GUESS=6 THEN LINE X/2+275,430,X/2+265,440 : `RIGHT ARM
IF GUESS=7 THEN LINE X/2+275,430,X/2+285,440 : `LEFT ARM
IF GUESS=8 THEN LINE X/2+275,460,X/2+265,475 : `RIGHT LEG
IF GUESS=9 THEN LINE X/2+275,460,X/2+285,475 : `LEFT LEG
IF GUESS=10 THEN INK RGB(200,20,20),RGB(0,0,0) : LINE X/2+250,500,X/2+295,500 : `ADD BLOOD
RETURN
`-----------------------------------------------------------------------------------------------------------------
LOST:
CLS : SYNC : INK RGB(255,255,255),RGB(0,0,0)
FOR LOST=1 TO 100
SET CURSOR X/2,280 : PRINT "U LOST"
SYNC : NEXT LOST : END : RETURN
`------------------------------------------------------------------------------------------------------------------
WIN:
IF CORRECT=LENGTH AND GUESS<1 THEN CHEAT=1 : `CHECKS IF PLAYER HAS CHEATED
CLS : INK RGB(255,255,255),RGB(0,0,0)
FOR CORRECT=1 TO 100 : CENTER TEXT X/2,280,"U WIN"
`IF PLAYER HAS PLAYED BEFORE (I.E. IF THEY GET NO LETTERS WRONG) THEN IT SAYS THEY HAVE PLAYED BEFORE
IF CHEAT=1 THEN CENTER TEXT X/2,300,"BUT U'VE PLAYED BEFORE!!!"
SYNC : NEXT CORRECT : CLS : GOSUB MAIN_MENU : RETURN
`------------------------------------------------------------------------------------------------------------------
MAIN_MENU:
LIVES=10 : GUESS=0 : CORRECT=0 : DO
`DISPLAYS LIST OF AVAILABLE WORDS/GAMES
CENTER TEXT X/2,350,"PRESS 1,2,3,4,5,6,7 OR 8 TO SELECT A WORD"
`CHECKS WHICH ONE PLAYER CHOOSES AND STARTS THAT GAME, WAIT IS SO THAT INPUT NUMBER IS NOT MISTAKEN AS A GUESS
IF INKEY$()="1" THEN CLS : WAIT 500 : GOTO WORD1
IF INKEY$()="2" THEN CLS : WAIT 500 : GOTO WORD2
IF INKEY$()="3" THEN CLS : WAIT 500 : GOTO WORD3
IF INKEY$()="4" THEN CLS : WAIT 500 : GOTO WORD4
IF INKEY$()="5" THEN CLS : WAIT 500 : GOTO WORD5
IF INKEY$()="6" THEN CLS : WAIT 500 : GOTO WORD6
IF INKEY$()="7" THEN CLS : WAIT 500 : GOTO WORD7
IF INKEY$()="8" THEN CLS : WAIT 500 : GOTO WORD8
SYNC : LOOP : RETURN
`------------------------------------------------------------------------------------------------------------------
GUESS:
INPUT GUESS$ : `ALLOW USER TO GUESS A LETTER
IF LEN(GUESS$)>1 THEN GUESS$=LEFT$(GUESS$,1) : `MAKE SURE ONLY FIRST LETTER IS ENTERED IS GUESSED
GUESS$=UPPER$(GUESS$) : RETURN : `MAKE SURE GUESS IS IN CAPITALS (OTHERWISE LETTERS WONT MATCH)
`------------------------------------------------------------------------------------------------------------------
INFO:
INK RGB(255,255,255),RGB(0,0,0) : SET CURSOR X/2,500
CENTER TEXT X/2,0,"U HAVE "+STR$(LIVES)+" LIVES TO GUESS THE WORD"
CENTER TEXT X/2,20,"PLEASE ENTER A LETTER TO GUESS AND PRESS ENTER"
CENTER TEXT X/2-200,80,"LETTERS GUESSED SO FAR"
RETURN
`------------------------------------------------------------------------------------------------------------------
SETUP:
SET DISPLAY MODE 1024,768,32 : X=1024 : `SET SCREEN RESOLUTION, AND STORE SCREENS X LENGTH
SYNC ON : HIDE MOUSE : INK RGB(255,255,255),RGB(0,0,0) : RETURN
`------------------------------------------------------------------------------------------------------------------
MATCHING_LETTERS_FOR_7_LETTER_WORD:
`CHECK IF GUESS MATCHES ANY OF THE LETTERS AND DISPLAY IT IN IT'S CORRECT PLACE
IF GUESS$=LETTER1$ THEN CENTER TEXT X/2-60,280,LETTER1$ : INC CORRECT
IF GUESS$=LETTER2$ THEN CENTER TEXT X/2-40,280,LETTER2$ : INC CORRECT
IF GUESS$=LETTER3$ THEN CENTER TEXT X/2-20,280,LETTER3$ : INC CORRECT
IF GUESS$=LETTER4$ THEN CENTER TEXT X/2-0 ,280,LETTER4$ : INC CORRECT
IF GUESS$=LETTER5$ THEN CENTER TEXT X/2+20,280,LETTER5$ : INC CORRECT
IF GUESS$=LETTER6$ THEN CENTER TEXT X/2+40,280,LETTER6$ : INC CORRECT
IF GUESS$=LETTER7$ THEN CENTER TEXT X/2+60,280,LETTER7$ : INC CORRECT
RETURN
`------------------------------------------------------------------------------------------------------------------
INCORRECT_GUESS_FOR_7_LETTER_WORD:
`CHECK IF GUESS DOESN'T MATCH ANY OF THE LETTERS AND ISN'T BLANK
IF GUESS$<>LETTER1$ AND GUESS$<>LETTER2$ AND GUESS$<>LETTER3$ AND GUESS$<>LETTER4$
IF GUESS$<>LETTER5$ AND GUESS$<>LETTER6$ AND GUESS$<>LETTER7$ AND GUESS$<>""
`DISPLAY THE INCORRECT LETTER
INC GUESS : SET CURSOR 200+(GUESS*20),100 : PRINT GUESS$
ENDIF : ENDIF : RETURN
`------------------------------------------------------------------------------------------------------------------
`******************************************************************************************************************
PLAY_GAME:
DO : GOSUB INFO : GOSUB GUESS
GOSUB MATCHING_LETTERS_FOR_7_LETTER_WORD : GOSUB INCORRECT_GUESS_FOR_7_LETTER_WORD : GOSUB HANG
IF GUESS>LIVES-1 THEN GOSUB LOST
IF CORRECT=LENGTH THEN GOSUB WIN
SYNC : LOOP : RETURN
`******************************************************************************************************************

have fun.

life's one big game

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / Computer can always know what you wrote!