Window Mode and Background Images

Author

Message

Kronos 001

14

Years of Service

User Offline

Joined: 17th Feb 2010

Location:

Posted: 23rd Feb 2010 05:09

Link

I'm not sure if this is breaking a rule or not. I have another thread regarding a similar issue, and I asked this in my last comment there, but it's been a few days, and I feel like the thread has been forgotten since the main issue has been resolved.

Anywho, if it's not breaking a rule: I have my game running all nice and shiny, with it's background and all, but when I hit 'w' to go into Window Mode the background image goes away. The game still works, but it doesn't look as shiny. How do I fix this?

I'm using the Paste Image command [paste image 1, 0 , 0]

Umm...I'm just going to copy / paste the main bit of code, just in case.

```````````````````````MAIN LOOP PART ONE : HARD`````````````````````````````

hard:
cls

`Main Loop
do

`game label
game:
cls
paste image 1, 0, 0

`Color Changes
	if score < 100 then ink rgb(255,200,5),0
	if score > 100 and score < 200 then ink rgb(200,255,5),0
	if score > 200 and score < 300 then ink rgb(5,200,255),0
	if score > 300 and score < 400 then ink rgb(5,255,200),0
	if score > 400 and score < 500 then ink rgb(200,5,255),0
	if score > 500 then ink rgb(rnd(255),rnd(255),rnd(255)),0
	
	`Text
	set cursor 75, 10 : print Str$(bomb) : set cursor 10, 10 : print "Bombs: " : set cursor 10, 25 : print "Score: " : set cursor 75, 25 : print Str$(score)
	set cursor 10, 40 : print "Laser: " : set cursor 75, 40 : print Str$(laserwidth)

`Controls
	playerx = mousex()
		
		`pausing and quitting
		if inkey$()="p" then goto pause
		if inkey$()="q" then goto quit

`bombs and window mode
		if bomb > 0 and inkey$()="x" then dec bomb,1 : ex1 = 15 : ex2 = 15 : ex3 = 15 : ex4 = 15 : ex5 = 15 : ex6 = 15 : ex7 = 15 : ex8 = 15 : inc score, rnd(15)+2 : play sound 2 : wait 1500
			if inkey$()="w" then set window on
		
		`shooting and registering hits
		`shooting
		xr = 12
		yr = 2
			if score > 100 then xr = xr+5 : if score > 200 then xr = xr+5 : if score > 300 then xr = xr+5
					dec ly,15
					ellipse lx, ly, xr, yr
			if ly < 0 and mouseclick()= 1 then lx = playerx : ly = playery : play sound 1

`	`		`		`	`		`		`	`		`		`	`		`		`	`		`		`
		
		`hit resgistery
		if lx < ex1+19 and lx > ex1-19 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if lx < ex2+19 and lx > ex2-19 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if lx < ex3+19 and lx > ex3-19 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if lx < ex4+19 and lx > ex4-19 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if lx < ex5+19 and lx > ex5-19 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 100 and lx < ex1+24 and lx > ex1-24 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 100 and lx < ex2+24 and lx > ex2-24 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 100 and lx < ex3+24 and lx > ex3-24 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 100 and lx < ex4+24 and lx > ex4-24 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 100 and lx < ex5+24 and lx > ex5-24 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 100 and lx < ex6+24 and lx > ex6-24 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 200 and lx < ex1+29 and lx > ex1-29 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 200 and lx < ex2+29 and lx > ex2-29 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 200 and lx < ex3+29 and lx > ex3-29 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 200 and lx < ex4+29 and lx > ex4-29 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 200 and lx < ex5+29 and lx > ex5-29 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 200 and lx < ex6+29 and lx > ex6-29 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 200 and lx < ex7+29 and lx > ex7-29 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 300 and lx < ex1+34 and lx > ex1-34 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 300 and lx < ex2+34 and lx > ex2-34 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 300 and lx < ex3+34 and lx > ex3-34 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 300 and lx < ex4+34 and lx > ex4-34 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 300 and lx < ex5+34 and lx > ex5-34 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 300 and lx < ex6+34 and lx > ex6-34 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 300 and lx < ex7+34 and lx > ex7-34 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
									if score > 300 and lx < ex8+34 and lx > ex8-34 and ly < ey8+25 and ly > ey8-25 then ey8 = rnd(275) : ex8 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
	if score > 300 and score < 450 and lx < bx+70 and lx > bx-70 and ly < by+70 and ly > by-70 then inc score

