User drawn objects - GameCreators Forum

Author

Message

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 19th Jul 2008 01:02 Edited at: 20th Jul 2008 21:33

Link

Hey, i was messing around with some paper and a pencil drawing little cities, and an idea hit me. Why not make it into a game. have the user draw out cities with the mouse, making each building by hand . This means that each building will have a unique shape, and the user will define what type of a building it will be.

i quickly (in excitement) put together some code to test out the actual drawing of buildings and labeling system and im getting a few glitches.

+ Code Snippet

dim map$(640,480)
set text size 6

do

	if mouseclick() = 1 then gosub drawobject
	
loop


drawobject:

sx = mousex();sy = mousey()

while mouseclick() = 1

	dot mousex(),mousey()

	if mousex() < sx then xmin = mousex()
	if mousey() < sy then ymin = mousey()

	if mousex() > sx then xmax = mousex()
	if mousey() > sy then ymax = mousey()

	midx = (xmin + xmax)/2
	midy = (ymin + ymax)/2

endwhile


if mouseclick() = 3

	repeat ; until inkey$ <> ""
	
	Select inkey$
		Case "h"
			map$(midx,midy) = "H"
		endcase

		Case "H"
			map$(midx,midy) = "H"
		endcase

		Case Default
			map$(midx,midy) = "R"
		endcase

	endselect

	repeat ; until mouseclick() = 0

else
	map$(midx,midy) = "R"
endif

center text mix,midy,map$(midx,midy)

return

glitch # 1:
i can only draw 1 building and then it quits

glitch # 2:
it isn't labeling the building type, but i cant figure out why.

another problem that isn't exactly a glitch is that if you move the mouse too quickly, the pixels get chopped up. i realize that that is because the mouse is moving too quickly for the computer to realize it. i know this could be solved by making a line in between the pixels but im not quite sure how it would be implemented

How to use:

To draw press left mouse button down.
When done, add to the left mouse button the right mouse button (without releasing the left one)
press h to make it a house, or r for road.
when done labeling, you can go ahead and release the mouse buttons.

[edit] come on guys! no body knows???

i changed the program to put a dot where he center was and it was way wrong so im going to wrestle with finding a differend way to get midx and midy.

[edit 2]

heres my equasions:

midx = ((xmax-xmin)/2)+xmin
midy = ((ymax-ymin)/2)+ymin

Back to top

Profile PM Email

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 21st Jul 2008 18:47

Link

[bump]

Back to top

Profile PM Email

Latch

18

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 22nd Jul 2008 00:19

Link

One problem you have a typo in the code at the bottom:

+ Code Snippet

center text mix,midy,map$(midx,midy)

should be

+ Code Snippet

center text midx,midy,map$(midx,midy)

Also an error :

+ Code Snippet

 repeat ; until inkey$ <> ""

should be

+ Code Snippet

repeat : until inkey$ <> ""

Though I'm not quite sure why that line is in there at all.

quick mouse continuous line:

+ Code Snippet

sync on
sync rate 60

do
   mx=mousex() : my=mousey()
   while mouseclick()=1
      oldx=mx
      oldy=my
      mx=mousex() : my=mousey()
      line oldx,oldy,mx,my
      sync
   endwhile

   sync
loop

Work on it a little bit more. It's hard to tell what you are going for.

Enjoy your day.

Back to top

Profile PM

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 23rd Jul 2008 01:16 Edited at: 23rd Jul 2008 05:36

Link

ok, thanks, that helped quite a bit.

ill explain a little bit more.

the user draws and object, whitch the computer otomatically finds the center of. the the use labels it, and the computer prints the label at the center.

[edit]
ok, ive completely rewritten the code, but for now i left out the labeling bit.

Problem : for some reason the computer is misreading there the lowest x and y values are.

controlls: click to draw. when done, you can release the left mouse button and when you are ready click the right mouse button to place dot on center

+ Code Snippet

LX = 640
LY = 480

DO

x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   
	ox = x
	oy = y
	x = mousex()
	y = mousey()

   line ox,oy,x,y

   if x > bx then bx = x : if x < lx then lx = x
   if y > by then by = y : if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`******
`this section is not needed. i just put it in here to illistrate
`the problem listed above. it makes a box around where the
`computer thinks the entire figure is.
line bx,ly,lx,ly
line lx,by,lx,ly
line bx,by,bx,ly
line bx,by,lx,by
`******

end : endif

LOOP

Back to top

Profile PM Email

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 23rd Jul 2008 05:33 Edited at: 23rd Jul 2008 05:36

Link

[double post]

Back to top

Profile PM Email

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 24th Jul 2008 00:20

Link

I can't seem to figure out while it's doing that... But it appears you wanted to make a line, so I fixed it to do that. Sorry if this is wasting your time. :/

+ Code Snippet

LX = 640
LY = 480

DO
	ox = x
	oy = y
x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   

	x = mousex()
	y = mousey()

   line ox,oy,x,y

   if x > bx then bx = x : if x < lx then lx = x
   if y > by then by = y : if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`******
