Pic Transparency, Collision detection. Need major help.

[aspire]

Hey everyone. Well the time has come for a final term project. My goal is to make a game. I have already hit a great big hard wall :/. I am really lost, I have no idea what to do, and no one has been able to help me in my class.

I am in need of help with getting my Picture to become transparent and to get my Collision Detection right. Also, I know my code is EXTREMLY messy. So if anyone is willing to help me get this working and cleaned up, I will be a very happy camper .

The picture is attached.

Thanks very much,
Aspire

Turing:

var sprite_x, sprite_y : int var sprite_chars : array char of boolean var sprite_pic : int := Pic.FileNew ("sprite3.jpg") var sprite_left_width : int := Pic.Width (sprite_pic) var sprite_left_height : int := Pic.Height (sprite_pic) var obstacle1_x, obstacle1_y : int var points : int var lastMoved : int := 0 var timeRunning : int % Sprite Function var delayTime : int var Distance_between_centres : real var spriteID : int Pic.SetTransparentColor (sprite_pic, white) Pic.Draw (sprite_pic, 2, 2, picMerge) %spriteID := Sprite.New (sprite_pic) %Sprite.Show (spriteID) obstacle1_x := Rand.Int (20, maxx) obstacle1_y := Rand.Int (20, maxy) clock (timeRunning) lastMoved := timeRunning - 2001 setscreen ("offscreenonly") sprite_x := 200 sprite_y := 100 points := 0 colorback (brightred) loop     cls     locate (5, 1)     put points     clock (timeRunning)     if timeRunning - lastMoved > 2001 then         obstacle1_x := Rand.Int (20, maxx)         obstacle1_y := Rand.Int (20, maxy)         lastMoved := timeRunning     end if     Input.KeyDown (sprite_chars)     if sprite_chars (KEY_UP_ARROW) then         sprite_y := sprite_y + 5     end if     if sprite_chars (KEY_DOWN_ARROW) then         sprite_y := sprite_y - 5     end if     if sprite_chars (KEY_RIGHT_ARROW) then         sprite_x := sprite_x + 5     end if     if sprite_chars (KEY_LEFT_ARROW) then         sprite_x := sprite_x - 5     end if     drawfilloval (obstacle1_x, obstacle1_y, 15, 15, 8)     if sqrt ((40 + sprite_x - obstacle1_x) ** 2 +             (sprite_y + 40 - obstacle1_y) ** 2) < 60 then         points := points + 1     end if     Pic.Draw (sprite_pic, sprite_x, sprite_y, picCopy)     %drawbox (sprite_x, sprite_y, boxx, boxy, 3)     Sprite.SetPosition (spriteID, sprite_x, sprite_y, false)     View.Update     delay (25) end loop

[Randolf Nitler]

I don't understamd, you want your pick to slowly blur until you can't see it on the screen?

[Tony]

Are you talking about transparency (no white background) or alpha-transparency (see-through image)?

alpha-transparencies would be computationally intensive, by Turing's standards.

to remove just white background, you should be using picMerge mode when drawing inside your loop (just like you did in the initial setup), not picCopy.

[Zampano]

Trying to use pictures (even simple sprites) during gameplay in Turing is a waste of time. That is the short and long of it.

[ericfourfour]

Replace picCopy with picMerge. You should consider making the picture a .bmp file. JPEGs have poor qualtiy when using picMerge.

[Tony]

depends on the quality of the image. Bitmaps are lossless, but JPEGs are often compressed. If the compression results in artifacts on the background area, there will be pixels that don't render white, so those will not merge properly.

you could turn compression off though, when saving the image.