Love Meter Program - GameCreators Forum

Author

Message

Duderiza

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location:

Posted: 18th Jan 2004 18:47

Link

Hi Guys. This is going to be a lenthy piece of writing. I am making a love meter program, there are loads on the internet, but i decided to make my own. I want a certain letter to be worth so many points. I am not using input command as the text font is not too good. Instead i use this command to display a letter:

If inkey$()="a"
paste image 1,0,0
inc x,40
wait 60
endif

This is okay so far, if the "a" key is pressed then my small bitmap image is displayed, then if I press "n" key, a small bitmap image is displayed 40 pixels to the right of the previous letter. Now i want each bitmap to be worth a certain amount of points. I can do this. But if a user wants to delete a letter, then they have to press the "delete key". A black tile bitmap is then placed on screen removing the previous letter, by using "dec x,40" command. How would i get a command to delete the points for that letter from the total points. If they make a mistake in typing their name in the love meter, they will press the delete key then press the the letter they want, and it will be counting more points than it should, and i dont want it to do that.

I hope someone knows wot im talking about, and can understand this, and any help would be nice, and i would be grateful.

Back to top

Profile PM Email

TKF15H

21

Years of Service

User Offline

Joined: 20th Jul 2003

Location: Rio de Janeiro

Posted: 18th Jan 2004 19:08

Link

whenever a key is pressed, add it to a string. When backspace is
pressed, remove the last character from the string. (using the LEFT$)
When the user presses enter, you use a FOR loop that adds all the "points" from the letters (using mid$) and displays the result.

Why do programmers always mix up Christmas and Halloween?
Because DEC 25 = OCT 31

Back to top

Profile PM Email Website

Duderiza

21

Years of Service

User Offline

Joined: 27th Aug 2003

Location:

Posted: 18th Jan 2004 23:12

Link

Hey Thanx TKFI5H. I was wondering could you work up a little exampl efor me, of you mean, and how i would use the LEFTÂ£() command to delete the previous letter from the string. I would be thankful if you could.

Here is my code so far.

Rem Coords Variables
X = 0
Y = 59

Rem Varibles
points$ = points$

Rem Setup Config
hide mouse
set display mode 800,600,32
ink rgb(255,0,0),1
cls

Rem Start
load image "Start Screen.bmp",1
paste image 1,0,0
wait 5000
load image "Producer Screen.bmp",2
paste image 2,0,0
wait 5000
cls

