Text to image problems - GameCreators Forum

Author

Message

Satchmo

20

Years of Service

User Offline

Joined: 29th May 2005

Location:

Posted: 21st Sep 2008 22:28

Link

Well I've been trying to convert a string variable into an image, but it's not working, it's just giving me a black square.

if loadbox = 1

paste sprite 16,200,230

box 215,270,560,360
INK RGB(255,255,255),RGB(255,255,255)
box 217,272,558,358
INK RGB(255,255,255),RGB(25,25,25)
if firstsearch = 1
`cl\s

rem Find current directory
`mydir$=get dir$()

rem Current directory can also be changed
`set dir mydir$

rem Show user current directory
`print "Directory to scan is ";mydir$

rem Begin search for files in current working directory
find first

rem Create array and index variable
dim item$(100)
items=1

rem begin repeat loop
repeat

rem add to item array if file found
if get file type()=0
item$(items)=get file name$()
items=items+1
endif

rem Find next file in current working directory
find next

Rem Repeat loop until no more files in current working directory
until get file type()=-1

rem List files within array
print "Files in current directory:"
for t=1 to items-1
print item$(t)
next t

Rem Delete array from memory
undim item$()

for n=1 to items-1
text 0,0,left$(item$(n),len(item$)-5)
get image n+2000,0,0,110,15
cls
if sprite_pos = 9 then sprite_pos = 1
if sprite_pos = 1 then sprite n+2000,219,273,n+2000
if sprite_pos = 2 then sprite n+2000,329,273,n+2000
if sprite_pos = 3 then sprite n+2000,439,273,n+2000
if sprite_pos = 4 then sprite n+2000,219,290,n+2000
if sprite_pos = 5 then sprite n+2000,329,290,n+2000
if sprite_pos = 6 then sprite n+2000,439,290,n+2000
if sprite_pos = 7 then sprite n+2000,219,308,n+2000
if sprite_pos = 8 then sprite n+2000,329,308,n+2000
if sprite_pos = 9 then sprite n+2000,439,308,n+2000
 sprite_pos = sprite_pos + 1
next n

Rem Delete array from memory
undim item$()
firstsearch = 0
endif
endif

+ Code Snippet

if loadbox = 1

paste sprite 16,200,230

box 215,270,560,360
INK RGB(255,255,255),RGB(255,255,255)
box 217,272,558,358
INK RGB(255,255,255),RGB(25,25,25)
if firstsearch = 1
`cl\s

rem Find current directory
`mydir$=get dir$()

rem Current directory can also be changed
`set dir mydir$

rem Show user current directory
`print "Directory to scan is ";mydir$

rem Begin search for files in current working directory
find first

rem Create array and index variable
dim item$(100)
items=1

rem begin repeat loop
repeat

rem add to item array if file found
if get file type()=0
item$(items)=get file name$()
items=items+1
endif

rem Find next file in current working directory
find next

Rem Repeat loop until no more files in current working directory
until get file type()=-1

rem List files within array
print "Files in current directory:"
for t=1 to items-1
print item$(t)
next t

Rem Delete array from memory
undim item$()

for n=1 to items-1
text 0,0,left$(item$(n),len(item$)-5)
get image n+2000,0,0,110,15
cls
if sprite_pos = 9 then sprite_pos = 1
if sprite_pos = 1 then sprite n+2000,219,273,n+2000
if sprite_pos = 2 then sprite n+2000,329,273,n+2000
if sprite_pos = 3 then sprite n+2000,439,273,n+2000
if sprite_pos = 4 then sprite n+2000,219,290,n+2000
if sprite_pos = 5 then sprite n+2000,329,290,n+2000
if sprite_pos = 6 then sprite n+2000,439,290,n+2000
if sprite_pos = 7 then sprite n+2000,219,308,n+2000
if sprite_pos = 8 then sprite n+2000,329,308,n+2000
if sprite_pos = 9 then sprite n+2000,439,308,n+2000
 sprite_pos = sprite_pos + 1
next n

Rem Delete array from memory
undim item$()
firstsearch = 0
endif
endif

Back to top

Profile PM

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 22nd Sep 2008 17:52 Edited at: 22nd Sep 2008 20:05

Link

All your problems are here.

