Image not being drawn correctly - GameCreators Forum

Author

Message

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 13th May 2010 23:55 Edited at: 13th May 2010 23:55

Link

Hi, I'm trying to draw some basic 2d images to the screen but for some reason this code doesn't work. Button 1 doesn't Show up and it crashes after you hit a key saying BLA BLA BLA HAS ENCOUNTERED A PROBLEM AND NEEDS TO CLOSE...
Any reason why?

+ Code Snippet

Set display mode 1024,768,32

Img_Console=1
Img_Button1=2
Img_Button2=3

ink rgb(0,220,200),rgb(0,0,0)
Box 0,0,512,512
ink rgb(0,0,200),rgb(0,0,0)
Set Text Size 40
Center Text 256,50,"Menu"
Get Image Img_Console,1,1,512,512
cls

ink rgb(255,0,0),rgb(0,0,0)
Box 0,0,150,50
ink rgb(0,0,0),rgb(0,0,0)
Center Text 75,10,"BUTTON 1"
Get Image Img_Button1,1,1,150,50
cls

ink rgb(0,255,0),rgb(0,0,0)
Box 0,0,150,50
ink rgb(0,0,0),rgb(0,0,0)
Center Text 75,10,"BUTTON 2"
Get Image Img_Button2,1,1,150,50
cls

Paste image Img_Console,0,0
Paste image Img_Button1,75,100
Paste image Img_Button2,275,100

wait key

If it hasn't exploded yet, I haven't touched it.

Back to top

Profile PM

The Slayer

Forum Vice President

16

Years of Service

User Offline

Joined: 9th Nov 2009

Playing: (Hide and) Seek and Destroy on my guitar!

Posted: 14th May 2010 00:04

Link

Hum, that's weird, Madscientist. It runs fine on my machine.

The code is not the cause. Must be some other problem that causes the error.

Slayer rules!!! Yeaaah, man!

Back to top

Profile PM Email

=PRoF=

23

Years of Service

User Offline

Joined: 17th Mar 2003

Location: Milton Keynes, UK

Posted: 14th May 2010 00:09 Edited at: 14th May 2010 00:11

Link

It runs fine for me also, running under Win 7.

Back to top

Profile PM Email Website

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 14th May 2010 00:35 Edited at: 14th May 2010 00:36

Link

It doesn't work on my computer though.

If it hasn't exploded yet, I haven't touched it.

Back to top

Profile PM

Madscientist

16

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 14th May 2010 04:29 Edited at: 14th May 2010 04:32

Link

Well since it's my computer, can someone test this for me?

Rem Project: 3d Console
Rem Created: Thursday, May 13, 2010

Rem ***** Main Source File *****
Set display mode 1024,768,32
Sync on: Sync rate 60

Global obj_Console as integer = 1
Global obj_Button1 as integer = 2
Global obj_Button2 as integer = 3

Global Img_Console as integer = 1
Global Img_Menu as integer = 2
Global Img_Button1 as integer = 3
Global Img_Button2 as integer = 4

ink rgb(0,220,200),rgb(0,0,0)
Box 0,0,512,512
ink rgb(0,0,200),rgb(0,0,0)
Set Text Size 40
Center Text 256,50,"Menu"
Get Image Img_Console,0,0,512,512
cls

ink rgb(255,0,0),rgb(0,0,0)
Box 0,0,150,50
ink rgb(0,0,0),rgb(0,0,0)
Center Text 75,10,"BUTTON 1"
Get Image Img_Button1,0,0,150,50
cls

ink rgb(0,255,0),rgb(0,0,0)
Box 0,0,150,50
ink rgb(0,0,0),rgb(0,0,0)
Center Text 75,10,"BUTTON 2"
Get Image Img_Button2,0,0,150,50
cls

Paste image Img_Console,0,0
Paste image Img_Button1,75,100
Paste image Img_Button2,275,100

Get Image Img_Menu,0,0,512,512
cls

Make object Plane Obj_Console,1,1
Texture Object Obj_Console,Img_Menu
Set object emissive Obj_Console,rgb(255,255,255)

Make object box Obj_Button1,0.29,0.1,0.1
position object Obj_Button1,-0.2,0.25,0
hide object Obj_Button1

Make object box Obj_Button2,0.29,0.1,0.1
position object Obj_Button2,0.18,0.25,0
hide object Obj_Button2

Set Text Size 24
ink rgb(255,255,255),rgb(0,0,0)

