Дата: Суббота, 05.09.2015, 21:59 | Сообщение # 646
Новичок
Сообщений: 1
Статус: Offline
Пытаюсь изменить ключевое слово dr, менял на etc и компилил, но игра начинала сильно лагать, да и скрипт не работал, помогите правильно компилировать скрипт, установлен SAMPFUNCS 3.2 на Sanny Builder и Cleo 4.1
{$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, 22:00 | Сообщение # 648
{ }
Сообщений: 1406
Статус: Offline
alekceu1997,
Код
{$CLEO} 0000:
wait 2000
while true wait 0 if and 0ab0: 0x61 8B21: samp is_chat_closed then wait 1000 repeat 0DBF: emul_key_press 0x57 is_up 0 wait 6000 0DBF: emul_key_press 0x57 is_up 1 wait 2000 until if 0ab0: 0x61 wait 1000 end end
Дата: Суббота, 05.09.2015, 22:00 | Сообщение # 649
Бывалый
Сообщений: 481
Статус: Offline
Вот эта штучка не пашет
Код
repeat wait 0 if Samp.IsPlayerConnected(15@) then 16@ = Samp.GetActorHandleByPlayerID(15@) if 056D: actor 16@ defined then 0619: enable_actor 16@ collision_detection 0 end end 15@ += 1 if 15@ > 1000 then 15@ = 0 end until false
Коллизия у игроков не отключается. хотя вроде все правильно написал
Дата: Суббота, 05.09.2015, 22:00 | Сообщение # 650
Новичок
Сообщений: 4
Статус: Offline
Код
{$CLEO .cs}
03A4: script_name 'CR_CAR_SPEED'
:CR_CAR_SPEED_19 0001: wait 0 00D6: if and 00DF: is_char_in_any_car $PLAYER_ACTOR 84C8: not is_char_in_flying_vehicle $PLAYER_ACTOR 84AB: not is_char_in_any_plane $PLAYER_ACTOR 84A9: not is_char_in_any_heli $PLAYER_ACTOR 84A7: not is_char_in_any_boat $PLAYER_ACTOR 0AB0: is_key_pressed 118 004D: goto_if_false @CR_CAR_SPEED_19 00BC: print_now 'CRSC_2' time 3000 flag 1 0001: wait 400 0002: goto @CR_CAR_SPEED_91
:CR_CAR_SPEED_91 0001: wait 0 00D6: if and 0AB0: is_key_pressed 118 00DF: is_char_in_any_car $PLAYER_ACTOR 84C8: not is_char_in_flying_vehicle $PLAYER_ACTOR 84AB: not is_char_in_any_plane $PLAYER_ACTOR 84A9: not is_char_in_any_heli $PLAYER_ACTOR 84A7: not is_char_in_any_boat $PLAYER_ACTOR 004D: goto_if_false @CR_CAR_SPEED_154
:CR_CAR_SPEED_154 00D6: if and 00DF: is_char_in_any_car $PLAYER_ACTOR 84C8: not is_char_in_flying_vehicle $PLAYER_ACTOR 84AB: not is_char_in_any_plane $PLAYER_ACTOR 84A9: not is_char_in_any_heli $PLAYER_ACTOR 84A7: not is_char_in_any_boat $PLAYER_ACTOR 004D: goto_if_false @CR_CAR_SPEED_19 03C0: store_car_char_is_in_no_save $PLAYER_ACTOR store_to $P_A_C_C_1 02E3: get_car_speed $P_A_C_C_1 store_to $P_A_C_S_1 00D6: if $P_A_C_S_1 > 5.0 004D: goto_if_false @CR_CAR_SPEED_91 04BA: set_car_forward_speed $P_A_C_C_1 to 7.0 0002: goto @CR_CAR_SPEED_19 004D: goto_if_false @CR_CAR_SPEED_154
Вообщем скрипт работает только если нажмешь 1 раз f7, а не переключается в режимах вкл и выкл. Как сделать чтобы переключался? Смысл скрипта- мне надо чтобы с помощью скрипта включалось ограничение 15 км в час и так же отключалось
Сообщение отредактировал Narkoz74 - Понедельник, 01.09.2014, 12:25
Дата: Суббота, 05.09.2015, 22:00 | Сообщение # 652
Новичок
Сообщений: 18
Статус: Offline
{$CLEO} 0000:
:START 0001: wait 0 ms 00D6: if and 0256: player $PLAYER_CHAR defined 0AB0: key_pressed 53 004D: jump_if_false @START 0A92: create_custom_thread "fph(a).my" 0A93: end_custom_thread
:NONAME_38 wait 10 if and $ONMISSION == 0 Model.Load(#MINIGUN) Model.Load(#SAWNOFF) Model.Load(#MICRO_UZI) Model.Load(#M4) Model.Load(#SNIPER) else_jump @NONAME_38
:NONAME_85 wait 10 if and $ONMISSION == 0 not Actor.Driving($PLAYER_ACTOR) 0AB0: key_pressed 123 else_jump @NONAME_85 00BC: show_text_highpriority GXT 'MMILL2L' time 3000 flag 1 // ~z~Xopo¥o, šep›y ®a cžo¢e. 018C: play_sound 1058 at 0.0 0.0 0.0 01B2: give_actor $PLAYER_ACTOR weapon 38 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 26 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 28 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 31 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 34 ammo 999999 // Load the weapon model before using this wait 100 Model.Destroy(#MINIGUN) Model.Destroy(#SAWNOFF) Model.Destroy(#MICRO_UZI) Model.Destroy(#M4) Model.Destroy(#SNIPER) wait 2900 jump @NONAME_85
Вот код, мне нужно поменять Миниган на дигл, Обрез на обычный дроб, Узи на MP5. Я пробовал сам, но увы что-то там модельки ругаются. (Я новичок в этом, помогите кому не сложно). M4 и Снайперку не трожте.
Сообщение отредактировал CoolSnesh - Вторник, 16.09.2014, 22:19
Дата: Суббота, 05.09.2015, 22:01 | Сообщение # 656
Новичок
Сообщений: 21
Статус: Offline
ЦитатаCoolSnesh ()
Вот код, мне нужно поменять Миниган на дигл, Обрез на обычный дроб, Узи на MP5. Я пробовал сам, но увы что-то там модельки ругаются. (Я новичок в этом, помогите кому не сложно). M4 и Снайперку не трожте.
:NONAME_38 wait 10 if and $ONMISSION == 0 Model.Load(#DESERT_EAGLE) Model.Load(#CHROMEGUN) Model.Load(#MP5LNG) Model.Load(#M4) Model.Load(#SNIPER) else_jump @NONAME_38
:NONAME_85 wait 10 if and $ONMISSION == 0 not Actor.Driving($PLAYER_ACTOR) 0AB0: key_pressed 123 else_jump @NONAME_85 00BC: show_text_highpriority GXT 'MMILL2L' time 3000 flag 1 // ~z~Xopo?o, sep›y ®a czo?e. 018C: play_sound 1058 at 0.0 0.0 0.0 01B2: give_actor $PLAYER_ACTOR weapon 24 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 25 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 29 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 31 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 34 ammo 999999 // Load the weapon model before using this wait 100 Model.Destroy(#DESERT_EAGLE) Model.Destroy(#CHROMEGUN) Model.Destroy(#MP5LNG) Model.Destroy(#M4) Model.Destroy(#SNIPER) wait 2900 jump @NONAME_85
:NONAME_38 wait 10 if and $ONMISSION == 0 Model.Load(#DESERT_EAGLE) Model.Load(#CHROMEGUN) Model.Load(#MP5LNG) Model.Load(#M4) Model.Load(#SNIPER) else_jump @NONAME_38
:NONAME_85 wait 10 if and $ONMISSION == 0 not Actor.Driving($PLAYER_ACTOR) 0AB0: key_pressed 123 else_jump @NONAME_85 00BC: show_text_highpriority GXT 'MMILL2L' time 3000 flag 1 // ~z~Xopo?o, sep›y ®a czo?e. 018C: play_sound 1058 at 0.0 0.0 0.0 01B2: give_actor $PLAYER_ACTOR weapon 24 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 25 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 29 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 31 ammo 999999 // Load the weapon model before using this 01B2: give_actor $PLAYER_ACTOR weapon 34 ammo 999999 // Load the weapon model before using this wait 100 Model.Destroy(#DESERT_EAGLE) Model.Destroy(#CHROMEGUN) Model.Destroy(#MP5LNG) Model.Destroy(#M4) Model.Destroy(#SNIPER) wait 2900 jump @NONAME_85
Спасибо, вот я дурак, в Model.Load вместо DESERT_EAGLE писал просто DEAGLE
Добавлено (16.09.2014, 23:33) --------------------------------------------- А где можно узнать полный список этих моделей?