+ Code Snippet

Rem Delete array from memory
undim item$()

for n=1 to items-1
text 0,0,left$(item$(n),len(item$)-5)
get image n+2000,0,0,110,15
cls
if sprite_pos = 9 then sprite_pos = 1
if sprite_pos = 1 then sprite n+2000,219,273,n+2000
if sprite_pos = 2 then sprite n+2000,329,273,n+2000
if sprite_pos = 3 then sprite n+2000,439,273,n+2000
if sprite_pos = 4 then sprite n+2000,219,290,n+2000
if sprite_pos = 5 then sprite n+2000,329,290,n+2000
if sprite_pos = 6 then sprite n+2000,439,290,n+2000
if sprite_pos = 7 then sprite n+2000,219,308,n+2000
if sprite_pos = 8 then sprite n+2000,329,308,n+2000
if sprite_pos = 9 then sprite n+2000,439,308,n+2000
 sprite_pos = sprite_pos + 1
next n

First of all don't "undim item$()" you're just about to use it.

"text 0,0,left$(item$(n),len(item$)-5)" should be - "text 0,0,left$(item$(n),len(item$(n))-4)"
You forgot the (n) and -5 will erase the last letter of your file name unless your extensions are four long.

Your text color is (255,255,255) and the box color is (255,255,255), you're not going to see anything if they're both white. Use a ink RGB(9,0,0) as Black for your text. Lower than that will be transparant and you also wont see a thing.

Your cls will also clear your box drawn. Use ink 0,0 : box 0,0,110,15 to clear your text instead.

Anyways try using this code, it saves more space and memory.

+ Code Snippet

for y = 0 to 2
for x = 0 to 2
	n = n + 1
	ink 0,0
	text 219+x*110,273+y*17,left$(item$(n),len(item$(n))-4)
next x
next y

Back to top

Profile PM Email

Satchmo

20

Years of Service

User Offline

Joined: 29th May 2005

Location:

Posted: 22nd Sep 2008 23:51

Link

Quote: "First of all don't "undim item$()" you're just about to use it"

Whoops! I cant believe I missed that.

Quote: ""text 0,0,left$(item$(n),len(item$)-5)" should be - "text 0,0,left$(item$(n),len(item$(n))-4)"
You forgot the (n) and -5 will erase the last letter of your file name unless your extensions are four long."

Yes my extensions are four long .ZLVL

Alright, I tried it, and now it displays correctly, but for some reason, it won't detect collision with the sprites, and it's displaying one of my sprites left the top left corner.

if loadbox = 1

paste sprite 16,200,230

box 215,270,560,360
INK RGB(255,255,255),RGB(255,255,255)
box 217,272,558,358
INK RGB(9,0,0),RGB(0,0,0)
if firstsearch = 1
`cl\s

rem Find current directory
`mydir$=get dir$()

rem Current directory can also be changed
`set dir mydir$

rem Show user current directory
`print "Directory to scan is ";mydir$

rem Begin search for files in current working directory
find first

rem Create array and index variable
dim item$(100)
items=1

rem begin repeat loop
repeat

rem add to item array if file found
if get file type()=0
if right$(get file name$(),5)=".ZLVL"
item$(items)=get file name$()
items=items+1
endif
endif

rem Find next file in current working directory
find next

Rem Repeat loop until no more files in current working directory
until get file type()=-1

rem List files within array
print "Files in current directory:"
for t=1 to items-1
print item$(t)
next t

for n=1 to items-1
cls
set cursor 0,30
print left$(item$(n),len(item$(n))-5)
get image n+2000,0,30,110,45

if sprite_pos = 9 then sprite_pos = 1
if sprite_pos = 1 then sprite n+2000,219,273,n+2000
if sprite_pos = 2 then sprite n+2000,329,273,n+2000
if sprite_pos = 3 then sprite n+2000,439,273,n+2000
if sprite_pos = 4 then sprite n+2000,219,290,n+2000
if sprite_pos = 5 then sprite n+2000,329,290,n+2000
if sprite_pos = 6 then sprite n+2000,439,290,n+2000
if sprite_pos = 7 then sprite n+2000,219,308,n+2000
if sprite_pos = 8 then sprite n+2000,329,308,n+2000
if sprite_pos = 9 then sprite n+2000,439,308,n+2000