`Draw Player
	circle playerx, playery, playerr : circle playerx, playery, rnd(5)+3 : ellipse playerx+14, playery-10, 2, 20 : ellipse playerx-14, playery-10, 2, 20 : ellipse playerx+18, playery-15, 2, 6 : ellipse playerx-18, playery-15, 2, 6

`Draw Enemies
	circle ex1, ey1, 7 : circle ex2, ey2, 7 : circle ex3, ey3, rnd(5)+5 : circle ex4, ey4, 7 : circle ex5, ey5, 7 : if score > 100 then circle ex6, ey6, rnd(5)+5 : if score > 200 then circle ex7, ey7, 7 : if score > 300 then circle ex8, ey8, 7
	if score > 300 and score < 450 then circle bx, by, 35
	
	`Enemy Movement
	move=0
		if move=0 then inc ex1,4 : inc ex2,3 : inc ex3,4 : inc ex4,3 : inc ex5,4
			if move = 0 and score > 100 then inc ex6,5
				if move = 0 and score > 200 then inc ex7,6
					if move = 0 and score > 300 then inc ex8,7
						if move = 0 and score > 300 and score < 450 then inc bx,2

`Enemy Boundaries and Fail
	if ex1 >= 635 then goto fail : if ey1 <= 6 then ey1 = 10 : if ey8 >= 290 then ey1 = 290
	if ex2 >= 635 then goto fail : if ey2 <= 6 then ey1 = 10 : if ey8 >= 290 then ey2 = 290
	if ex3 >= 635 then goto fail : if ey3 <= 6 then ey1 = 10 : if ey8 >= 290 then ey3 = 290
	if ex4 >= 635 then goto fail : if ey4 <= 6 then ey1 = 10 : if ey8 >= 290 then ey4 = 290
	if ex5 >= 635 then goto fail : if ey5 <= 6 then ey1 = 10 : if ey8 >= 290 then ey5 = 290
	if ex6 >= 635 then goto fail : if ey6 <= 6 then ey1 = 10 : if ey8 >= 290 then ey6 = 290
	if ex7 >= 635 then goto fail : if ey7 <= 6 then ey1 = 10 : if ey8 >= 290 then ey7 = 290
	if ex8 >= 635 then goto fail : if ey8 <= 6 then ey1 = 10 : if ey8 >= 290 then ey8 = 290

`Winning the Game
	if score > 500 and score < 550 then goto win

sync
loop

+ Code Snippet

```````````````````````MAIN LOOP PART ONE : HARD`````````````````````````````

hard:
cls


`Main Loop
do


`game label
game:
cls
paste image 1, 0, 0


	`Color Changes
	if score < 100 then ink rgb(255,200,5),0
	if score > 100 and score < 200 then ink rgb(200,255,5),0
	if score > 200 and score < 300 then ink rgb(5,200,255),0
	if score > 300 and score < 400 then ink rgb(5,255,200),0
	if score > 400 and score < 500 then ink rgb(200,5,255),0
	if score > 500 then ink rgb(rnd(255),rnd(255),rnd(255)),0
	
	`Text
	set cursor 75, 10 : print Str$(bomb) : set cursor 10, 10 : print "Bombs: " : set cursor 10, 25 : print "Score: " : set cursor 75, 25 : print Str$(score)
	set cursor 10, 40 : print "Laser: " : set cursor 75, 40 : print Str$(laserwidth)

	`Controls
	playerx = mousex()
		
		`pausing and quitting
		if inkey$()="p" then goto pause
		if inkey$()="q" then goto quit

		`bombs and window mode
		if bomb > 0 and inkey$()="x" then dec bomb,1 : ex1 = 15 : ex2 = 15 : ex3 = 15 : ex4 = 15 : ex5 = 15 : ex6 = 15 : ex7 = 15 : ex8 = 15 : inc score, rnd(15)+2 : play sound 2 : wait 1500
			if inkey$()="w" then set window on
		
		`shooting and registering hits
		`shooting
		xr = 12
		yr = 2
			if score > 100 then xr = xr+5 : if score > 200 then xr = xr+5 : if score > 300 then xr = xr+5
					dec ly,15
					ellipse lx, ly, xr, yr
			if ly < 0 and mouseclick()= 1 then lx = playerx : ly = playery : play sound 1


