help!!

Graphics 1024,768,32,1
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Type bottle_rocket
	Field x,y
	Field vx,vy
	Field hp
End Type

Type stream
	Field x,y
	Field vx,vy
	Field gx,gy
End Type

Type dot
	Field x,y
	Field vx,vy
	Field gx,gy
	Field twitch
	Field r,g,b
	Field rlimit,glimit,blimit
	Field fade
	Field fade_rate
	Field default_color
	Field hp
End Type

Type liner
	Field x1,y1
	Field x2,y2
	Field r,g,b
End Type

slowrate=100
truecls = True
froztxt$ = "no"
scrolly = 768
While Not KeyDown(1)	;MAIN LOOP;
		makecursor()
		updatedots()
		If KeyDown(3) Then create_sparkler()
		create_bottlerocket(); i didnt make this one yet
		If KeyDown(4) Then linemaker(prevmousex,prevmousey)
		prevmousex = MouseX()
		prevmousey = MouseY()
		updateline()
		screenshot()
		displayinfo()
		If KeyHit(2) Then freeze_particles()
	Flip
	If truecls = 1 Then Cls
Wend


Function makecursor()
	dot.dot = New dot
		dot\x = MouseX()
		dot\y = MouseY()
		dot\r = Rand(230,255)
		dot\g = Rand(230,255)
		dot\b = Rand(230,255)
		dot\hp = 0
		dot\fade = 2
End Function

Function create_sparkler()
For number_of_particles = 1 To 3
	dot.dot = New dot
		dot\x = MouseX()
		dot\y = MouseY()
		dot\r = Rand(240,255)
		dot\g = Rand(240,255)
		dot\b = Rand(50,80)
		dot\blimit = 2
		dot\hp = 0
		dot\vx = Rand(-7,7)
		dot\vy = Rand(-6,6)
		dot\gy = 1
		dot\gx = MouseXSpeed/3
		dot\fade = 5
		dot\twitch = 1
Next
number_of_particles = 0
End Function


Function create_bottlerocket()

End Function

Function updatedots()
	For dot.dot = Each dot

			Select dot\default_color
				Case 0
					Color dot\r,dot\g,dot\b ;this draws the dot with its assigned color
				Case 1
					Color dot\r,dot\r,dot\r	;this draws the dot to the grey scale
				Case 2
					
			End Select
		Plot dot\x,dot\y
			dot\x = dot\x + dot\vx 
			dot\y = dot\y + dot\vy
			dot\vx = dot\vx + dot\gx
			dot\vy = dot\vy + dot\gy
			
			If dot\twitch > 0 Then
				dot\x = dot\x + Rand(-dot\twitch,dot\twitch)
				dot\y = dot\y + Rand(-dot\twitch,dot\twitch)
			EndIf
		If freeze = 0
			If dot\r > dot\rlimit Then dot\r=dot\r- Rand(dot\fade,dot\fade*1.2)
			If dot\g > dot\glimit Then dot\g=dot\g- Rand(dot\fade,dot\fade*1.2)
			If dot\b > dot\blimit Then dot\b=dot\b- Rand(dot\fade,dot\fade*1.2)
		EndIf
			If dot\r < 0 Or dot\g < 0 Or dot\b < 0 Then
			Delete dot
			EndIf 
	Next
End Function


Function screenshot()
	If KeyHit(183)
		If FileType("images") <> 2 Then CreateDir("images")
		.check_if_file_exist
		If FileType("screenshot"+screenshot_count+".bmp" <> 0 )Then
			screenshot_count=screenshot_count+1
			Goto check_if_file_exist
		EndIf
		SaveBuffer(BackBuffer(),"images\screenshot"+screenshot_count+".bmp")
	EndIf
End Function

Function displayinfo()
	If KeyHit(59) Then
		Select scrolldirection
			Case 0
				scrolldirection = 1
			Case 1
				scrolldirection = 0
		End Select
	EndIf
		Select scrolldirection
			Case 0
				If scrolly < GraphicsHeight()-20 Then scrolly = scrolly - 2				
			Case 1
				If scrolly > GraphicsHeight() Then scrolly = scrolly + 2
		End Select
		Color 255,255,255
	Text 512,scrolly,"frozen: "+froztxt$+" mouse corridnates: "+MouseX()+" , "+MouseY(),1,0
End Function

Function freeze_particles()
	Select freeze
		Case 0
			freeze = 1
			froztxt$ = "yes"
		Case 1
			freeze = 0
			froztxt$ = "no"
	End Select
	Return freeze
End Function

Function linemaker(prevmousex,prevmousey)
	liner.liner = New liner
		liner\x1 = MouseX()
		liner\y1 = MouseY()
		liner\x2 = prevmousex
		liner\y2 = prevmousey
		liner\r = Rand(245,255)
		liner\g = Rand(245,255)
		liner\b = Rand(60,70)
End Function

Function updateline()
	For liner.liner = Each liner
		Color liner\r,liner\g,liner\b
		Line(liner\x1,liner\y1,liner\x2,liner\y2)
			liner\r = liner\r - Rand(1,2)
			liner\g = liner\g - Rand(2,3)
			If liner\b > 1 Then liner\b = liner\b - Rand(0,1)
			
		If liner\r < 0 Or liner\g < 0 Then
			Delete liner
		EndIf
	Next
End Function