hide sprite n+2000
 sprite_pos = sprite_pos + 1

next n
Rem Delete array from memory
`undim item$()
firstsearch = 0

endif

INK RGB(9,0,0),RGB(143,143,143)
for n=1 to items-1
paste sprite n+2000,sprite x(n+2000),sprite y(n+2000)
if sprite collision(3000,n+2000)
 box sprite x(n+2000),sprite y(n+2000),sprite x(n+2000)+110,sprite y(n+2000)+15
print "collide"

endif
next n
endif

+ Code Snippet

if loadbox = 1

paste sprite 16,200,230

box 215,270,560,360
INK RGB(255,255,255),RGB(255,255,255)
box 217,272,558,358
INK RGB(9,0,0),RGB(0,0,0)
if firstsearch = 1
`cl\s

rem Find current directory
`mydir$=get dir$()

rem Current directory can also be changed
`set dir mydir$

rem Show user current directory
`print "Directory to scan is ";mydir$

rem Begin search for files in current working directory
find first

rem Create array and index variable
dim item$(100)
items=1

rem begin repeat loop
repeat

rem add to item array if file found
if get file type()=0
if right$(get file name$(),5)=".ZLVL"
item$(items)=get file name$()
items=items+1
endif
endif


rem Find next file in current working directory
find next

Rem Repeat loop until no more files in current working directory
until get file type()=-1

rem List files within array
print "Files in current directory:"
for t=1 to items-1
print item$(t)
next t

for n=1 to items-1
cls
set cursor 0,30
print left$(item$(n),len(item$(n))-5)
get image n+2000,0,30,110,45

if sprite_pos = 9 then sprite_pos = 1
if sprite_pos = 1 then sprite n+2000,219,273,n+2000
if sprite_pos = 2 then sprite n+2000,329,273,n+2000
if sprite_pos = 3 then sprite n+2000,439,273,n+2000
if sprite_pos = 4 then sprite n+2000,219,290,n+2000
if sprite_pos = 5 then sprite n+2000,329,290,n+2000
if sprite_pos = 6 then sprite n+2000,439,290,n+2000
if sprite_pos = 7 then sprite n+2000,219,308,n+2000
if sprite_pos = 8 then sprite n+2000,329,308,n+2000
if sprite_pos = 9 then sprite n+2000,439,308,n+2000

hide sprite n+2000
 sprite_pos = sprite_pos + 1

next n
Rem Delete array from memory
`undim item$()
firstsearch = 0

endif

INK RGB(9,0,0),RGB(143,143,143)
for n=1 to items-1
paste sprite n+2000,sprite x(n+2000),sprite y(n+2000)
if sprite collision(3000,n+2000)
 box sprite x(n+2000),sprite y(n+2000),sprite x(n+2000)+110,sprite y(n+2000)+15
print "collide"

endif
next n
endif

Back to top

Profile PM

Ashingda 27

17

Years of Service

User Offline

Joined: 15th Feb 2008

Location:

Posted: 23rd Sep 2008 00:51 Edited at: 23rd Sep 2008 00:56

Link

This will be easier to help if you show what's going on in your main loop. I cant really tell what the other variables and sprites are doing. For example it'll help to know what "paste sprite 16,200,230" is for or looks like.

+ Code Snippet

INK RGB(9,0,0),RGB(143,143,143)
for n=1 to items-1
paste sprite n+2000,sprite x(n+2000),sprite y(n+2000)
if sprite collision(3000,n+2000)
 box sprite x(n+2000),sprite y(n+2000),sprite x(n+2000)+110,sprite y(n+2000)+15
print "collide"

If you're just trying to find it it collides you can try this.

+ Code Snippet

	mx = mousex()
	my = mousey()
	sprite 3000,mx,my,3000
	sc = sprite collision(3000,0)
	
	for n = 1 to items-1
		if sc = n+2000
			bx = sprite x(sc)
			by = sprite y(sc)
			box bx,by,bx+110,by+15
			print "collide"
		endif
	next n

sprite collision(Sprite,TargetSprite)
If you set the TargetSprite to 0 the command return any sprite number that collides with your sprite.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Discussion / Text to image problems