New Particle Engine for BlitzMax

To do the updating sliders you need to use eventhooks.

Example ripped from something I did a while back:

AddHook EmitEventHook,OnEmitEvent

...

Function OnEmitEvent:Object( id,data:Object,context:Object )
  Local event:TEvent=TEvent(data)
  If event HandleEvent(event)
  Return data
End Function

Function HandleEvent( event:TEvent )
  Select event.id
		Case EVENT_GADGETACTION
			If event.source=sldTileBase Then 
				If tilebase<>event.data Then 
					ShowTiles()
					tilebase=event.data*10
				EndIf			
			EndIf
  End Select
End Function