`	`		`		`	`		`		`	`		`		`	`		`		`	`		`		`
		
		`hit resgistery
		if lx < ex1+19 and lx > ex1-19 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if lx < ex2+19 and lx > ex2-19 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if lx < ex3+19 and lx > ex3-19 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if lx < ex4+19 and lx > ex4-19 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if lx < ex5+19 and lx > ex5-19 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 100 and lx < ex1+24 and lx > ex1-24 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 100 and lx < ex2+24 and lx > ex2-24 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 100 and lx < ex3+24 and lx > ex3-24 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 100 and lx < ex4+24 and lx > ex4-24 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 100 and lx < ex5+24 and lx > ex5-24 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 100 and lx < ex6+24 and lx > ex6-24 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 200 and lx < ex1+29 and lx > ex1-29 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 200 and lx < ex2+29 and lx > ex2-29 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 200 and lx < ex3+29 and lx > ex3-29 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 200 and lx < ex4+29 and lx > ex4-29 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 200 and lx < ex5+29 and lx > ex5-29 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 200 and lx < ex6+29 and lx > ex6-29 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 200 and lx < ex7+29 and lx > ex7-29 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 300 and lx < ex1+34 and lx > ex1-34 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 300 and lx < ex2+34 and lx > ex2-34 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 300 and lx < ex3+34 and lx > ex3-34 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 300 and lx < ex4+34 and lx > ex4-34 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 300 and lx < ex5+34 and lx > ex5-34 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 300 and lx < ex6+34 and lx > ex6-34 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 300 and lx < ex7+34 and lx > ex7-34 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
									if score > 300 and lx < ex8+34 and lx > ex8-34 and ly < ey8+25 and ly > ey8-25 then ey8 = rnd(275) : ex8 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
	if score > 300 and score < 450 and lx < bx+70 and lx > bx-70 and ly < by+70 and ly > by-70 then inc score

	`Draw Player
	circle playerx, playery, playerr : circle playerx, playery, rnd(5)+3 : ellipse playerx+14, playery-10, 2, 20 : ellipse playerx-14, playery-10, 2, 20 : ellipse playerx+18, playery-15, 2, 6 : ellipse playerx-18, playery-15, 2, 6

	`Draw Enemies
	circle ex1, ey1, 7 : circle ex2, ey2, 7 : circle ex3, ey3, rnd(5)+5 : circle ex4, ey4, 7 : circle ex5, ey5, 7 : if score > 100 then circle ex6, ey6, rnd(5)+5 : if score > 200 then circle ex7, ey7, 7 : if score > 300 then circle ex8, ey8, 7
	if score > 300 and score < 450 then circle bx, by, 35
	
	`Enemy Movement
	move=0
		if move=0 then inc ex1,4 : inc ex2,3 : inc ex3,4 : inc ex4,3 : inc ex5,4
			if move = 0 and score > 100 then inc ex6,5
				if move = 0 and score > 200 then inc ex7,6
					if move = 0 and score > 300 then inc ex8,7
						if move = 0 and score > 300 and score < 450 then inc bx,2

	`Enemy Boundaries and Fail
	if ex1 >= 635 then goto fail : if ey1 <= 6 then ey1 = 10 : if ey8 >= 290 then ey1 = 290
	if ex2 >= 635 then goto fail : if ey2 <= 6 then ey1 = 10 : if ey8 >= 290 then ey2 = 290
	if ex3 >= 635 then goto fail : if ey3 <= 6 then ey1 = 10 : if ey8 >= 290 then ey3 = 290
	if ex4 >= 635 then goto fail : if ey4 <= 6 then ey1 = 10 : if ey8 >= 290 then ey4 = 290
	if ex5 >= 635 then goto fail : if ey5 <= 6 then ey1 = 10 : if ey8 >= 290 then ey5 = 290
	if ex6 >= 635 then goto fail : if ey6 <= 6 then ey1 = 10 : if ey8 >= 290 then ey6 = 290
	if ex7 >= 635 then goto fail : if ey7 <= 6 then ey1 = 10 : if ey8 >= 290 then ey7 = 290
	if ex8 >= 635 then goto fail : if ey8 <= 6 then ey1 = 10 : if ey8 >= 290 then ey8 = 290

	`Winning the Game
	if score > 500 and score < 550 then goto win