Rem Load images To Memory ******
load image "Black Tile.bmp",29
load image "Space.bmp",30
` ******************************
load image "Letters\A.bmp",3
load image "Letters\B.bmp",4
load image "Letters\C.bmp",5
load image "Letters\D.bmp",6
load image "Letters\E.bmp",7
load image "Letters\F.bmp",8
load image "Letters\G.bmp",9
load image "Letters\H.bmp",10
load image "Letters\I.bmp",11
load image "Letters\J.bmp",12
load image "Letters\K.bmp",13
load image "Letters\L.bmp",14
load image "Letters\M.bmp",15
load image "Letters\N.bmp",16
load image "Letters\O.bmp",17
load image "Letters\P.bmp",18
load image "Letters\Q.bmp",19
load image "Letters\R.bmp",20
load image "Letters\S.bmp",21
load image "Letters\T.bmp",22
load image "Letters\U.bmp",23
load image "Letters\V.bmp",24
load image "Letters\W.bmp",25
load image "Letters\X.bmp",26
load image "Letters\Y.bmp",27
load image "Letters\Z.bmp",28

Rem Load The Screen For Main Game
load image "Main Screen.bmp",31
paste image 31,0,0

Rem Input For Name 1
do
if inkey$()="a"
paste image 3,X,Y
wait 60 
inc x,40
endif
if inkey$()="b"
paste image 4,X,Y
wait 60 
inc x,40
endif
if inkey$()="c"
paste image 5,X,Y
wait 60 
inc x,40
endif
if inkey$()="d"
paste image 6,X,Y
wait 60 
inc x,40
endif
if inkey$()="e"
paste image 7,X,Y
wait 60 
inc x,40
points$ = points$ + "e"
endif
if inkey$()="f"
paste image 8,X,Y
wait 60 
inc x,40
endif
if inkey$()="g"
paste image 9,X,Y
wait 60 
inc x,40
endif
if inkey$()="h"
paste image 10,X,Y
wait 60 
inc x,40
endif
if inkey$()="i"
paste image 11,X,Y
wait 60 
inc x,40
endif
if inkey$()="j"
paste image 12,X,Y
wait 60 
inc x,40
endif
if inkey$()="k"
paste image 13,X,Y
wait 60 
inc x,40
endif
if inkey$()="l"
paste image 14,X,Y
wait 60 
inc x,40
points$ = points$ + "l"
endif
if inkey$()="m"
paste image 15,X,Y
wait 60 
inc x,40
endif
if inkey$()="n"
paste image 16,X,Y
wait 60 
inc x,40
endif
if inkey$()="o"
paste image 17,X,Y
wait 60 
inc x,40
points$ = points$ + "o"
endif
if inkey$()="p"
paste image 18,X,Y
wait 60 
inc x,40
endif
if inkey$()="q"
paste image 19,X,Y
wait 60 
inc x,40
endif
if inkey$()="r"
paste image 20,X,Y
wait 60 
inc x,40
endif
if inkey$()="s"
paste image 21,X,Y
wait 60 
inc x,40
endif
if inkey$()="t"
paste image 22,X,Y
wait 60 
inc x,40
endif
if inkey$()="u"
paste image 23,X,Y
wait 60 
inc x,40
points$ = points$ + "u"
endif
if inkey$()="v"
paste image 24,X,Y
wait 60 
inc x,40
points$ = points$ + "v"
endif
if inkey$()="w"
paste image 25,X,Y
wait 60 
inc x,40
endif
if inkey$()="x"
paste image 26,X,Y
wait 60 
inc x,40
endif
if inkey$()="y"
paste image 27,X,Y
wait 60 
inc x,40
points$ = points$ + "y"
endif
if inkey$()="z"
paste image 28,X,Y
wait 60 
inc x,40
endif
if inkey$()=" "
paste image 30,X,Y
wait 60 
inc x,40
endif
if scancode()=14
dec x,40
paste image 30,X,Y
wait 60 
endif
if scancode()=28
goto Name2
endif
loop

Name2:

Rem Coords For Name 2
X = 0
Y = 500

Rem Input For Name 2
do
if inkey$()="a"
paste image 3,X,Y
wait 60 
inc x,40
endif
if inkey$()="b"
paste image 4,X,Y
wait 60 
inc x,40
endif
if inkey$()="c"
paste image 5,X,Y
wait 60 
inc x,40
endif
if inkey$()="d"
paste image 6,X,Y
wait 60 
inc x,40
endif
if inkey$()="e"
paste image 7,X,Y
wait 60 
inc x,40
endif
if inkey$()="f"
paste image 8,X,Y
wait 60 
inc x,40
endif
if inkey$()="g"
paste image 9,X,Y
wait 60 
inc x,40
endif
if inkey$()="h"
paste image 10,X,Y
wait 60 
inc x,40
endif
if inkey$()="i"
paste image 11,X,Y
wait 60 
inc x,40
endif
if inkey$()="j"
paste image 12,X,Y
wait 60 
inc x,40
endif
if inkey$()="k"
paste image 13,X,Y
wait 60 
inc x,40
endif
if inkey$()="l"
paste image 14,X,Y
wait 60 
inc x,40
endif
if inkey$()="m"
paste image 15,X,Y
wait 60 
inc x,40
endif
if inkey$()="n"
paste image 16,X,Y
wait 60 
inc x,40
endif
if inkey$()="o"
paste image 17,X,Y
wait 60 
inc x,40
endif
if inkey$()="p"
paste image 18,X,Y
wait 60 
inc x,40
endif
if inkey$()="q"
paste image 19,X,Y
wait 60 
inc x,40
endif
if inkey$()="r"
paste image 20,X,Y
wait 60 
inc x,40
endif
if inkey$()="s"
paste image 21,X,Y
wait 60 
inc x,40
endif
if inkey$()="t"
paste image 22,X,Y
wait 60 
inc x,40
endif
if inkey$()="u"
paste image 23,X,Y
wait 60 
inc x,40
endif
if inkey$()="v"
paste image 24,X,Y
wait 60 
inc x,40
endif
if inkey$()="w"
paste image 25,X,Y
wait 60 
inc x,40
endif
if inkey$()="x"
paste image 26,X,Y
wait 60 
inc x,40
endif
if inkey$()="y"
paste image 27,X,Y
wait 60 
inc x,40
endif
if inkey$()="z"
paste image 28,X,Y
wait 60 
inc x,40
endif
if inkey$()=" "
paste image 30,X,Y
wait 60 
inc x,40
endif
if scancode()=14
dec x,40
paste image 30,X,Y
wait 60 
endif
loop

+ Code Snippet

Rem Coords Variables
X = 0
Y = 59

Rem Varibles
points$ = points$

Rem Setup Config
hide mouse
set display mode 800,600,32
ink rgb(255,0,0),1
cls

Rem Start
load image "Start Screen.bmp",1
paste image 1,0,0
wait 5000
load image "Producer Screen.bmp",2
paste image 2,0,0
wait 5000
cls

Rem Load images To Memory ******
load image "Black Tile.bmp",29
load image "Space.bmp",30
` ******************************
load image "Letters\A.bmp",3
load image "Letters\B.bmp",4
load image "Letters\C.bmp",5
load image "Letters\D.bmp",6
load image "Letters\E.bmp",7
load image "Letters\F.bmp",8
load image "Letters\G.bmp",9
load image "Letters\H.bmp",10
load image "Letters\I.bmp",11
load image "Letters\J.bmp",12
load image "Letters\K.bmp",13
load image "Letters\L.bmp",14
load image "Letters\M.bmp",15
load image "Letters\N.bmp",16
load image "Letters\O.bmp",17
load image "Letters\P.bmp",18
load image "Letters\Q.bmp",19
load image "Letters\R.bmp",20
load image "Letters\S.bmp",21
load image "Letters\T.bmp",22
load image "Letters\U.bmp",23
load image "Letters\V.bmp",24
load image "Letters\W.bmp",25
load image "Letters\X.bmp",26
load image "Letters\Y.bmp",27
load image "Letters\Z.bmp",28