`this section is not needed. i just put it in here to illistrate
`the problem listed above. it makes a box around where the
`computer thinks the entire figure is.
line bx,ly,lx,ly
line lx,by,lx,ly
line bx,by,bx,ly
line bx,by,lx,by
`******

end
endif

LOOP

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 24th Jul 2008 00:29 Edited at: 24th Jul 2008 00:41

Link

no prob, just a mistake of placement!

[edit]

It works!!!!!! i just changed

+ Code Snippet

   if x > bx then bx = x : if x < lx then lx = x
   if y > by then by = y : if y < ly then ly = y

to

+ Code Snippet

   if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

for some reason putting them on 2 lines instead of 4 confuzed the computer! Happy!

entire code*

+ Code Snippet

LX = 640
LY = 480

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   
	x = mousex()
	y = mousey()

   line ox,oy,x,y

   if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

line bx,ly,lx,ly
line lx,by,lx,ly
line bx,by,bx,ly
line bx,by,lx,by

end : endif

LOOP

*please don't use in and product sold commercially or in the black market. if you do, give me 90% of the profit.

Back to top

Profile PM Email

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 24th Jul 2008 01:42 Edited at: 24th Jul 2008 01:42

Link

AHHHHHH I've used that before *hits head* I don't know how I could have missed it!
What the
if something then if something

is doing,
if something
if something
endif
endif

I should have known! Congratulations.

Keep my posted on how the work goes.

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 24th Jul 2008 18:41 Edited at: 24th Jul 2008 19:03

Link

right now im working on the labeling and storage of labels. ive run into a little problem though.
i use

+ Code Snippet

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132


line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102


Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"

set current bitmap 1
sprite 1,lx,by+12,1

to make a menu just below the object drawn to select type of building.earliear i use the command

+ Code Snippet

LOAD IMAGE "build_menu.bmp" , 1

to load the image, but when the computer gets to the sprite command, it gives me an error that says that the image doesn't exist. i tried using 2 instead of 1 but that didn't help.

entire code

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0

LOAD IMAGE "build_menu.bmp" , 1

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()

if c = 1
   
	x = mousex()
	y = mousey()

line ox,oy,x,y

if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP

LABEL:

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132

line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102

Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"

set current bitmap 1
sprite 1,lx,by+12,1

while mouseclick() = 1

c = mouseclick()
    x = mousex()
    y = mousey()
    col = point(x,y)

if col = rgb(255,0,0) then type$ = "R"
    if col = rgb(0,255,0) then type$ = "C"
    if col = rgb(0,0,255) then type$ = "I"
    if col = rgb(255,0,255) then type$ = "R"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

return

+ Code Snippet

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0

LOAD IMAGE "build_menu.bmp" , 1

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   
	x = mousex()
	y = mousey()

   line ox,oy,x,y

   if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP




LABEL:

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132


line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102


Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"

set current bitmap 1
sprite 1,lx,by+12,1

while mouseclick() = 1

    c = mouseclick()
    x = mousex()
    y = mousey()
    col = point(x,y)

    if col = rgb(255,0,0) then type$ = "R"
    if col = rgb(0,255,0) then type$ = "C"
    if col = rgb(0,0,255) then type$ = "I"
    if col = rgb(255,0,255) then type$ = "R"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

return

[edit]

ok i figured out what was wrong, the computer was highlighting the sprite command, but it ment the set current bitmap command. very odd, as i have never had to create a bitmap before i use set current bitmap before. i thought that it just switched it to a seperate screen. and also, it was putting the sprite on bitmap 0 because sprites can only work on screen, so i should just use paste image like so!!!!:

+ Code Snippet

create bitmap 1,640,480
set current bitmap 1
paste image 1,lx,by+12

in addition, i added :

+ Code Snippet

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

`i added the below command so that it will draw the next building on screen
set current bitmap 0
`****

return

Now for a problem. when you click one of the buttons,it thinks you have already started on the next building, so when you do start building, it puts the middle in between the building and the button.

Back to top

Profile PM Email

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 24th Jul 2008 19:27

Link

I don't quite understand what your saying. If you post the code, I might be able to help.

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 25th Jul 2008 01:00 Edited at: 25th Jul 2008 04:36

Link