sync
loop

-Teh Nub-

Back to top

Profile PM Email Website

Latch

17

Years of Service

User Offline

Joined: 23rd Jul 2006

Location:

Posted: 23rd Feb 2010 10:38

Link

If you put this on the shelf and then look at it in 3 months, you're gonna kick yourself because it will probably be too hard to decipher because of how you've laid out your code.

if lx < ex1+19 and lx > ex1-19 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if lx < ex2+19 and lx > ex2-19 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if lx < ex3+19 and lx > ex3-19 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if lx < ex4+19 and lx > ex4-19 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if lx < ex5+19 and lx > ex5-19 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 100 and lx < ex1+24 and lx > ex1-24 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 100 and lx < ex2+24 and lx > ex2-24 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 100 and lx < ex3+24 and lx > ex3-24 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 100 and lx < ex4+24 and lx > ex4-24 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 100 and lx < ex5+24 and lx > ex5-24 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 100 and lx < ex6+24 and lx > ex6-24 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 200 and lx < ex1+29 and lx > ex1-29 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 200 and lx < ex2+29 and lx > ex2-29 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 200 and lx < ex3+29 and lx > ex3-29 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 200 and lx < ex4+29 and lx > ex4-29 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 200 and lx < ex5+29 and lx > ex5-29 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 200 and lx < ex6+29 and lx > ex6-29 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 200 and lx < ex7+29 and lx > ex7-29 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 300 and lx < ex1+34 and lx > ex1-34 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 300 and lx < ex2+34 and lx > ex2-34 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 300 and lx < ex3+34 and lx > ex3-34 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 300 and lx < ex4+34 and lx > ex4-34 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 300 and lx < ex5+34 and lx > ex5-34 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 300 and lx < ex6+34 and lx > ex6-34 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 300 and lx < ex7+34 and lx > ex7-34 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
									if score > 300 and lx < ex8+34 and lx > ex8-34 and ly < ey8+25 and ly > ey8-25 then ey8 = rnd(275) : ex8 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0

+ Code Snippet

		if lx < ex1+19 and lx > ex1-19 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if lx < ex2+19 and lx > ex2-19 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if lx < ex3+19 and lx > ex3-19 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if lx < ex4+19 and lx > ex4-19 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if lx < ex5+19 and lx > ex5-19 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 100 and lx < ex1+24 and lx > ex1-24 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 100 and lx < ex2+24 and lx > ex2-24 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 100 and lx < ex3+24 and lx > ex3-24 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 100 and lx < ex4+24 and lx > ex4-24 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 100 and lx < ex5+24 and lx > ex5-24 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 100 and lx < ex6+24 and lx > ex6-24 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 200 and lx < ex1+29 and lx > ex1-29 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 200 and lx < ex2+29 and lx > ex2-29 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 200 and lx < ex3+29 and lx > ex3-29 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 200 and lx < ex4+29 and lx > ex4-29 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 200 and lx < ex5+29 and lx > ex5-29 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 200 and lx < ex6+29 and lx > ex6-29 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 200 and lx < ex7+29 and lx > ex7-29 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
		if score > 300 and lx < ex1+34 and lx > ex1-34 and ly < ey1+25 and ly > ey1-25 then ey1 = rnd(275) : ex1 = 10 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
			if score > 300 and lx < ex2+34 and lx > ex2-34 and ly < ey2+25 and ly > ey2-25 then ey2 = rnd(275) : ex2 = 20 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
				if score > 300 and lx < ex3+34 and lx > ex3-34 and ly < ey3+25 and ly > ey3-25 then ey3 = rnd(275) : ex3 = 15 : inc score,5 : item = rnd(50) : if item = 15 then inc bomb : item = 0
					if score > 300 and lx < ex4+34 and lx > ex4-34 and ly < ey4+25 and ly > ey4-25 then ey4 = rnd(275) : ex4 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
						if score > 300 and lx < ex5+34 and lx > ex5-34 and ly < ey5+25 and ly > ey5-25 then ey5 = rnd(275) : ex5 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
							if score > 300 and lx < ex6+34 and lx > ex6-34 and ly < ey6+25 and ly > ey6-25 then ey6 = rnd(275) : ex6 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
								if score > 300 and lx < ex7+34 and lx > ex7-34 and ly < ey7+25 and ly > ey7-25 then ey7 = rnd(275) : ex7 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0
									if score > 300 and lx < ex8+34 and lx > ex8-34 and ly < ey8+25 and ly > ey8-25 then ey8 = rnd(275) : ex8 = 25 : inc score : item = rnd(50) : if item = 15 then inc bomb : item = 0

