Need some code help please - GameCreators Forum

Author

Message

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 20th Jun 2013 21:52

Link

I can post all the code if necessary. I have a UDT with about 17 variables the udt is called characterT. I am trying to create a character called plrChar. Everything works fine the program automatically sets stats with a struct called roll: and the randomize command. I have a variable in the udt called spell_points. In the program there will be 4 magic users. conjurer, wizard, magician and sorcerer. For the rest of the characters the spell_points will be set to 0 but for these 4 if the user creates one of these the spell points will be set to 10. This is some code I tried and it didn't work.

if plrChar.class = wizard or conjurer or magician or sorcerer
plrChar.spell_points = 10
else
plrChar.spell_points = 0
endif

I am not sure if I wrote this if stmt right. I get an error with @ FS and some stuff I don't get.

Any ideas on how to do this? for loop maybe?

I know it can be done just not quite sure how to go about it!

Thanks Dragonslayer

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 20th Jun 2013 22:01 Edited at: 20th Jun 2013 22:01

Link

This:

+ Code Snippet

if plrChar.class = wizard or conjurer or magician or sorcerer

Will not do what you want it to. It will always be true, no matter what value plrChar.class has.

Fix:

+ Code Snippet

if plrChar.class = wizard or plrChar.class = conjurer or plrChar.class = magician or plrChar.class = sorcerer

Quote: "I get an error with @ FS and some stuff I don't get."

Not sure what that means. You'll need to elaborate.

TheComet

Yesterday is History, Tomorrow is a Mystery, but Today is a Gift. That is why it is called "present".

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 20th Jun 2013 22:28

Link

Thanks! I know I have seen that type of code. I will try it If it works great if not I should get the same error, if so I will post it here

Back to top

Profile PM

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 20th Jun 2013 22:46

Link

Here is all the code. the code in question is in the createCharacter function with a comment above it

// Practice Text RPG

// Set up a character user defined type (UDT)
type characterT
	name              as string
	race              as string
	class             as string
	condition         as string
strength           as integer
intelligence       as integer
dexterity          as integer
constitution       as integer
luck               as integer
armor_class        as integer
hitpoints          as integer
	spell_points      as integer
experience_points  as integer
	gold              as integer
level              as integer
spell              as integer
	items             as integer
endtype

plrChar as characterT

//Set up a chracter array that holds every variable from the UDT to define one character.
//Create up to 25 characters
//global dim plrChar(25) as characterT

// Call the set up the screen function
 setUpScreen()
 startGameScreen()
 wait key
 end

//************************************************FUNCTIONS***********************************************************

function setUpScreen()
//This function sets up the display
    set display mode 800,600,32
    ink rgb(0,255,0),0
    set text font "courier new"
    set text size 25
endfunction

//************************************************************************************************************************

function startGameScreen()
//This function shows the start game screen
     set text size 20
     ink rgb(255,0,0),0
     text 181,40,"**************************************"
     text 181,50,"*"
     text 181,60,"*"
     text 181,70,"*"
     text 551,50,"*"
     text 551,60,"*"
     text 551,70,"*"
     text 181,80,"**************************************"
     
     set text size 35
     ink rgb(0,255,0),0
     text 210,50,"Practice Text RPG"
     set text size 25
     text 255,250,"1.) Start Game"
     text 255,280,"2.) Leave Game"
     text 315,315,"Choice:"
     set cursor 410,315
     
//The choices for starting or leaving the game     
     input choice
     
     if choice = 1
         cls
         mainGameScreen()
         adventurersGuildMenu()
     else
        quit()         
    ENDIF   
endfunction

//**********************************************************************************************************************************

function mainGameScreen()
    ink rgb(255,0,0)
    line 0,397,410,397
    line 0,400,410,400
    line 410,0,410,596
    line 414,0,414,600
    line 0,599,413,599
    line 0,596,410,596
    set text size 20
    ink rgb(0,255,0)
    
    //party section headings
    text 25,400,"Name"
    text 120,400,"Race" 
    text 200,400,"Class"
    text 280,400,"Cond" 
    text 340,400,"HP"
    text 380,400,"SP"
    
    //code for party section text
    text 0,426,"Test"
    text 0,456,"Test"
    text 0,486,"Test"
    text 0,516,"Test"
    text 0,546,"Test"
    text 0,576,"Test"
    text 95,426,"half-elf"
    text 185,426,"Magician"
    text 275,426,"alive"
    text 335,426,"550"
    text 375,426,"550"
       
     
    ink rgb(255,0,0)
    line 90,400,90,596
    line 0,420,410,420
    line 180,400,180,596
    line 270,400,270,596
    line 330,400,330,596
    line 370,400,370,596
ENDFUNCTION

//*****************************************************************************************************************************************