srry, i was in a hurry. entire code:

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0

LOAD IMAGE "build_menu.bmp" , 1

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()

if c = 1
   
	x = mousex()
	y = mousey()

line ox,oy,x,y

if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP

LABEL:

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132

line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102

Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"

create bitmap 1,640,480
set current bitmap 1
paste image 1,lx,by+12

while mouseclick() = 1

c = mouseclick()
	x = mousex()
	y = mousey()
	col = point(x,y)

if col = rgb(255,0,0) then type$ = "R"
	if col = rgb(0,255,0) then type$ = "C"
	if col = rgb(0,0,255) then type$ = "I"
	if col = rgb(255,0,255) then type$ = "R"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

set current bitmap 0

return

+ Code Snippet

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0

LOAD IMAGE "build_menu.bmp" , 1

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   
	x = mousex()
	y = mousey()

   line ox,oy,x,y

   if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP




LABEL:

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132


line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102


Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"

create bitmap 1,640,480
set current bitmap 1
paste image 1,lx,by+12

while mouseclick() = 1

	c = mouseclick()
	x = mousex()
	y = mousey()
	col = point(x,y)

	if col = rgb(255,0,0) then type$ = "R"
	if col = rgb(0,255,0) then type$ = "C"
	if col = rgb(0,0,255) then type$ = "I"
	if col = rgb(255,0,255) then type$ = "R"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

set current bitmap 0

return

screenie of wat im sayin below

oh, and how can i get the menu to go away?

[edit] fixed.!!! i made the menue into sprite and made a few other small changes to make it wait in apropriate spots and its working flawlessly.

almost.

all code:

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0

LOAD IMAGE "build_menu_00.bmp",1
LOAD IMAGE "build_menu_01.bmp",2

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()

if c = 1
   
	x = mousex()
	y = mousey()

line ox-1,oy-1,x-1,y-1  :  line ox,oy-1,x,y-1  :  line ox-1,oy-1,x-1,y-1
line ox-1,oy,x-1,y      :  line ox,oy,x,y      :  line ox-1,oy,x-1,y
line ox-1,oy+1,x-1,y+1  :  line ox,oy+1,x,y+1  :  line ox-1,oy+1,x-1,y+1

if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2

`dot mx,my
`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP

LABEL:

sprite 1,lx,by+12,1
show sprite 1

create bitmap 1,640,480
set current bitmap 1
paste image 2,lx,by+12

repeat

until mouseclick() = 1

while mouseclick() = 1

c = mouseclick()
	x = mousex()
	y = mousey()
	col = point(x,y)

print col

if col = rgb(255,0,0) then type$ = "R"
	if col = rgb(0,255,0) then type$ = "C"
	if col = rgb(0,0,255) then type$ = "I"
	if col = rgb(255,0,255) then type$ = "S"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

set current bitmap 0

center text mx,my-6,type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

repeat
until mouseclick() = 0

hide sprite 1

set current bitmap 1
cls
set current bitmap 0

return

+ Code Snippet

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0

LOAD IMAGE "build_menu_00.bmp",1
LOAD IMAGE "build_menu_01.bmp",2

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   
	x = mousex()
	y = mousey()

line ox-1,oy-1,x-1,y-1  :  line ox,oy-1,x,y-1  :  line ox-1,oy-1,x-1,y-1
line ox-1,oy,x-1,y      :  line ox,oy,x,y      :  line ox-1,oy,x-1,y
line ox-1,oy+1,x-1,y+1  :  line ox,oy+1,x,y+1  :  line ox-1,oy+1,x-1,y+1


   if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2

`dot mx,my
`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP




LABEL:

sprite 1,lx,by+12,1
show sprite 1

create bitmap 1,640,480
set current bitmap 1
paste image 2,lx,by+12

repeat

until mouseclick() = 1

while mouseclick() = 1

	c = mouseclick()
	x = mousex()
	y = mousey()
	col = point(x,y)

   print col

	if col = rgb(255,0,0) then type$ = "R"
	if col = rgb(0,255,0) then type$ = "C"
	if col = rgb(0,0,255) then type$ = "I"
	if col = rgb(255,0,255) then type$ = "S"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

set current bitmap 0

center text mx,my-6,type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

repeat
until mouseclick() = 0

hide sprite 1

set current bitmap 1
cls
set current bitmap 0

return

when i try to make a commercial building it doesn't print the label. im not sure if the problem is in the menu or in the labeler.

Back to top

Profile PM Email

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 25th Jul 2008 01:18 Edited at: 25th Jul 2008 01:22

Link

