Shooting game ---> cursor not disappearing

[GrimGreg]

okay, i have a problem, i cant get the cursor to move without leaving a big long trail of white behind it. it moves fine with the mouse, but it doesnt erase the old picture behind it when i move. know what i mean? lol

anyways here it is in code...

[CODE]


import GUI
setscreen ( "graphics:1010;660")
var bush:int
var bullet:int
var picid:int
var crosshairs:int
var ballx, bally : int := 200
picid := Pic.FileNew ("gearsback.jpg")
bullet := Pic.FileNew ("ammo.jpg")
crosshairs := Pic.FileNew ("crosshairs.bmp")
var backgroundPictureWidth : int
backgroundPictureWidth := Pic.Width (picid)
var backgroundPictureHeight: int
backgroundPictureHeight := Pic.Height (picid)
var backgroundPictureX : int
backgroundPictureX:= (backgroundPictureWidth - (maxx + 1)) div 2
var backgroundPictureY: int
backgroundPictureY:= (backgroundPictureHeight - (maxy + 1)) div 2
var bushwid, bushtall:int
var bulletwid, bullettall:int
bush := Pic.FileNew ("bush.jpg")
bushwid := Pic.Width (bush)
bushtall:=Pic.Height (bush)
bulletwid := Pic.Width (bullet)
bullettall := Pic.Height (bullet)

process bond
Music.PlayFile ("Bond.mp3")
end bond
procedure shot
Music.PlayFile ("gunshot.wav")
end shot

procedure glass
Music.PlayFile ("glass.wav")
end glass

procedure comeon
Music.PlayFile ("comeon.wav")
end comeon

var x, y : int
x:=555
y:=330

var font1, font2, font3, font4 : int
font1 := Font.New ("serif:12")
font2 := Font.New ("sans serif:18:bold")
font3 := Font.New ("mono:9")
font4 := Font.New ("Palatino:24:Bold,Italic")
assert font1 > 0 and font2 > 0 and font3 > 0 and font4 > 0


process trogdor
Music.PlayFile ("Trogdor.mp3")
end trogdor
%Procedure of Trogdor Music

procedure game
Music.PlayFileStop
fork bond
cls
var x, y, b : int
Pic.Draw (picid, -backgroundPictureX, -backgroundPictureY, picUnderMerge)
loop
setscreen ("offscreenonly")
View.Update

drawfillbox (830, 0, 1010, 300, black)
Pic.Draw (bullet, bulletwid, bullettall, picMerge)
mousewhere (x, y, b)
if b = 0 then
else
shot
end if
Pic.Draw (crosshairs, ballx, bally, picMerge)
if b = 0 and y > bally then
bally := bally + 20
end if
if b = 0 and y < bally then
bally := bally - 20
end if
if b = 0 and x > ballx then
ballx := ballx + 20
end if
if b = 0 and x < ballx then
ballx := ballx - 20
end if
end loop

end game

procedure controls
Font.Draw ("Use the mouse to move the cursor around the screen", x-300, y+50, font2, black)
Font.Draw ("Click to shoot a bush", x-200, y, font2, black)
end controls
fork trogdor
Font.Draw ("WHACK-A-BUSH", x-135, y+200, font2, red)
var button1:int:=GUI.CreateButton(x-80,y-100,0,"Controls",controls)
var button2:int:=GUI.CreateButton(x-75,y-75,0,"Start!", game)
Pic.Draw (bush, bushwid, bushtall, picMerge)

loop
exit when GUI.ProcessEvent
end loop


[CODE]




thanks guys