Rem Load The Screen For Main Game
load image "Main Screen.bmp",31
paste image 31,0,0

Rem Input For Name 1
do
if inkey$()="a"
paste image 3,X,Y
wait 60 
inc x,40
endif
if inkey$()="b"
paste image 4,X,Y
wait 60 
inc x,40
endif
if inkey$()="c"
paste image 5,X,Y
wait 60 
inc x,40
endif
if inkey$()="d"
paste image 6,X,Y
wait 60 
inc x,40
endif
if inkey$()="e"
paste image 7,X,Y
wait 60 
inc x,40
points$ = points$ + "e"
endif
if inkey$()="f"
paste image 8,X,Y
wait 60 
inc x,40
endif
if inkey$()="g"
paste image 9,X,Y
wait 60 
inc x,40
endif
if inkey$()="h"
paste image 10,X,Y
wait 60 
inc x,40
endif
if inkey$()="i"
paste image 11,X,Y
wait 60 
inc x,40
endif
if inkey$()="j"
paste image 12,X,Y
wait 60 
inc x,40
endif
if inkey$()="k"
paste image 13,X,Y
wait 60 
inc x,40
endif
if inkey$()="l"
paste image 14,X,Y
wait 60 
inc x,40
points$ = points$ + "l"
endif
if inkey$()="m"
paste image 15,X,Y
wait 60 
inc x,40
endif
if inkey$()="n"
paste image 16,X,Y
wait 60 
inc x,40
endif
if inkey$()="o"
paste image 17,X,Y
wait 60 
inc x,40
points$ = points$ + "o"
endif
if inkey$()="p"
paste image 18,X,Y
wait 60 
inc x,40
endif
if inkey$()="q"
paste image 19,X,Y
wait 60 
inc x,40
endif
if inkey$()="r"
paste image 20,X,Y
wait 60 
inc x,40
endif
if inkey$()="s"
paste image 21,X,Y
wait 60 
inc x,40
endif
if inkey$()="t"
paste image 22,X,Y
wait 60 
inc x,40
endif
if inkey$()="u"
paste image 23,X,Y
wait 60 
inc x,40
points$ = points$ + "u"
endif
if inkey$()="v"
paste image 24,X,Y
wait 60 
inc x,40
points$ = points$ + "v"
endif
if inkey$()="w"
paste image 25,X,Y
wait 60 
inc x,40
endif
if inkey$()="x"
paste image 26,X,Y
wait 60 
inc x,40
endif
if inkey$()="y"
paste image 27,X,Y
wait 60 
inc x,40
points$ = points$ + "y"
endif
if inkey$()="z"
paste image 28,X,Y
wait 60 
inc x,40
endif
if inkey$()=" "
paste image 30,X,Y
wait 60 
inc x,40
endif
if scancode()=14
dec x,40
paste image 30,X,Y
wait 60 
endif
if scancode()=28
goto Name2
endif
loop