instead of paste image, use sprite
then
you can either
delete sprite
or hide sprite
to get rid of it.
Then of course if you want it back and you used the command 'hide sprite' you use the command 'show sprite'

[EDIT]
I don't get how you got your extra dot problem, but I think this answers your question.

Go to another loop until the player selects the object, then return like so
do
if object_make=1 then gosub sub_loop
sync
loop

sub_loop:
do
if label_select=1 then return
sync
loop

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 25th Jul 2008 01:27 Edited at: 25th Jul 2008 01:28

Link

I have to go, but I think this is exactly what your looking for. use the command sprite to place it. I will make it later if you haven't.

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0
gosub create_label
`LOAD IMAGE "build_menu.bmp" , 1

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()

if c = 1
   
	x = mousex()
	y = mousey()

line ox,oy,x,y

if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP

LABEL:

create bitmap 1,640,480
set current bitmap 1
`paste image 1,lx,by+12

while mouseclick() = 1

c = mouseclick()
	x = mousex()
	y = mousey()
	col = point(x,y)

if col = rgb(255,0,0) then type$ = "R"
	if col = rgb(0,255,0) then type$ = "C"
	if col = rgb(0,0,255) then type$ = "I"
	if col = rgb(255,0,255) then type$ = "R"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

set current bitmap 0

return

create_label:
lx=320
ly=240
by=240

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132

line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102

Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"
get image 1,320,240,430,380
cls
return

+ Code Snippet

LX = 640
LY = 480
DIM index$(65535,7)
COUNTER = 0
gosub create_label
`LOAD IMAGE "build_menu.bmp" , 1

goto begin

begin:

DO

ox = x
oy = y
x = mousex()
y = mousey()
c = mouseclick()


if c = 1
   
	x = mousex()
	y = mousey()

   line ox,oy,x,y

   if x > bx then bx = x
	if x < lx then lx = x
   if y > by then by = y
	if y < ly then ly = y

   mx = ((bx-lx)/2)+lx : my = ((by-ly)/2)+ly

endif

if c=2 : dot mx,my

`line bx,ly,lx,ly
`line lx,by,lx,ly
`line bx,by,bx,ly
`line bx,by,lx,by

gosub LABEL

goto begin : endif

LOOP




LABEL:



create bitmap 1,640,480
set current bitmap 1
`paste image 1,lx,by+12

while mouseclick() = 1

	c = mouseclick()
	x = mousex()
	y = mousey()
	col = point(x,y)

	if col = rgb(255,0,0) then type$ = "R"
	if col = rgb(0,255,0) then type$ = "C"
	if col = rgb(0,0,255) then type$ = "I"
	if col = rgb(255,0,255) then type$ = "R"

endwhile

Counter = Counter + 1

index$(counter,1) = str$(lx)
index$(counter,2) = str$(ly)
index$(counter,3) = str$(mx)
index$(counter,4) = str$(my)
index$(counter,5) = str$(bx)
index$(counter,6) = str$(by)
index$(counter,7) = type$

lx = 640
mx = 0
bx = 0
ly = 480
my = 0
by = 0
type$ = ""

set current bitmap 0

return





create_label:
lx=320
ly=240
by=240

line lx,     by+12,  lx,     by+132
line lx,     by+12,  lx+100, by+12
line lx+100, by+12,  lx+100, by+132
line lx,     by+132, lx+100, by+132


line lx,  by+42,  lx+100,  by+42
line lx,  by+72,  lx+100,  by+72
line lx,  by+102, lx+100,  by+102


Center Text  lx+50,  by+27,  "Residential"
Center Text  lx+50,  by+57,  "Commercial"
Center Text  lx+50,  by+87,  "Industrial"
Center Text  lx+50,  by+117, "Road"
get image 1,320,240,430,380
cls
return

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 25th Jul 2008 20:34

Link

make the label a sprite??? i am confuzed. did you see my edit?

Back to top

Profile PM Email

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 25th Jul 2008 21:28

Link

Now I did. I posted that before your edit.

I urge you to watch the film "Who killed the electric car". Support electric cars! Did you know their used to be more electric cars then gassoline cars?

Back to top

Profile PM Email Website

Pixelator

17

Years of Service

User Offline

Joined: 8th Jul 2007

Location: here

Posted: 2nd Aug 2008 23:20

Link

im going to start on final game. ill keep ya posted

Back to top

Profile PM Email

Irojo

17

Years of Service

User Offline

Joined: 21st May 2008

Location: Eating toast.

Posted: 3rd Aug 2008 02:58

Link

Alright. I can't wait.

My internet is not fast enough to double post.

Back to top

Profile PM Email Website

Sorry your browser is not supported!

DarkBASIC Discussion / User drawn objects