_=Gigant=_
Well-known member
- Joined
- Mar 21, 2017
- Messages
- 353
- Reaction score
- 16
well that famous harlem shake dance is all over internet so i decided to create it for gta sa because why not
simple to start harlem shake type /hmshake as cmd and your player actor will do everything you just sit and watch xD theres music file HarlemShake which will play when you activate mod if you cant hear it make sure your radio volume is turned on in gta sa settings :3
for installation put all into your cleo folder this is tested on 0.3.7 R1 with sampfuncs 5.3.3 and cleo 4.3 and it works fine
also thanks to @monday
[attachment=5329]
source if someone wants to edit it and add more stuff :3
simple to start harlem shake type /hmshake as cmd and your player actor will do everything you just sit and watch xD theres music file HarlemShake which will play when you activate mod if you cant hear it make sure your radio volume is turned on in gta sa settings :3
for installation put all into your cleo folder this is tested on 0.3.7 R1 with sampfuncs 5.3.3 and cleo 4.3 and it works fine
also thanks to @monday
[attachment=5329]
source if someone wants to edit it and add more stuff :3
Code:
{$CLEO .cs}
0000:
repeat
wait 50
until 0AFA: is_samp_structures_available
chatmsg "{FFFFFF}type {F0F0FF}/hmshake {FFFFFF}to do Harlem Shake"
chatmsg "{FFFFFF}Harlem Shake Mod by _=Gigant&Monday"
0B34: samp register_client_command "hmshake" to_label @HarlemShake
while true
wait 0
if 31@ == true
then
31@ = false
0AAE: release_mp3 $HarlemShake
0AAC: $HarlemShake = load_audiostream "cleo\HarlemShake\HarlemShake.MP3"
0ABC: set_audiostream $HarlemShake volume 1.0
0AAD: set_mp3 $HarlemShake perform_action 1 //0=stop, 1=play, 2=pause, 3=resume
Actor.Driving($PLAYER_ACTOR)
Player.CanMove($PLAYER_CHAR) = True
0605: actor $PLAYER_ACTOR perform_animation "dnce_M_a" IFP "DANCING" ramedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time -1
wait 15150
printf "DO THE HARLEM SHAKE" 2000
Actor.Driving($PLAYER_ACTOR)
0812: AS_actor $PLAYER_ACTOR perform_animation "PARA_RIP_LOOP_O" IFP "PARACHUTE" framedelta 4.0 loopA 1 lockX 0 lockY 0 lockF 0 time -1
Player.CanMove($PLAYER_ACTOR) = True
068E: get_camera_target_point_to 1@ 2@ 3@
Actor.StorePos($PLAYER_ACTOR, 11@, 12@, 13@)
0063: 11@ -= 1@ // (float)
0063: 12@ -= 2@ // (float)
0604: get_z_angle_for_point 11@ 12@ store_to 4@
Actor.Angle($PLAYER_ACTOR) = 4@
end
end
:HarlemShake
31@ = true
samp.CmdRet()