| Derbeder |
06-12-2019 12:00 |
Ksp Scripting (Sublime ) - Audio Spectrum (Animation)
image dosyası Picture : https://www.dosyaupload.com/77ky
Kod:
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
|