do
	If mouseX()<Object Screen X(Obj_Button1)+10 and mouseX()>Object Screen X(Obj_Button1)-10 and mouseY()<Object Screen Y(Obj_Button1)+7 and mouseY()>Object Screen Y(Obj_Button1)-7
		If mouseclick()=1
			ButtonSwitch(1)
		endif
	endif
	
	If mouseX()<Object Screen X(Obj_Button2)+10 and mouseX()>Object Screen X(Obj_Button2)-10 and mouseY()<Object Screen Y(Obj_Button2)+7 and mouseY()>Object Screen Y(Obj_Button2)-7
		If mouseclick()=1
			ButtonSwitch(2)
		endif
	endif
		
	Text 0,0,"Click a button to switch them."
	sync
LOOP

Function ButtonSwitch(State)
	Delete image Img_Menu
	cls
	Paste image Img_Console,0,0
	If State=1
		Paste image Img_Button2,75,100
		Paste image Img_Button1,275,100
	endif
	
	If State=2
		Paste image Img_Button1,75,100
		Paste image Img_Button2,275,100
	 endif
	 
	 Get Image Img_Menu,0,0,512,512
	 cls
	 
	 Texture Object Obj_Console,Img_Menu
	 Set object emissive Obj_Console,rgb(255,255,255)
ENDFUNCTION

+ Code Snippet

Rem Project: 3d Console
Rem Created: Thursday, May 13, 2010

Rem ***** Main Source File *****
Set display mode 1024,768,32
Sync on: Sync rate 60

Global obj_Console as integer = 1
Global obj_Button1 as integer = 2
Global obj_Button2 as integer = 3

Global Img_Console as integer = 1
Global Img_Menu as integer = 2
Global Img_Button1 as integer = 3
Global Img_Button2 as integer = 4

ink rgb(0,220,200),rgb(0,0,0)
Box 0,0,512,512
ink rgb(0,0,200),rgb(0,0,0)
Set Text Size 40
Center Text 256,50,"Menu"
Get Image Img_Console,0,0,512,512
cls

ink rgb(255,0,0),rgb(0,0,0)
Box 0,0,150,50
ink rgb(0,0,0),rgb(0,0,0)
Center Text 75,10,"BUTTON 1"
Get Image Img_Button1,0,0,150,50
cls

ink rgb(0,255,0),rgb(0,0,0)
Box 0,0,150,50
ink rgb(0,0,0),rgb(0,0,0)
Center Text 75,10,"BUTTON 2"
Get Image Img_Button2,0,0,150,50
cls

Paste image Img_Console,0,0
Paste image Img_Button1,75,100
Paste image Img_Button2,275,100

Get Image Img_Menu,0,0,512,512
cls

Make object Plane Obj_Console,1,1
Texture Object Obj_Console,Img_Menu
Set object emissive Obj_Console,rgb(255,255,255)

Make object box Obj_Button1,0.29,0.1,0.1
position object Obj_Button1,-0.2,0.25,0
hide object Obj_Button1

Make object box Obj_Button2,0.29,0.1,0.1
position object Obj_Button2,0.18,0.25,0
hide object Obj_Button2

Set Text Size 24
ink rgb(255,255,255),rgb(0,0,0)

do
	If mouseX()<Object Screen X(Obj_Button1)+10 and mouseX()>Object Screen X(Obj_Button1)-10 and mouseY()<Object Screen Y(Obj_Button1)+7 and mouseY()>Object Screen Y(Obj_Button1)-7
		If mouseclick()=1
			ButtonSwitch(1)
		endif
	endif
	
	If mouseX()<Object Screen X(Obj_Button2)+10 and mouseX()>Object Screen X(Obj_Button2)-10 and mouseY()<Object Screen Y(Obj_Button2)+7 and mouseY()>Object Screen Y(Obj_Button2)-7
		If mouseclick()=1
			ButtonSwitch(2)
		endif
	endif
		
	Text 0,0,"Click a button to switch them."
	sync
LOOP

Function ButtonSwitch(State)
	Delete image Img_Menu
	cls
	Paste image Img_Console,0,0
	If State=1
		Paste image Img_Button2,75,100
		Paste image Img_Button1,275,100
	endif
	
	If State=2
		Paste image Img_Button1,75,100
		Paste image Img_Button2,275,100
	 endif
	 
	 Get Image Img_Menu,0,0,512,512
	 cls
	 
	 Texture Object Obj_Console,Img_Menu
	 Set object emissive Obj_Console,rgb(255,255,255)
ENDFUNCTION

If it hasn't exploded yet, I haven't touched it.

Back to top

Profile PM