Name2:

Rem Coords For Name 2
X = 0
Y = 500

Rem Input For Name 2
do
if inkey$()="a"
paste image 3,X,Y
wait 60 
inc x,40
endif
if inkey$()="b"
paste image 4,X,Y
wait 60 
inc x,40
endif
if inkey$()="c"
paste image 5,X,Y
wait 60 
inc x,40
endif
if inkey$()="d"
paste image 6,X,Y
wait 60 
inc x,40
endif
if inkey$()="e"
paste image 7,X,Y
wait 60 
inc x,40
endif
if inkey$()="f"
paste image 8,X,Y
wait 60 
inc x,40
endif
if inkey$()="g"
paste image 9,X,Y
wait 60 
inc x,40
endif
if inkey$()="h"
paste image 10,X,Y
wait 60 
inc x,40
endif
if inkey$()="i"
paste image 11,X,Y
wait 60 
inc x,40
endif
if inkey$()="j"
paste image 12,X,Y
wait 60 
inc x,40
endif
if inkey$()="k"
paste image 13,X,Y
wait 60 
inc x,40
endif
if inkey$()="l"
paste image 14,X,Y
wait 60 
inc x,40
endif
if inkey$()="m"
paste image 15,X,Y
wait 60 
inc x,40
endif
if inkey$()="n"
paste image 16,X,Y
wait 60 
inc x,40
endif
if inkey$()="o"
paste image 17,X,Y
wait 60 
inc x,40
endif
if inkey$()="p"
paste image 18,X,Y
wait 60 
inc x,40
endif
if inkey$()="q"
paste image 19,X,Y
wait 60 
inc x,40
endif
if inkey$()="r"
paste image 20,X,Y
wait 60 
inc x,40
endif
if inkey$()="s"
paste image 21,X,Y
wait 60 
inc x,40
endif
if inkey$()="t"
paste image 22,X,Y
wait 60 
inc x,40
endif
if inkey$()="u"
paste image 23,X,Y
wait 60 
inc x,40
endif
if inkey$()="v"
paste image 24,X,Y
wait 60 
inc x,40
endif
if inkey$()="w"
paste image 25,X,Y
wait 60 
inc x,40
endif
if inkey$()="x"
paste image 26,X,Y
wait 60 
inc x,40
endif
if inkey$()="y"
paste image 27,X,Y
wait 60 
inc x,40
endif
if inkey$()="z"
paste image 28,X,Y
wait 60 
inc x,40
endif
if inkey$()=" "
paste image 30,X,Y
wait 60 
inc x,40
endif
if scancode()=14
dec x,40
paste image 30,X,Y
wait 60 
endif
loop

