[Derbeder]

image dosyası Picture : https://www.dosyaupload.com/77ky

on init 
  make_perfview
  set_ui_height_px(150)
  set_ui_color(90009970)
  declare BTN_WIDTH := 20  
  declare BTN_HEIGHT := 20 
  declare const BTN_NUMBER := 5
  
  declare SPECTRUM_FRAMES := 30 
  declare SPECTRUM_WIDTH := 130 
  declare SPECTRUM_HEIGHT := 40 
  declare SPECTRUM_POS_X := 150  
  declare SPECTRUM_POS_Y := 50    

 declare %btn_id[BTN_NUMBER] 
 declare Spectrumsprite

declare_button(0,A1b,128,49,BTN_WIDTH,BTN_HEIGHT)
declare_button(1,A2b,128,70,BTN_WIDTH,BTN_HEIGHT)
declare_button(2,B1b,270,49,BTN_WIDTH,BTN_HEIGHT)
declare_button(3,B2b,270,70,BTN_WIDTH,BTN_HEIGHT)
declare_button(4,audi,149,91,130,20)

 declare ui_slider slider(0,SPECTRUM_FRAMES)
 slider -> text := ""
 slider -> width := SPECTRUM_WIDTH
 slider -> height := SPECTRUM_HEIGHT
 slider -> pos_y := SPECTRUM_POS_Y
 slider -> pos_x := SPECTRUM_POS_X
 slider -> picture := "meter" 

end on

on_ui_control_button(0,MeterA1)
on_ui_control_button(1,MeterA2)
on_ui_control_button(2,MeterB1)
on_ui_control_button(3,MeterB2)
on_ui_control_button(4,meter)

macro declare_button(#idx#,#picture#,#posx#,#posy#,#x#,#y#)
  declare ui_switch $bt_#idx#
  %btn_id[#idx#] := get_ui_id($bt_#idx#)
  $bt_#idx# -> width := #x#
  $bt_#idx# -> height := #y#
  $bt_#idx# -> picture := "#picture#"    
  $bt_#idx# -> text := ""
  $bt_#idx# -> pos_x := #posx#
  $bt_#idx# -> pos_y := #posy# 
  Spectrumsprite := get_ui_id($bt_#idx#)  
  make_persistent($bt_#idx#)
  read_persistent_var($bt_#idx#)
end macro
macro on_ui_control_button(#idx#,#spectrumresim#)
    on ui_control($bt_#idx#)
        switch_spectrum(get_ui_id($bt_#idx#))
        slider -> picture := "#spectrumresim#"      
    end on    
end macro
function switch_spectrum(spectrum_id)
	declare $i 
	for $i := 0 to num_elements (%btn_id) -1
		if (%btn_id[$i] # spectrum_id)
		   %btn_id[$i] -> VALUE := 0  
		end if		
	end for		
end function
on note
slider := $EVENT_VELOCITY
end on
on release
if(search(%KEY_DOWN,1)=-1)
while(slider>0)
slider:=slider-1
inc(Spectrumsprite)
wait(85000)
end while
end if
end on