function adventurersGuildMenu()
    ink rgb(0,255,0)
    text 420,10,"Brave warrior thou art in the guild of"
    text 420,30,"adventurers. What do you wish to do?"
    text 420,60,"Create up to 25 characters then create"
    text 420,80,"a 6 character party"
    text 480,150,"1.) Create A Character"
    text 480,170,"2.) Create A Party"
    text 480,190,"3.) Save Game"
    text 480,210,"4.) Leave Game"
    text 480,230,"5.) Enter City"    
    text 515,300,"Choice: "
    set cursor 585,300
  input choice:
    
    if choice = 1
        cls
        mainGameScreen()
        createCharacter()
    ENDIF 
endfunction

//****************************************************************************************************************************************

function createCharacter()
    randomize timer()
    ink rgb(0,255,0),0
    text 420,10,"Use the options below to create up to"
    text 420,30,"20 characters"
    ink rgb(255,0,0),0
    line 414,50,800,50
    ink rgb(0,255,0),0
    set cursor 470,60 
    
   //Races and classes text 
    text 475,375,"Races"
    ink rgb(255,0,0),0
    line 415,395,800,395
    ink rgb(0,255,0),0
    text 475,395,"Human"
    text 475,415,"Elf"
    text 475,435,"Dwarf"
    text 475,455,"Hobbit"
    text 475,475,"Half-Elf"
    text 475,495,"Gnome"
    text 650,375,"Classes"
    text 650,395,"Warrior"
    text 650,415,"Paladin"
    text 650,435,"Rogue"
    text 650,455,"Bard"
    text 650,475,"Hunter"
    text 650,495,"Monk"
    text 650,515,"Conjurer"
    text 650,535,"Magician"
    text 650,555,"Sorcerer"
    text 650,575,"Wizard" 
    
    //Character setup
    set cursor 420,50
    input "Name:",plrChar.name
    set cursor 420,70
    input "Race:",plrChar.race
    set cursor 420,90
    input "Class:",plrChar.class
    
    //Roll for attributes
    roll:
    //Strength
    plrChar.strength = rnd(25) + 1
    set cursor 420,110
    print "Strength(ST):",plrChar.strength
    
    //Intelligence
    plrChar.intelligence = rnd(25)+1
    set cursor 420,130
    print "Intelligence(IQ):",plrChar.intelligence
    
    //Dexterity
    plrChar.dexterity = rnd(25)+1
    set cursor 420,150
    print "Dexterity(DX):",plrChar.dexterity
    
    //Constitution
    plrChar.constitution = rnd(25)+1
    set cursor 420,170
    print "Constitution(CN):",plrChar.constitution
    
    //Luck
    plrChar.luck = rnd(25)+1
    set cursor 420,190
    print "Luck(CN):",plrChar.luck
    
    //Hitpoints
    plrChar.hitpoints = rnd(30)+1
    set cursor 420,210
    print "hitpoints(CN):",plrChar.hitpoints
    
    //Re-roll for attributes
set cursor 420,250
input "Re-roll?:y/n ", a$
if a$ = "y"
ink rgb(0,0,0)
box 420,105,800,275
ink rgb(0,255,0),0
    gosub roll:
ENDIF

//Save character
if a$ = "n"
    ink rgb(0,0,0)
    box 420,230,800,275
    ink rgb(0,255,0)
    set cursor 420,230
    plrChar.armor_class = 10
    print "Armor Class(AC):", plrChar.armor_class
    set cursor 420,250
    
    //THE CODE IN QUESTION
    if plrChar.class = wizard or plrChar.class = conjurer or plrChar.class = magician or plrChar.class = sorcerer
        plrChar.spell_points = 10
        print "Spell Points(SP):",plrChar.spell_points
   else
        plrChar.spell_points = 0
        print "Spell Points(SP):",plrChar.spell_points
  endif        
ENDIF
endfunction

//****************************************************************************************************************************************

function quit()
   cls
   set text size 35
   text 200,20,"Practice Text RRPG"
   text 200,200,"Thanks for playing.........."
   sleep 2000
   end 
ENDFUNCTION

+ Code Snippet

// Practice Text RPG

// Set up a character user defined type (UDT)
type characterT
	name              as string
	race              as string
	class             as string
	condition         as string
strength           as integer
intelligence       as integer
dexterity          as integer
constitution       as integer
luck               as integer
armor_class        as integer
hitpoints          as integer
	spell_points      as integer
experience_points  as integer
	gold              as integer
level              as integer
spell              as integer
	items             as integer
endtype

plrChar as characterT

//Set up a chracter array that holds every variable from the UDT to define one character.
//Create up to 25 characters
//global dim plrChar(25) as characterT

// Call the set up the screen function
 setUpScreen()
 startGameScreen()
 wait key
 end


//************************************************FUNCTIONS***********************************************************

function setUpScreen()
//This function sets up the display
    set display mode 800,600,32
    ink rgb(0,255,0),0
    set text font "courier new"
    set text size 25
endfunction

//************************************************************************************************************************

function startGameScreen()
//This function shows the start game screen
     set text size 20
     ink rgb(255,0,0),0
     text 181,40,"**************************************"
     text 181,50,"*"
     text 181,60,"*"
     text 181,70,"*"
     text 551,50,"*"
     text 551,60,"*"
     text 551,70,"*"
     text 181,80,"**************************************"
     
     set text size 35
     ink rgb(0,255,0),0
     text 210,50,"Practice Text RPG"
     set text size 25
     text 255,250,"1.) Start Game"
     text 255,280,"2.) Leave Game"
     text 315,315,"Choice:"
     set cursor 410,315
     
//The choices for starting or leaving the game     
     input choice
     
     if choice = 1
         cls
         mainGameScreen()
         adventurersGuildMenu()
     else
        quit()         
    ENDIF   
endfunction

//**********************************************************************************************************************************


function mainGameScreen()
    ink rgb(255,0,0)
    line 0,397,410,397
    line 0,400,410,400
    line 410,0,410,596
    line 414,0,414,600
    line 0,599,413,599
    line 0,596,410,596
    set text size 20
    ink rgb(0,255,0)
    
    //party section headings
    text 25,400,"Name"
    text 120,400,"Race" 
    text 200,400,"Class"
    text 280,400,"Cond" 
    text 340,400,"HP"
    text 380,400,"SP"
    
    //code for party section text
    text 0,426,"Test"
    text 0,456,"Test"
    text 0,486,"Test"
    text 0,516,"Test"
    text 0,546,"Test"
    text 0,576,"Test"
    text 95,426,"half-elf"
    text 185,426,"Magician"
    text 275,426,"alive"
    text 335,426,"550"
    text 375,426,"550"
       
     
    ink rgb(255,0,0)
    line 90,400,90,596
    line 0,420,410,420
    line 180,400,180,596
    line 270,400,270,596
    line 330,400,330,596
    line 370,400,370,596
ENDFUNCTION

//*****************************************************************************************************************************************

function adventurersGuildMenu()
    ink rgb(0,255,0)
    text 420,10,"Brave warrior thou art in the guild of"
    text 420,30,"adventurers. What do you wish to do?"
    text 420,60,"Create up to 25 characters then create"
    text 420,80,"a 6 character party"
    text 480,150,"1.) Create A Character"
    text 480,170,"2.) Create A Party"
    text 480,190,"3.) Save Game"
    text 480,210,"4.) Leave Game"
    text 480,230,"5.) Enter City"    
    text 515,300,"Choice: "
    set cursor 585,300
  input choice:
    
    if choice = 1
        cls
        mainGameScreen()
        createCharacter()
    ENDIF 
endfunction

//****************************************************************************************************************************************

function createCharacter()
    randomize timer()
    ink rgb(0,255,0),0
    text 420,10,"Use the options below to create up to"
    text 420,30,"20 characters"
    ink rgb(255,0,0),0
    line 414,50,800,50
    ink rgb(0,255,0),0
    set cursor 470,60 
    
   //Races and classes text 
    text 475,375,"Races"
    ink rgb(255,0,0),0
    line 415,395,800,395
    ink rgb(0,255,0),0
    text 475,395,"Human"
    text 475,415,"Elf"
    text 475,435,"Dwarf"
    text 475,455,"Hobbit"
    text 475,475,"Half-Elf"
    text 475,495,"Gnome"
    text 650,375,"Classes"
    text 650,395,"Warrior"
    text 650,415,"Paladin"
    text 650,435,"Rogue"
    text 650,455,"Bard"
    text 650,475,"Hunter"
    text 650,495,"Monk"
    text 650,515,"Conjurer"
    text 650,535,"Magician"
    text 650,555,"Sorcerer"
    text 650,575,"Wizard" 
    
    //Character setup
    set cursor 420,50
    input "Name:",plrChar.name
    set cursor 420,70
    input "Race:",plrChar.race
    set cursor 420,90
    input "Class:",plrChar.class
    
    //Roll for attributes
    roll:
    //Strength
    plrChar.strength = rnd(25) + 1
    set cursor 420,110
    print "Strength(ST):",plrChar.strength
    
    //Intelligence
    plrChar.intelligence = rnd(25)+1
    set cursor 420,130
    print "Intelligence(IQ):",plrChar.intelligence
    
    //Dexterity
    plrChar.dexterity = rnd(25)+1
    set cursor 420,150
    print "Dexterity(DX):",plrChar.dexterity
    
    //Constitution
    plrChar.constitution = rnd(25)+1
    set cursor 420,170
    print "Constitution(CN):",plrChar.constitution
    
    //Luck
    plrChar.luck = rnd(25)+1
    set cursor 420,190
    print "Luck(CN):",plrChar.luck
    
    //Hitpoints
    plrChar.hitpoints = rnd(30)+1
    set cursor 420,210
    print "hitpoints(CN):",plrChar.hitpoints
    
    //Re-roll for attributes
set cursor 420,250
input "Re-roll?:y/n ", a$
if a$ = "y"
ink rgb(0,0,0)
box 420,105,800,275
ink rgb(0,255,0),0
    gosub roll:
ENDIF

//Save character
if a$ = "n"
    ink rgb(0,0,0)
    box 420,230,800,275
    ink rgb(0,255,0)
    set cursor 420,230
    plrChar.armor_class = 10
    print "Armor Class(AC):", plrChar.armor_class
    set cursor 420,250
    
    //THE CODE IN QUESTION
    if plrChar.class = wizard or plrChar.class = conjurer or plrChar.class = magician or plrChar.class = sorcerer
        plrChar.spell_points = 10
        print "Spell Points(SP):",plrChar.spell_points
   else
        plrChar.spell_points = 0
        print "Spell Points(SP):",plrChar.spell_points
  endif        
ENDIF
endfunction

//****************************************************************************************************************************************


function quit()
   cls
   set text size 35
   text 200,20,"Practice Text RRPG"
   text 200,200,"Thanks for playing.........."
   sleep 2000
   end 
ENDFUNCTION

This is the error I get even with the code Comet showed me

Types 'plrChar' and 'FS@createCharacter@wizard' are incompatible at line 247.

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 21st Jun 2013 00:35

Link

You have characterT.class as defined as a string, but in your IF statement you're trying to compare it to an integer. Incompatible types. You need to wrap those words in double quotes to make them strings.

+ Code Snippet

if plrChar.class = "wizard" or plrChar.class = "conjurer" or plrChar.class = "magician" or plrChar.class = "sorcerer"

As another note, since you're defining plrChar.class by user input, you should consider comparing the strings using lower$() or upper$(), because the string comparison is not case-insensitive.

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 21st Jun 2013 00:47

Link

This makes sense to me. I will check this out later because I want to see where I made a mistake in my code not just change it so it works but not know why. I have to step out now so will look into it later!

Back to top

Profile PM

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 21st Jun 2013 04:27

Link

I fixed this works fine. Going to check out the string comparison stuff. Not the only place in the code I will need that. Also as it is right now They could type anything in those options and the program will work. I will put some code in that if they put something other than the class options or race options that are listed they will get a message to put in only the options that are listed.

Back to top

Profile PM

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 21st Jun 2013 07:05

Link

Phaelax
I clicked on the banner in your sig and checked out the site it took me to. Is that your site? If so I saw something on there that said shipping out, going to serve the country. Are or were you a soldier?

I was for 10 years. Got to go play in the sand in 90-91. I was a Cav soldier. 3/7 Cav in Mannheim Germany for 3 years then 1st Cav. Ft Hood Texas. Also did 3 years in the Marine Corps right out of high school.

Back to top

Profile PM

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 21st Jun 2013 18:11

Link

I stayed stateside for training. It wasn't suppose to be for very long, but a fractured hip kept me in therapy for months.

Most of my DB-related stuff is on another site: http://dbcodecorner.com/

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 21st Jun 2013 21:11

Link

Bookmarked that site. You still in?

Back to top

Profile PM

Libervurto

20

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 21st Jun 2013 21:39 Edited at: 21st Jun 2013 21:40

Link

You could use bitwise comparison if you structure the classes in the right way.

+ Code Snippet

brute    = 0
berserker = 2
paladin  = 4
rogue    = 6
// magic is odd! :P
conjurer = 1
magician = 3
wizard   = 5
sorcerer = 7

// run through all possible classes
for c = 0 to 7
  plrChar.class = c

  if (plrChar.class&&1)=1 // The =1 is not required in this case but in general.
    plrChar.spell_points = 10
  else
    plrChar.spell_points = 0
  endif

  print plrChar.spell_points
next c

The difficulty in learning is not acquiring new knowledge but relinquishing the old.

Back to top

Profile PM Email

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 22nd Jun 2013 15:48

Link

Try this

TheComet

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 24th Jun 2013 03:18

Link

Still having problems with this code. Had it working then made some changes and now it prints 0 no matter how I re-arrange it. Any help would be appreciated!!!

// Practice Text RPG

//SETUP THE CHARACTER TYPE
type characterT
	name              as string
	race              as string
	class             as string
	condition         as string
strength           as integer
intelligence       as integer
dexterity          as integer
constitution       as integer
luck               as integer
armor_class        as integer
hitpoints          as integer
	spell_points      as integer
experience_points  as integer
	gold              as integer
level              as integer
spell              as integer
	items             as integer
endtype

plrChar as characterT

//Set up a chracter array that holds every variable from the UDT to define one character.
//Create up to 25 characters
//global dim plrChar(25) as characterT

// CALL THE FUNCTIONS
 setUpScreen()
 startGameScreen()
 wait key
 end

//************************************************FUNCTIONS***********************************************************

function setUpScreen()
//DISPLAY SETUP
    set display mode 800,600,32
    ink rgb(0,255,0),0
    set text font "courier new"
    set text size 25
endfunction

//************************************************************************************************************************

function startGameScreen()
//START GAME SCREEN SETUP
     set text size 20
     ink rgb(255,0,0),0
     text 181,40,"**************************************"
     text 181,50,"*"
     text 181,60,"*"
     text 181,70,"*"
     text 551,50,"*"
     text 551,60,"*"
     text 551,70,"*"
     text 181,80,"**************************************"
     
     set text size 35
     ink rgb(0,255,0),0
     text 210,50,"Practice Text RPG"
     set text size 25
     text 255,250,"1.) Start Game"
     text 255,280,"2.) Leave Game"
     text 315,315,"Choice:"
     set cursor 410,315
     
//SETUP FOR STARTING AND LEAVING GAME     
     input choice
     
     if choice = 1
         cls
         mainGameScreen()
         adventurersGuildMenu()
     else
        quit()         
    ENDIF   
endfunction

//**********************************************************************************************************************************

function mainGameScreen()
    ink rgb(255,0,0)
    line 0,397,410,397
    line 0,400,410,400
    line 410,0,410,596
    line 414,0,414,600
    line 0,599,413,599
    line 0,596,410,596
    set text size 20
    ink rgb(0,255,0)
    
    //PARTY SECTION SETUP
    text 25,400,"Name"
    text 120,400,"Race" 
    text 200,400,"Class"
    text 280,400,"Cond" 
    text 340,400,"HP"
    text 380,400,"SP"
    
    text 0,426,"Test"
    text 0,456,"Test"
    text 0,486,"Test"
    text 0,516,"Test"
    text 0,546,"Test"
    text 0,576,"Test"
    text 95,426,"half-elf"
    text 185,426,"Magician"
    text 275,426,"alive"
    text 335,426,"550"
    text 375,426,"550"
       
     
    ink rgb(255,0,0)
    line 90,400,90,596
    line 0,420,410,420
    line 180,400,180,596
    line 270,400,270,596
    line 330,400,330,596
    line 370,400,370,596
ENDFUNCTION

//*****************************************************************************************************************************************

function adventurersGuildMenu()
    ink rgb(0,255,0)
    text 420,10,"Brave warrior thou art in the guild of"
    text 420,30,"adventurers. What do you wish to do?"
    text 420,60,"Create up to 25 characters then create"
    text 420,80,"a 6 character party"
    text 480,150,"1.) Create A Character"
    text 480,170,"2.) Create A Party"
    text 480,190,"3.) Save Game"
    text 480,210,"4.) Leave Game"
    text 480,230,"5.) Enter City"    
    text 515,300,"Choice: "
    set cursor 585,300
  input choice:
    
    if choice = 1
        cls
        mainGameScreen()
        createCharacter()
    ENDIF 
endfunction

//****************************************************************************************************************************************

function createCharacter()
    //SETUP THE CREATE CHARACTER SCREEN
    randomize timer()
    ink rgb(0,255,0),0
    text 420,10,"Use the options below to create up to"
    text 420,30,"20 characters"
    ink rgb(255,0,0),0
    line 414,50,800,50
    ink rgb(0,255,0),0
    set cursor 470,60 
    
   //RACES AND CLASSES 
    text 475,375,"Races"
    ink rgb(255,0,0),0
    line 415,395,800,395
    ink rgb(0,255,0),0
    text 475,395,"1) Human"
    text 475,415,"2) Elf"
    text 475,435,"3) Dwarf"
    text 475,455,"4) Hobbit"
    text 475,475,"5) Half-Elf"
    text 475,495,"6) Gnome"
    text 650,375,"Classes"
    text 650,395,"1) Warrior"
    text 650,415,"2) Paladin"
    text 650,435,"3) Rogue"
    text 650,455,"4) Bard"
    text 650,475,"5) Hunter"
    text 650,495,"6) Monk"
    text 650,515,"7) Conjurer"
    text 650,535,"8) Magician"
    text 650,555,"9) Sorcerer"
   text 650,575,"10)Wizard"
   text 500,555,"Choice:"
  
    
    //CHARACTER SETUP
    //NAME
    set cursor 420,60
    input "Name:",plrChar.name
    
    //Race setup
    text 420,80,"Race:"
    set cursor 568,555 
    input choice
    
    if choice = 1
        set cursor 470,80
        plrChar.race = "Human"
        print plrChar.race
    ENDIF
    
     if choice = 2
        set cursor 470,80
        plrChar.race = "Elf"
        print plrChar.race
    ENDIF
    
    if choice = 3
        set cursor 470,80
        plrChar.race = "Dwarf"
        print plrChar.race
    ENDIF
    
     if choice = 4
        set cursor 470,80
        plrChar.race = "Hobbit"
        print plrChar.race
    ENDIF
    
     if choice = 5
        set cursor 470,80
        plrChar.race = "Half-Elf"
        print plrChar.race
    ENDIF
    
     if choice = 6 
        set cursor 470,80
        plrChar.race = "Gnome"
        print plrChar.race
    ENDIF 
    
    //CLASS SETUP
    text 420,100,"Class:"
    set cursor 568,555
    ink rgb (0,0,0),
    box 565,550,590,590
    ink rgb(0,255,0),0 
    input choice
    
      if choice = 1 
        set cursor 480,100
        plrChar.race = "Warrior"
        print plrChar.race
    ENDIF 
    
     if choice = 2 
        set cursor 480,100
        plrChar.race = "Paladin"
        print plrChar.race
    ENDIF 
    
     if choice = 3 
        set cursor 480,100
        plrChar.race = "Rogue"
        print plrChar.race
    ENDIF 
    
     if choice = 4 
        set cursor 480,100
        plrChar.race = "Bard"
        print plrChar.race
    ENDIF 
    
     if choice = 5 
        set cursor 480,100
        plrChar.race = "Hunter"
        print plrChar.race
    ENDIF 
    
     if choice = 6 
        set cursor 480,100
        plrChar.race = "Monk"
        print plrChar.race
    ENDIF
    
     if choice = 7 
        set cursor 480,100
        plrChar.race = "Conjuror"
        print plrChar.race
    ENDIF 
    
     if choice = 8 
        set cursor 480,100
        plrChar.race = "Magician"
        print plrChar.race
    ENDIF
    
     if choice = 9 
        set cursor 480,100
        plrChar.race = "Sorcerer"
        print plrChar.race
    ENDIF 
    
     if choice = 10 
        set cursor 480,100
        plrChar.race = "Wizard"
        print plrChar.race
    ENDIF   
    
    //Roll for attributes
    roll:
    
    //STRENGTH
    plrChar.strength = rnd(25) + 1
    set cursor 420,120
    print "Strength(ST):",plrChar.strength
    
    //INTELLIGENCE
    plrChar.intelligence = rnd(25)+1
    set cursor 420,140
    print "Intelligence(IQ):",plrChar.intelligence
    
    //DEXTERITY
    plrChar.dexterity = rnd(25)+1
    set cursor 420,160
    print "Dexterity(DX):",plrChar.dexterity
    
    //CONSTITUTION
    plrChar.constitution = rnd(25)+1
    set cursor 420,180
    print "Constitution(CN):",plrChar.constitution
    
    //LUCK
    plrChar.luck = rnd(25)+1
    set cursor 420,200
    print "Luck(CN):",plrChar.luck
    
    //HITPOINTS
    plrChar.hitpoints = rnd(30)+1
    set cursor 420,220
    print "hitpoints(CN):",plrChar.hitpoints
    
    //RE-POLL FOR ATTRIBUTES
set cursor 420,250
input "Re-roll?:y/n ", a$
if a$ = "y"
ink rgb(0,0,0)
box 420,115,800,275
ink rgb(0,255,0),0
    gosub roll:
ENDIF
//Save character
    if a$ = "n"
        ink rgb(0,0,0)
        box 420,240,800,275
        ink rgb(0,255,0)
        set cursor 420,240
        plrChar.armor_class = 10
        print "Armor Class(AC):", plrChar.armor_class
        set cursor 420,260
          
        //THE CODE IN QUESTION
         if plrChar.class = "Wizard" or plrChar.class = "Conjurer" or plrChar.class = "Magician" or plrChar.class = "Sorcerer"
            plrChar.spell_points = 10
            print "Spell Points(SP):",plrChar.spell_points
        else
           plrChar.spell_points = 0
           print "Spell Points(SP):",plrChar.spell_points  
       endif
    endif
endfunction

//****************************************************************************************************************************************

function quit()
   cls
   set text size 35
   text 200,20,"Practice Text RRPG"
   text 200,200,"Thanks for playing.........."
   sleep 2000
   end 
ENDFUNCTION

+ Code Snippet

// Practice Text RPG

//SETUP THE CHARACTER TYPE
type characterT
	name              as string
	race              as string
	class             as string
	condition         as string
strength           as integer
intelligence       as integer
dexterity          as integer
constitution       as integer
luck               as integer
armor_class        as integer
hitpoints          as integer
	spell_points      as integer
experience_points  as integer
	gold              as integer
level              as integer
spell              as integer
	items             as integer
endtype

plrChar as characterT

//Set up a chracter array that holds every variable from the UDT to define one character.
//Create up to 25 characters
//global dim plrChar(25) as characterT

// CALL THE FUNCTIONS
 setUpScreen()
 startGameScreen()
 wait key
 end


//************************************************FUNCTIONS***********************************************************

function setUpScreen()
//DISPLAY SETUP
    set display mode 800,600,32
    ink rgb(0,255,0),0
    set text font "courier new"
    set text size 25
endfunction

//************************************************************************************************************************

function startGameScreen()
//START GAME SCREEN SETUP
     set text size 20
     ink rgb(255,0,0),0
     text 181,40,"**************************************"
     text 181,50,"*"
     text 181,60,"*"
     text 181,70,"*"
     text 551,50,"*"
     text 551,60,"*"
     text 551,70,"*"
     text 181,80,"**************************************"
     
     set text size 35
     ink rgb(0,255,0),0
     text 210,50,"Practice Text RPG"
     set text size 25
     text 255,250,"1.) Start Game"
     text 255,280,"2.) Leave Game"
     text 315,315,"Choice:"
     set cursor 410,315
     
//SETUP FOR STARTING AND LEAVING GAME     
     input choice
     
     if choice = 1
         cls
         mainGameScreen()
         adventurersGuildMenu()
     else
        quit()         
    ENDIF   
endfunction

//**********************************************************************************************************************************


function mainGameScreen()
    ink rgb(255,0,0)
    line 0,397,410,397
    line 0,400,410,400
    line 410,0,410,596
    line 414,0,414,600
    line 0,599,413,599
    line 0,596,410,596
    set text size 20
    ink rgb(0,255,0)
    
    //PARTY SECTION SETUP
    text 25,400,"Name"
    text 120,400,"Race" 
    text 200,400,"Class"
    text 280,400,"Cond" 
    text 340,400,"HP"
    text 380,400,"SP"
    
    text 0,426,"Test"
    text 0,456,"Test"
    text 0,486,"Test"
    text 0,516,"Test"
    text 0,546,"Test"
    text 0,576,"Test"
    text 95,426,"half-elf"
    text 185,426,"Magician"
    text 275,426,"alive"
    text 335,426,"550"
    text 375,426,"550"
       
     
    ink rgb(255,0,0)
    line 90,400,90,596
    line 0,420,410,420
    line 180,400,180,596
    line 270,400,270,596
    line 330,400,330,596
    line 370,400,370,596
ENDFUNCTION

//*****************************************************************************************************************************************

function adventurersGuildMenu()
    ink rgb(0,255,0)
    text 420,10,"Brave warrior thou art in the guild of"
    text 420,30,"adventurers. What do you wish to do?"
    text 420,60,"Create up to 25 characters then create"
    text 420,80,"a 6 character party"
    text 480,150,"1.) Create A Character"
    text 480,170,"2.) Create A Party"
    text 480,190,"3.) Save Game"
    text 480,210,"4.) Leave Game"
    text 480,230,"5.) Enter City"    
    text 515,300,"Choice: "
    set cursor 585,300
  input choice:
    
    if choice = 1
        cls
        mainGameScreen()
        createCharacter()
    ENDIF 
endfunction

//****************************************************************************************************************************************

function createCharacter()
    //SETUP THE CREATE CHARACTER SCREEN
    randomize timer()
    ink rgb(0,255,0),0
    text 420,10,"Use the options below to create up to"
    text 420,30,"20 characters"
    ink rgb(255,0,0),0
    line 414,50,800,50
    ink rgb(0,255,0),0
    set cursor 470,60 
    
   //RACES AND CLASSES 
    text 475,375,"Races"
    ink rgb(255,0,0),0
    line 415,395,800,395
    ink rgb(0,255,0),0
    text 475,395,"1) Human"
    text 475,415,"2) Elf"
    text 475,435,"3) Dwarf"
    text 475,455,"4) Hobbit"
    text 475,475,"5) Half-Elf"
    text 475,495,"6) Gnome"
    text 650,375,"Classes"
    text 650,395,"1) Warrior"
    text 650,415,"2) Paladin"
    text 650,435,"3) Rogue"
    text 650,455,"4) Bard"
    text 650,475,"5) Hunter"
    text 650,495,"6) Monk"
    text 650,515,"7) Conjurer"
    text 650,535,"8) Magician"
    text 650,555,"9) Sorcerer"
   text 650,575,"10)Wizard"
   text 500,555,"Choice:"
  
    
    //CHARACTER SETUP
    //NAME
    set cursor 420,60
    input "Name:",plrChar.name
    
    //Race setup
    text 420,80,"Race:"
    set cursor 568,555 
    input choice
    
    if choice = 1
        set cursor 470,80
        plrChar.race = "Human"
        print plrChar.race
    ENDIF
    
     if choice = 2
        set cursor 470,80
        plrChar.race = "Elf"
        print plrChar.race
    ENDIF
    
    if choice = 3
        set cursor 470,80
        plrChar.race = "Dwarf"
        print plrChar.race
    ENDIF
    
     if choice = 4
        set cursor 470,80
        plrChar.race = "Hobbit"
        print plrChar.race
    ENDIF
    
     if choice = 5
        set cursor 470,80
        plrChar.race = "Half-Elf"
        print plrChar.race
    ENDIF
    
     if choice = 6 
        set cursor 470,80
        plrChar.race = "Gnome"
        print plrChar.race
    ENDIF 
    
    //CLASS SETUP
    text 420,100,"Class:"
    set cursor 568,555
    ink rgb (0,0,0),
    box 565,550,590,590
    ink rgb(0,255,0),0 
    input choice
    
      if choice = 1 
        set cursor 480,100
        plrChar.race = "Warrior"
        print plrChar.race
    ENDIF 
    
     if choice = 2 
        set cursor 480,100
        plrChar.race = "Paladin"
        print plrChar.race
    ENDIF 
    
     if choice = 3 
        set cursor 480,100
        plrChar.race = "Rogue"
        print plrChar.race
    ENDIF 
    
     if choice = 4 
        set cursor 480,100
        plrChar.race = "Bard"
        print plrChar.race
    ENDIF 
    
     if choice = 5 
        set cursor 480,100
        plrChar.race = "Hunter"
        print plrChar.race
    ENDIF 
    
     if choice = 6 
        set cursor 480,100
        plrChar.race = "Monk"
        print plrChar.race
    ENDIF
    
     if choice = 7 
        set cursor 480,100
        plrChar.race = "Conjuror"
        print plrChar.race
    ENDIF 
    
     if choice = 8 
        set cursor 480,100
        plrChar.race = "Magician"
        print plrChar.race
    ENDIF
    
     if choice = 9 
        set cursor 480,100
        plrChar.race = "Sorcerer"
        print plrChar.race
    ENDIF 
    
     if choice = 10 
        set cursor 480,100
        plrChar.race = "Wizard"
        print plrChar.race
    ENDIF   
    
    //Roll for attributes
    roll:
    
    //STRENGTH
    plrChar.strength = rnd(25) + 1
    set cursor 420,120
    print "Strength(ST):",plrChar.strength
    
    //INTELLIGENCE
    plrChar.intelligence = rnd(25)+1
    set cursor 420,140
    print "Intelligence(IQ):",plrChar.intelligence
    
    //DEXTERITY
    plrChar.dexterity = rnd(25)+1
    set cursor 420,160
    print "Dexterity(DX):",plrChar.dexterity
    
    //CONSTITUTION
    plrChar.constitution = rnd(25)+1
    set cursor 420,180
    print "Constitution(CN):",plrChar.constitution
    
    //LUCK
    plrChar.luck = rnd(25)+1
    set cursor 420,200
    print "Luck(CN):",plrChar.luck
    
    //HITPOINTS
    plrChar.hitpoints = rnd(30)+1
    set cursor 420,220
    print "hitpoints(CN):",plrChar.hitpoints
    
    //RE-POLL FOR ATTRIBUTES
set cursor 420,250
input "Re-roll?:y/n ", a$
if a$ = "y"
ink rgb(0,0,0)
box 420,115,800,275
ink rgb(0,255,0),0
    gosub roll:
ENDIF
//Save character
    if a$ = "n"
        ink rgb(0,0,0)
        box 420,240,800,275
        ink rgb(0,255,0)
        set cursor 420,240
        plrChar.armor_class = 10
        print "Armor Class(AC):", plrChar.armor_class
        set cursor 420,260
          
        //THE CODE IN QUESTION
         if plrChar.class = "Wizard" or plrChar.class = "Conjurer" or plrChar.class = "Magician" or plrChar.class = "Sorcerer"
            plrChar.spell_points = 10
            print "Spell Points(SP):",plrChar.spell_points
        else
           plrChar.spell_points = 0
           print "Spell Points(SP):",plrChar.spell_points  
       endif
    endif
endfunction

//****************************************************************************************************************************************


function quit()
   cls
   set text size 35
   text 200,20,"Practice Text RRPG"
   text 200,200,"Thanks for playing.........."
   sleep 2000
   end 
ENDFUNCTION

Back to top

Profile PM

Chris Tate

DBPro Master

17

Years of Service

User Offline

Joined: 29th Aug 2008

Location: London, England

Posted: 24th Jun 2013 04:09

Link

Just a quick glance shows that the players class has not been set anywhere in the program.

Was it you who I recommended the use of file data to? A lot of those text commands and character classes could have been set in a lookup file in an encrypted INI or XML format.

What you've done is literally set each class one by one in code, instead of using a for loop to extract the information from a file.

At least while learning; it would be easier for you to store your text and character data in an array, then use print commands or text commands in iterators such as for loops.

Anyhow, good luck with this.

Back to top

Profile PM Email Website

Phaelax

DBPro Master

23

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 24th Jun 2013 12:23

Link

*Sternly shakes fist* COMET!

Back to top

Profile PM Email Website

revenant chaos

DBPro Master

19

Years of Service

User Offline

Joined: 21st Mar 2007

Location: Robbinsdale, MN

Posted: 24th Jun 2013 13:26

Link

Quote: "*Sternly shakes fist* COMET!"

LOL I second that, posting an image that looks like a codebox is just wrong XD

Back to top

Profile PM Email Website

Dragon slayer

19

Years of Service

User Offline

Joined: 3rd Nov 2006

Location: Bourbonnais Illinois

Posted: 24th Jun 2013 19:03

Link

On my phone now will try both ways on smaller code. When I get it figured out and working I will get it working in this code. Thanks!

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Need some code help please