Back to top

Profile PM Email

TKF15H

21

Years of Service

User Offline

Joined: 20th Jul 2003

Location: Rio de Janeiro

Posted: 19th Jan 2004 17:21 Edited at: 19th Jan 2004 17:36

Link

Eek. It's huge...
I did some code optimisations, if you don't mind...

Rem Coords Variables
X = 0
Y = 59

Rem Varibles
points$ = ""
Rem Saying that points$ = points$ is redundant. Why did you do it?

Rem Setup Config
hide mouse
set display mode 800,600,32
ink rgb(255,0,0),1
cls

Rem Start
load image "Start Screen.bmp",1
paste image 1,0,0
wait 5000
load image "Producer Screen.bmp",2
paste image 2,0,0
wait 5000
Rem Why didn't you just use "Load Bitmap 'start screen.bmp'"?
cls

Rem Load images To Memory ******
load image "Black Tile.bmp",29
load image "Space.bmp",30
` ******************************
load image "LettersA.bmp",3
load image "LettersB.bmp",4
load image "LettersC.bmp",5
load image "LettersD.bmp",6
load image "LettersE.bmp",7
load image "LettersF.bmp",8
load image "LettersG.bmp",9
load image "LettersH.bmp",10
load image "LettersI.bmp",11
load image "LettersJ.bmp",12
load image "LettersK.bmp",13
load image "LettersL.bmp",14
load image "LettersM.bmp",15
load image "LettersN.bmp",16
load image "LettersO.bmp",17
load image "LettersP.bmp",18
load image "LettersQ.bmp",19
load image "LettersR.bmp",20
load image "LettersS.bmp",21
load image "LettersT.bmp",22
load image "LettersU.bmp",23
load image "LettersV.bmp",24
load image "LettersW.bmp",25
load image "LettersX.bmp",26
load image "LettersY.bmp",27
load image "LettersZ.bmp",28

Rem Load The Screen For Main Game
load image "Main Screen.bmp",31
paste image 31,0,0

Rem Input For Name 1
Name1$=get_name(X,Y)
Rem Input for Name 2
Name2$=get_name(0,500)
print "First name:", name1$
print "Second name:", name2$
Rem make a FOR loop here that checks Name1$ and Name2$ letter by 
Rem letter and adds the score apropriately.
wait key
end

function get_name(X,Y)
 do
 in$=inkey$()
 Rem Reading inkey$() into a variable gives better results...

if len(in$) >0 and asc(in$)>=asc("a") and asc(in$)<=asc("z")
  Rem Check if a key has been pressed, then check if it is between A and Z
  if in$="a" then paste image 3,X,Y
  Rem This will paste images accordingly...

if in$="b" then paste image 4,X,Y
  if in$="c" then paste image 5,X,Y
  Rem repeat until letter Z...

name$=name$+in$
  Rem  each letter is added to the name.

wait 60 
  inc x,40
  Rem does the pause and increments X for the letter. 
  Rem Assuming that they are all the same size.

End if
 if inkey$()=" "
  wait 60 
  inc x,40
  name$=name$+in$
  Rem this adds a space to the name. I removed the "Paste Image" 
  rem because being a blank space, it doesn't really nead to be
  rem printed. :D
 endif

if scancode()=14
  name$=left$(name$, len(name$)-1)
  Rem this is the part you were looking for. Name$ recieves all the 
  Rem letters, but the last. Let's say Name$="Tim". Len(Name$) would  
  rem return 3. Left$("Tim",3) would give us the leftmost three 
  rem letters. But we don't want the last one. So we subtract it.

dec x,40
  paste image 30,X,Y
  wait 60 
 endif
 if scancode()=28
  exit
  Rem You wrote this part yourself! Why am I commenting it???
 endif
 loop
endfunction name$
rem This function returns the Name that was typed in. It can be used
rem more than once, so you don't have to write all your code twice.

+ Code Snippet

Rem Coords Variables
X = 0
Y = 59

Rem Varibles
points$ = ""
Rem Saying that points$ = points$ is redundant. Why did you do it?

Rem Setup Config
hide mouse
set display mode 800,600,32
ink rgb(255,0,0),1
cls

Rem Start
load image "Start Screen.bmp",1
paste image 1,0,0
wait 5000
load image "Producer Screen.bmp",2
paste image 2,0,0
wait 5000
Rem Why didn't you just use "Load Bitmap 'start screen.bmp'"?
cls

Rem Load images To Memory ******
load image "Black Tile.bmp",29
load image "Space.bmp",30
` ******************************
load image "LettersA.bmp",3
load image "LettersB.bmp",4
load image "LettersC.bmp",5
load image "LettersD.bmp",6
load image "LettersE.bmp",7
load image "LettersF.bmp",8
load image "LettersG.bmp",9
load image "LettersH.bmp",10
load image "LettersI.bmp",11
load image "LettersJ.bmp",12
load image "LettersK.bmp",13
load image "LettersL.bmp",14
load image "LettersM.bmp",15
load image "LettersN.bmp",16
load image "LettersO.bmp",17
load image "LettersP.bmp",18
load image "LettersQ.bmp",19
load image "LettersR.bmp",20
load image "LettersS.bmp",21
load image "LettersT.bmp",22
load image "LettersU.bmp",23
load image "LettersV.bmp",24
load image "LettersW.bmp",25
load image "LettersX.bmp",26
load image "LettersY.bmp",27
load image "LettersZ.bmp",28

