BrainDeadRaven 106 Posted January 18 Share Posted January 18 // This file was decompiled using SASCM.ini published on 2020-11-11 {$CLEO .csa} /// Adds blunt smoking functionality /// Includes inventory system and a dispensary (San Fierro SubUrban) /// Will pass blunt to up to 4 members of your group script_name "WEED" :WEED_1 [email protected] = 10 //number of blunts [email protected] = 0 //toggle [email protected] = 0 //to turn off intro dispensary message after the first trigger :WEED_2 wait 0 if and 00E1: player 0 pressed_key 5 00E1: player 0 pressed_key 8 jf @WEED_3 jump @WEED_10 :WEED_3 //Dispensary wait 0 if 00FF: actor $PLAYER_ACTOR 0 (in-sphere)near_point_on_foot 203.77 -48.49 1001.80 radius 2.0 2.0 2.0 jf @WEED_4 wait 0 if: [email protected] == 0 jf @WEED_4 [email protected] += 1 03E5: show_text_box 'WEED_00' wait 2000 :WEED_4 //Dispensary Counter wait 100 if 00FF: actor $PLAYER_ACTOR 0 (in-sphere)near_point_on_foot 203.90 -43.40 1001.80 radius 1.0 1.0 1.0 jf @WEED_6 03E5: show_text_box 'WEED_01' // ~s~$100 for 10 ~g~X~s~ to buy. wait 2000 if 00E1: player 0 pressed_key 16 jf @WEED_4 if [email protected] > 13 jf @WEED_5 03E5: show_text_box 'WEED_02' //Your maxed out, Stoner! wait 2000 jump @WEED_4 :WEED_5 [email protected] += 1 Player.Money($PLAYER_CHAR) += -10 jump @WEED_20 :WEED_6 // To check inventory wait 0 if and 00E1: player 0 pressed_key 5 00E1: player 0 pressed_key 11 jf @WEED_2 jump @WEED_20 :WEED_10 if [email protected] < 1 jf @WEED_11 03E5: show_text_box 'WEED_05' //~s~sh*t! Your out of ~g~weed~s~! wait 3000 03E5: show_text_box 'WEED_06' //~s~Buy more at the ~g~SubUrban~s~ dispensery. wait 3000 jump @WEED_2 :WEED_11 [email protected] += -1 [email protected] = 1 jump @WEED_20 :WEED_110 [email protected] = 0 04ED: load_animation "SMOKING" Model.Load(3044) 038B: load_requested_models Object.Init([email protected], 3044, 0.0, 0.0, 0.0) 01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0 070A: AS_actor $PLAYER_ACTOR attach_to_object [email protected] offset 0.04 0.1 0.05 on_bone 6 16 perform_animation "NULL" IFP_file "NULL" time -1 0669: [email protected] = attach_particle "EXHALE" to_actor $PLAYER_ACTOR with_offset 0.05 0.0 -0.05 type 2 0883: attach_particle [email protected] to_actor $PLAYER_ACTOR mode 5 wait 1000 0605: actor $PLAYER_ACTOR perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 2000 05C1: AS_actor $PLAYER_ACTOR speak_from_audio_table 340 064C: make_particle [email protected] visible wait 3000 0605: actor $PLAYER_ACTOR perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible 05C1: AS_actor $PLAYER_ACTOR speak_from_audio_table 107 0605: actor $PLAYER_ACTOR perform_animation "M_SMK_TAP" IFP "SMOKING" framedelta 4.0 loop 0 lockX 0 lockY 0 lockF 0 time 2500 wait 2500 [email protected] = Actor.Health($PLAYER_ACTOR) [email protected] += 100 wait 3000 03BF: set_player $PLAYER_CHAR ignored_by_everyone 1 01B9: set_actor $PLAYER_ACTOR armed_weapon_to 0 wait 1000 Player.SetDrunkVisuals($PLAYER_CHAR, 100) 0650: destroy_particle [email protected] 0669: [email protected] = attach_particle "EXHALE" to_actor $PLAYER_ACTOR with_offset 0.0 0.15 0.0 type 2 0883: attach_particle [email protected] to_actor $PLAYER_ACTOR mode 5 064C: make_particle [email protected] visible 0687: clear_actor $PLAYER_ACTOR task 04EB: AS_actor $PLAYER_ACTOR crouch 0 03BF: set_player $PLAYER_CHAR ignored_by_everyone 0 092B: [email protected] = group $PLAYER_GROUP member 0 if 056D: actor [email protected] defined jf @WEED_15 05C1: AS_actor [email protected] speak_from_audio_table 121 070A: AS_actor [email protected] attach_to_object [email protected] offset 0.04 0.1 0.05 on_bone 6 16 perform_animation "NULL" IFP_file "NULL" time 12000 0669: [email protected] = attach_particle "EXHALE" to_actor [email protected] with_offset 0.05 0.0 -0.05 type 2 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 05C1: AS_actor [email protected] speak_from_audio_table 32 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 Object.Destroy([email protected]) 0650: destroy_particle [email protected] 092B: [email protected] = group $PLAYER_GROUP member 1 if 056D: actor [email protected] defined jf @WEED_15 05C1: AS_actor [email protected] speak_from_audio_table 121 070A: AS_actor [email protected] attach_to_object [email protected] offset 0.04 0.1 0.05 on_bone 6 16 perform_animation "NULL" IFP_file "NULL" time 12000 0669: [email protected] = attach_particle "EXHALE" to_actor [email protected] with_offset 0.05 0.0 -0.05 type 2 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 05C1: AS_actor [email protected] speak_from_audio_table 32 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 Object.Destroy([email protected]) 0650: destroy_particle [email protected] 092B: [email protected] = group $PLAYER_GROUP member 2 if 056D: actor [email protected] defined jf @WEED_15 05C1: AS_actor [email protected] speak_from_audio_table 121 070A: AS_actor [email protected] attach_to_object [email protected] offset 0.04 0.1 0.05 on_bone 6 16 perform_animation "NULL" IFP_file "NULL" time 12000 0669: [email protected] = attach_particle "EXHALE" to_actor [email protected] with_offset 0.05 0.0 -0.05 type 2 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 05C1: AS_actor [email protected] speak_from_audio_table 32 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 Object.Destroy([email protected]) 0650: destroy_particle [email protected] 092B: [email protected] = group $PLAYER_GROUP member 3 if 056D: actor [email protected] defined jf @WEED_15 05C1: AS_actor [email protected] speak_from_audio_table 121 070A: AS_actor [email protected] attach_to_object [email protected] offset 0.04 0.1 0.05 on_bone 6 16 perform_animation "NULL" IFP_file "NULL" time 12000 0669: [email protected] = attach_particle "EXHALE" to_actor [email protected] with_offset 0.05 0.0 -0.05 type 2 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 05C1: AS_actor [email protected] speak_from_audio_table 32 0605: actor [email protected] perform_animation "M_SMK_DRAG" IFP "SMOKING" framedelta 4.0 loop 1 lockX 0 lockY 0 lockF 0 time 3000 wait 3000 064C: make_particle [email protected] visible wait 3000 Object.Destroy([email protected]) 0650: destroy_particle [email protected] wait 1000 if and 00E1: player 0 pressed_key 5 00E1: player 0 pressed_key 8 jf @WEED_15 jump @WEED_10 :WEED_15 wait 20000 Player.SetDrunkVisuals($PLAYER_CHAR, 0) jump @WEED_2 :WEED_20 wait 0 if [email protected] == 0 jf @WEED_21 01E5: show_text_1number_highpriority GXT 'WEED_35' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_21 wait 0 if [email protected] == 1 jf @WEED_22 01E5: show_text_1number_highpriority GXT 'WEED_07' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_22 wait 0 if [email protected] == 2 jf @WEED_23 01E5: show_text_1number_highpriority GXT 'WEED_08' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_23 wait 0 if [email protected] == 3 jf @WEED_24 01E5: show_text_1number_highpriority GXT 'WEED_09' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_24 wait 0 if [email protected] == 4 jf @WEED_25 01E5: show_text_1number_highpriority GXT 'WEED_10' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_25 wait 0 if [email protected] == 5 jf @WEED_26 01E5: show_text_1number_highpriority GXT 'WEED_11' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_26 wait 0 if [email protected] == 6 jf @WEED_27 01E5: show_text_1number_highpriority GXT 'WEED_12' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_27 wait 0 if [email protected] == 7 jf @WEED_28 01E5: show_text_1number_highpriority GXT 'WEED_13' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_28 wait 0 if [email protected] == 8 jf @WEED_29 01E5: show_text_1number_highpriority GXT 'WEED_14' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_29 wait 0 if [email protected] == 9 jf @WEED_30 01E5: show_text_1number_highpriority GXT 'WEED_15' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_30 wait 0 if [email protected] == 10 jf @WEED_31 01E5: show_text_1number_highpriority GXT 'WEED_16' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_31 wait 0 if [email protected] == 11 jf @WEED_32 01E5: show_text_1number_highpriority GXT 'WEED_17' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_32 wait 0 if [email protected] == 12 jf @WEED_33 01E5: show_text_1number_highpriority GXT 'WEED_18' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_33 wait 0 if [email protected] == 13 jf @WEED_34 01E5: show_text_1number_highpriority GXT 'WEED_19' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_34 wait 0 if [email protected] == 14 jf @WEED_2 01E5: show_text_1number_highpriority GXT 'WEED_20' number [email protected] time 2000 flag 1 jump @WEED_2A :WEED_35 :WEED_2A if [email protected] > 0 jf @WEED_2 jump @WEED_110 This is my 'hello' post, Mostly I've been working on post-main storyline missions with Wuzi, Caesar and Truth, This was a simple one I threw together. I've left on there since. LMB and Dpad UP to smoke, you can hold up to 14 1gm prerolls, you start off with 10, and their $10 a pop and Suburban in San Fierro. If someone (up to 4) are in his group, he'll pass after 2 puffs, and they'll pass it to the next. Includes drunk effects after your second hit. Link to post Share on other sites
BrainDeadRaven 106 Posted January 18 Author Share Posted January 18 hangout.fxt // GXT WEED_00 ~s~They sell ~g~1gm prerolls~s~. WEED_01 ~s~$10 for 1 ~g~X~s~ to buy. WEED_02 Your maxed out, Stoner! WEED_03 ~s~Press L1 and Up arrow to smoke a ~g~blunt~s~. WEED_04 You can smoke with people in your group. WEED_05 ~s~sh*t! Your out of ~g~weed~s~! WEED_06 ~s~Buy more at the ~g~SubUrban~s~ dispensery. WEED_07 Blunts: 1 WEED_08 Blunts: 2 WEED_09 Blunts: 3 WEED_10 Blunts: 4 WEED_11 Blunts: 5 WEED_12 Blunts: 6 WEED_13 Blunts: 7 WEED_14 Blunts: 8 WEED_15 Blunts: 9 WEED_16 Blunts: 10 WEED_17 Blunts: 11 WEED_18 Blunts: 12 WEED_19 Blunts: 13 WEED_20 Blunts: 14 WEED_21 Blunts: 15 WEED_22 Blunts: 16 WEED_23 Blunts: 17 WEED_24 Blunts: 18 WEED_25 Blunts: 19 WEED_26 Blunts: 20 WEED_27 Blunts: 21 WEED_28 Blunts: 22 WEED_29 Blunts: 23 WEED_30 Blunts: 24 WEED_31 Blunts: 25 WEED_32 Blunts: 26 WEED_33 Blunts: 27 WEED_34 Blunts: 28 WEED_35 Blunts: 0 // END GXT Link to post Share on other sites