But anyway, you should be aware that chaining if thens on the same line can disqualify code further down. As soon as an if condition isn't true, it stops reading the line. So if you have stuff on the line that you intended to test, it mau never get to that if the first condition is false.

For example:

+ Code Snippet

a=1
b=2
c=3

if a=1 then print "a=1" : if b=5 then print "b=5" : if c=3 then print "c=3"

"c=3" will never print even though it is separated by a : because if b=5 is false. The if c=3 clause will never be reached.

Quote: "it's background and all, but when I hit 'w' to go into Window Mode the background image goes away."

For your question, if you change from Fullscreen mode to windowed mode, the video display is changed and that will wipe out your textures and mess up your images. If you switch modes, you'll have to reload your images and reset your 3d. This example shows how stuff is getting wiped out:

+ Code Snippet

sync on
sync rate 60

make object cube 1,25

do
   turn object right 1,1

   text 0,30,"Press space to toggle view"
   os=ns
   ns=spacekey()
   if ns > os
      toggle=1-toggle
   endif
   if toggle
      set window on
      win=1
   else
      if win=1
         set window off
         win=0
      endif
   endif

   sync
loop

Enjoy your day.

Back to top

Profile PM

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 23rd Feb 2010 10:59

Link

Quote: "if a=1 then print "a=1" : if b=5 then print "b=5" : if c=3 then print "c=3""

Exactly as Latch says. Another way of writing that would be:

+ Code Snippet

if a=1
   print "a=1"
   if b=5
      print "b=5"
      if c=3
         print "c=3"
      endif
   endif
endif

If you run your application in fullscreen and use alt+tab to go out and back in, the same result will occur. You can use the command screen invalid() to check if the screen has been switched. If so, reload all of your stuff.

TheComet

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 23rd Feb 2010 12:09

Link

Quote: "If you put this on the shelf and then look at it in 3 months, you're gonna kick yourself because it will probably be too hard to decipher because of how you've laid out your code."

Precisely!

This is annoying because in the other post I as much as told you this and pointed you to the solution... which you decided to completely ignore and instead start another thread with the same question.

So although not technically 'breaking the rules', you aren't helping yourself. Once users on here see that you ignore their advice, they simply won't help you any more.

TDK

* DS Forum Thread *

Back to top

Profile PM Email Website

Kronos 001

14

Years of Service

User Offline

Joined: 17th Feb 2010

Location:

Posted: 23rd Feb 2010 13:43

Link

TDK, it is honestly better than it was before. I can find where I need to be a lot easier than I used to. I realize it\'s still sloppy, but please don\'t think I completely ignored you. I read those tutorials.

As for the question I asked, and you guys answered; Thanks. And I feel retarded, because I figured it out literally within 5 minutes of posting this thread, and I thought, "oh crap. That was a waste of a post." It wasn\'t me getting confused and posting for help either, I ran into the problem a few days ago and was confused.

