Need a little code help please - GameCreators Forum

Author

Message

Dragon slayer

18

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 24th Dec 2012 19:27

Link

I know I can work this code out using if-else but I want to use select case. What I want is for the player to select a direction with a capitol or lower case letter, NESW or nesw. I have played around with case and I guess it only takes one literal I tried an or like this CASE "N" or CASE "n". Is there a way to do this or do I have to make double case statements for each direction? I tried to nest a case inside a case and it did not work.

Here is the code

+ Code Snippet

Rem ***** Main Source File *****
posX = 0
posY = 0

print "Your current position is ", posX, ",", posY
print
input "Which direction do you want to move? (N)orth, (E)ast, (S)outh, (W)est ", plrMov$

    select plrMov$
    
        case "N"
        posY = posY + 1
        print "Your current position is ", posX, ",", posY
        endcase
    endselect
wait key

Thanks and Merry Christmas to all!
Dragonslayer

Back to top

Profile PM

Ortu

DBPro Master

17

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 24th Dec 2012 19:56 Edited at: 24th Dec 2012 20:01

Link

convert all input to one case via upper$ or lower$ before entering the select then just check that

+ Code Snippet


player types 'n' so that dir$="n" or player types 'N' so that dir$="N"

dir$ = upper$(dir$)
Rem dir$ now = "N"

select dir$
    case "N"

Back to top

Profile PM Email Website

Dragon slayer

18

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 24th Dec 2012 20:37

Link

Thanks that worked! I have not really studied those commands yet. I am going to read up on them now.

Back to top

Profile PM

Dragon slayer

18

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 24th Dec 2012 21:27

Link

This is what I have. Good movement code. If anyone sees a problem or a better way to do it please let me know. Here is the code

+ Code Snippet

Rem ***** Main Source File *****
posX = 0
posY = 0
plrMov$ = ""

print "Your current position is ", posX, ",", posY
print

repeat
input "Which direction do you want to move? (N)orth, (E)ast, (S)outh, (W)est, (Q)uit ", plrMov$
plrMov$ = upper$(plrMov$) 

    select plrMov$   
         case "N"
            posY = posY + 1
            print "Your current position is ", posX, ",", posY
         endcase
         
         case "E"
            posX = posX + 1
            print "Your current position is ", posX, ",", posY
         endcase
         
         case "S"
            posY = posY - 1
            print "Your current position is ", posX, ",", posY
         endcase 
    
        case "W"
            posX = posX - 1
            print "Your current position is ", posX, ",", posY
        endcase
        
        case "Q"
            print "Thanks for playing, hit any key to exit"
        endcase
    endselect
until plrMov$ = "Q"    
wait key

Back to top

Profile PM

Ortu

DBPro Master

17

Years of Service

User Offline

Joined: 21st Nov 2007

Location: Austin, TX

Posted: 24th Dec 2012 21:42

Link

Looks solid, one thing to note though is that using input command will essentially pause the program until the user responds, an input system using the entry$ buffer is more complicated but would allow the game to continue running background processes and logic while it waits for the player to do something. May be overkill for your project if it's all text based, but could be usefull to look into in general.

Back to top

Profile PM Email Website

Dragon slayer

18

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 24th Dec 2012 22:20

Link

Sounds a little beyond me right now. I will look it up and learn about it. I am just doing a little text thing now to learn how to work out some routines and learn how to use the commands properly.

Back to top

Profile PM

sayerbloke

11

Years of Service

User Offline

Joined: 1st Dec 2012

Location:

Posted: 25th Dec 2012 06:59

Link

All seems to work well enough

. Depending on how exactly this code will fit in with other procedures, you could re-arrange it a little to change when you call the Print line. It's the same code each time so you could move it, like so:

+ Code Snippet

Rem ***** Main Source File *****
posX = 0
posY = 0
plrMov$ = ""

repeat
print "Your current position is ", posX, ",", posY
input "Which direction do you want to move? (N)orth, (E)ast, (S)outh, (W)est, (Q)uit ", plrMov$
plrMov$ = upper$(plrMov$) 

    select plrMov$   
         case "N"
            posY = posY + 1
         endcase
         
         case "E"
            posX = posX + 1
         endcase
         
         case "S"
            posY = posY - 1
         endcase 
    
        case "W"
            posX = posX - 1
        endcase
        
        case "Q"
            print "Thanks for playing, hit any key to exit"
        endcase
    endselect
until plrMov$ = "Q"    
wait key

Same result, but saves a few lines of code

.

Merry Christmas to you too!

Back to top

Profile PM

Dragon slayer

18

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 25th Dec 2012 18:25

Link

Did not even realize that Thanks!

Merry Christmas

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Need a little code help please