[SNIPPET] MAKE_BEEP

With this function you can create beeps with frequency.

//0AB1: @MAKE_BEEP 2 FREQUENCY 0x25 TIME 1000
:MAKE_BEEP
IF
0AA2: 31@ = load_library "kernel32.dll"
THEN
    IF
    0AA4: 30@ = get_proc_address "Beep" library 31@
    THEN
        0AA5: _CALL_ 30@ num_params 2 pop 0 1@ 0@
    END
    0AA3: free_library 31@
END
0AB2: 0

 

[SilverPortal]

Re: MAKE_BEEP

Can you add

[move]beep bloop beep beep boop boobbyp pypy pleeep pooop pbooob bopy bleep boom boop[/move]

 

[monday]

Re: MAKE_BEEP

That's awesome, too bad it lags the game when the sound is playing.

{$CLEO .cs}
0000: NOP 


:Power_rangers
wait 0
if and
key_down 49 //key 1
key_down 50 //key 2
then
0AB1: @MAKE_BEEP 2 FREQUENCY 0x440 TIME 400
wait 100
0AB1: @MAKE_BEEP 2 FREQUENCY 0x440 TIME 400
wait 100
0AB1: @MAKE_BEEP 2 FREQUENCY 0x392 TIME 150
wait 100
0AB1: @MAKE_BEEP 2 FREQUENCY 0x440 TIME 400
wait 350
0AB1: @MAKE_BEEP 2 FREQUENCY 0x523 TIME 400
wait 100
0AB1: @MAKE_BEEP 2 FREQUENCY 0x440 TIME 400
wait 100
end
jump @Power_rangers

//0AB1: @MAKE_BEEP 2 FREQUENCY 0x25 TIME 1000
:MAKE_BEEP
IF
0AA2: 31@ = load_library "kernel32.dll"
THEN
    IF
    0AA4: 30@ = get_proc_address "Beep" library 31@
    THEN
        0AA5: _CALL_ 30@ num_params 2 pop 0 1@ 0@
    END
    0AA3: free_library 31@
END
0AB2: 0