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

    1. Red Dead Redemption 2

      1. Gameplay
      2. Missions
      3. Help & Support
    2. Red Dead Online

      1. Gameplay
      2. Find Lobbies & Outlaws
      3. Help & Support
    1. Crews & Posses

      1. Recruitment
    2. Events

    1. GTA Online

      1. Arena War
      2. After Hours
      3. Find Lobbies & Players
      4. Guides & Strategies
      5. Vehicles
      6. Content Creator
      7. Help & Support
    2. Grand Theft Auto Series

    3. GTA Next

    4. GTA V

      1. PC
      2. Guides & Strategies
      3. Help & Support
    5. GTA IV

      1. Episodes from Liberty City
      2. Multiplayer
      3. Guides & Strategies
      4. Help & Support
      5. GTA Mods
    6. GTA Chinatown Wars

    7. GTA Vice City Stories

    8. GTA Liberty City Stories

    9. GTA San Andreas

      1. Guides & Strategies
      2. Help & Support
      3. GTA Mods
    10. GTA Vice City

      1. Guides & Strategies
      2. Help & Support
      3. GTA Mods
    11. GTA III

      1. Guides & Strategies
      2. Help & Support
      3. GTA Mods
    12. Top Down Games

      1. GTA Advance
      2. GTA 2
      3. GTA
    13. Wiki

      1. Merchandising
    1. GTA Modding

      1. GTA V
      2. GTA IV
      3. GTA III, VC & SA
      4. Tutorials
    2. Mod Showroom

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

      1. DYOM
      2. OpenIV
      3. GTA: Underground
      4. GTA: Liberty City
      5. GTA: State of Liberty
    1. Red Dead Redemption

    2. Rockstar Games

    1. Off-Topic

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

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

    2. Forum Support

    3. Site Suggestions

Kucing.Bertelur

CLEO Mod menu like in GTA V

Recommended Posts

Kucing.Bertelur

{$CLEO .csi}
     jump @Const
     0000:
     :_ZN15CTouchInterface14m_vecCachedPosE 
     hex
       "_ZN15CTouchInterface14m_vecCachedPosE" 00
     end          
     :_Z18OS_ScreenGetInchesv
     hex
       "_Z18OS_ScreenGetInchesv" 00
     end          
     :_Z17OS_ScreenGetWidthv
     hex
       "_Z17OS_ScreenGetWidthv" 00
     end
     :_Z18OS_ScreenGetHeightv 
     hex
       "_Z18OS_ScreenGetHeightv" 00        
     end               
         :Const
            const
               0GetAddr            =  [email protected]
               PositionBix_X       =  [email protected]
               PositionBix_Y       =  [email protected]
               SizeBox_X           =  [email protected]
               SizeBox_Y           =  [email protected]
               GetSCRWidth_        =  [email protected]
               GetSCRHeight_       =  [email protected]
            end
     :Menu
     while true
     wait 0
     gosub @Mutex
     gosub @BOX
     gosub @Text_DrawSCR
        if 0043:   [email protected] == 5.0
        then
         //   jump @Spawn
        end
        if 0043:   [email protected] == 6.0
        then
          // jump @codePerintah1
        end
        if 0043:   [email protected] == 7.0
        then
         //  jump @codePerintah2
        end
        if 0043:   [email protected] == 8.0
        then
        //   jump @codePerintah3
        end 
        :End
        0DDD: [email protected] = get_mutex_var 0x51
        if [email protected] == 0
        jf @Menu
        0DDC: set_mutex_var 0 to 0
        0792: disembark_instantly_actor $3
        Camera.Restore_WithJumpCut()
        camera.Restore()
        end_Thread
        
                
     :TouchScreen
     0DD0: [email protected] = get_label_addr @_Z17OS_ScreenGetWidthv
     0DD1: [email protected] = get_func_addr_by_cstr_name [email protected]
     0DD2: context_call_func [email protected]
     0DD4: [email protected] = context_get_reg 0
     0093: int_to_float+ [email protected] [email protected]
     0087: [email protected] = [email protected] // (float) 
     0073: [email protected] /= [email protected] // (float) 
     0DD0: [email protected] = get_label_addr @_ZN15CTouchInterface14m_vecCachedPosE
     0DD1: [email protected] = get_func_addr_by_cstr_name [email protected]
     0DD8: [email protected] = read_mem_addr [email protected] size 4 fix_ib 0
     [email protected] /= 2.3
     006B: [email protected] *= [email protected] // (float)
     if and
        0031:   [email protected] >= 117.0 
        0033:   330.0 >= [email protected] 
     then 
     [email protected] += 4
     0DD8: [email protected] = read_mem_addr [email protected] size 4 fix_ib 0 
     end
     Return
     :Text_DrawSCR     
      gosub @Text 
      033E: set_draw_text_position [email protected] 137.0 GXT "ITEM0"  // Push
      gosub @Text
      033E: set_draw_text_position [email protected] 176.0 GXT "ITEM1"  // Push
      gosub @Text
      033E: set_draw_text_position [email protected] 219.0 GXT "ITEM2"  // Push
      gosub @Text
      033E: set_draw_text_position [email protected] 262.0 GXT "ITEM3"  // Push
     return
     
     :Text
      03F0: enable_text_draw 1 
      0342: set_text_draw_centered 1 
      0343: set_text_draw_linewidth 640.0 
      033F: set_text_draw_letter_size 3.3 2.0
      return
      :Mutex
      if not actor.Dead($3)
     then
     0DDC: set_mutex_var 0 to 1
     0159: camera_on_ped $3 mode 4 switchstyle 1 
     0812: AS_actor $3 perform_animation "IDLE_HBHB" IFP "PED"  1.0 0 0 0 1 time -1 
     end
     Return
     
     :BOX
     if not actor.Driving($3)
     then
     0DD0: [email protected] = get_label_addr @_Z18OS_ScreenGetInchesv
     0DD1: [email protected] = get_func_addr_by_cstr_name [email protected]
     0DD0: [email protected] = get_label_addr @_Z17OS_ScreenGetWidthv
     0DD1: [email protected] = get_func_addr_by_cstr_name [email protected]
     0DD0: [email protected] = get_label_addr @_Z18OS_ScreenGetHeightv
     0DD1: [email protected] = get_func_addr_by_cstr_name [email protected]
     end
     0DD2: context_call_func [email protected]
     0DD4: [email protected] = context_get_reg 0
     0DD2: context_call_func [email protected]
     0DD4: [email protected] = context_get_reg 0
     0DD2: context_call_func [email protected]
     0DD4: [email protected] = context_get_reg 0          
     0093: int_to_float+ [email protected] [email protected]
     0093: int_to_float+ [email protected] [email protected]
     0087: [email protected] = [email protected] // (float) 
     0087: [email protected] = [email protected] // (float) 
     [email protected] = 640.0        // ScreenX
     [email protected] = 448.0
     0073: [email protected] /= [email protected] // (float)  
     [email protected] += 220.0
     0073: [email protected] /= [email protected] // (float)
     [email protected] += 87.0
     [email protected]  *= 85.0 
     038E: draw_box_position [email protected] [email protected] size [email protected] 60.0 RGBA 0 0 0 255
     [email protected] += 140.0
     038E: draw_box_position [email protected] [email protected] size [email protected] 219.0 RGBA 0 0 0 100  
     [email protected] -= 150.0
     [email protected] -= 79.0
     03F0: enable_text_draw 1 
     0343: set_text_draw_linewidth 640.0 
     0341: set_text_draw_align_justify 0 
     0349: set_text_draw_font 3
     033F: set_text_draw_letter_size 2.3 2.55 
     0340: set_text_draw_RGBA 180 180 180 255
     0345: enable_text_draw_background 0  
     033E: set_draw_text_position [email protected] [email protected] GXT "WMA" 
     0DD0: [email protected] = get_label_addr @_ZN15CTouchInterface14m_vecCachedPosE
     0DD1: [email protected] = get_func_addr_by_cstr_name [email protected]          
     Gosub @TouchScreen
     0087: [email protected] = [email protected] // (float) 
     0092: float_to_int+ [email protected] [email protected]
     [email protected] /= 40   
     0093: int_to_float+ [email protected] [email protected]
     if  0033:   5.0 >= [email protected] 
     then   
     [email protected] = 5.0
     end  
     if 0031:   [email protected] >= 8.0 
     then
     [email protected] = 8.0
     end 
     if 0043:   [email protected] == 5.0
     then
     [email protected] = 137.0
     end 
     if 0043:   [email protected] == 6.0
     then
     [email protected] = 176.0
     end 
     if 0043:   [email protected] == 7.0
     then
     [email protected] = 219.0
     end
     if 0043:   [email protected] == 8.0
     then
     [email protected] = 262.0
     end
     [email protected] += 80.0
     038E: draw_box_position [email protected] [email protected] size [email protected] 40.0 RGBA 255 255 255 155
     return
     
     this is the cleo script code for creating menus like in GTA V, this menu uses function and touch, not an ordinary touchpoint.

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • 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.