from # to $ -is it possible? - GameCreators Forum

Author

Message

Uriel The Ignoble

21

Years of Service

User Offline

Joined: 13th Jun 2003

Location: In a tiny box in the attic

Posted: 14th Jun 2003 02:30

Link

im trying to make a numeric variable occur in the program in responce to user input... but the compiler says $ and # are not compatable. I know these are seperate variable types, but i dont understand why they arent compatable if they are not both in the same condition. (right now its set like this:
If input$ = "1" then characterhealth# = 100
Is there another way to make numeric variables effected by input?

im trying to make a menue when u start the game that lets you select a character class (like an RPG) and this selection changes your stats.

Back to top

Profile PM

andrew11

21

Years of Service

User Offline

Joined: 23rd Feb 2003

Location: United States

Posted: 14th Jun 2003 02:49

Link

Here's how to convert between the two.

From $(string) to #(float)
float# = val(string$)

From #(float) to $(string)
string$ = str$(float#)

This should work though.
If input$ = "1" then characterhealth# = 100
You could try adding a .0 at the end of characterhealth# like this:
If input$ = "1" then characterhealth# = 100.0

"Food is güd!" -Dean
"All programmers are playwrites and all computers are lousy actors" -Anon
Click Here!!!

Back to top

Profile PM

GameKit

21

Years of Service

User Offline

Joined: 6th Mar 2003

Location: USA, Staring Blankly at a Computer

Posted: 16th Jun 2003 00:09

Link

hmmm... mabey try something like...

if input$="1"
characterhealth#=100.0
endif

...if that doesn't work i don't know what will...

Anyone Can Destroy...But Few Can Create...

Back to top

Profile PM Email

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 19th Jun 2003 06:37

Link

Probably down to the way DB lets you (or used to let you) use reserved words as variable names.

Try using I$ instead of input$ to see if that works:

If I$ = "1" then characterhealth# = 100

TDK

Back to top

Profile PM Email Website

Bloodshot

21

Years of Service

User Offline

Joined: 7th Apr 2003

Location: United Kingdom

Posted: 21st Jun 2003 22:51 Edited at: 21st Jun 2003 23:03

Link

I've created an example here of using the Ascii codes of keys to make choices, assuming I've understood what you're trying to do correctly and you're asking the user to make choices with keypresses:

i.e.

User, please press a key to choose to be either a (F)ighter or a (M)age

Rem You can use this first part of the example to make a note of keys Ascii values,
Rem so they can be used later in your coding for character choices

Sync Off

CLS 0
Set Cursor 0,0 : Ink RGB(255,255,255),RGB(0,0,0) : Print "Press any key to get it's AscII code"
Ink RGB(127,127,127),RGB(0,0,0) : Print "(Click a Mouse Button to quit)"

OLDKEY$="" : NEWKEY$="" : MOUSE=0
Repeat
       NEWKEY$=InKey$()
       If NEWKEY$<>"" and NEWKEY$<>OLDKEY$
          Set Cursor 0,50 : Ink RGB(0,0,0),RGB(0,0,0) : Print "The AscII code for key ";OLDKEY$;" = ";Asc(OLDKEY$)
          Set Cursor 0,50 : Ink RGB(255,255,0),RGB(0,0,0) : Print "The AscII code for key ";NEWKEY$;" = ";Asc(NEWKEY$)
          OLDKEY$=NEWKEY$
          Sync
       EndIf
       MOUSE=MouseClick()
Until MOUSE>0

Rem Now a basic example of choosing characters with the keyboard

CLS 0
Set Cursor 0,0 : Ink RGB(255,255,255),RGB(0,0,0) : Print "Please press a key for your character choice:"
Ink RGB(255,0,0),RGB(0,0,0) : Print "(B)ard, (C)leric, (F)ighter, (M)age, (P)aladin, (R)anger, (T)hief"

OLDKEY$="" : NEWKEY$=""
CHARACTERCHOICE=0
Repeat
       NEWKEY$=InKey$()
       If NEWKEY$<>"" and NEWKEY$<>OLDKEY$ : Rem I'll only update the screen if a key is pressed and not the same key as last key press
          KEYVALUE=Asc(Upper$(NEWKEY$))
          OLDKEY$=NEWKEY$

Set Cursor 0,50 : Ink RGB(255,255,0),RGB(0,0,0)

Select KEYVALUE
                 Case 66 : Rem "B"
                      CHARACTERCHOICE=1
                      HEALTH=150
                      Print "You selected Bard"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 67 : Rem "C"
                      CHARACTERCHOICE=2
                      HEALTH=150
                      Print "You selected Cleric"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 70 : Rem "F"
                      CHARACTERCHOICE=3
                      HEALTH=200
                      Print "You selected Fighter"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 77 : Rem "M"
                      CHARACTERCHOICE=4
                      HEALTH=100
                      Print "You selected Mage"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 80 : Rem "P"
                      CHARACTERCHOICE=5
                      HEALTH=175
                      Print "You selected Paladin"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 82 : Rem "R"
                      CHARACTERCHOICE=6
                      HEALTH=175
                      Print "You selected Ranger"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 84 : Rem "T"
                      CHARACTERCHOICE=7
                      HEALTH=150
                      Print "You selected Thief"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case Default
                      Rem All other key presses are ignored
                 EndCase
          EndSelect

Sync
       EndIf

Until CHARACTERCHOICE>0 : Rem Loops until you've selected a character type

Wait 2000
Print
Ink RGB(255,255,255),RGB(0,0,0) : Print "Terminating program please wait..."

Sync On

Wait 1

+ Code Snippet

Rem You can use this first part of the example to make a note of keys Ascii values,
Rem so they can be used later in your coding for character choices

Sync Off

CLS 0
Set Cursor 0,0 : Ink RGB(255,255,255),RGB(0,0,0) : Print "Press any key to get it's AscII code"
Ink RGB(127,127,127),RGB(0,0,0) : Print "(Click a Mouse Button to quit)"


OLDKEY$="" : NEWKEY$="" : MOUSE=0
Repeat
       NEWKEY$=InKey$()
       If NEWKEY$<>"" and NEWKEY$<>OLDKEY$
          Set Cursor 0,50 : Ink RGB(0,0,0),RGB(0,0,0) : Print "The AscII code for key ";OLDKEY$;" = ";Asc(OLDKEY$)
          Set Cursor 0,50 : Ink RGB(255,255,0),RGB(0,0,0) : Print "The AscII code for key ";NEWKEY$;" = ";Asc(NEWKEY$)
          OLDKEY$=NEWKEY$
          Sync
       EndIf
       MOUSE=MouseClick()
Until MOUSE>0


Rem Now a basic example of choosing characters with the keyboard

CLS 0
Set Cursor 0,0 : Ink RGB(255,255,255),RGB(0,0,0) : Print "Please press a key for your character choice:"
Ink RGB(255,0,0),RGB(0,0,0) : Print "(B)ard, (C)leric, (F)ighter, (M)age, (P)aladin, (R)anger, (T)hief"

OLDKEY$="" : NEWKEY$=""
CHARACTERCHOICE=0
Repeat
       NEWKEY$=InKey$()
       If NEWKEY$<>"" and NEWKEY$<>OLDKEY$ : Rem I'll only update the screen if a key is pressed and not the same key as last key press
          KEYVALUE=Asc(Upper$(NEWKEY$))
          OLDKEY$=NEWKEY$

          Set Cursor 0,50 : Ink RGB(255,255,0),RGB(0,0,0)

          Select KEYVALUE
                 Case 66 : Rem "B"
                      CHARACTERCHOICE=1
                      HEALTH=150
                      Print "You selected Bard"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 67 : Rem "C"
                      CHARACTERCHOICE=2
                      HEALTH=150
                      Print "You selected Cleric"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 70 : Rem "F"
                      CHARACTERCHOICE=3
                      HEALTH=200
                      Print "You selected Fighter"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 77 : Rem "M"
                      CHARACTERCHOICE=4
                      HEALTH=100
                      Print "You selected Mage"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 80 : Rem "P"
                      CHARACTERCHOICE=5
                      HEALTH=175
                      Print "You selected Paladin"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 82 : Rem "R"
                      CHARACTERCHOICE=6
                      HEALTH=175
                      Print "You selected Ranger"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case 84 : Rem "T"
                      CHARACTERCHOICE=7
                      HEALTH=150
                      Print "You selected Thief"
                      Ink RGB(255,0,0),RGB(0,0,0) : Print "Health = ";HEALTH
                 EndCase
                 Case Default
                      Rem All other key presses are ignored
                 EndCase
          EndSelect

          Sync
       EndIf

Until CHARACTERCHOICE>0 : Rem Loops until you've selected a character type

Wait 2000
Print
Ink RGB(255,255,255),RGB(0,0,0) : Print "Terminating program please wait..."

Sync On

Wait 1

Back to top

Profile PM Email Website

Angel

21

Years of Service

User Offline

Joined: 27th Jun 2003

Location: United States

Posted: 22nd Jul 2003 18:28

Link

Use the commands val() and str$()
example:
A$ = "1000"
A = VAL(A$)
B$ = STR$(A)
print B$

Wanna Go On A Data???

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / from # to $ -is it possible?