Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {$CLEO}
- 0000: NOP
- repeat
- wait 50
- until 0AFA: is_samp_available
- 0B34: samp register_client_command "xpresent" to_label @opresent
- 0B34: samp register_client_command "xsanta" to_label @osanta
- 0B34: samp register_client_command "xtree" to_label @otree
- 0B34: samp register_client_command "xelf" to_label @oelf
- 0B34: samp register_client_command "xreset" to_label @oreset
- 0B34: samp register_client_command "xtog" to_label @otog
- 0B34: samp register_client_command "xm" to_label @musicswitch
- 0B34: samp register_client_command "xhelp" to_label @ohelpchristmas
- 0B34: samp register_client_command "xmadjust" to_label @adjustpanel
- 0390: load_txd_dictionary 'xmas'
- 038F: load_texture "upl" as 1
- 038F: load_texture "up" as 2
- 038F: load_texture "triang" as 3
- 038F: load_texture "square" as 4
- 038F: load_texture "right" as 5
- 038F: load_texture "left" as 6 //panel
- 038F: load_texture "upr" as 7 //arrow up
- 038F: load_texture "downr" as 8 //up - right
- 038F: load_texture "downl" as 9 // right
- 038F: load_texture "down" as 10 //right - down
- 038F: load_texture "cross" as 11 //down
- 038F: load_texture "cring" as 12 //left - down
- 038F: load_texture "circle" as 13 //left
- 038F: load_texture "chit" as 14 //left - up
- 0@ = 1000
- 32@ = 0
- 33@ = 0
- 7@ = 0
- if
- 0AAB: file_exists "CLEO\oSettings.ini"
- then
- 0AF2: 26@ = get_float_from_ini_file "CLEO\oSettings.ini" section "Position" key "x"
- 0AF2: 27@ = get_float_from_ini_file "CLEO\oSettings.ini" section "Position" key "y"
- 0AF0: 4@ = get_int_from_ini_file "CLEO\oSettings.ini" section "Settings" key "musiconstart"
- if 4@ == 1
- then
- 4@ = 0
- 9@ = 1
- else
- 9@ = 0
- end
- end
- :First
- wait 0
- //0AD1: show_formatted_text_highpriority "%d" time 1000 6@
- if 28@ == 1
- then 0AB1: @Position_panel 2 XY 26@ 27@ XY_store_to 26@ 27@
- end
- 10@ = 0
- if 8@ == 1
- then
- 0AB9: get_mp3 $hMP1 state_to 17@
- //0AD1: show_formatted_text_highpriority "mp3= %d, 0@= %d, 33@= %d" time 100 17@ 0@ 33@
- 0AB1: @music 2 26@ 27@ store_to 26@ 27@ button_output 10@
- if 10@ == 1
- then
- jump @forward_button
- else
- if 10@ == 2
- then
- jump @play_pause_button
- else
- if 10@ == 3
- then
- jump @stop_button
- else
- if 10@ == 4
- then
- jump @previous_button
- end
- end
- end
- end
- //gosub @music
- end
- if
- 056D: actor $PLAYER_ACTOR defined
- jf @First
- if
- 0118: actor $PLAYER_ACTOR dead
- then
- jump @First
- end
- if 9@ == 1
- then
- // if and
- //0AB9: get_mp3 $hMP1 state_to 17@
- //17@ == -1
- // then
- if 001B: 33@ > 0@
- then
- 0AAE: release_mp3 $hMP1
- 0209: 5@ = random_int_in_ranges 1 13
- if 5@ == 1
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/1.MP3"
- else
- if 5@ == 2
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/2.MP3"
- else
- if 5@ == 3
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/3.MP3"
- else
- if 5@ == 4
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/4.MP3"
- else
- if 5@ == 5
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/5.MP3"
- else
- if 5@ == 6
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/6.MP3"
- else
- if 5@ == 7
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/7.MP3"
- else
- if 5@ == 8
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/8.MP3"
- else
- if 5@ == 9
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/9.MP3"
- else
- if 5@ == 10
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/10.MP3"
- else
- if 5@ == 11
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/11.MP3"
- else
- if 5@ == 12
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/12.MP3"
- else
- if 5@ == 13
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/13.MP3"
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- 0AAD: set_mp3 $hMP1 perform_action 1
- 0ABC: set_audiostream $hMP1 volume 1.0
- 0AAF: 0@ = get_mp3_length $hMP1
- 0@ *= 1000
- 33@ = 0
- end
- //end
- end
- if
- Actor.Driving($PLAYER_ACTOR)
- then
- if 32@ > 4000
- then
- 32@ = 0
- 041E: set_radio_station 11
- end
- end
- 30@ = 0
- if
- 7@ == 1
- then
- jump @First
- end
- if 1@ == 1
- then
- 0AB1: @Find_object 4 Object number 11@ Display_offset 30@ Image_number 1 Color 0xFF2929
- 30@ += 43
- end
- if 2@ == 1
- then
- 0AB1: @Find_object 4 Object number 12@ Display_offset 30@ Image_number 2 Color 0xFF2929
- 30@ += 43
- end
- if 3@ == 1
- then
- 0AB1: @Find_object 4 Object number 13@ Display_offset 30@ Image_number 3 Color 0xFF2929
- 30@ += 43
- end
- if 4@ == 1
- then
- 0AB1: @Find_object 4 Object number 14@ Display_offset 30@ Image_number 4 Color 0xFF2929
- 30@ += 43
- end
- jump @First
- :previous_button
- wait 0
- if 32@ > 300
- then
- 5@ -= 1
- if 5@ == 0
- then 5@ = 13
- end
- 0AB1: @change_song 1 song_number 5@ song_length_store 0@
- 33@ = 0 //reset timer
- 6@ = 0
- 32@ = 0 //timer for button
- end
- jump @First
- :play_pause_button
- wait 0
- if 32@ > 300
- then
- if 6@ == 2
- then
- 0AAD: set_mp3 $hMP1 perform_action 1 //play in case if stopped
- 0AAF: 0@ = get_mp3_length $hMP1
- 0@ *= 1000
- 33@ = 0
- 6@ = 0
- else
- 0B12: 6@ = 6@ XOR 1 //switcher
- if 6@ == 1
- then
- 0AAD: set_mp3 $hMP1 perform_action 2 //pause
- 0085: 18@ = 33@ // (int)
- 0@ = 1000000000
- else
- 0AAD: set_mp3 $hMP1 perform_action 3 //resume
- 0085: 33@ = 18@
- 0AAF: 0@ = get_mp3_length $hMP1
- 0@ *= 1000
- end
- end
- 32@ = 0 //timer for button
- end
- jump @First
- :stop_button
- wait 0
- if 32@ > 300
- then
- //0AB9: get_mp3 $hMP1 state_to 10@
- // if 10@ == 2
- //
- //1 = file is playing
- //2 = file paused
- //-1 = file is stopped
- 0AAD: set_mp3 $hMP1 perform_action 0 // stop
- 6@ = 2
- 32@ = 0 //timer for button
- 33@ = 0
- 0@ = 1000000000
- end
- jump @First
- :forward_button
- wait 0
- if 32@ > 300
- then
- 5@ += 1
- if 5@ == 14
- then 5@ = 1
- end
- 0AB1: @change_song 1 song_number 5@ song_length_store 0@
- 33@ = 0 //reset timer
- 6@ = 0
- 32@ = 0 //timer for button
- end
- jump @First
- :musicswitch
- wait 0
- 0B12: 8@ = 8@ XOR 1 //switcher
- if 8@ == 1
- then
- 0B5D: samp toggle_cursor 1
- else
- 0B5D: samp toggle_cursor 0
- end
- samp.CmdRet
- //0AB1: @change_song 1 song_number 5@ song_length_store 0@
- :change_song
- 0AAE: release_mp3 $hMP1
- if 0@ == 1
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/1.MP3"
- else
- if 0@ == 2
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/2.MP3"
- else
- if 0@ == 3
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/3.MP3"
- else
- if 0@ == 4
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/4.MP3"
- else
- if 0@ == 5
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/5.MP3"
- else
- if 0@ == 6
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/6.MP3"
- else
- if 0@ == 7
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/7.MP3"
- else
- if 0@ == 8
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/8.MP3"
- else
- if 0@ == 9
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/9.MP3"
- else
- if 0@ == 10
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/10.MP3"
- else
- if 0@ == 11
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/11.MP3"
- else
- if 0@ == 12
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/12.MP3"
- else
- if 0@ == 13
- then
- 0AAC: $hMP1 = load_audiostream "CLEO/MUSIC/oFinder_audio/13.MP3"
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- end
- 0AAD: set_mp3 $hMP1 perform_action 1 //play
- 0ABC: set_audiostream $hMP1 volume 1.0
- 0AAF: 1@ = get_mp3_length $hMP1
- 1@ *= 1000
- 33@ = 0
- 0AB2: ret 1 1@ //song length
- :adjustpanel
- wait 0
- 0B12: 28@ = 28@ XOR 1
- if 28@ == 1
- then
- 8@ = 0
- 0B5D: samp toggle_cursor 1
- else
- 0B5D: samp toggle_cursor 0
- end
- samp.CmdRet
- :opresent
- wait 0
- 0B35: samp 29@ = get_last_command_params //
- if 0AD4: 31@ = scan_string 29@ format "%d" 11@
- then
- 1@ = 1
- else
- 1@ = 0
- end
- samp.CmdRet
- :osanta
- wait 0
- 0B35: samp 29@ = get_last_command_params //
- if 0AD4: 31@ = scan_string 29@ format "%d" 12@
- then
- 2@ = 1
- else
- 2@ = 0
- end
- samp.CmdRet
- :otree
- wait 0
- 0B35: samp 29@ = get_last_command_params //
- if 0AD4: 31@ = scan_string 29@ format "%d" 13@
- then
- 3@ = 1
- else
- 3@ = 0
- end
- samp.CmdRet
- :oelf
- wait 0
- 0B35: samp 29@ = get_last_command_params //
- if 0AD4: 31@ = scan_string 29@ format "%d" 14@
- then
- 4@ = 1
- else
- 4@ = 0
- end
- samp.CmdRet
- :oreset
- wait 0
- 1@ = 0
- 2@ = 0
- 3@ = 0
- 4@ = 0
- samp.CmdRet
- :otog
- wait 0
- 0B12: 7@ = 7@ XOR 1
- samp.CmdRet
- :cursor
- wait 0
- wait 1000
- 0B12: 8@ = 8@ XOR 1
- if 8@ == 1
- then
- 0B5D: samp toggle_cursor 1
- else
- 0B5D: samp toggle_cursor 0
- end
- samp.CmdRet
- :ohelpchristmas
- wait 0
- 0AF8: samp add_message_to_chat "{F7F694}o{FF4800}b{00C8FF}j{D900FF}e{1EFF00}c{FFFFFF}t{F7F694}Finder {FF2929}Christmas edition:) {F7F694}commands:" color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xpresent <modelID> " color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xsanta <modelID> " color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xtree <modelID> " color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xelf <modelID> " color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xm {F7F694}(opens the music panel)" color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xmadjust {F7F694}(allows you to adjust the position of the music panel)"
- 0AF8: samp add_message_to_chat "{FFFFFF}/xreset {F7F694}(reset current searches)" color 0xFFFFFFFF
- 0AF8: samp add_message_to_chat "{FFFFFF}/xtog {F7F694}(tog current searches)" color 0xFFFFFFFF
- samp.CmdRet
- //0AB1: @music 2 26@ 27@ store_to 26@ 27@ button_output 1@
- :music
- 0AB1: @Panel 2 XY_input 0@ 1@ XY_store_to 15@ 16@ //returns X and Y position of the panel
- 0B5D: samp toggle_cursor 1
- if key_down 1
- then
- 0B5E: get_cursor_pos 9@ 10@
- 0B5F: convert_window_screen_coords 9@ 10@ to_game_screen_coords 9@ 10@
- //0AD1: show_formatted_text_highpriority "posX%f posY%f" time 1000 9@ 10@
- 16@ -= 9.027272
- if and
- 0025: 10@ > 16@ // (float) // top border - the same for all
- 16@ += 18.2
- 0025: 16@ > 10@ // bottom border - the same for all
- then
- 15@ -= 58.5 // 15@ = left edge of previous button
- if
- 0025: 9@ > 15@
- then
- 15@ += 18.5 //right edge of previous button
- if
- 0025: 15@ > 9@
- then
- 8@ = 1 //jump @previous_button
- else
- 15@ += 5.0 // left edge of play/pause button
- if
- 0025: 9@ > 15@
- then
- 15@ += 18.5 //right edge of play/pause button
- if
- 0025: 15@ > 9@
- then
- 8@ = 2 //jump @play_pause_button
- else
- 15@ += 4.5 // left edge of stop button
- if
- 0025: 9@ > 15@
- then
- 15@ += 18.5 //right edge of stop button
- if
- 0025: 15@ > 9@
- then
- 8@ = 3 //jump @stop_button
- else
- 15@ += 4.5 // left edge of forward button
- if
- 0025: 9@ > 15@
- then
- 15@ += 18.5 //right edge of forward button
- if
- 0025: 15@ > 9@
- then
- 8@ = 4 //jump @forward_button
- else
- 8@ = 0 //no button
- end
- end
- end
- end
- end
- end
- end
- end
- end
- {
- if and
- 10@ > 31.7 // top border - the same for all
- 49.9 > 10@ // bottom border - the same for all
- then
- if and
- 9@ > 261.5 //left border - previous button
- 280.0 > 9@ //right border
- then
- jump @previous_button
- else
- if and
- 9@ > 285.0 //left border - play/pause button
- 303.5 > 9@ //right border
- then
- jump @play_pause_button
- else
- if and
- 9@ > 308.0 //left border - stop button
- 326.5 > 9@ //right border
- then
- jump @stop_button
- else
- if and
- 9@ > 331.0 //left border - forward button
- 350.0 > 9@ //right border
- then
- jump @forward_button
- end
- end
- end
- end
- end
- }
- end
- 0AB2: ret 3 0@ 1@ 8@
- //0AB1: @Find_object 2 Object number 0@ Display_offset y@ Image_number 2@ Color
- :Find_object
- 0B5A: get_screen_resolution 29@ 31@ //int
- 29@ /= 10
- 29@ *= 8
- //31@ /= 2
- 31@ /= 10
- 31@ *= 7
- 005A: 31@ += 1@
- 28@ = 0
- if 056D: actor $PLAYER_ACTOR defined
- then
- 00A0: store_actor $PLAYER_ACTOR position_to 13@ 14@ 15@
- else
- jump @First
- end
- 21@ = 400.0
- for 16@ = 0 to 10000
- if 0B50: samp 10@ = object_handle_by_id 16@
- then
- 0984: 11@ = object 10@ model
- if 003B: 11@ == 0@ // (int)
- then
- 03F0: enable_text_draw 1
- 28@ += 1
- 01BB: store_object 10@ position_to 17@ 18@ 19@
- 050A: 20@ = distance_between_XYZ 13@ 14@ 15@ and_XYZ 17@ 18@ 19@
- if 0025: 21@ > 20@ // (float)
- then
- 0087: 21@ = 20@ // (float)
- 0085: 22@ = 10@ // (int) --22@ = closest object
- end
- if
- 02CC: object 10@ bounding_sphere_visible
- then
- 0AB1: @Draw 2 Object_handle 10@ Image_number 2@
- end
- end
- end
- if 28@ > 49
- then break
- end
- end
- 0AD3: 8@v = format "Model: %d" 0@
- 0AD3: 12@v = format "Number: %d" 28@
- if
- 28@ == 0
- then
- 0D94: draw_text 8@v pos_xy 29@ 31@ align_xy 0.0 0.0 color 0x575757 shadow 1
- 31@ += 19
- 0D94: draw_text 12@v pos_xy 29@ 31@ align_xy 0.0 0.0 color 0x575757 shadow 1
- 29@ -= 25
- //31@ -= 60
- 0B5F: convert_window_screen_coords 29@ 31@ to_game_screen_coords 26@ 27@
- 03E3: set_texture_to_be_drawn_antialiased 1@
- 03F0: enable_text_draw 1
- 038D: draw_texture 2@ position 26@ 27@ size 20.0 20.0 RGBA 30 30 30 170 //128 128 128 255
- else
- 0D94: draw_text 8@v pos_xy 29@ 31@ align_xy 0.0 0.0 color 3@ shadow 1
- 31@ += 19
- 0D94: draw_text 12@v pos_xy 29@ 31@ align_xy 0.0 0.0 color 3@ shadow 1
- 29@ -= 25
- //31@ += 60
- 0B5F: convert_window_screen_coords 29@ 31@ to_game_screen_coords 26@ 27@
- 03E3: set_texture_to_be_drawn_antialiased 1@
- 03F0: enable_text_draw 1
- 038D: draw_texture 2@ position 26@ 27@ size 20.0 20.0 RGBA 240 240 240 255 //128 128 128 255
- 26@ -= 19.0
- 0AB1: @Draw_arrow 3 Object_handle 22@ PositionXY 26@ 27@
- end
- 0AB2: ret 0
- //0AB1: @Draw_arrow 3 Object_handle 1@ PositionXY
- :Draw_arrow
- 068D: get_camera_position_to 10@ 11@ 12@
- 068E: get_camera_target_point_to 13@ 14@ 15@
- 0AB1: call_scm_func @getZAngleBetweenPoints 4 from_XY 13@ 14@ and_XY 10@ 11@ store_to 17@
- 01BB: store_object 0@ position_to 13@ 14@ 15@
- 0AB1: call_scm_func @getZAngleBetweenPoints 4 from_XY 10@ 11@ and_XY 13@ 14@ store_to 16@
- if 0025: 17@ > 16@ // (float)
- then
- 18@ = 360.0
- 0063: 17@ -= 16@ // (float)
- 0063: 18@ -= 17@ // (float)
- else
- //0063: 18@ -= 17@
- 0063: 16@ -= 17@
- 0087: 18@ = 16@
- end
- if or
- 0021: 18@ > 337.4
- 0023: 22.5 > 18@
- then
- 19@ = 11
- else
- if and
- 0021: 18@ > 22.4
- 0023: 67.5 > 18@
- then
- 19@ = 10
- else
- if and
- 0021: 18@ > 67.4
- 0023: 112.5 > 18@
- then
- 19@ = 9
- else
- if and
- 0021: 18@ > 112.4
- 0023: 157.5 > 18@
- then
- 19@ = 8
- else
- if and
- 0021: 18@ > 157.4
- 0023: 202.5 > 18@
- then
- 19@ = 7
- else
- if and
- 0021: 18@ > 202.4
- 0023: 247.5 > 18@
- then
- 19@ = 14
- else
- if and
- 0021: 18@ > 247.4
- 0023: 292.5 > 18@
- then
- 19@ = 13
- else
- if and
- 0021: 18@ > 292.4
- 0023: 337.5 > 18@
- then
- 19@ = 12
- end
- end
- end
- end
- end
- end
- end
- end
- 03E3: set_texture_to_be_drawn_antialiased 19@
- 03F0: enable_text_draw 1
- 038D: draw_texture 19@ position 1@ 2@ size 18.0 18.0 RGBA 255 255 255 255 //
- 0AB2: ret 0
- :getZAngleBetweenPoints
- //0AB1: call_scm_func @getZAngleBetweenPoints 4 from_XY 0.0 0.0 and_XY 1.0 0.0 store_to 1@
- 0063: 0@ -= 2@
- 0063: 1@ -= 3@
- 0604: get_Z_angle_for_point 0@ 1@ store_to 4@
- 0AB2: ret 1 4@
- //0AB1: @Draw 6 Object_handle 1@ Image_number
- :Draw
- 01BB: store_object 0@ position_to 11@ 12@ 13@
- 068D: get_camera_position_to 21@ 22@ 23@
- 050A: 24@ = distance_between_XYZ 11@ 12@ 13@ and_XYZ 21@ 22@ 23@
- if 0031: 24@ >= 80.0
- then
- 24@ = 80.0 //to prevent too small images
- end
- 25@ = 1300.0
- 26@ = 1300.0
- 5@ = 255
- if 0033: 16.0 >= 24@
- then
- 6@ = 255.0
- 0017: 6@ /= 8.0
- 0087: 7@ = 24@ // (float)
- 000F: 7@ -= 8.0
- 006B: 6@ *= 7@
- if 0033: 0.0 >= 7@
- then
- 5@ = 0
- else
- 0092: 5@ = float 6@ to_integer
- end
- end
- 0073: 25@ /= 24@ // (float)
- 0073: 26@ /= 24@
- 0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 11@ Y 12@ Z 13@ store_screen_X_to 14@ Y_to 15@
- 03E3: set_texture_to_be_drawn_antialiased 1@
- 03F0: enable_text_draw 1
- 038D: draw_texture 1@ position 14@ 15@ size 25@ 26@ RGBA 255 255 255 5@ //128 128 128 255
- if 0033: 9.9 >= 24@ //add happy face when approach the object closely
- then
- 6@ = 10.0
- 0063: 6@ -= 24@ // (float)
- 8@ = 255.0
- 0017: 8@ /= 8.0
- 006B: 8@ *= 6@
- 0092: 5@ = float 8@ to_integer
- if 0029: 5@ >= 130
- then
- 5@ = 130
- end
- 03E3: set_texture_to_be_drawn_antialiased 5
- 03F0: enable_text_draw 1
- 038D: draw_texture 5 position 14@ 15@ size 25@ 26@ RGBA 255 255 255 5@ //128 128 128 255
- end
- 0AB2: ret 0
- //0AB1: @Panel 2 XY 0@ 1@
- :Panel
- 03E3: set_texture_to_be_drawn_antialiased 6
- 03F0: enable_text_draw 1
- 038D: draw_texture 6 position 0@ 1@ size 129.142960 45.333576 RGBA 255 255 255 255 //128 128 128 255 //90.4 34.0
- 0AB2: ret 2 0@ 1@
- //0AB1: @Position_panel 2 XY 26@ 27@
- :Position_panel
- 0B5D: samp toggle_cursor 1
- if key_down 1
- then
- 0B5E: get_cursor_pos 9@ 10@
- 0B5F: convert_window_screen_coords 9@ 10@ to_game_screen_coords 0@ 1@
- 0AF3: write_float 0@ to_ini_file "CLEO\oSettings.ini" section "Position" key "x"
- 0AF3: write_float 1@ to_ini_file "CLEO\oSettings.ini" section "Position" key "y"
- end
- 03E3: set_texture_to_be_drawn_antialiased 6
- 03F0: enable_text_draw 1
- 038D: draw_texture 6 position 0@ 1@ size 129.142960 45.333576 RGBA 150 150 150 150
- 0AD1: show_formatted_text_highpriority "Click anywhere + use /xmadjust again to exit editing" time 100 0xF7F694
- 0AB2: ret 2 0@ 1@
- //0AB1: call_scm_func @getScreenXYFrom3DCoords 3 3D_coords_X 0@ Y 1@ Z 2@ store_screen_X_to 3@ Y_to 4@
- :getScreenXYFrom3DCoords
- 0AA7: call_function 0x70CE30 num_params 6 pop 6 clipNear 1 clipFar 1 yMult 7@s xMult 6@s outVector 2@s inVector 0@s result 29@
- 0073: 2@ /= 6@
- 0073: 2@ /= 4@
- 0073: 3@ /= 7@
- 0073: 3@ /= 4@
- 2@ *= 640.0
- 3@ *= 448.0
- 0AB2: ret 2 2@ 3@
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement