Open to Read, not reading right?

Author

Message

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 14th Nov 2007 03:08

Link

When I try to load a breed into my game it has a certain string in a file, e.g.

Name
Breed
Images
Type
Personality

the breed's images that I want (Yorkshire Terrier) are in this folder, breeds\YTFiles\. Well the images string (imgs$) holds that information (the directory the file is in). But instead it saying "Lucky" for that string, when that is the filename and in the name string. Here is my code,

+ Code Snippet

if loaded=1 
open to read 1,dog$
read string 1,imgs$
open to write 2,"test"
write string 2,imgs$
load image imgs$+"\dog_front.bmp",1
load image imgs$+"\dog_sideb.bmp",2
load image imgs$+"\dog_side.bmp",4
load image imgs$+"\dog_rear.bmp",5
load image imgs$+"\dog_sleep.bmp",8
endif

What is wrong? Here is the file layout (DBPro),

name$=getgadgetText(Gadget3)
    open to write 1,"saved\"+name$
    write string 1,name$
    if selectedItem(Gadget5)=0
    breed$="Australian Shepard"
    imgs$="breeds\ASFiles\"
    endif
    if selectedItem(Gadget5)=1
    breed$="Beagle"
    imgs$="breeds\BeagleFiles\"
    endif
    if selectedItem(Gadget5)=2
    breed$="Basset Hound"
    imgs$="breeds\BHFiles\"
    endif
    if selectedItem(Gadget5)=3
    breed$="Chiuaua"
    imgs$="breeds\CHFiles\"
    endif
    if selectedItem(Gadget5)=4
    breed$="Bulldog"
    imgs$="breeds\BDFiles\"
    endif
    if selectedItem(Gadget5)=5
    breed$="Bull Mastif"
    imgs$="breeds\BMFiles\"
    endif
    if selectedItem(Gadget5)=6
    breed$="St.Bernard"
    imgs$="breeds\SBFiles\"
    endif
    if selectedItem(Gadget5)=7
    breed$="Westhighland White Terrier"
    imgs$="breeds\WHWTFiles\"
    endif
    if selectedItem(Gadget5)=8
    breed$="Labrador Retriever"
    imgs$="breeds\LRFiles\"
    endif
    if selectedItem(Gadget5)=9
    breed$="Black Labrador"
    imgs$="breeds\BLFiles\"
    endif
    if selectedItem(Gadget5)=10
    breed$="Boston Terrier"
    imgs$="breeds\BTFiles\"
    endif
    if selectedItem(Gadget5)=11
    breed$="Yorkshire Terrier"
    imgs$="breeds\YTFiles\"
    endif
    if selectedItem(Gadget5)=12
    breed$="Shihtzu"
    imgs$="breeds\SHFiles\"
    endif
    if selectedItem(Gadget5)=13
    breed$="Poodle"
    imgs$="breeds\POFiles\"
    endif
    write string 1,breed$
    write string 1,imgs$
    if selectedItem(Gadget7)=0 then size$="Toy"
    if selectedItem(Gadget7)=1 then size$="Teacup"
    if selectedItem(Gadget7)=2 then size$="Small"
    if selectedItem(Gadget7)=3 then size$="Medium"
    if selectedItem(Gadget7)=4 then size$="Large"
    if selectedItem(Gadget7)=5 then size$="Extra Large"
    write string 1,size$
    if selectedItem(Gadget9)=0 then pers$="Friendly"
    if selectedItem(Gadget9)=1 then pers$="Loving"
    if selectedItem(Gadget9)=2 then pers$="Cuddly"
    if selectedItem(Gadget9)=3 then pers$="Mean"
    if selectedItem(Gadget9)=4 then pers$="Shy"
    if selectedItem(Gadget9)=5 then pers$="Anxious"
    write string 1,pers$
    close file 1

+ Code Snippet

   name$=getgadgetText(Gadget3)
    open to write 1,"saved\"+name$
    write string 1,name$
    if selectedItem(Gadget5)=0
    breed$="Australian Shepard"
    imgs$="breeds\ASFiles\"
    endif
    if selectedItem(Gadget5)=1
    breed$="Beagle"
    imgs$="breeds\BeagleFiles\"
    endif
    if selectedItem(Gadget5)=2
    breed$="Basset Hound"
    imgs$="breeds\BHFiles\"
    endif
    if selectedItem(Gadget5)=3
    breed$="Chiuaua"
    imgs$="breeds\CHFiles\"
    endif
    if selectedItem(Gadget5)=4
    breed$="Bulldog"
    imgs$="breeds\BDFiles\"
    endif
    if selectedItem(Gadget5)=5
    breed$="Bull Mastif"
    imgs$="breeds\BMFiles\"
    endif
    if selectedItem(Gadget5)=6
    breed$="St.Bernard"
    imgs$="breeds\SBFiles\"
    endif
    if selectedItem(Gadget5)=7
    breed$="Westhighland White Terrier"
    imgs$="breeds\WHWTFiles\"
    endif
    if selectedItem(Gadget5)=8
    breed$="Labrador Retriever"
    imgs$="breeds\LRFiles\"
    endif
    if selectedItem(Gadget5)=9
    breed$="Black Labrador"
    imgs$="breeds\BLFiles\"
    endif
    if selectedItem(Gadget5)=10
    breed$="Boston Terrier"
    imgs$="breeds\BTFiles\"
    endif
    if selectedItem(Gadget5)=11
    breed$="Yorkshire Terrier"
    imgs$="breeds\YTFiles\"
    endif
    if selectedItem(Gadget5)=12
    breed$="Shihtzu"
    imgs$="breeds\SHFiles\"
    endif
    if selectedItem(Gadget5)=13
    breed$="Poodle"
    imgs$="breeds\POFiles\"
    endif
    write string 1,breed$
    write string 1,imgs$
    if selectedItem(Gadget7)=0 then size$="Toy"
    if selectedItem(Gadget7)=1 then size$="Teacup"
    if selectedItem(Gadget7)=2 then size$="Small"
    if selectedItem(Gadget7)=3 then size$="Medium"
    if selectedItem(Gadget7)=4 then size$="Large"
    if selectedItem(Gadget7)=5 then size$="Extra Large"
    write string 1,size$
    if selectedItem(Gadget9)=0 then pers$="Friendly"
    if selectedItem(Gadget9)=1 then pers$="Loving"
    if selectedItem(Gadget9)=2 then pers$="Cuddly"
    if selectedItem(Gadget9)=3 then pers$="Mean"
    if selectedItem(Gadget9)=4 then pers$="Shy"
    if selectedItem(Gadget9)=5 then pers$="Anxious"
    write string 1,pers$
    close file 1

What is wrong?

Thanks,
Jordan

STOP reading my signature!

Back to top

Profile PM Email

Dr Schnitzengruber

18

Years of Service

User Offline

Joined: 19th Jul 2007

Location: C:/Projects/failed/ schnitzengruber

Posted: 14th Nov 2007 03:41

Link

I'm almost completely sure that you did not format your dogs information file correctly. I can't really tell because either that is only a very small snippet or your problem is obvious. Can I see the "dog$" file.(I could also bet that on that "dog$" file the first line is "Lucky")

the answer to life the universe and everything = 42

Back to top

Profile PM

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 14th Nov 2007 04:00

Link

Yea the first line of the file is Lucky, that was written in the name$ string. What are you saying?

STOP reading my signature!

Back to top

Profile PM Email

Dr Schnitzengruber

18

Years of Service

User Offline

Joined: 19th Jul 2007

Location: C:/Projects/failed/ schnitzengruber

Posted: 14th Nov 2007 05:50

Link

+ Code Snippet

open to read 1,dog$
read string 1,imgs$
open to write 2,"test"
write string 2,imgs$
load image imgs$+"\dog_front.bmp",1
load image imgs$+"\dog_sideb.bmp",2
load image imgs$+"\dog_side.bmp",4
load image imgs$+"\dog_rear.bmp",5
load image imgs$+"\dog_sleep.bmp",8

in that code you are asking to read the first string. You should put some "dummy" read string's between open to read and read string. For example if you wanted to read the third line of the file:

+ Code Snippet

open to read 1,dog$
b=3
for t=1 to b
 read string 1,imgs$
next t
open to write 2,"test"
write string 2,imgs$
load image imgs$+"\dog_front.bmp",1
load image imgs$+"\dog_sideb.bmp",2
load image imgs$+"\dog_side.bmp",4
load image imgs$+"\dog_rear.bmp",5
load image imgs$+"\dog_sleep.bmp",8

just replace b with the line of the file you want to read.

the answer to life the universe and everything = 42

Back to top

Profile PM

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 14th Nov 2007 13:48

Link

Now it says, file does not exist(on the image files). Grrr....

STOP reading my signature!

Back to top

Profile PM Email

SimSmall

21

Years of Service

User Offline

Joined: 7th Aug 2004

Location: United Kingdom

Posted: 14th Nov 2007 16:33 Edited at: 14th Nov 2007 16:34

Link

Well, you put in your first post that the code was in DBP -- It's been so long since I've used classic, but DBP often tries to find my files/folders relative to the TEMP directory and not the current project directory...

Before any reading/writing commands, you may wish to add a: set dir get dir$() line, which will switch the current dir to the project's dir. That may solve it not finding your images.

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 14th Nov 2007 21:58

Link

Know this file was made in DBP,

name$=getgadgetText(Gadget3)
    open to write 1,"saved\"+name$
    write string 1,name$
    if selectedItem(Gadget5)=0
    breed$="Australian Shepard"
    imgs$="breeds\ASFiles\"
    endif
    if selectedItem(Gadget5)=1
    breed$="Beagle"
    imgs$="breeds\BeagleFiles\"
    endif
    if selectedItem(Gadget5)=2
    breed$="Basset Hound"
    imgs$="breeds\BHFiles\"
    endif
    if selectedItem(Gadget5)=3
    breed$="Chiuaua"
    imgs$="breeds\CHFiles\"
    endif
    if selectedItem(Gadget5)=4
    breed$="Bulldog"
    imgs$="breeds\BDFiles\"
    endif
    if selectedItem(Gadget5)=5
    breed$="Bull Mastif"
    imgs$="breeds\BMFiles\"
    endif
    if selectedItem(Gadget5)=6
    breed$="St.Bernard"
    imgs$="breeds\SBFiles\"
    endif
    if selectedItem(Gadget5)=7
    breed$="Westhighland White Terrier"
    imgs$="breeds\WHWTFiles\"
    endif
    if selectedItem(Gadget5)=8
    breed$="Labrador Retriever"
    imgs$="breeds\LRFiles\"
    endif
    if selectedItem(Gadget5)=9
    breed$="Black Labrador"
    imgs$="breeds\BLFiles\"
    endif
    if selectedItem(Gadget5)=10
    breed$="Boston Terrier"
    imgs$="breeds\BTFiles\"
    endif
    if selectedItem(Gadget5)=11
    breed$="Yorkshire Terrier"
    imgs$="breeds\YTFiles\"
    endif
    if selectedItem(Gadget5)=12
    breed$="Shihtzu"
    imgs$="breeds\SHFiles\"
    endif
    if selectedItem(Gadget5)=13
    breed$="Poodle"
    imgs$="breeds\POFiles\"
    endif
    write string 1,breed$
    write string 1,imgs$
    if selectedItem(Gadget7)=0 then size$="Toy"
    if selectedItem(Gadget7)=1 then size$="Teacup"
    if selectedItem(Gadget7)=2 then size$="Small"
    if selectedItem(Gadget7)=3 then size$="Medium"
    if selectedItem(Gadget7)=4 then size$="Large"
    if selectedItem(Gadget7)=5 then size$="Extra Large"
    write string 1,size$
    if selectedItem(Gadget9)=0 then pers$="Friendly"
    if selectedItem(Gadget9)=1 then pers$="Loving"
    if selectedItem(Gadget9)=2 then pers$="Cuddly"
    if selectedItem(Gadget9)=3 then pers$="Mean"
    if selectedItem(Gadget9)=4 then pers$="Shy"
    if selectedItem(Gadget9)=5 then pers$="Anxious"
    write string 1,pers$
    close file 1

+ Code Snippet

 name$=getgadgetText(Gadget3)
    open to write 1,"saved\"+name$
    write string 1,name$
    if selectedItem(Gadget5)=0
    breed$="Australian Shepard"
    imgs$="breeds\ASFiles\"
    endif
    if selectedItem(Gadget5)=1
    breed$="Beagle"
    imgs$="breeds\BeagleFiles\"
    endif
    if selectedItem(Gadget5)=2
    breed$="Basset Hound"
    imgs$="breeds\BHFiles\"
    endif
    if selectedItem(Gadget5)=3
    breed$="Chiuaua"
    imgs$="breeds\CHFiles\"
    endif
    if selectedItem(Gadget5)=4
    breed$="Bulldog"
    imgs$="breeds\BDFiles\"
    endif
    if selectedItem(Gadget5)=5
    breed$="Bull Mastif"
    imgs$="breeds\BMFiles\"
    endif
    if selectedItem(Gadget5)=6
    breed$="St.Bernard"
    imgs$="breeds\SBFiles\"
    endif
    if selectedItem(Gadget5)=7
    breed$="Westhighland White Terrier"
    imgs$="breeds\WHWTFiles\"
    endif
    if selectedItem(Gadget5)=8
    breed$="Labrador Retriever"
    imgs$="breeds\LRFiles\"
    endif
    if selectedItem(Gadget5)=9
    breed$="Black Labrador"
    imgs$="breeds\BLFiles\"
    endif
    if selectedItem(Gadget5)=10
    breed$="Boston Terrier"
    imgs$="breeds\BTFiles\"
    endif
    if selectedItem(Gadget5)=11
    breed$="Yorkshire Terrier"
    imgs$="breeds\YTFiles\"
    endif
    if selectedItem(Gadget5)=12
    breed$="Shihtzu"
    imgs$="breeds\SHFiles\"
    endif
    if selectedItem(Gadget5)=13
    breed$="Poodle"
    imgs$="breeds\POFiles\"
    endif
    write string 1,breed$
    write string 1,imgs$
    if selectedItem(Gadget7)=0 then size$="Toy"
    if selectedItem(Gadget7)=1 then size$="Teacup"
    if selectedItem(Gadget7)=2 then size$="Small"
    if selectedItem(Gadget7)=3 then size$="Medium"
    if selectedItem(Gadget7)=4 then size$="Large"
    if selectedItem(Gadget7)=5 then size$="Extra Large"
    write string 1,size$
    if selectedItem(Gadget9)=0 then pers$="Friendly"
    if selectedItem(Gadget9)=1 then pers$="Loving"
    if selectedItem(Gadget9)=2 then pers$="Cuddly"
    if selectedItem(Gadget9)=3 then pers$="Mean"
    if selectedItem(Gadget9)=4 then pers$="Shy"
    if selectedItem(Gadget9)=5 then pers$="Anxious"
    write string 1,pers$
    close file 1

so it could use BlueGUI but, the other stuff is pure Classic.

STOP reading my signature!

Back to top

Profile PM Email

Sinani201

19

Years of Service

User Offline

Joined: 16th Apr 2007

Location: Aperture Science Enrichment Center

Posted: 15th Nov 2007 05:11

Link

don't forget to close the file with the CLOSE FILE command! If you don't, you could write unwanted memory later on...

how do you make a sig?

Back to top

Profile PM

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 15th Nov 2007 13:32

Link

But what about my other problem?

STOP reading my signature!

Back to top

Profile PM Email

Zeus

19

Years of Service

User Offline

Joined: 8th Jul 2006

Location: Atop Mount Olympus

Posted: 16th Nov 2007 02:22

Link

FIXED, Please Lock.

STOP reading my signature!

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / [LOCKED] Open to Read, not reading right?