Quantcast
Jump to content
Search In
  • More options...
Find results that contain...
Find results in...
    1. Welcome to GTAForums!

    1. GTANet.com

    1. GTA Online

      1. The Cayo Perico Heist
      2. Find Lobbies & Players
      3. Guides & Strategies
      4. Vehicles
      5. Content Creator
      6. Help & Support
    2. Red Dead Online

      1. Frontier Pursuits
      2. Find Lobbies & Outlaws
      3. Help & Support
    3. Crews

    1. Red Dead Redemption 2

      1. PC
      2. Help & Support
    2. Red Dead Redemption

    1. Grand Theft Auto Series

    2. GTA VI

      1. St. Andrews Cathedral
    3. GTA V

      1. Guides & Strategies
      2. Help & Support
    4. GTA IV

      1. The Lost and Damned
      2. The Ballad of Gay Tony
      3. Guides & Strategies
      4. Help & Support
    5. GTA San Andreas

      1. Guides & Strategies
      2. Help & Support
    6. GTA Vice City

      1. Guides & Strategies
      2. Help & Support
    7. GTA III

      1. Guides & Strategies
      2. Help & Support
    8. Portable Games

      1. GTA Chinatown Wars
      2. GTA Vice City Stories
      3. GTA Liberty City Stories
    9. Top-Down Games

      1. GTA Advance
      2. GTA 2
      3. GTA
    1. GTA Mods

      1. GTA V
      2. GTA IV
      3. GTA III, VC & SA
      4. Tutorials
    2. Red Dead Mods

      1. Documentation
    3. Mod Showroom

      1. Scripts & Plugins
      2. Maps
      3. Total Conversions
      4. Vehicles
      5. Textures
      6. Characters
      7. Tools
      8. Other
      9. Workshop
    4. Featured Mods

      1. Design Your Own Mission
      2. OpenIV
      3. GTA: Underground
      4. GTA: Liberty City
      5. GTA: State of Liberty
    1. Rockstar Games

    2. Rockstar Collectors

    1. Off-Topic

      1. General Chat
      2. Gaming
      3. Technology
      4. Movies & TV
      5. Music
      6. Sports
      7. Vehicles
    2. Expression

      1. Graphics / Visual Arts
      2. GFX Requests & Tutorials
      3. Writers' Discussion
      4. Debates & Discussion
    3. Gangs

    1. Announcements

    2. Support

    3. Suggestions

Cleo Android San Fierro Dispensery and Smoke with group


BrainDeadRaven

Recommended Posts

BrainDeadRaven
// 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

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

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • 1 User Currently Viewing
    0 members, 0 Anonymous, 1 Guest

×
×
  • Create New...

Important Information

By using GTAForums.com, you agree to our Terms of Use and Privacy Policy.