Rem Load The Screen For Main Game
load image "Main Screen.bmp",31
paste image 31,0,0

Rem Input For Name 1
Name1$=get_name(X,Y)
Rem Input for Name 2
Name2$=get_name(0,500)
print "First name:", name1$
print "Second name:", name2$
Rem make a FOR loop here that checks Name1$ and Name2$ letter by 
Rem letter and adds the score apropriately.
wait key
end

function get_name(X,Y)
 do
 in$=inkey$()
 Rem Reading inkey$() into a variable gives better results...

 if len(in$) >0 and asc(in$)>=asc("a") and asc(in$)<=asc("z")
  Rem Check if a key has been pressed, then check if it is between A and Z
  if in$="a" then paste image 3,X,Y
  Rem This will paste images accordingly...

  if in$="b" then paste image 4,X,Y
  if in$="c" then paste image 5,X,Y
  Rem repeat until letter Z...

  name$=name$+in$
  Rem  each letter is added to the name.

  wait 60 
  inc x,40
  Rem does the pause and increments X for the letter. 
  Rem Assuming that they are all the same size.

 End if
 if inkey$()=" "
  wait 60 
  inc x,40
  name$=name$+in$
  Rem this adds a space to the name. I removed the "Paste Image" 
  rem because being a blank space, it doesn't really nead to be
  rem printed. :D
 endif

 if scancode()=14
  name$=left$(name$, len(name$)-1)
  Rem this is the part you were looking for. Name$ recieves all the 
  Rem letters, but the last. Let's say Name$="Tim". Len(Name$) would  
  rem return 3. Left$("Tim",3) would give us the leftmost three 
  rem letters. But we don't want the last one. So we subtract it.

  dec x,40
  paste image 30,X,Y
  wait 60 
 endif
 if scancode()=28
  exit
  Rem You wrote this part yourself! Why am I commenting it???
 endif
 loop
endfunction name$
rem This function returns the Name that was typed in. It can be used
rem more than once, so you don't have to write all your code twice.

I didn't test this. I just typed it all in the browser. Should work...
[Edit]oops, I forgot to comment it...
And the command is LEFT$(). Being in Europe is no excuse for not using the dollar.

Why do programmers always mix up Christmas and Halloween?
Because DEC 25 = OCT 31

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / Love Meter Program