....

thanks, and sorry.

-Teh Nub-

Back to top

Profile PM Email Website

Robert The Robot

17

Years of Service

User Offline

Joined: 8th Jan 2007

Location: Fireball XL5

Posted: 23rd Feb 2010 20:48 Edited at: 23rd Feb 2010 20:49

Link

Quote: "If you run your application in fullscreen and use alt+tab to go out and back in, the same result will occur. You can use the command screen invalid() to check if the screen has been switched. If so, reload all of your stuff."

An easier way is to create the illusion of fullscreen - call this at the top of your code:

+ Code Snippet

user32=1
load dll "user32.dll",user32
Set Window on
Set Display Mode, desktop_width(user32), desktop_height(user32), Screen Depth()
Set Window Size desktop_width(user32), desktop_height(user32)
Set Window Mode 0, 0, 0
Set Window Position 0, 0


rem These functions were written by Latch - thanks!

rem Paste these at the end of your code, or the exe will complain
rem about running into a function declaration!
function desktop_width(user32)
   SM_CXSCREEN = 0
   dwidth=call dll(user32,"GetSystemMetrics",SM_CXSCREEN)
endfunction dwidth
`----------------------------------------------------------------
function desktop_height(user32)
   SM_CYSCREEN = 1
   dheight=call dll(user32,"GetSystemMetrics",SM_CYSCREEN)
endfunction dheight

These include calls to the winAPI (Windows core elements), so you can access data DBC can't get normally. It allows you to set the window to be the same size as the desktop - it looks like its running in fullscreen, but it allows you to switch program using Alt+Tab without damaging the textures!

For other tips and tricks, try here. The download in the first post is quite handy!

"I wish I was a spaceman, the fastest guy alive. I'd fly you round the universe, in Fireball XL5..."

Back to top

Profile PM Website

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 23rd Feb 2010 20:50

Link

@Robert

That is of course also an option, but the display mode will be at it's maximum and therefor slow down the game by a small amount.

TheComet

Back to top

Profile PM Email Website

Robert The Robot

17

Years of Service

User Offline

Joined: 8th Jan 2007

Location: Fireball XL5

Posted: 23rd Feb 2010 20:53

Link

Ah, but couldn't you just try:

+ Code Snippet

user32=1
load dll "user32.dll",user32
Set Window on
Set Display Mode, 640, 480, 32
Set Window Size desktop_width(user32), desktop_height(user32)
Set Window Mode 0, 0, 0
Set Window Position 0, 0


rem These functions were written by Latch - thanks!

rem Paste these at the end of your code, or the exe will complain
rem about running into a function declaration!
function desktop_width(user32)
   SM_CXSCREEN = 0
   dwidth=call dll(user32,"GetSystemMetrics",SM_CXSCREEN)
endfunction dwidth
`----------------------------------------------------------------
function desktop_height(user32)
   SM_CYSCREEN = 1
   dheight=call dll(user32,"GetSystemMetrics",SM_CYSCREEN)
endfunction dheight

Window is the desktop size, but display mode is 640x480. I think it should be low-resolution enlarged to fill the screen - or would that just create a tiny image in the middle of a large black screen?
(Can't test right now, can't get to DBC

)

"I wish I was a spaceman, the fastest guy alive. I'd fly you round the universe, in Fireball XL5..."

Back to top

Profile PM Website

TheComet

16

Years of Service

User Offline

Joined: 18th Oct 2007

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

Posted: 24th Feb 2010 00:10

Link

Quote: "or would that just create a tiny image in the middle of a large black screen?"

I'm pretty sure that is what it does

TheComet

Back to top

Profile PM Email Website

Caleb1994

15

Years of Service

User Offline

Joined: 10th Oct 2008

Location: The Internet you idiot!

Posted: 24th Feb 2010 01:11

Link

I think dbc centers it in the middle of the window. Sadly. I have used that method of 'fake' fullscreen in dbpro before.

New Site! Check it out \/

Back to top

Profile PM Website

Sorry your browser is not supported!

DarkBASIC Discussion / Window Mode and Background Images